\JCWS 



* - ' 



LABEL OOOOOOOOOLlNF OOJ77244? FXECUTE FSPOL/DISK 

BiiKROUGhS 8-5700 ESPOL cOMPjLfR MARK XV ] .0 , 1 1 6 THURSDAY, 09/01/77, 



ESPOL /DISK 



1U59 AM, 



MCPA /DISK 

;::::: c c:::it: : 



SOUKCF FILE'S SYMBOL /McP 



05/09/77*179- 



XP 5 7 M c P MARK XVI. 0.176 

% 

COMMFNTi + TITLES R5500/B5700 MARK XV! SYSTEM RELEASE * 

* FIIF ID* SYMBOL/MCP TAPE I D > SYMR0L1 /Fl LEOOO *- 

* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 

* AND IS NOT TO RE RfPROpUCED, USED. OR DISCLOSED 

* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 

* WRfTTFN AUTHORIZATION OF THE PATENT DIVISION Of 

* BURROUGHS CORPORATION, DETROIT, MICHIGAN 48232 
* 

* COPYRIGHT (C) I965 f 1*7 \ , \97?, i973, J974 

* BURROUGHS CORPORATION 

* AA759915 AA320206 AA393i80 AA332366 

* AA495655 AA495656 
S SET OMIT = NOT(DEBUGGING)- 



* 
* 
* 
* 

* 

* 



AA4650B0 * 
*> 



PRTC201) * 



BEGIN 

DEFINE MTXMAXe 9#> 
♦SEGMFNT DESCRIPTOR* 

DEFINE j0RMUMAXr40|> 

DEFINE MARKLEVFLs 



COMMENT 8 
COMMENT: 



MIXMAX HAY NOT BE LARGER THAN ?9j 



#, patchlevel« 
#, localevel* 



*l 



"XVI .0" 
"178" 



JOBNUMAX SHOULD BE ABOUT 

2XMIXMAX+30; 

% MARK LFVEL IN ALPHA 

i 

X PATCH RELEASE LEVEL IN ALPHA 
3! LOCAL LEVEL J* ALPHA 



*179. 



DEFINE ■ MC-PTYPe * 63*, 
DOJNTYPE » 6?*, 
TSSTNTYPE .» 61 *> ■'"', 
COMMENT THF ESPOL COMPILER APPROPRIATELY TYPE'S THE MCP S 

I.NTpI NSICS FILF HEADERS' So THAT A VALIDITY CHECK MAY BE MADE 
DURiNg INITIALIZATION AND AT CI AND CM TIME, HE ADER[ 4 ] . t 361 63 
IS THE FIELD USED TO CONTAIN The TYPEJ 
DEFINE FSAD = rt * 15 J* # 
UNUM c --f 16151'* 
RYBY(BYRY1,RYRY2) * 

REG IN STREAM? A » s TYPEDSPACEClO,SPOUrMSGAREAV) 

BEGIN DI5*A> DStaBYBY2 LIT BYBYl? ENDJ 
PUNT(O); 

FND#J 
DEFINE RFSFRVFDISKSIZE=2000*J 

COMMENT TRACESiZF IS ThE SIZE OF THE CORE AREA USED T STORE TRACE 

INFORMATION BEFORE IT IS WRITTEN ON DISK. 



« )J* X167- 



00001000" 

00002000 

00002010 

00002011 

00002012 

00002013 

00002014 

00002015 

000020J6 

00002017 

00002018 

00002019 

OOOO2O2O 

00002021 

00002100 

00003000 

00004000 

00005000 
00005001 
00005010 
000050?0 
00005030 
00005040 
00005050 
00005060 
00005070 
00005100 
00005120 
00005140 
00005160 
00005180 
00005185 
00005190 
00005200 
00005210 
0000$2?0 
00005230 
00005240 
00005250 
00005260 
00005300 
00005500 
00005600 



P 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 



OOOOJO 

000010 
OOOOJO 

000010 

000010 
000010 
OOOOJO 

OOOOJO 
OOOOJO 

OOOOJO 
* OOOOJO 
OOOOJO 
000010 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 

OOOOJO 
OOOOJO 
0000:0 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
0000:0 

0000:0 

OOOOJO 
OOOOJO 
OOOOJO 

0000 id 

OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 

0000:0 

OOOOJO 

0000:0 



PRTC5) = JUNK 



TRACARFASTART jS THE ABSOLUTE DISK ADDRESS OF THE TRACE 

AREA ON DtSk. 
TRACARFASIZE IS ThF SIZE (IN DISK SEGMENTS) OF THE TRACF 
AREA ON DjSkJ 
DEFINE TRACESiZE=3O#»TRACARLASTaRTsi000O#,TraCAREASIZEb480#J 
DEFINE HANG«DO UNTtl FALSE** 

define i.eftarrow * "«."#; 
$ set omit = not(saveresults) 
Real ji'Nks5*s 

deflnf pseudomax = 31 #, * max no of pseuo'rdrs o-origin 

PSEUOOMAXl ■ 32 t, % MAX NO OF PSEUD-RDRS 1-ORlGlN 

PSfUnOMAXT = 63 *> % * entries jN TlNU table -2 

COMMENT TO REDEFINF MAX NO. OF PSEUnO RDRS.SlZF AND INITIALIZATION 
OF T I N U T * 3 AT 0024j9oO MUST ALSO BE MODIFIED ACCORDINGLY) 
COMMENT : PSFUDOMAX MUST BE *0 AND S 3i 
PSEUDOMAXl MUST BE * AND i 32 
PSEUDOMAXT MUST BE * 31 AND < 631% 
COMMENT TO ADJUST THE PRIORITY* CORf ESTIMATE. AND STACK SIZF 

of lirmajn/dtsk. See sequence number 45075470; 

LABEL r, OGOGO, NORM ALFRR0R,P2B|jSy, TIMER, EXTERNAL .INQUEST, 

pRocsimt,p;? F ake»keyboardreQUest,Return,cominit,memoRyparity *wf 

* 

DEFINE GETUSERDISK(GETUSERDISK1)=PETUSERDISK(GETUSERDISK1.0)#JX 
$ SET OMIT ■ NPT([)UMP OR DEBUGGING) 
DEFINE DUMPN0WCDUMPN0W1 ) * 

DUMPCORE(DUMPN0WU(GETSPACE(22.0,O) + 3)[15I33M53)#I* 
$ POP OMIT 

INTFGEP RRRMECH»*20l»* 
PRT(201) « RRRMECH 

DEFINE SPACE(SPACEl ) *< GETSPACE ( SPACF1 » 0, ) + ?)*l 
DEFINE MCPsMtll*; XPRIVILEDGED USERcODE STORED IN MtlJ 
DEFINE t KTYIN TABLF DEFINE VALUES FOR "REPLY" 
VAX B Oj*. 
VIL = 02*, 
VUL = 03*. 
VQT = 04*. 
VOU = 05*, 
VWY ? 06*, 
VRM = t?*' 
V'OK » 22#, 
VFM 3 23*, 
VFR 8 ?fl*. 
VOF ■ 25*, 
VCC = 21*. 
VIF s 3?*} 
DEFINE 
* SET OMIT a AUXMjrM 

SPACFSTACKSIZF * 80*) 
$ SET OMIT * NOT(AUXMEM) 
SAVF INTFGFR PROCEDURE GETSPACEC S I Zf » TYPE, SaVEF ) t % 

PRTC202) * r.ETSPACE START ° F SAVE SF:faMFNTf 0ASE ADDRESS * 00000 

VALUE SIZE.TYPE.SAVEF1X 
INTEGFR SIZE.TYPEU 

BOOLEAN SAVEF* FORWARD** 

DEFINE Il6 ,. 



00005700 


T 


0000*0 


00005800 


T 


ooooio 


00005900 


T 


0000*0 


00005950 


T 


0000*0 


00006000 


T 


0000*0 


00006100 


T 


000010 


00006150 


T 


0000*0 


00006200 


T 


0000*0 


00007000 


T 


0000*0 


00007050 


T 


0000*0 


00007055 


T 


OOOOiO 


00007060 


T 


0000*0 


00007061 


T 


0000*0 


00007062 


T 


0000*0 


00007065 


T 


0000*0 


00007070 


T 


0000*0 


00007075 


T 


0000*0 


00007200 


T 


000050 


00007210 


T 


0000*0 


00008000 


T 


0000*0 


00009000 


T 


0000*0 


OOOlOOOO 


T 


0000*0 


00012001 


T 


0000*0 


00012159 


T 


0000*0 


00012160 


T 


0000*0 


00012165 


T 


0000*0 


00012166 


T 


0000*0 


00013000 


T 


OOOOiO 


00013500 


T 


0000*0 


00013600 


T 


OOOOIO 


00013700 


T 


0000*0 


00013710 


T 


0000*0 


00013720 


T 


0000*0 


00013730 


T 


0000*0 


00013740 


T 


0000*0 


00013750 


T 


0000*0 


00013760 


T 


0000*0 


00013770 


T 


0000*0 


00013780 


T 


0000*0 


00013790 


T 


0000*0 


00013800 


T 


0000*0 


00013810 


T 


0000*0 


00013820 


T 


0000*0 


00013830 


T 


0000*0 


00013850 


T 


ooooto 


00013860 


T 


OOOOiO 


00013870 


T 


0000*0 


00013880 


T 


ooooto 


00014000 


T 


0000*0 


SEGMFNTI BASE 


ADDRESS * 


00015000 


T 


OOOOIO 


00016000 


T 


0000*0 


00017000 


T 


ooooto 


00017005 


C 


0000*0 



TYPmSPACrcTYPEOSPACE 
( GETSPACrcTYPFDSP 

» ARRAYOE"SC(ARRAYOE.SCl » 
( rMf GLTSpACECARRA 

»savearraydeSccSavearr 

rrMTGETSpACEfSAVE 



ltTYPFDSPACF2) « 
ACEltTYPEDSPACE2»0)+?)# X 
ARRAYDF.SC2) * 

YDESCi #ARRAYDESC2,0)+?]] & ARRAYDESC1 
AYDESci»SAVEARRAYDESC2) = 
ARRAYDESC1»SAVEARRAYDESC2#1 

& SAVE 



) + 2]J 

ARRAYDESC1 



%%% 

%** 

%* 

%* 

%* 

X* 

%** 

XXX 

DEF 



********************* 

MEMORY AREA TYPFS S 
LINK OF ALL MEMORY 



*************************** 



TORED 
AREAS 



INI 3*6 FIELD OF FIRST 



********************* 
%%%%%%%%%%%%%%%%%%%%% 
INE 

UNKMOWNAREAV * 0* X 

•CODFAREAV « i * % 

.DATAAREAV s 2 # % 

•IOBUFFERAREAV = 3* X 

»ALOOt,FTBAREAV = 4* X 

» INQUJRYBUFFAREAV « 5* X 

»COBOLFIPAREAV * 6* X 

#TyPf7iNTAReAV s 7* % 

tDfSKHEADERARFAV « 8* X 

pMAINTBUFFAREAV = 9* % 

.LrLeonaReav * 10* X 

.SrGZFROAREAV * H* x 

♦STACKAREAV * 12* X 

,TvPe13tNTaReaV * 13* X 

tScRATCHDlRARFAV * 14* X 

,OPSFTAREAV s 15* X 

,D?RTOPaRFAV ■ 16* % 

tSpOUTMSGAREAV * 17* X 

tUvROWAREAV = 18* % 

.JARROWAREAV a 19* X 

.CtDROWAREAV * 20* X 

, H.QtK'PUTAREAV = 21* % 

* INTAPRAYAREAV ■ 22* X 

^RjElNPUTAREAV = 23* X 

♦DrQUEUEAREAV * 24* X 

#DAL0fR0WARFAV = 25* X 

•ShEETAREAV * 26* X 

.STAWORDARfAV * 27* X 

•KFVTNBUFFAREAV * 28* X 

.FSARFAV * 29* X 

.DC190UEUEAREAV « 30* X 

•AVTABLEAREAV a 31* X 

.TRACETABLEARFAV ■ 32* X 

»SfGOICTaREAV b 33* X 

.STACKPRTAREAV » 34* X 

.MrPTABLEAREAV = 35* X 

# IRSTACKARFAV ■ 36* X 

tFPBARFAV * 37* X 

»C0NTR0LCARDAREAV » 38* X 

»LaBELAREAV ■ 39* X 



*************************** 

%%%%%%%%%%%%%%%%%%%%%%%%%%% 



DC MfP ONLY 



nC McP ONLY 



DC MCP ONLY 



X167 
X167 
X167 
[SIZE])* 
Xt67 
X167 

tSlZE])* 
X167 

xxxxxxxxxxxxxxxxxxxx 

******************** 

* 
MEMORY * 

* 

* 

******************** 

xxxxxxxxxxxxxxxxxxxx 

X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167 
X167< 
X167' 
X167 
X167' 
X167' 
X167 

X167' 

X167. 

1167' 

X167< 

* 1 6 / 

X167' 

X167- 

X167. 

X167- 

X167< 

X167- 

X167« 

X167« 

X167. 

X167- 

X167' 



X 



000 


17010 


C 


000010 


000 


17015 


c 


OOOOiO 


000 


17020 


c 


000010 


000 


17025 


c 


ooooso 


000 


17030 


c 


OOOOiO 


000 


17035 


c 


OOOOiO 


000 


17040 


c 


0000*0 


000 


17045 


c 


OOOOIO 


000 


17100 


c 


0000»0 


000 


17110 


c 


OOOOIO 


000 


17120 


c 


OOOOIO 


000 


17130 


c 


OOOOIO 


000 


17140 


c 


OOOOIO 


000 


17150 


c 


OOOOIO 


000 


17160 


c 


OOOOiO 


000 


17170 


c 


OOOOIO 


000 


17180 


c 


OOOOIO 


000 


17190 


c 


OOOOIO 


000 


17200 


c 


OOOOIO 


000 


17210 


c 


OOOOIO 


000 


17220 


c 


OOOOiO 


000 


17230 


c 


OOOOIO 


000 


17240 


c 


OOOOiO 


000 


17250 


c 


OOOOiO 


000 


17260 


c 


OOOOiO 


000 


17270 


c 


OOOOIO 


000 


17280 


c 


OOOOIO 


000 


17290 


c 


OOOOIO 


000 


17300 


c 


OOOOIO 


000! 


17310 


c 


OOOOIO 


000 


17320 


c 


OOOOIO 


000« 


17330 


c 


OOOOIO 


ooo« 


17340 


c 


OOOOIO 


000 


[7350 


c 


OOOOIO 


000< 


17360 


c 


OOOOIO 


000! 


7370 


c 


OOOOIO 


0001 


7380 


c 


OOOOIO 


000) 


17390 


c 


OOOOIO 


000! 


[7400 


c 


OOOOIO 


000] 


17410 


c 


OOOOIO 


000] 


17420 


c 


0000:0 


000] 


17430 


c 


OOOOIO 


000] 


7440 


c 


OOOOIO 


oooi 


7450 


c 


OOOOIO 


000] 


.7460 


c 


OOOOIO 


000] 


7470 


c 


OOOOIO 


000] 


7480 


c 


OOOOIO 


000] 


7490 


c 


OOOOiO 


OOOl 


7500 


c 


OOOOIO 


0001 


7510 


c 


OOOOIO 


OOOl 


7520 


c 


OOOOIO 


OOOl 


7530 


c 


OOOOIO 


OOOl 


7540 


c 


OOOOIO 


OOOl 


7550 


c 


OOOOIO 


OOOl 


7560 


c 


OOOOIO 


000] 


7562 


c 


OOOOIO 


OOOl 


7564 


c 


OOOOIO 



.MoUMPAREAV 

»espdtskaReav 
•logarfav 

•CANDFINPUTARrAV 

.ORJORINPUTARFAV 

,TyPE«5 

»TyPE46 

»TyPF:A7 

»TyPfA8 



40# 
41* 
4?* 
43* 
44# 
45* 
46* 
47* 
48* 



TSS 
TSS 



MCP 
MCP 



ONLY 
ONLY 



%l67m 

X167- 
X167- 
* 1 67- 
X 167- 

X167- 

Xt 67- 

X167- 
*167- 

X167- 



1 X167- 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x********************************** *************** ************** *******j; 

X* *x 

x* - - - 



X* 



memory links 



*x 
*x 



** *x 

X************************************************************** + ***^***g 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
? . X167- 



FTFLDS OF MEMORY LINK Of ALL AREAS 



% 

X 
X 

FIELD 

ARfAAVA JLF 

.aRfasavef 

,ARfATyPFF 
#ARrAM?XF 

» arfabacklinkf 
•arfafwdlinkf 



SAVE REAL PROCEOURF 



PRTC203) * WAITIO 



PRT(204) 



SAVF PROCFPURF P T SKWA I Tf CORE , SI ?E » Dl SK ) I 
DISKWAIT 



X167 

X167- 

X167- 

-. 01 :01 * = FOR IN-USE AREA. * 1 FOR AVAIL. ARFA 
; 02J01 % s J FOR IN-USE SAVE AREA, * FOR OLAY AREA 
; 03:06 X TYPE OF AREA (SEE ABOVE) X167- 

: 09:06 X MIX INDEX OF OWNER OF AREA X167- 

: 18115 X ADDRESS OF PREVIOUS AREA X167- 

: 33M5 % ADDRESS OF NEXT AREA X167- 

X167- 
WAITIOC I0D»MASK,U) 1% 

START OF SAVE 

VALUE IOD. MASK, ui real iod»mask,uj forwardjx 

HT/TftDr .ciir.nicvt! 

start of save 



VALUE CORE, SIZE • D I SKJ 
REAL CORE»SlZE»niSK> 

forward; 
procedurf frrorfixfr(typf) ; value type? real type! forward? 



PRT(205) 
PRT(206) 9 SNOOZE 



START OF REL 



* fRRorfixeR 

SAVF PROCEDURE SN00ZEC PR YR , ADDRESS, MASK ) I VALUE PRYR, ADDRESS, MASK I 

START OF SAVE 



REAi. PRYRJ NAME ADDRESS* ARRAY MASKC*]! FORWARD! 

DEFINE SLEEP ( SLEFP 1, SLEEP? )«SN00ZE (PR Y0R[P1M IX], SLEEP 1,SLEEP2)# I 
ARRAY PRYOR[*]» 
PRT(207) s PRYOR 

REAL P1MIX,P?MIX; X SEE OO1O5OOO 
PRT(?lO) « P1MIX 

PRT(2H) * P2MIX 

ARRAY SLATF[*3IX 
PRTC212) * SLATE 

REAL NSLATE»LSLATE1X 
PRT(2l3) « NSLATE 
PRT(2l4) • LSLATE 

dffinf slatfsize b 16*»slatend*slateSize-i#ixsize must Be two POWER 



0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 

SFGMENTJ 



7566 

7568 

7570 

7572 

7574 

7576 

7578 

7580 

7582 

7600 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7762 

7764 

7766 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

8000 

BASE 



00019000 

00019100 

SEGMENTl BASE 

00019200 
00019300 
00019400 
00019500 
SEGMENTl DISK 

00020000 

SEGMENTl BASE 



C 
C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

T 



000010 

ooooto 

OOOOtO 

ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 



ADDRESS « 00000 

T OOOOtO 
T OOOOtO 
ADDRESS * 00000 



ooooto 
ooooto 
ooooto 
0000:0 



ADDRESS * 00002 



T OOOOtO 
ADDRESS * 00000 



00021000 T 
00021500 T 
00021600 T 



OOOOtO 
OOOOtO 
OOOOtO 



00021700 T OOOOtO 

00022000 T OOOOtO 

00023000 T OOOOtO 

00023100 T OOOOtO 



PRT(160) 
PRTC161) 
PRT(162) 
PRTC163) 
PRT(164) 
PRTC165) 
PRTC166) 



MT1 
NT2 
NT3 
NT4 
NT5 
NT6 
NT7 



REAL NTi=«*!60,NT?sPl6l,NT3B«»l62,NT4sPl63»NT5 = e»l64,NT6BPl65»NT7 , api66> 



00024000 T 0000S0 



PRT(170) * CLOCK 



REAL, cUc* * P170; X CLOCK. [9:333 contains the number of time interval 



PRTU62) = TSKA 
PRT(?i5) ■ 



X INTERRUPTS PROCESSED SlNCF HALT LOAD. CLOCK. C42t6] 
% ALWAYS EQUALS 7ER0, X1 56- 

COMMENT NT1 THRU NT7 ARE USED BY THE MCP FOR TFMPORARY STORAGE. 

ALL PROCESSES THAT USr THESE VARIABLES ASSUME THAT IF CONTROL 

is lost, their content may have befn changed by the time 

that control, is regained, 
end comment; 
array tska * nt3cm; 



REAL 
MCPBASE 

COMMENT 



MCPBASE* 



OF THE BEGINNING 
ADDRESS IS PASSED TO 



PRT(2l6) * FSPBIT 



mcpbase contains the disk address (octal) 
of The mcp that is currently in use. this 
thf mcp by the loader Routine at each halt/load in Mroi.neno], 

WHFN THE ESPBIT ROUTINE IS CALCULATING THE DISK ADDRESS 
OF AN MCP SEGMENT, IT ADDS mCPBASE TO THE ADDRESS THAT 
IS CONTAINED IN The PRT CELL FOR THAT SEGMENT, 
FN[) COMMENT! 

LABEL NoThiNgTOdO.jNITIaTE.STaRT.STaCKOVERFLOW, JOBUSYJ 
S SET OMIT = NOT(AUXMEM OR MONITOR) 
* SET OMJT * NOT MONITOR 
DEFINE MCPNAMESEG * ( DI RECT0RyT0P-7 )# ; 
COMMENT MCPNAMESFG CURRENTLY CONTAINS THE FOLLOWING' 

WORDf Oi-WORDn.5] - FILE IDS OF THE AUXDATA FILES FOR MCP & INTRJNCS, 
W0RDCI61-W0RDC19] - CONTAIN ThE WORD "AUXMEM " AS A MARKER, 
W0RD[20]-W0RDr?7] - FILE IDS of THE MCP"S AT HALT/LOAD, 
W0RD[28] - USED BY DISKSQUASH FoR CoMM. BETWEEN SHAREDISK SYSTEMS, 
? 

OMIT = NOT(NEWLOGGING) 
OMlT s NEWLOGGING 

startlogcstartlogu* 

PROCTlMEtSTARTLOGl J*(*P(DUP))"CLOCK"P(RTR)f, 
STOPLOGf STOPL0Gl»ST0PLOG2)* 

PROCTjMEtSTOPLOGU *( *P( DUP) HCLOCK + PC RTR >#l 

OMIT 

COMMFNT PRESfNCE BIT ROUTINE FOR ESP SEGMENTS i% 

start of Save 



$ SET 

$ SET 

DEFINE 



S POP 
SAVE PROCFPURf FSPBlTj 



00024005 c OOOOtO 



00024006 
00024007 
00024010 
00024020 
00024030 
00024040 
00024050 
00024060 



00024200 
00024210 
00024220 
00024230 
00024240 
00024250 
00024260 
00024270 
00024299 
00024590 
00024910 
00024920 
00024930 
00024940 
00024950 
00024960 
00024970 
00024999 
00025299 
00025300 
00025400 
00025500 
00025600 
00025601 
00025900 
SEGMENT! BASE 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000:0 
0000:0 
OOOOtO 
0000>0 
000010 
0000:0 
OOOOtO 
OOOOtO 



00024100 T OOOOtO 



0000:0 
OOOOSO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOSO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 



ADDRESS * 00000 



STACKfF+1) 
STACKfF+2) 
STACKfF+3) 
STACKfF+4) 



PRTLOC 

SYLLABLE 

LOC 

size 



PRTC216) » MYSELF 



BEGIN INTEGER PRTLOC, SYLLABLE* LOC. S I ZH% 



FIELD MAYBEWORKEDON » t7U]t 
ARRAY MYSELF«ESPBlTt*]>* 

RFAL RCWa+O.DISKREADtX 



00026000 T OOOOtO 



*156- 



00027000 P OOOOtO 
00028000 T OOOOtO 

00029000 T OOOOtO 



STACK(F+0) 
STACKfF+5) 



R C W 
OJSkREAD 



K156- 



LABEL MAKEPRfcSENT. TRYAGAlN* 
$ SFT OMIT = MOT(NEWLOGGING) 

PRTLOC«-(RCW i nx )&RCW[ 30 1 10 I 2 ] l % 
STREAMCRSLT* r SYLLABLE],CL-PRTLOCm 

BEGIN Sl-CL* SI*SI-2I DI*RSLT; DI*DI+6* DS*2 CH R END* 



PRTLOC * IF 



syllarlf j= 0104; 



SYLLABLE THEN NT 
ELSf. SYLLA 



THIS I 
GETSPA 
OVERLA 
WE WAN 
MEM. 



MAKEPRfSEMT: 



% 
% 

% 
% 
% 
% 
% 



IF MfMORY[PRTLOCJ.MAYBEHORKE 

BEGIN MEMORyrPRTLOC].MAYBEWO 

SlZE*M E M0RYrPRTL0C],[8 

NOW WE WILL ATTEMPT TO 
IF WE FAIL we will wa I 
AGAIN, THIS ENSURES Th 

sleeping watting for m 
toggle locked up for t 



BLE. t 361 10] |X 

s the code we 
ce the first 
y memory for 
t to be retur 

don thenx 

rkedon*false* 
uom 

GET SPACE FO 
T FOR A SECON 
AT IF WE GET 

Emory we will 
his procedure 



will pass to 
time. it requests 
the mcp- and that 

NED TO ON A NO 

35156- 



IF CLOC:*GETSPACE(SlZEti#SYLLABLE)) 
BEGIN 

MEMORYCPRTLOC J.MAY 

SYLLABLE. C46H] »* 

SLEEPf CCLOCKJ.NOT 

GO TO TRYAGAJNJ 
END? 



BEWORKEDON is 

TRUE* * DONT 

CLOCK)! % WA I 



*156- 

R THIS MCP PROC. 
D AND THFN TRY 
DS-ED WHILE *156- 

NOT LEAVE THE 
i X156- 

JS156- 
■0 THEN % NO MEM 

X156- 

TRUE! % UNLOCK I 

PRINT NO MEM 

T FOR ONE SECOND, 

X156* 

1156- 



S SET OMIT « NOTCAUXMEM) 

DlSKREAD*(L0C+l)«SlZEt6l38ll0]»?14f2H42l6] 
&({SlZF+29) DIV 30)C27»42I6J|I 

STREAM(Li«L0c+ltNl«HCPRTL0Cl.tl8ll53+MCPBASE»Ol»O)) 
BEGIN SULOC N| DI*L| DS*8 DEC ENDJ* 



*E 



SYLLABLF*WAITIO(OISKREAD.OM8)I* 
S SET OMIT s NOT(AUXMEM) 

MEM0RYrL0r3*MEM0RYtL0c3i0[2»47Jn«0[9l42»6]|X 

MEMORYtLOc+l]«-PRTLOC&SIZEtl8l33M53lX 

M[PRTL0C3 «« MCPRTL0C1 & TRUE [MAYBEWORKEDON] U156- 

&(L0C+2}[33I33«15J|J! 
S SET OMIT s NOT MONITOR 

END ELSE* 

TRYAGAINJ BEGIN SLEEP ( t M [PRTLOC 3 3 , O&TRUE [MAYBEWORKEDON 3 ) I % *156« 

IF (MEM0RYCPRTL0C3 INX 0)*(MYSeLF INX 0} THFNX 
GO TO MaKEPRESENTJI 
FNDIX 

S SFT OMIT * NOTCNFWLOGGING) 

POLlSH(0»RnF»0»XcH»FCX,STS)|X 
GO TO P0LTSHCMEM0RY[PRTL0CJ>JK 
GO TO START* % PLACE DfSC.tN PRT FOR MCP TO AUXMEM TRANSFFR 



00030000 


P 


00030099 


T 


00031000 


T 


00032000 


T 


00033000 


T 


00034000 


T 


00035000 


T 


00035500 


C 


00035510 


C 


00035520 


C 


00035530 


C 


00035540 


c 


00036000 


T 


00037000 


T 


00038000 


T 


00039000 


P 


00039005 


C 


00039010 


C 


00039015 


C 


000390?0 


C 


00039025 


C 


00039030 


C 


00039035 


c 


00039040 


c 


00039045 


c 


00039050 


c 


00039055 


c 


00039060 


c 


00039065 


c 


00039099 


T 


00040000 


T 


00041000 


T 


00042000 


T 


00043000 


T 


00044000 


T 


00044099 


T 


00045000 


T 


00046000 


T 


00047000 


P 


00048000 


T 


00048099 


T 


00049000 


T 


00050000 


P 


00051000 


T 


00052000 


T 


00053000 


T 


00053099 


T 


00054000 


T 


00055000 


T 


00055100 


T 



ooooto 

000010 
000010 
0003«2 
000412 

00033000 
000513 
0006<3 
0008* 3 
000912 
0009:2 
0009<2 
0009:2 
000912 
001110 
0014«1 
0016*1 
001611 
0016J1 
0016 1 1 
0016»1 
0016*1 
001611 
00161 1 

0018*2 
0019)0 
002113 
002312 
002511 
0025*3 

00039040 
0025*3 
002513 
0027*3 
003110 
003412 

00043000 
0035*2 
0037*1 
0037*1 
0041*2 
0044*0 
0046*0 
0048*1 
0048*1 

00037000 
0048U 
0051*3 
0054*2 
0055*0 

00050000 
0055*0 
0055*0 
0057*0 
005811 



PRT(2l7) « START 



end eSpbit;* 



00056000 T 005813 

00026000 
SIZE* 0059 WORDS 



PRT(U) 
PRT(15) 
PRT(16) 
PRTC17) 



LABEL 
REAL 

* RpSULTl 
» PrSULT? 
» RFSULT3 

* RFSULT4 

% 



ftNdtt; 

RFSULTU1? 



»RPSULT?«13 ,RESULT3*14 ,ReSULT4«15 IX 



00057100 T 000010 
00058000 T 000010 



% 

%* 
%* 
%* 



******************************************************* ***** ** ********% 
* 



% 

*% 

MISCELLANEOUS FIFLD DEFINITIONS *% 

*% 
% ********************************************** ************************% 

%%%%%%%%%%%%%%*%*%%%%Zt%%%%%t%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% %%%%%% 

X167- 



FIELD 
FF 
.CF 
.CTF 
.CTC 
.MSFF 



18M5 

33S15 

FF 

CF 

16*01 



% 
% 



fiflos of ait entry 



FIELD 

FILfRU = 01 : 01 % 

.OWNriT s 0?«01 % 

.DlMp-NSlONS * 03105 % 

»BLK P NTR x 08J 10 % 

.MOM = 18M5 % 



% 

% 
% 

% 

% 



% 
t 



FIELDS OF DATA DESCRIPTOR 



FIELD 

FLAfiBlTF = 00100 

DaTaBITF * 01*01 

PBIT « 02101 

.SJZF * 06»10 

»MOMaDDRESSF * 18115 

.ADDRESSF ■ 33*15 



* 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



X167- 
X167- 
M67- 
35167- 
X167- 
X167* 
X167- 
*167- 
X167- 
X167- 
*167- 
X167- 
X167- 
X167- 
X167- 
X167- 
J167" 
X167- 
X167- 
K167- 
X167- 
?167» 
X167- 
X167- 
X167- 
f 167- 
«167» 
AN*167- 

if The pbit is off Then 
field is greater than 
or equal to 512 then the field contains ax167- 
daloc address which can be used to locate the 
data in the overlay disk area assigned to the 
the program, if the value of the field is less 
than 512 then This field contains a code xi67- 
indicating the status of the area, x167- 

never accessed overlay area, %\67" 

1 never accessed save area. *167- 

2 never accessed overlay area which 

which is assigned to auxmem, 

5 indicates overlay is currfntly in 

process for this area *167- 

6 indicates olay had irrecoverable 



CORE 



ALWAYS OFF FOR A DATA DESCRIPTOR 

ON IF DESCRIPTOR POINTS TO AREA OF 

SIZE OF ARRAY ROW IF ARRAY DESC. 

FOR INDEXED DATA DESC, OR NAME DESC. 

ADDRESS Of MOTHER DESCRIPTOR. 

if pbt t is on Then this field contains 
actual core address, 

TF THE VALUE OF THIS 



00060000 

00060010 

00060020 

00060030 

00060040 

00060050 

00060060 

00060070 

00060080 

00060090 

00060100 

00060HO 

00060120 

00060130 

00060999 

00061000 

00061010 

00061020 

00061030 

00061040 

00061045 

00061050 

00061060 

00061070 

00061999 

00062000 

00062010 

00062020 

00062030 

00062040 

00062050 

00062060 

00062070 

00062080 

00062090 

00062100 

00062110 

00062120 

00062130 

00062140 

00062150 

00062160 

00062170 

00062180 

00062190 

00062200 

00062210 

00062220 

00062230 

00062240 

00062250 



P 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
p 
c 
c 
c 
c 
c 
c 
c 
c 
c 
p 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



OOOOIO 
000010 

000010 

000010 
0000(0 
000010 
000010 

000010 
0000*0 
000010 
ooooio 
000010 

OOOOIO 

000010 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 



% 
% 
% 



% 
% 
% 
% 



MISCELLANEOUS DEFtNeS 



ERROR WHEN OVERLAYING ThI 

the next access to the ar 
cause the program to be t 
nated, 



in: 



FIN F 

CURrLKCNTR 

AJTNDX 

FTf 

FTC 

DELTA 

TSX 

sfintx 

INTRPTX 



16 

6 

1 8 * 18 t 15 

33*18* 15 

11 
22 
71 
28 



PRT(2?0) « AVAIL 



INTEGER AVAILIZ 



COMMFNT 



DEFINE 



mstart 3 Mr oi 
comment 



PRT(2J>1) s taR 



DEFINE MEND 



ARRAY TftRf*] 



AVAIL CONTAINS THE ADDRESS OF THE STOPPER* 

FOR AVAILABLE STORAGE LINKS ITS VALUE I SX 

THE HIGHEST AVAILABLE AD0RESS-1»X 

tCF]#l 

MSTART CONTAINS THE ADDRESS 

FIRST AREA OF STORAGE AFTER 

ESP PROGRAMJX 

tFFJ*> 

this points to last storage 

MEMORY* * 

^contains togle btts set by each JOB 



■ Mr oi 

COMMfNT 



OF THE* 
END OFX 



LINK INI 



PRTC222) * TOGLE 



DEFINE LOCKTOG(LOCKTOc,l)s BEGIN TOGLE'bTOgLE AND NOT LOCKTOGlt 

TARTPlMlX] jsTARtPiMIXl OR LOCKTOGl* END*? 
DEFINE UNLOCKTOfi(UNLOCKTOGi )» BEGIN TOGLEt«TOGLE OR UNL0CKT061I 

TARrPlMlX]i«TAR[PlMlXj AND NOT UNLOCKTOGll ENDII 
REAL ToGLEl 



DEFINE HP?TOG 1 

,STATUSBlT : 

»SHFETFREE 1 

,STACKUSE 1 

.STOREDY ; 

.USERDISKREADY* 
.HOLOFREF 1 
,NSECONDREADY e 
.ABORTABLE » 
.BUMPTUTjME * 
,KEYBOARDREADY * 

.NOBACKTALK ■ 
,QTRDY s 

»INTFREE * 
,SPOEDNULLOf, s 
,REMOTELOGFRFE * 



' TOGLE. C 47 * 1 ]# 

1 TOGLE, U6M]# 
TOGLE. [4511]* 
T06LE;t44ll]# 
T0GLE,t43«ll# 

TOGLE. f42U3*f 
T06LE;t41M]# 
T06LE.[A0«n# 
T 0GLE.[39»H# 
T0gle;[38«11# 
TOGLE. [37M]# 
TOGLE. C36I 1 3# 

TOGLE, r35»n#» 
T0 G LE.[34I1]# 

T0GLFt[33Ul# 
T0qLE.[32M]# 



HP2MASK 

STATUSMASK 

SHEETMASK 

STACKMASK 

STOREMASK 
USERDlSKMASKs 

HOLDMASK 

NSECONDMASK 

ABORTMASK 

BUMPTUMASK 

KEYBOARDMASK 

N0BACKTALKMASK«P4000# 
QTRDYMASK s?10000# 

FREEMASK sP20000* 



* Pl# 

P2# 
« P4* 

* ?10# 

* ?20# 
9*0* 

u P100# 
b P200* 
9 P400* 
■ Pi 000* 
■92000* 



•EGGSELECTSTOPPcn * T0 G Lf,C3iI 
.STARTOG * T0gLE.C30«1]# 
.NINETEENNOTRFADINGxTOgLe. t29U3*» 



REMOTELOGMASK 
3* 



» 9100000# 



N I NETEENMASKsP 1000000* 



S AREA. 


00062260 C 


ooooto 


EA WILL 


00062270 C 


000010 


ERMI- 


00062280 C 


0000*0 


JS167- 


00062290 C 


000010 


X167- 


00062999 C 


000010 


1167- 


00067000 P 


ooooto 


X167- 


00067010 C 


000010 


X167- 


00067020 C 


ooooto 


X167" 


00067030 C 


ooooto 


X167- 


00067040 C 


ooooto 


X167" 


00067050 C 


ooooto 


X167- 


00067060 C 


ooooto 


X167- 


00067070 C 


ooooto 


X167- 


00067080 C 


ooooto 


X167- 


00067090 C 


ooooto 


X167- 


00067100 P 


ooooto 


X167- 


00067110 C 


ooooto 


X167- 


00067999 C 


ooooto 




00069000 T 


ooooto 




00070000 T 


ooooto 




00071000 T 


ooooto 




00072000 T 


ooooto 




00073000 T 


ooooto 




00074000 T 


ooooto 




00075000 T 


ooooto 




00076000 T 


ooooto 




00077000 T 


ooooto 




00078000 T 


ooooto 




00079000 T 


ooooto 




00079100 T 


ooooto 




00079200 T 


ooooto 




00079300 T 


ooooto 




00079400 T 


000010 




00079500 T 


ooooto 




00080000 T 


ooooto 




00080100 T 


ooooto 




00080200 T 


ooooto 




00080300 T 


ooooto 




00080400 T 


ooooto 




00080500 T 


ooooto 




00080600 T 


ooooto 




00080700 T 


ooooto 




00080800 T 


ooooto 




00080900 T 


ooooto 




00080950 T 


ooooto 




00081000 T 


ooooto 




00081100 T 


ooooto 




00081200 T 


ooooto 




00081300 T 


0000(0 




00081400 T 


ooooto 




00081500 T 


ooooto 




00081600 T 


ooooto 




00081610 T 


ooooto 




00081620 T 


ooooto 



PRT(2?3) 8 MOVE 



•SMWSTOPPE0»TOGLE.C2BU]#, SMwSTOPPEDMASKs?2000000* 
•nCWAlTlNG»T0GLEi[27il ]# 
.nCQPTST0PPED=TOGLE,r?6l 1]# 

• |NOUPTST0PPF0«TOGLE.t25M]* 
»MCPFREE*TOGLE . F 2A » 1 J# . McPMASK=P40000000# 
% USED TO PROTECT DISK SEGMENT ZERO 
,ScRATCHD!RECTORYREADY « T0GLE.t23ll]#» 

scratchdtRfctorymask * PlOOOOOOOO* 

% USED TO PROTECT THE SCRATC HD IRECTORY 
> F? NOT Ng AODReSSbT OGLE. [221 tJ# 

% set true whenever The independent running routine 
* -findereeaddresS" is started so that only one copy 

X WI LL BE RU N AT ONE TIME. 
,CDFREE«T0GLE.[21 »1]*«CDm A SKsPa 00000000* 

% SET true when control deck queue is free 

>N0MFM»T0Gl.E.ri5»6]# XGETSPACES HANGING 
»HPEAKT0G«T06LE.[UM]# XBREAKOUT TOG 
t BREAK MA SKsPiOOOOOOOOOOOf 

.SEPTlCTANKiNG « TOgLE . 1 1 3 1 1 J # 

,D!PECTORYT0G * TOgLE . T 1 2 « 1 1 # 

,DlPFCTORYM/iSK s ^400000000000* 

.NOMEMTOg * TOGLE. tll»U# % 

.MEMNO s [9J3J# % 

\ 

STREAM PROCEDURE MO VE r N ) "WORDS FROM 



ON IF 
912 * 



NOMEM SINCE 
COUNTER FOR 



LAST NSECOND 
NSECOND 



(HERE>"TO"CTHEREm 



rOMMENT 



VALUE N,HERE»THEREH 
WILL MOVE TO 4095 WORDS?* 



BFGJN LOCAL NDIV64JX 



START OF SAVE 
SI-SI+61 DI*DI+7l DS*1 CHRl 



END 



5l«-L0C HI DI*L0C NDIV64J 

sphere* dutherejx 

ndiv64(ds*3? wds; ds*32 wos)i ds*n wds;x 

MOVE>« 



00081630 T 000010 

00081640 T OOOOtO 

00081650 T 000010 

00081660 T OOOOtO 

00081670 T OOOOtO 

00081675 T OOOOtO 

00081680 T OOOOJO 

00081690 T 000010 

00081695 T 000010 

00081700 T 000010 

00081705 T 0000*0 

00081706 T OOOOtO 

00081707 T 000010 

00081710 T 000010 

00081711 T 000010 
00081950 T OOOOJO 
00081960 T 000010 
00081970 T OOOOtO 
00081972 T OOOOtO 
00081974 T OOOOtO 
00081976 T OOOOtO 
00081980 T OOOOtO 
00081982 T OOOOtO 

00081999 T OOOOtO 

00082000 T OOOOtO 

00083000 
00084000 
00085000 
SEGMENT* BASE 
00086000 
00087000 
00088000 
00089000 



T OOOOtO 

T OOOOtO 

T OOOOtO 

ADDRESS 

T 

T 

T 

T 



00059 



OOOOtO 
0001 t 1 

000113 
0003t2 

00085000 
SIZE* 0004 WORDS 



PRT(2?4) = STOPM 



PROCEDURE STOPM(B)l VALUE B- # BOOLEAN B! FORWARD! 



LABEL nlFFCOM! 

save procfoure forgetspacecloc)!* 



PRT(2?5) * FORGETSpACE 



00089100 T 000010 
START OF REL SEGMFNT! DISK ADDRESS -00002 



START OF SAVE 



PRT(2?6) s RED 



FORWARD!? 
ARRAY BEDC*]! 



VALUE LoCt* 
REAL L0C»* 



* 4MIXMAX+4 



COMMENT ENTRIES IN ThE BED HAVE TWO WORDS.* 

THE FIRST WORD HAS THE FOLLOWING FORMAT!* 
0- ? * b% 
3- 7 » MIXINDEXX 
8-17 a 0* 
18-32 * F REGISTER SETTING* 

33-47 * address oe word to be tested,* 

the second word is a mask if bit o is off,* 

the second word is am accidental entry descriptor if bit 
is on;* 

COMMENT P1MIX,P?MIX HOVt DECLARED AT 00021700! 

COMMFNT PlMIX IS THE MjX INDEX FOR THF JOB BEING CURRENTLY* 
PROCfSSfD, PIMjX b M F ANS NO JOB IS CURRENTLY BplNfi* 
PROCFSSFD. P2MtX IS THE MIX TNDFX FOR THE JOB BEING* 
CURRFNTLY PROCESSED ON PROCESSOR ?, IF PROCESSOR IS IDLE 

t hen p?mi* * o, if t h ere is no processor ? Then p?mix«-i» 

REAL DATEsP167> 

prt(u75 * date 

comment date contains todays datej* 

REAL XCL0CK=ei7l! 
PRTC 171 ) = XCL0CK 

REaL RpflnY=P172j 
PRT(172) « RFADY 

commpnt rfady contains the contents of the ready register on* 

the last read!* 
comment statusbit is false if the status routine is running and 

true otherwise, this prevents two copies oe status From* 

running together!* 

array PRT[*»*3j* 



PRTC227) » PRT 

PRTC227t * PRTR0W 
PRTC230) « JAR 



COMMENT PRTU»*J CONTAINS A DATA DESCRIPTOR WITH PROPER SIZE* 
FIELD POINTING AT PRT FOR JOB WITH MIX INDEX m U% 
ARRAY PRTR0W*PRT[*]> % MjXMAX+1* 

COMMfNT PRTROW Is DOPE VECTORS FOR PRT!* 
ARRAY JAR[*»*J!* 



* JAR HOLDS INFO OF J0 R S IN PROCESS (SEE DEFINES AT 20544000) 
DEFINE 

L!BMAINC0DE*1#, LDCNTRLC0DF*3*» PRNPBTC0DE*5#» 
SYSJ0BF»[6I33#i SSYSJOBF-C 5 I 3 3 *l 
* SFF 20556700 RE SYSJOBF cSYSTem JOB FIELD) 
X SEF 20515000 RE SSVSJoBF (SHEET SYSTEM JOB FIELD) 
* SET OMIT = NOT(WORKSET) 
ARRAY STOUF[«]l * QUEUE FOR "STOPPED" JOBS* 16 LONG 



00089?00 T 


OOOOtO 


00090000 T 


000010 


SEGMENT! BASE ADDRESS * 00063 


00091000 T 


000010 


00092000 T 


OOOOtO 


00093000 T 


ooooto 


00094000 T 


000010 


00095000 T 


ooooto 


00096000 T 


000010 


00097000 T 


ooooto 


00098000 T 


ooooto 


00099000 T 


ooooto 


OOlOOOOO T 


ooooto 


OOlOlOOO T 


ooooto 


00102000 T 


ooooto 


00103000 T 


ooooto 


00104000 T 


ooooto 


00105000 T 


ooooto 


00106000 T 


OOOOlO 


00107000 T 


ooooto 


00108000 T 


ooooto 


00109000 T 


ooooto 


oo'noooo T 


000010 


00111000 T 


ooooto 


00112000 T 


0000»0 


00114000 T 


ooooto 


00121000 T 


ooooto 


00122000 T 


ooooto 


00123000 T 


ooooto 


00125000 T 


ooooto 


00126000 T 


ooooto 


00127000 T 


ooooto 


00128000 T 


ooooto 


00129000 T 


0000«0 


00130000 T 


OOOOtO 


00131000 T 


OOOOlO 


00132000 T 


OOOOtO 


00133000 T 


OOOOtO 


00134000 T 


OOOOtO 


00134010 T 


ooooto 


00134020 T 


ooooto 


00134030 T 


ooooto 


00134040 T 


ooooto 


00134050 T 


ooooto 


00134100 T 


ooooto 


00134110 T 


ooooto 



PRTC231) = STQUF 

DEFlNF STQUFMAX = \b* i 00134115 T OOOOlO 

ARRAY Oi.AYTiMFr*U % USfD FOR STORAGE OF OLAY OVERHEAD TIME OOt 34120 T OOOOlO 

prt(?s2) * ol.aytime 

procedure wqrkseT(m)> value ns real hi forward? 00134125 t oooojo 

START OT REL SEGMENT! DISK ADDRESS « 00002 
PRTC233) ■ WORKSET 

ARRAY W K SETDATA[*J| 00134130 T OOOOlO 
PRT(234) * WKSETDATA 

X ARRAY USFD FOR STORAGE OF WORKSET INFORMATION 00134140 T 0000«0 

DEFINE WKSETCLOCK = WKSeTdATA ( Olf* 00134150 T 000010 

% TfMF AT WHICH WORKSET ROUTINE HAS STARTED 00134160 T 0000»0 

X TO RUN 00134170 T OOOOlO 

WKSFTRUNNiNf, ■ WKSrTnATAT 1 3 . t 47 1 13 * , 00134180 T OOOOlO 

% TOGGLE TO INDICATE THAT WORKSeT JS RUNNING 00134190 T OOOOlO 

WKSFTNOSEUECT = WKSFTDATArn.l46U]#, 00134200 T OOOOlO 

x toggle to prevent selectrun from placing 00134210 t 000010 

X ADDITIONAL JOBS IN THE MIX 00134220 T 000010 

WKSETMONlToR a WKSeTD ATA r 13 . [ 45 1 1 J # t 00134230 T OOOOlO 

x toggle used to "monitor" worksetdata 00134240 t 000010 

WKSETMAXOLAY ■ WKSETDATA[23#» 00134250 T OOOOlO 

X M A X, FRACTION OF PROCESS TIME TO COMPUTF 00134260 T OOOOlO 

x m a ximum allowable olay timf 00134270 t ooooso 

WKsFTOLrRANcF = WKSFToATAf 3 ] #» 00134280 T OOOOlO 

% FRACTION USED TO COMPARE JOB STATISTICS 00134290 T OOOOlO 

% (ALLOWABLE VARIANCE TO COMPUTE MAX, VALUES) 00U43OO T OOOOlO 

WKSETiNSTRUCT r WKSF_TDATAr43#> 00t343l0 T OOOOlO 

X INSTRUCTIONS FOR COMPARING JOB STATISTICS 00l343?0 T OOOOlO 

x fraction of t tal system core which must 00134330 t 000010 

X BE KEPT AVAILABLE 00134340 T OOOOlO 

WK5ETCYCLETIME = WKSeTDATaCS 3 f 00134350 T OOOOlO 

X CYCLF TIME C64THS OF A SFCONO) FOR WHICH 00134360 T OOOOlO 

X THE WORKSET ROUTINE IS RUN, QUEUED AT 00134370 T OOOOlO 

X "TIMER" IN THE OUTER BLOcK 00134380 T OOOOlO 

WKSETSTOPJOBS = WKSFTnATAt63*» 00134390 T OOOOlO 

X BIT INDFX (TWO(MIX)) FOR JOBS WHICH HAVF 00134400 T OOOOlO 

X BFEN "ST-ED" BY THF WORKSET ROUTINE 00134410 T OOOOlO 

STFlRST = wKSFTDATAr7].tCFJ#t 00134420 T OOOOlO 

X INDEX TO FIRST ENTRY JN THE "STQUE" 001 3443O T OOOOlO 

STNEXT = WKSETDATAr73.CFF]#» OO13444O T OOOOlO 

x index to next available slot in m stque« 00134450 t 000010 

WKSETSWiTCHTlME* WkSeTDAT A[8 3 #» 00134460 T OOOOlO 

X TIME OF LAST "BoJ" OR "E0J" EVENT 00134470 T OOOOlO 

WKSETDATASIZE - 9*1 X SIZE OF THE WKSETDATA ARRAY 00134480 T OOOOlO 

$ POP OMIT X WORKSFT 00134490 T OOOOlO 

ARRAY INTRNSCUJ; REAL InTSJZFJX RE-ENTRANT INTRINSICS ON USFR DISK 00135000 T OOOOlO 

PRTC235) * INTRNSC 

PRTC236) * TNTSIZE 

ARRaY INTABLFI** *]» I NtARLEROW»I NTABLEt * 3 1 X 00135100 T OOOOlO 

PRT(237) » iNTABLE 

PRT(23^) * INTABLEROW 

S SET OMIT s NOT(AUXMEM) 00i35i99 T OOOOlO 

ARRAY SHEFTf*3J % 5* 00136000 T OOOOlO 

PRTC240) » SHEET 

ARRAY JARR0W=JAR[*3? X MlXMAX+lX 00138000 T OOOOlO 
PRT(230) » JARROW 

DEFINE TAPCNTCTABCNT13 s jaRrOW I T ABCNT 1 J , [ FF 3 * t 00138100 T OOOOlO 



PRTf241) ■ jOBNUM 



Real 



COMMfNT TARCNT IS THF NUMBfR OF PROCFSSES WHICH HAVE CHECKED 

jarrow and are currently accessing mjx tables. it assures 
That the tables dont vanish beneath those processeSi 
commfnt entries In the slate have two words, each entry* 

DESCRIBES An INDEPENDENT ROUTINE WHICH NEEDS TO BE STARTED 
RUNNlNiGt NOTHInG To DO STARTS THESE ROUTINES,* 
THE FIRST WORD OE AN ENTRY IS A PARAMETER TO THE ROUTINE. 
THE SECOND WORD OF AN ENTRY Is THE PRT ADDRESS OF THE* 

ROUTINE.* 

nsUtf and Lslate ARE 

NSLATE POINTS AT LAST 
LSLATF POINTS AT LAST 
JCBNljMU 



POINTFRS TO THE 
ENTRY WHICH WAS 
ENTRY PLACED IN 



SLATE. X 
STARTED.* 
THE SLATEJ* 



comment jobnUm points at last entry in bed;* 

COMMENT STACkUSE IS TRUE IE THE InDEPEDEnT STACK IS NOT IN USE. 
OTHERWISE FALSE;* 
BOOLEAN NOPROCESSTOGU 
PRTC242) s NOPROCESSToG 

COMMENT NOPROCESSToG IS TRUE IF NORMAL STATE PROCESSING IS* 

ALLOWED. OTHERWISE IT IS EALSE. IT IS USED BY OVFRLAY AND 
OTHERS TO PREVENT CONFUSION;* 
SOFT I | * NljMBFR OF JOflS IN MIX HAVING SOFTWARE INTERRUPTS DECLARED 



PRTC243) 

PRT(244) 
PRT(?45) 



REAL. 
* SOFT I 

REAL 

s witchtngh 

» WORDOFEAS 



PRT(246) s NFO 



witchinghOur.woRdOfease' 

OUR 
E 

comment These used to be constants in the outer block but were 

MOVED HERE So EVERYONE CoUlD USE THEM. THEY CONTAIN* 
WITCHlNGHOUR 5184000 
WORDOFEASE P?525252525252525 
t 
DEFINE NDX*3#> * NUMBER OF ENTRIES PER JOB IN NFO ARRAY 
ARRAY NFOf*]| XMIXMaXxNDX 

COMMENT NFO CONTAINS THE FOLLOWING FOR EACH ACTIVE MIX INDEX; 



ARR 
PRT(247) * fSTACK 

ARRAY pROCTIMEt*]J 
PRTC250) ■ PROCTJMf 



* NFO[(MiX-l )xNDXJ 

* NFO[(Mix-l )xNDX+l] * 

* NpOr C M I X-l )*NDX + 2],[CF] * 

* NFOrcMlX-i )xNDX+2l,[FF3 * 

* NFO[(M!X-l )xNDX + 2],tl * 1 7 3 
!AY T STACKt*i; 



eile parameter block data descriptor 
segment dictionary name descriptor 

LOCATION Of BOTTOM OF STACK (B-WORD) 
ESTIMATED CORE REQUIREMENTS 
* CLOCK TIME AT BOJ 

* 128* 

X MIXMAX+1* 



PRT(251) « tOTlMF 



ARP 



PRTC252) 
PRTC253) 



S S 
DEFI 



INTE 



* NEUP 

* FUIO 



COMMFNT PROCTIMEC I 1 CONTAINS PROCESSOR TIME FOR JOB WITH* 

mix index * i;x 

AY |0TTMCt*3l X M T XMaX+1X 

COMMENT lOTTMEtll CONTAINS 1-0 TIME FOR JOB WITH MIX INDEX m\t 
FT 0M?T ■ N0T(NEWL0GGING1 
NE FUIOHOLDER»DIRECTORYTOP-5*» 

FUTAPER«.98#i 

DISkAVA!lTABLEMAXsJ30#: 
GER NEUP I ARRAY EUIOt*]! ARRAY PEUIOC*] I 



00138H0 
00138120 
OO13813O 
OO14OOOO 
00141000 
00142000 
00143000 
00144000 
00145000 
00146000 
00147000 
00148000 
00149000 

00150000 
00152000 
00153000 
00J54000 

00155000 
00156000 
00157000 
00157100 

00157500 



00157600 
00157700 
00157800 
00157900 
00158000 
00158100 
00158200 

00158300 
00158400 
00158500 
00158600 
00158700 
00158800 
00159000 

00161000 

00162000 
00163000 
00164000 

00165000 
00165009 
00165800 
00165810 
OOJ65820 
00166000 



OOOOtO 
OOOOtO 
000050 
0000 10 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 

OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 

OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 

OOOOtO 
OOOOjO 
OOOOtO 
OOOOtO 

0000 10 



OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 

OOOOtO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOtO 

OOOOtO 

OOOOtO 
OOOOlO 
OOOOlO 

OOOOlO 
OOOOtO 
OOOOJO 
OOOOlO 
OOOOlO 
OOOOtO 



THE SYSTEM, 
GIVEN EH. 
ATTEMPT TO 



% 5% 
DESCRlPTORI 
* 32* 
% 32* 



PRTC254) « PfUIO 

i SET OM?T = NONSHARED! SK ) 
S SET OMyT s ShAReDISK 
ARRAY AvTAPLEf*] * 
PRT(2«»5) s AVTABi.E 

$ POP f)M»T 

COMMENT NEUp.fCFj CONTAINS THE NUMBER OF EUS ON DKA, 
NEUP.NEUE CONTAINS THE TOTAL NUMBFR OF EUS ON 
EUIO AND pEUIO CONTAIN THE I -o TIME USED BY A 
THIS INFORMATION IS USED BY GETUSERDISK IN AN 
MINIMIZE EU CONFLICT? 
DEFINE MjXF ■ t3*5J*t* 
ARRAY rHANlOt*]; 
PRTC256) * rHANlO 

ARRAY CHANNEL.r*l> 
PRTC257) * CHANNEL 

COMMENT CHANNELtl] CONTAINS LOGICAL UNIT OF LAST 
SENT OUT ON CHANNEL I I % 
ARRAY FlNALQUEt*]) 
PRTC260) * EINALQUE 

ARRAY LOr#TOUPt*l| 
PRTC261) * LOCATQUE 

COMMENT IOQUF»ElNALQtlE» ANn LOCATQUE TOGETHER WITH UNIT FORMS 

THE 1-0 QllEUF. AN 1-0 REQUEST FOR LOGICAL UNJT U REQUIRES 
ThREE WORDS Of SPACE tN THE 1-0 QUEUE, IF THE REQUESTS 
OCCUPIES POSITION S In ThE l»0 QUEUE. THEN lOQUEfS] )* 

1-0 descriptor for this request, flnalfs] = 1-0 descriptor 
skeleton to be used at i-o complete time to reoujlds 
t-0 descriptor* locatquets] m location of 1-0 descriptor* 
at time of request, locatquets] contains some additional 
information, in particular!* 

5* 

MIX INDEX OF REQUESTERS 

I/O IS READ LOCK WHICH HAD ERROR (SHaRFDISK), 
OLaY I/O (IOFINISH PLACES RESULT ON ERROR), 
NO M F M MfSSAGE. 

ERROR RECOVERY IN PROCESS ON THIS 1-0 
LOGICAL UNIT NUMBERS 

INDEX OF NEXT REQUEST TO BE DONE ON THIS UNIT 
OR $77777 IF NO NEXT REQUESTS 
ORIGINAL LOCATION OF 1-0 DESCRIPTOR.* 
CONTAINS INFORMATION ABOUT LOGICAL UNIT U.S 
TYPE OF J/0 DEVICES 

ERROR FIELD OF LAST I/O DONE ON THIS UNITS 
UNIT NOT READY BITS 
ERROR BIT (ON IF ERROR)* 

WAIT BIT (ON IF UNIT IS WAITING FOR A CHANNEL 
PROCFSS rjTS (USUALLY BOT H ON if UNiT IS jNS 
PROCESS OR BOTH OFF, WJTh PRINTERS ThES 
T-0 FINISH SETS OFF 16 AND THE PRINTERS 

finish sets off i7)s 
index of first i-o request for which service 
is not completes 

33-47 • INDEX OF LAST UnSErVICED I"0 REQUEST, S 

the spaces not used in the 1-0 queue are linked together* 
through ioque. the first available is in ioqueavaili* 
real ioqueslots' ioqueavaili 



0- 

3- 



2 

7 

fl 

9 

10 

11 

12-17 

1B-3? 



■ 47 



33< 
UNTTfUl 

1- 4 

5-12 

13 

14 

15 

16-17 



18-32 



00166002 T 
OOJ66005 T 
OO166OO6 T 



00166007 
00166010 
00166025 
00166030 
00166040 
00166050 
00168000 
00169000 



00171000 T 
00172000 T 
00173000 T 



00175000 
00176000 
00177000 
00178000 
00179000 
00180000 
00181000 
00182000 
00183000 
00184000 
00185000 
00185100 
00185500 
00186000 
00186100 
00J87000 
00}88000 
00189000 
00190000 
00191000 
00192000 
00193000 
00194000 
00195000 
00196000 
00197000 
00198000 
00199000 
00200000 
00201000 
00202000 
00203000 
00204000 
00205000 
00205500 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



0000*0 
OOOOtO 
OOOOlO 

0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000(0 
0000*0 
OOOOtO 



00170000 T 0000*0 



OOOOlO 
0000*0 
OOOOlO 



00174000 T 0000*0 



OOOOtO 
OOOOtO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOtO 
OOOOtO 
0000*0 
OOOOtO 
OOOOtO 
0000*0 
OOOOlO 
OOOOlO 
0000*0 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOtO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOtO 
OOOOlO 



PRT<262) 
PRTC263) 



tOOufslots 
tOQufavaiL 



PRT{264) « TOQUE 



PRT(265) 
PRT(266) 



UNIT 



TlNU 



ARRAY J Q U F r * J J 

DEFINF RETURNIOSPACECRETURNIOSPACEIJ * 
BEGIN IOQUESLOTS»sIoQUFSLnT5ft> 

IOQUE[RETURNIOSPACEl]l»IOQUEAVAlL* 
IOQUEAVAlL«aRETURNlO SPACED 

END* I 
ARRAY UNJT[*JJ 

COMMFNT UNIT NOW FlLLFD in initialize? 
ARRAY TINUC*]; 



COMMFNT TlNU NOW FlLLFD lN INITIALIZE* 
ARRAY WAy TQUFt *3 * 
PRT(2ft7) s WAITQUE 

REA|, NEXTWAIT»FIRSTWAIT;X 

nextwait 



% 8* 



PRT(270) 
PRTC271) 



= 



PRT(272) 
PRTC273) 

PRT(27«) 
PRTC275) 
PRTC276) 



PRT(277) * 

PRTC300) * 

PRTC301) ■ 

PRT(302) * 



PRT(303) 
PRT(304) 



PRTC305) 



firstwait 

COMMFNT WaITQUF IS A QUEUE OF UNITS FOR WHICH THERE ARF* 
RFOUFSTS BUT NO CHANNfL IS AVAILABLE. NFXTWAIT AND* 
FIRSTWAIT ARE POINTERS AT THE WAITQUE. NEXTWAIT IS THE* 

next available slot in waitquf and firstwait points at* 
next unit to be used when a c h annel is available!* 

ARRAY i.ABFlTASlEc*]; % i 9 * 

i.abeltabi.f. 

array m ult i t abl.f e * 3 1 % $<-,% 

multitable 

ARRAY pDCTABLEt*]? I! % 7 % 

RDCTABLE 

ARRAY PRNTABLEr*3jX 

prntabLe 

ARRAY RfPLYT*3)X 

Reply 

comment labfltable, multitablf. and rdctablf contain label information* 
by logical unit number as follows!* 

LABElTABlEIII CONTAINS THE FIlE ID FOR LOGICAL UNIT f,| 
MUl.TMABl.Etn CONTAINS THE CORRESPONDING MULTI-FILE ID.X 
RDCTABLETI] CONTAINS THE CORRESPONDING REEL NUMBER (IN U4U03)> 
CREATION DATE C IN [24j17J)» AND CYCLE ClN tftl«7])i* 
S SET OMIT * NOT(SHAREDISK) 
REAL OPTION)* 
OPTION 

REAL ILL'INQCTJ 
ILL 
INQCT 

REAL PINGOJ 
PINGO 

REAL RFADQtRRNcOUNTJ DEFINE PuT=SFT*l 
READQ 
RRNCOUNT 

* SET OMIT * NOTCDATACOM ) 

ARRAY TRANSACTlONr*]} * 3 ? % 

TRANSACTION 

DEFINE FTRLNG * 5#| * LENgTh Of ENTRY IN FILE BLOCK* 

save Real procedurf twO(N); value n; integer n» 



00?06000 T OOOOIO 



00?06500 
00207000 
00207500 
00208000 
00208500 
00209000 



00210000 T 

00241700 T 

00241800 T 

00?78000 T 



OOOOiO 
000010 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 

OOOOIO 
OOOOIO 

OOOOIO 
OOOOIO 



00279000 T OOOOIO 



00280000 
00281000 
00282000 
00283000 
00?84000 
00?85000 



OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 



00286000 T OOOOIO 



00287000 T 
00288000 T 
00289000 T 



00290000 
00291000 
00292000 
00293000 
00294000 
00295000 
00295999 
00297000 



OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 



00299000 T OOOOIO 

00301000 T OOOOIO 
00301100 T OOOOIO 



00301200 T OOOOIO 

00304000 T OOOOIO 

00305000 T OOOOIO 

00306000 T OOOOIO 



i 



PRT(306) s TWO 
STACKfF+1) * T 



begin Real T.+ i; 

STREAM(NlsN'*47-N»Ti»[T]); 
BEGIN Skip n DBJ DS:*SeTj end* 

END TWO;* 



START OF SAVE SEGMENTj BASE ADDRESS * 00063 

00307000 T 0000*0 

00308000 T 000010 
00308500 T 0002M 

00308500 
00309000 T 000311 

00307000 
SIZE* 0004 WORDS 



PRT<307) * SYLLABLE "^ SYLLA8LF '* 00310000 T 000010 

S SET OMJT * NOT(SHAREDISK) 00310099 T 000010 

* SET OMIT = SHARFDISK 00310199 T OOOOlO 

DEFINE SYSN0=0#, SYSM A X*l'l 00310200 T OOOOtO 

S POP 0Mf7 00310201 T 000010 

COMMENT ANALYSIS PLACES THF SYLLABLE THAT CAUSED THE INTERRUPT 00311000 T OOOOlO 

IN SYLLABLE, T H lS jS USED BY PRESENCE BiT» FLAG BiT, AND 00312000 T OOOOlO 

various errors;? 00313000 t ooooto 

PROCEDURE F0RGETUSFRDISK(A,L);VALIJE A,L>REA L A .LI FORWARD! X 00316000 T OOOOlO 

PRTC310, * FORGETUSERDISK $TART ° F REL S " MEI,Tl ° ,SK ADDRE&S " °° 002 

REAL PROCFDURE pETUSFRD I SK C N» T ) I VALUE N»T|REAL N.TlFORWARD > 00316100 T OOOOlO 

PRT(3,1, » PETUSERDISK START ° F REL S " MENT ' ^ISK ADDRESS ■ 00002 

$ SET OMIT * NOT DEBUGGING 00316999 T OOOOlO 

$ SET OMIT * NOT DEBUGGING 00330999 T 0000 

ARRAY nAL0Cr*»*3» DALOCROW«DaLOC t * ] I 00333000 T OOOOlO 

PRT(3l2)B0AL0c 

PRTC312) » OALOCROW 

S SFT OMit ■ NOT(BREAKOUl) 00333099 T OOOOlO 

PBT|I|1 , 1A vu»^ AL °l' AYMASK; * FOR LOCKING OUT GETMOREOLAYDISK BY MjX INDEX 00336000 T OOOOlO 
rKi{3f3) * 0LAYMA5K 

PROCEDURE USFRDiSKSPECIALCASErQ,R»U.s)))VALUE Q.JIREAL Q.R.JJ 00336100 T OOOOlO 

PRTC3H) . USERDISKSPECIALCASE START ° F REU St *"* HU ° ISK A °° RESS * °° 02 

ARRAY U[*]l FORWARD I 00336110 T OOOOlO 

DrFlNF - B r A u F iNKS° ? 7? l ;0O#: X 00338000 T 0000.0 

CHUNKSI7E=500#U 00339000 T OOOOlO 

R FAL LfFTOFFI COMMENT POINTfR TO CYCLE FOR OLAYlX 00341000 T OOOOtO 

PRT(3i5) * LFFTOfF j*ivvv um,u 

SAVE PROCFDURE D I SkRTN< SEGNO. SIZE)? 00363000 T 000010 

PRTC316) * DISKRTN SURT ° F SAVE SEGMENT ' BASE A ° DRESS * °°° 67 

yjlrfFD lleT Villi 00363100 T OOOOlO 

F G L, N °' SI Zl 00363200 T OOOOlO 

FORWARD! 00363300 T OOOOlO 

PROCEDURE FORGETESPDISKCSEGJIVALUE sEGlRLAL SEGIFORWARDI 0036A000 T OOOOlO 

PRTC317, * F0RGFTFS PniSK START ° F REU SEGM F NT ' DISK ADDRESS - 00002 

SAVF INtFGFR PROCEDURE D I SKsPaCFC NW0RDS»P1 M I X » AUX ) I X 00365000 T OOOOlO 

PRT(320) « niSKSPACE START ° F SAVE SFgMfNT ' BASe ADDRESS ■ 00067 

VALUE NW0RDS,P1MIX,AUX| 00366000 T OOOOlO 

INTFGFR NWORDS.PIMIXIREAL AUXI 00367000 T OOOOlO 

BDnrrnilDr ctath?"J RD; * 00368000 T OOOOlO 

PROCEDURE STATUS;* 00369000 T OOOOlO 

PRTC321) « STATUS START ° F REL SEGHFNT ' 0ISK ADDRESS « 00002 

FORwARDI* 00370000 T OOOOlO 

PROCEDURE INTERRUPT(TYPE)lVALUE TYP E ;R E AL TYPEl F0RW A R0l 00370500 T OOOOlO 

PRTC322) • TNTFRRUPT START ° F REU ^"FN 1 ' DISK ADDRESS ■ 00002 

RFAL PROCFHURE FI N n OUTPUT( M T D , F 1 D » TYPF> FORMS, RfeL, CDATF. CYCLE* K t N D ) |X 00371000 T OOOOlO 

PRT(3?3) • FINDOUTPUT START ° F REL SEQM E NTI DISK ADDRESS . 00002 

VALUE MID.FID>TYPE»F0RMS»REEL»CDATE»CYCLE»KIND|X 00372000 T OOOOlO 



r , „ „™,, R £ A k, ^J r) 'f ^'TYPE'FORMS.REEL.CDATE.CYCLEfKlND) FORWARD)* 00373000 T 000010 

REAL PRoCFDUpE F I ND 1 NPUT C M I T l0» REEL »CDATE »C YCLE . COBOL. UfOF . MODE .FN ) I 00374000 T 0000«0 

PRTC324) * FINDINPUT START ° F REL SEGM E NT » DISK ADDRESS - 00002 

VALUE MID»FID»REfL»COATE»CYCLEfCOBOL»UU»0F»MO0E»FN»« 00375000 T 0000)0 

REAL Min»FIO.RFEL»cDATE.CYCLE»COBOL.UL.OF»MODE»FN| FORWARD) 00376000 T OOOOJO 

PROCFOUPF START!MIN6(FN.U)I VftLUE FN»U* REAL FN#U) FORWARD!* 00377000 T OOOOlO 

PRT f 3 2 5) S STARTiMihG ^^ ° F ^ SEGMfNT ' 0lSK A °° ReSS " 00002 

PROCEOuRF FJLEOPENfX.A); VALUE X>AI INTEGER X.AJ FORWARD) 00379000 T 0000«0 

PRT(3?6) * FILEOPEN START ° F REL SEGMENT * DlSK ADDRESS « 00002 

SAVE PpoCFDURE SAVfOPEM(A)) VALUE A) REAL A) 00379100 T 0000«0 

PRTC327> " SAVEOPEM START ° F S * VE SEGMENT ' 8ASE ADDRESS -00067 

BFfilN FILE0PEN(2. A ) END) 00379200 T 0000)0 

00379200 
SIZE* 0002 WORDS 



pRocrnuRF mixprintcq); value q; real q; forward; 00379400 t 000010 

START OF REL SFGMrNTI DISK ADDRESS * 00002 
PRTC330) = MIXPRJNT 

% TYPES <JOR SPECIFIERS* FOR EACH ACTIVE MIX INDEX 00379500 T OOOOlO 

PROCFOURF JOpMESS(MlX#Q»A#B»C»0);VAUUE MJ X» Q» A » B » C »D; 00379600 T OOOOJO 

START OF REL SEGMfNTj DISK ADDRESS * 00002 
PRTC331) « JOBMFSS 

Real M|X#q,a.b,c»dj forward; 00379700 t 000010 

procedurf sftnotjmuse(U,rw l j; value u,rwl; real u.rwlj forward; 00330000 t oooojo 

start of rel segment! disk address ■ 00002 

PRTC3^2) ■ SETnoTInUSE 

DEFINE ST0PTIMING»STARTIMING#| 00382000 T OOOOlO 

PROCEDURE FILLBUFFERS(CURRENT.FINAL»C0B0L»NR); 00385000 T OOOOlO 

START OF REL SEGMfNTl DISK ADDRESS * 00002 
PRTC333) « FILLRUFFFRS 

VALUE CURRFNT#FIMaL,#C0BOL.NR; REAL CURRENT »F I NAL»C080L>NR \ 00385500 T OOOOlO 

FORwARns 00386000 T OOOOlO 

nEFlNf r,FTRt]FFFRS»FlLLBlJFFFRS#; 00387000 T OOOOJO 

PROCEDllRF KFALFlLFCLOSEf A); VALUE A! REAL A! FORwARDI 00389000 T OOOOlO 

START OF REL SEGMENT; DISK ADDRESS « 00002 
PRT(334) * REAlFILECLOSf 

SAVE PROCEDURE FIlECloSEca)* VALUE A; REAL A; 00389100 t oooojo 

START OF SAVE SEGMENT BASE ADDRESS ■ 00069 
PRTC335) » FlLECLOSt 

PEGJN REALFILECLOSE(A) ENDJ 00389200 T OOOOlO 

00389200 
SIZE* 0001 WORDS 



REAL 
PRT(336) « nfSKADORE 



PROCFnURe DlSKADDRFSS(Mir)>FID#FP83>A.H»lO)l 

SS 

VALUE MTD.riD,FPB3»A»Hfl0l 

rea|, mid#fid»fpb3»a#i0i array h[*]> 
Forward;* 
procedure plastocidj value u? real li? forward?* 



PRTC337) 
PRT(3«0) 




REAL 



s BLAST 

« FfLEHFADFR 



PROCFDURF FTLFHEADER(MTD,FTD.NROwS»SIZF,BLEN,RLEN,sm 



% (SHM) 
START OF REL 

X (SHM) 
?! (SHM) 



START OF REL 



START OF REL 



00390000 t ooooto 

SEGMENT? DISK ADDRESS « 00002 



PRTC341) * PURGE 



PRTC3A2) 
PRTC343) 

PRTC177) 
PRT(344) 

PRT(345) 
PRTC346) 



* FSPTA 
8 FSPCO 

* nlRDS 
» FSPDI 
b FSPOI 
« MESSA 



VALUE MlD t FiD#NR0WS»SlZEf8LEN»RLEN»SJX 

re At mid,fid;x 

INTEGER NROWS»SIZE#BL,EN»RLEN#SJ FORWARD?* 

PROCEDUrF PURGEIT(IJ): VALUE U; INTEGER UJ FORWARD?* 

START OF REL 
IT 

REAL 
B 

UNT 
REAL 
K 

REAL 
SKBO 
REAL 
SKTO 
RFA 
GEHO 



00390100 
00390?00 
00391000 
00392000 

SEGMfNTi disk 

00393000 
SEGMENT? DISK 

OO394OOO 
00395000 
00396000 
00397000 
SEGMENT? DISK 



000010 
OOOOtO 
000010 
OOOOiO 



ADDRESS « 00002 

T 000050 
ADDRESS m 00002 



0000?0 
OOOOtO 
000010 
000010 



ADDRESS • 00002 



ESpTAB'FSPCOUNTj 



DIRDSK=P177? 



ESPDI 
TTOM 

ESPDI 
P 

L MES 
LDER 

define 
u 

B 
F 



T 



SKROTTOM? X LOWt'ST ADDRESS OF ESPDISK 
SKTOP? * HIGHEST ADDRFSS OF ESPDISK 
SAGEHOLDER?* 



USEDRA - OPTION, [47» 1 3*»X 
SEDRB = OPTION* t46l 1 3#»> 

OJMESS ■OPTlON.t*5ll3f«* 
OJMpSS «0PTI0N, [44*11#»* 
PNMfSS sOPTiON,[a3? l]#t* 
fRMgO «0PTl0N,t42ll)#»j 

GiVEDATE « OPTION. [41tl]#,S 

GjVETjME « OPTION. [40 1 1 ]#»* 

SAMEBREAKTAPE«0pTl0N,r39U]## * NOT CURRENTLY USED, 3/73 

AUT0PRINTe0PTl0N,r38J 1 ]#, 

CLEARWRS*0PTlON.[37?l]#» 

N0TIFY0P*0PTI0N,[3b»1]#,* 

DISCONDC * OPTION. C 36 1 1 1#» 

COPNMESSaOPTlON.t35?l]##* 

CL0SFMESS«QPTl0N,t34?l]##* 

ERR0RMSG«0PTI0N.[33I1]#» 

RETMsgsOPTION.[32|13#, 

LIBMSG«0PTI0N.[31»1]#i 

SCHE0MSG«0PTi0N,[30?l ]«, 

SECMSG*0PT10N,[29»1]#, 

DSKT0Go0PTI0N.t28«U#» 
RELT0G*0PTI0N,r?7? 1 ]#, 
PBDREL'0PTl0N.C26ll3#» 
CHECKLINK » OPT JON , C 251 U*» 
DISKMSGaOPTlON,[24«Uf t 
IBERR -(OPTION, t22 • 1 3 OR CSPOUTUNl T , [CF J»0> )« » 
USEPRD s 0PTI0N,[?1U]#»* 
SVPBT sOPTlON.t20ll]#,X 



FROM SP0X589" 
*DS 



00399000 T 0000*0 



00400500 T 
00401000 T 



00403000 
00404000 
00405000 
00406000 
00407000 
00408000 
00409000 
00410000 
00411000 
00412000 
00413000 
00414000 
00414100 
00415000 
00416000 
00416050 
00416100 
00416200 
00416300 
00416400 
00416500 
00416520 
00416550 
00416560 
00416570 
00416590 
00416600 
00416610 



OOOOSO 



0000»0 



00401100 T OOOOSO 
00402000 T 0000:0 



0000 (0 
0000:0 
OOOOiO 
000010 

0000:0 
000010 

000010 

0000:0 

0000*0 

000010 

0000(0 

0000:0 
000010 

OOOOtO 
000010 

00.0010 

000010 
OOOOiO 
OOOOtO 
OOOOiO 
OOOOiO 
OOOOiO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOJO 
OOOOiO 
OOOOiO 



DEFINE 



RSTOftsOPTtON.r 191 n*. 
AUT0UNLD«0PT|0N*[i8?l]#t 
AUTORN * OPTION, M 7 M 3*. 

C0DE0LAY*0PTi0N.[l6»13*» 

CoRESTs pTION.C!5ll3*» 

OATAOLAY»OPTlON.tl4ll3#» 

HALTSET»0PTI0K,C13M3#» 
STOPTEST» OPTION. [8: 1]## 

PUNCHLCK*0PT!0N.t7Sl 3#» 
CD0NLY=0PTI0N,C6»1]#» 
PKT0NLV*0Pri0N,r5« 1 J*. 

sfparate*option, [4in# • 

MO03l0S»0PTlON,[2t 13#» 

AUTOMfSS ■ OPTION. U«l]#. 

AUTODS ■ OPTlON,[ IS 13## % ACTS FOR OPERATOR 
XXXXXXs OPTION, [0:03*JX 



*902. 



%747» 



POJBIT s 
FOJPFT ■ 
OPNPIT * 
rOPNFHT* 



45 
44 
43 
35 



pL0Sr9FT«34 



1« t 42 * 63# • 
18:4?:6]#. 
I8t42l63#» 
18|42J6]#, 
I8j42«6]#, 



pRRRBlT s 33fl8:42J6]#, 



l8l4?J6]#, 
l8«4?*6j#. 
1 8 I 4 ? ' 6 ] # . 
18I42 ! 6]#» 
1«J42*63#» 



PRTC347) • 



OF oiRectorytop segm 

AND STORED IN MCP PR 



ENT--STORED IN M[13 
TCDIRECTORyTOP) 



LTBBTT = 31 
SCHFDBlTa30 
SFCBlT a ?9 
pSBlT = t9 
WEVERRIT=62 

AL^AYSBIT*63tl8«42»6J#> 
REAL USFRDISKBOTTOM; 
USERDISKBOTToM 

* DISK ADDRFSS OF USER DISK AVAILABLE TaBLE 
REAL OIRECTORYTOP; 
PRTC350) * ntRECTORYTOP 

% otsk aodRess 
sby mcp loader 
real dtskrottomj 

PRTf351) a niSKBOTTOM 

J! DjSK ADDRESS 0^ ToP OF BYpASS DIRECTORY, USED IN SCRAMBLE 
S SET nMlT = NOT(SHAREDISK) 
$ SET OMIT = SHAREDISK 
REAL HOLDER»NEXTSLOT»BYPASSl 
HOLDER 
NEXTSLOT 
BYPASS 

* SET OMIT a NOT STATISTICS OR OMJT 
DEFINE mOLoMAX * 30#S * MAXIMUM 
COMMENT T H F hOLdLIST CONTAINS A ONE WOR 

that is wajTjng To use a fji„e t 

HolOlISTCI], [FFJ.THE CftRE 

WAITING PROCESS IS SL 
HOLDLISTCI J.CCF3*THE DISK 

THAT IS BEING WAITED 
H0LDLISTC13 .[10t83 = MlX I NO 

ENTRY. (TSSMCP ONLY) 
H0LDLIST[I3,[?»2J*THE SYST 

THAT MADF THE ENTRY C 
HOLDLTSTt I 3,tl «13 IS SFT B 



PRTC352) 
PRTC353) 
PRTC354) 



NUMBER OF ENTRIFS IN HOLoLlST 

D ENTRY FOR EACH PROCESS 

HAT iS ALREADY IN USE. 

ADDRESS OF THE WoRD THAT THE 

EEplNG on. 

ADDRESS OF THE FILE HEADER 

FOR. 

EX OF THE PROCESS THAT MADE THE 



EM NUMBER (SYSNO) OF THE SYSTEM 

SHAREDISK ONLY). 

Y A SYSTEM TO NOTIFY ANOTHER 



00416620 


T 


OOOOlO 


00416630 


T 


0000:0 


00416710 


P 


OOOOJO 


004)6730 


T 


0000«0 


00416740 


T 


0000:0 


00416750 


T 


0000:0 


00416751 


T 


OOOOlO 


00416760 


T 


0000:0 


00416770 


T 


0000:0 


00416780 


T 


0000»0 


00416790 


T 


0000:0 


00416800 


T 


OOOOlO 


00416990 


T 


0000:0 


00416992 


T 


OOOOJO 


00416995 


C 


OOOOJO 


00417000 


T 


OOOOJO 


00417010 


T 


OOOOJO 


00417020 


T 


OOOOJO 


00417030 


T 


OOOOJO 


00417040 


T 


OOOOlO 


00417050 


T 


0000(0 


00417052 


T 


0000:0 


00417060 


T 


0000:0 


00417070 


T 


OOOOJO 


0041 7075 


T 


0000:0 


00417080 


T 


0000:0 


00417090 


T 


OOOOJO 


00417100 


T 


OOOOJO 


00418000 


T 


OOOOJO 


00418010 


T 


0000(0 


00418050 


T 


OOOOJO 


00418060 


T 


OOOOJO 


00418070 


T 


0000:0 


00418100 


T 


OOOOJO 


00418200 


T 


OOOOJO 


00418799 


T 


OOOOJO 


00418849 


T 


OOOOlO 


00418850 


T 


OOOOJO 


00418859 


T 


OOOOlO 


00418900 


T 


OOOOJO 


00418910 


T 


OOOOJO 


00418915 


T 


OOOOlO 


00418920 


T 


OOOOJO 


00418925 


T 


OOOOJO 


00418930 


T 


OOOOJO 


00418935 


T 


OOOOlO 


00418937 


T 


0000:0 


00418938 


T 


0000:0 


00418940 


T 


OOOOJO 


00418945 


T 


OOOOlO 


00418950 


T 


OOOOJO 



SYSTEM TO AWAKpN ThE PROCESS THAT MADE THE ENTRY. 

The nSfcond routinf examines the houdlist in 
ordfr to check for this condition (sharedisk only) 

DIPFCTORYSEARCh* NSECOND* AnD CLEANOUT ARE THE PROCEDURES 

that manipulate the holdlist. 

tht words associatfp with directory handling are' 



HOLDER. rCFJ 
. TFF] 

nextslot 
bypass, [cf] 

• f F F 3 



ON S 
THRF 

Read 

QUrU 

end COMMENTS 

INTEGER REST 

PRT(355) * RESTARTING 

$ SET OMIT 
DEFINE SCRAM 
f (SCRAM 

cscram 

PlSKR 
MODULU 

COMMENT 

TmF 

D|R 

ODD 

FOR 

SET 

NOT 

IT 

FOR 

SMA 

ARRAY FST*»* 



DISK ADDRESS OF hOLDLIST, 

NUmBfR of entries in hololist, 

disk address of first header in queue of 

EMPTY SPOTS IN DIRECTORY (NEXTSLOT QUEUE). 
LOWEST ADDRESS OF THE BYPASS DIRECTORY, 
HIGHEST ADDRESS OF THE MAIN DIRECTORY, 
HAREDISK* HOLDER' N^XTSLOT AND BYPASS ARE KEPT IN THE FIRST 
E WORDS OF THE DISK SEGMENT LOCATED AT D I RECT0RYT0P*2. A 

LOfK MUST BE OONf BEFORE ACCESSING THE HOLDLIST OR NEXTSLOT 
F OR EXPANDING EITHER T H E MAIN OR BYPASS DIRECTORIES. 

ArTInGj XpASSLEVEL CONTROL (RS) 



■ NOT(BREAKOUT) 
BLE(SCRAMBLEl»SCRAMBLE2)=(-2x 

BLEl.tM J 8 J + SCRAMBLE lit 34124 3) 
BLE2,t6Jl8J+SCRAMBLE2.t24:24]) 

OTTOM)#, 

S«13#t niRM0D»169#> 



MOD MODULUSxMODULUS* 
MOD MODULUS) + 



RELATIONSHIP BETWEEN MODULUS AND DlRMOD IS« 

MOD := MODULUS x MODULUS* WHERE MODULUS IS A LOW 
PRIME. fTHE RECOMMENDED VALUE OF MODULUS IS 13). 
SYSTEMS WITH ONLY 4 MEMORY MODS* MODULUS MUST BE 
TO A SMALLER VALUE SO THAT DIRECTORYBU ILDER WILL 
GET A NO-MEM* MAKING IT IMPOSSIBLE TO HALT/LOAD, 

IS SUGGESTED THAT MODULUS BE SET TO 11* DlRMOD TO 
A SYSTEM WITH n MORS. IT MAY BE NECESSARY TO SET 

LLER. DEPENDING UpON DISK CONFIGURATION; 

]> ARRAY FSROW*FSt*3» 



121 

IT 



PRT(356) 
PRTC356) 



* FS 
■ FSI 



► ROW 

ARRAY uSFRDISKr*]} 
PRT(357) * IJSERDISK 

£ SET OMIT » NOT DEBUGGING S763» 

$ SET OMIT = SHAREDISK 
DEFINE LOCKDIRECTORY * 

BEGIN IE NOT DIKECTORYTOG THEN SLEEPC C TOGLE ] *DI RECTORYMASK ) I 
LOCKTOG(DIRECTORYMASK)! 
END*. 

unlockdirectory « 

BEGIN 

UNLOCKTOGCD I RECTORYMASK) I 
END#I 
* POP OMIT 

boolean oksegzeroWritej *204- 

prtc360) * oksegzerowrite 

t SET oMlT * NqT SHAREDISK 
REAL LOGFRFE»IOMASK»SAVEWORDJ 
PRTC361) B LOGFREE 
PRT(362) * IOMASK 



0041 
00«1 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 

0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 

0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 



8955 
8960 
8965 
8970 

8975 
8980 
8985 
8990 
8995 
9000 

9005 
9010 
9015 
9020 
9025 
9030 
9035 
9040 
9100 

9104 
9110 
9120 
9130 
9140 
9150 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9400 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00419999 
00421099 
00421100 
00421200 
00421300 
00421400 
00421500 
00421600 
00421700 
00421600 
00421801 
00422100 



OOOOtO 
000010 
0000)0 
000010 
000010 
000010 
OOOOjO 
OOOOtO 
000050 
OOOOlO 
OOOOJO 
0000>0 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOlO 
OOOOtO 
OOOOtO 
OOOOlO 

OOOOlO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOtO 
000010 
OOOOlO 
OOOOtO 
OOOOtO 
OOOOlO 
OOOOlO 



00419900 T OOOOtO 



00422490 T 
00425000 T 



OOOOtO 
OOOOtO 
OOOOtO 
OOOOlO 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOlO 

OOOOlO 
OOOOlO 



XUSED FOR SELECTION PURPOSES 



PRTC363} * SAVEWORD 

RFAL. COREl 
PRTC364) * pORF 

commfnt 

CORFtr«»l43 s MULTIPROCESSING FACTOR CxiOO) 

rORF. [18115] » SUM OF CORE ESTIMATES FOR ALL JOBS 

NOW ACTIVE IN THE MIX (DIV 64) 
C0RF.C33H5] = AMOUNT OF CORe MEMORY INITIALLY AVAILABLE FOR 

PROCESSING NORMAL STATE JOBS (DIV 64)1 
PROCEDURE SFLECTRlJN(F)S VALUF Fl RfAL Fl FORWARD! 



00426000 T 0000:0 



PRT(365j « SELFCTRUN 

DEFTNF RFLFCTTON = fNDEPENDENTRLlNNFRcP(,SELFCTRUN),O f 160)#l 
PROCEDURE C0NTR01,CARD(A)IVal.Uf AlREAL A* FORWARDS 



PRT(366) 
PRTC367) 



= controlcard 

real, procedure directqrysearChca»r»ojval,ue a»b»c;i 



start of rel 

start of rel 
start of rel 



PRTC367) 



PRTC370) 
PRTC371) 
PRTf 37?) 
PRTC373) 



PRTC374) 



» DIrECTORYSEArCH 

REAL A»B#Cj FORWARD;* 
DEFINE HEAOERUNLOCK»HU#» 
HU(HU1» HU2.HU 3)= 
P(MKS»HU3»HU1*HU2»9»dIRECT0RYSEARC»DEL)#; 
REAL D I RFC T OR YSF ARC "DIRECTORY SEARCH I 
6 niRFCTORYSFARC 

XXHFADrRUNLOcK CAN BE USED TO WRlTF IN THF DIRECTORY A CHANGfO 
%% wEADF«» TURN OFF THF INTfRLOcK BIT AND DO THE FORGETSPACF 
%% T T MAY RE CALLED ONLY AFTER A D I RECTqRYSE ARCHC A, B» 4 ) 
%% THE PARAMETERS PASSED MUST BE (A»B,DS)I 

%% WHERE A»8 ARE THE SAME AS PASSED T THE IRECTORYSE ARCH 
%% AND DS IS THE RESULT OF THAT Dl RECTORYSEARCH 
REAL OLDini.ETIMEj 

* OLDIDLETIME 

PROCEDURE APTNfA»N)i VAUUE At Mi ARRAY At*]; INTEGER N; FORWARD}* 

START OF REL 

* aRtn 

save procfdurf dismocl.cs.d)! value cs.di Real li integer c,s,ms 

START OF SAVE 

c hiSkio 

forward;* 

ARRAY MESSAGETABLEt*ll 

■ messagftable 

define messagetablesize ».5#l * number of messagetable entries 

DEFINE 

OPTIONSZ s CMESSAGETaBLeCoJ#[8H0J)#» 

TFRMSGSZ « CMESSAGETABLFtl )»C8S103)#« 

KrYMSGSZ * (MESSAGETA«UfC23,[8HOJ)#» 

CcTarLSZ * (MFSSAGETABLFt33,t8H0J)#| 
S SFT OMIT » PACKFTS 
S SET OMtT * NQT(PaCKeTS) 

dffine 

SPOUT ( SPOUT paSPOUTERf SPOUT 1»0, i)#» 

SPOUT iT(SPOUTiTl. SPOUT iT?)sSPOUTER( SPOUT IT 1,0. SPOUT JT2)#I 
PROCEDURE SPOUTER(MESSAGE»UNtTN0»TYPE)J 

START OF REL 

* SPOUTFR 

VALUF MESSAGE. UNITN0»TYPE» 



00426100 
00426200 
00426300 
00426400 
00426500 
00426600 
00426700 
SEGMfNTI DISK 


T OOOOIO 
T OOOOIO 
T OOOOIO 
T OOOOIO 
T OOOOIO 
T OOOOIO 
T OOOOIO 
ADDRESS * 00002 


00426800 

00427000 

SEGMENTl disk 


T OOOOIO 
T OOOOIO 
ADDRESS m 00002 


00428000 
SEGMENTl DISK 


T OOOOIO 
ADDRESS « 00002 


00429000 
00430000 
00430100 
00430200 
00430225 


T 
T 
T 
T 
T 


OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 


00430250 
00430275 
OO43O3OO 
00430400 
00430500 
00430600 
00430900 


T 
T 
T 
T 
T 
T 
T 


OOOOOOO 
OOOOOOO 
OOOOOOO 
OOOOOOO 

OOOOOOO 



00431000 T OOOOIO 

SEGMENT! DISK ADDRESS * 00002 

00432000 T OOOOIO 

SEGMENTl BASE ADDRESS * 00070 

00433000 T OOOOJO 

00435000 T OOOOIO 



00436000 
00437000 
00438000 
00439000 
00440000 
00441000 
00449999 
00451499 
00451500 
00451600 
00451700 
00451800 
SEGMENTl DISK 



OOOOlO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 

000010 

OOOOIO 

0000:0 
0000:0 

OOOOIO 

000010 



ADDRESS « 00002 



00451900 T 0000:0 



REaL M|rsSAGF»UNTTNO»TYPFl 00452000 T OOOOlO 

FORWARD! 00452100 T 0000:0 

DFFlNf 00452200 T 0000*0 

FJi.EMESSaFMSI, 00452300 T OOOOSO 

FMS(FmSi#FmS2#FMS3>FMS4*FMS5»FmS6»FMS?)s 00452400 T 0000*0 

FI| FMF_SSAGECFMSliFMS2,FMS3.FMS4»FMS5#FMS6»FMS7M>m 00452500 T OOOOSO 

PROCEDURE FII,EMESSAGE(I»K.M»F l R,D»C»TYpE>| 00452600 T OOOOSO 

START OF REL SEGMENT) DISK ADDRESS « 00002 
PRTC375) * FILEMESSAGE 

VALUE l»K#M»F»R»D»C'TYPEj 00452700 T OOOOlO 

REAt I»K#M»F*R»D»C«TYpe; 00452800 T OOOOlO 

FORWARDS 00452900 T OOOOlO 

$ POP oMfT 00452901 T OOOOlO 

PROCEDURF LRMpSSCFN.SN.I 1»!2#F»UNITN0»X)I 00454000 T OOOOlO 

START OF REL SEGMfNT) DISK ADDRESS « 00002 
PRT(376) c LBMfSS 

VALUE FN,SN,H ,r2»E»UNlTN0,XJ 00454100 T OOOOlO 

REAL FNtSNtlff !?»E«UNlTNOf XI 00454200 T OOOOlO 

FORWARD! 00454300 T OOOOlO 

PROCEDURE TERMINATECMIX)) VA^UE M I X I REAL MIXI FORWARDI 00463100 T OOOOlO 

START OF REL SEGMENTl DISK ADDRESS * 00002 
PR7(377) * TERMINATE 

SAVE PROCEDURE TERM! NALMESSAGE C N) I VALUE Nl REAL N) FORWARD! 00463200 T OOOOlO 

START OF SAVE SEGMpNTl BASE ADDRESS ■ 00070 
PRTC^OO) = TERMtNALMESSaGF 

BOOLEAN PROCEDURE SYSTEMF I LE( A *B ) I VALUE A.B) REAL A»BI FORWARDS 00463300 T OOOOlO 

START OF REL SEGMENTS DISK ADDRESS m 00002 
PRTC401) » SYSTEmFIlE 

PROCEDURE ENTERSYSFILECN)! VAlUE NS REAL NS FORWARDS 00464000 T OOOOlO 

START OF REL SEGMENT? DISK ADDRESS ■ 00002 
PRTC402) « FNTERSYSFILE 

PROCEDURE C0M5; FORWARDS* 00469000 T OOOOSO 

START OF REL SEGMENT) DISK ADDRESS » 00002 
PRTC4o3> » rOM5 

t SFT OMJT * NOTCSTATISTICS) 00469099 T OOOOSO 

PROCEDURF ASR) FORWARDS* 00474000 T 0000:0 

START OF REU SEGMfNTl DISK ADDRESS • 00002 
PRT(404> * ASR 

PROCEDURE C0M1U FORWARDS* 00475000 T OOOOlO 

START OF REL SEGMENTJ DISK ADDRESS » 00002 
PRT(405) « C0M11 

PROCEDURE C0M13S FORWARDS* 00477000 T OOOOlO 

START OF REL SEGMENT) DISK ADDRESS « 00002 
PRTC4Q6) * C0M13 

PROCEDURE COMMUNICATEOS FORWARD) 00478000 T OOOOlO 

START OF REU SEGMENT) DISK ADDRESS ■ 00002 
PRTC407) a r OMMuNicATEO 

PROCEDURE COMMUNTCATEU FORWAROl 00478500 T OOOOlO 

START OF REL SEGMENT) DISK ADDRESS « 00002 
PRT^Q) ? COMMUNICATEE 

PROCEDURE LlBRARYZEROS ForWArD) 00479500 T OOOOlO 

START OF REL SEGMENT) DISK ADDRESS * 00002 
PRTC4U) 9 iJBRARYZERO 

PROCEDURE LIBRARYCOPY) FORWARDI 00480000 T OOOOlO 

START OF REL SEGMENTl DISK ADDRESS « 00002 
PRTC412) « LIBRARYCOPY 

PROCEDURE FORMTIME(W»T)l VALUF W»TI REAL W#TS FORWARDS X154- 00480010 C 0000»0 



PRTM13) * rORMTlMf 

S SET OH|T = NQTCDUMP 
PROCEOURF H'JMPcOREf 8>» 



START OP REL SEGMfNTl DISK ADDRESS ■ 00002 



OR DEBUGGING) 

value n* Real 



B* FORWARD' 



PRT(414) * OUMPCORE 

$ POP OMIT 
PROCEDURE C0Mt9; 



FORWARDlX 



PRTC415) ■ C0M19 
PRT(«16) » (-0M23 
PRT(4i7) 



PROCEDURE C0M23J FORWARD;* 



PROCEDURE fNTRINS!CTABL.ERU!LDFR(FH)t 



PRT(4?05 



PRT(4?l) 



TNTRfNSTrTABl,F«U!LDER 

valuf fhj real fhi forward; 

PROCEDURE MESSAGETAPLEBUILDER; FORWARD! 



^4ESSAGETABuEpUILDER 

$ SET OMIT =• AUXMEM 
DEFINE INVLDAU^IO * 1 t#» 
LOOVFLOW k 13*1 

$ set omit * not cauxmcm 
rray puntfri;*)i 



START OF REL 

START OF REL 

START OF REL 

START OF REL 



00480099 

00480100 

SEGMFNTl DISK 



T 0000 
T 0000: 
ADDRESS 



00002 



00480101 T 000080 

00483000 T 0000:0 

SEGMENT! DISK ADDRESS « 00002 

00487000 T OOOOJO 

SEGMENT! DISK ADDRESS « 00002 

00489000 T 0000:0 

SEGMfNTI DISK ADDRESS ■ 00002 



00490000 T 0000(0 
00491000 T OOOOJO 
START oP REL SEGMENT! DISK ADDRESS • 00002 



AND SHAREDlSKj 



* PUNTER 
D 



00642000 T 

00642100 T 

00642200 T 

00642300 T 

00643000 T 



D 



EFINE 
S SET 

S SET 

S POP 

* SET 
t SET 

EFfNE 



s 

$ 
$ 



POP 

SET 

SET 

CO 



PUNT 
OMIT 

OMIT 

OMIT 

OMjt 
OMfT 
nUHP 
DUMP 
OMIT 
OMIT 
OMIT 
MmF.NT 



* INVLO AUXMEM \0 
% DUMP CARD 



SIZE * 11 

* NOT SHAREDISK 

♦ 2 
= NOT AUTODUMP 

♦ 19 
OMIT OMJT 

#; 

* NOT AUTODUMP 

* NOT CSHAREOISK f«>V AUxMfM) OR OMiT 
CRD * 13*. 

ADR «. ?6#! 



(SHAR 
NOT S 

this 

»?o: 

»?15 
522J 
:?3» 
:2'4i 
: ? t it 
I 26 J 
J27J 
J ?0» 

■31* 
1321 

«33l 
I 34 I 
I 35 i 
t 36l 



EDISK 

HARED 

IS TH 

20.20 

STD»S 

INI#0 

10, LO 

25. I l 

01400 

0t400 

OPDC 

OPDC 

OPDC 

OPDC 

DESC 

DESC 

IMI »0 

00000 
iNltO 



OR N 

ISk 

E COD 

'NOP' 

»BFW 

'LFU 

D»21» 

0»Z#L 

00007 

00047 

14, DI 
15, DI 
16, DI 
1 7 , D I 
24, C 8 
37»BF 
'LFU 
00000 
•LFU 



OT AUX 

R AUX M 
E ON T 

NOP 



STD 
RU 

700035 
400157 
A 26,1 
?6,6 

26»2 
?6» 

7 



000501 



MEM) OR 
EM OR OM 
HE DUMP 
TELL 
BRAN 
TIME 
SAVE 
STAR 
I/O 
I/O 
0»BFW 
»BFW 
.BFW 

BRAN 
GO T 
DATA 
DISK 
FREE 



OMIT 
IT 

CARD (ALL NUMBERS 
S ANALYZER ALL I/O 
CH TO 23 

R - LOOP UNTIL INT 

M[8), RESTORED BY 

T I/O THEN WAIT AT 

DESC FOR 77 SEG WR 

74 SEG RE 

pick up r 

DIAL TO E 
BRANCH IN 



DESC 
I/O 
I/O 
I/O 
I/O 

CH TO 



FOR 

1 - 

2 - 

3 - 
4 

24 
1ST 



FOR RETRY 
TIME* SEE 



37 

COM " LOOP UNTIL I 
ADDRESS FOR WRITE 
ADDRESS - LOOP ON 



ARE OCTAL): 
RES ARE OK 

ERRUPTED 
2ND CARD 
TIMER 
ITr FROM 35 
AD OF CODE 
ES DESC, 
RR FIELD. 
TO I/O 4 

IF ERRORS 
41 FOR 2ND 
NTERRUPTED 

INTERRUPT 



00643100 
00643200 
00643320 
00643400 
00643500 
00643600 
00643700 
00644000 
00644100 
00644200 
00644300 
00644350 
00644400 

00644750 
00645000 
00645010 
00645020 
00645030 
00645040 
00645050 
00645060 
00645070 
00645080 
00645090 
00645100 
00645110 
00645120 
00645130 
00645140 
00645150 
00645160 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000:0 
0000«0 
0000 tO 
0000:0 
0000?0 

0000:0 
0000:0 
OOOOJO 

0000:0 
OOOOJO 
000010 
0000:0 
0000:0 
0000:0 
0000(0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
OOOOtO 
0000:0 
0000:0 
OOOOtO 
0000*0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
OOOOtO 
0000:0 



PRTC422) 



$ 

SAV 

RESULT 

BET, 



POP r»M ! T 

E PROCEDURE 



»37» 200.157, SN n »240 

UOJ STD»OPDC 26»25»ST0 

Mil OESC 240»37tSTD,M0P 

«4?« 16.LBU 



RESUlJi 



IN 
GO 



TO PCUB]) 



enoj 



STORr DISK ADR FOR READ. SET 240 

TO OPERAND FOR DESC AT 4l 

PUT T/0 DESC INTO 25 

SET 37 FOR BRANCH TO 240 FROM 33 

BRANCH TO 24 To START THE READ? 



START OF SAVE 



* TIMER IS A UOOP ON INTERRUPTS 



00645170 
00645180 
00645190 
00645?00 
00645210 
00645900 
00646000 
SEGMENT; BASE 

00647000 
00648000 
00649000 



0000:0 
0000:0 
0000*0 
0000:0 
0000:0 
0000:0 
0000:0 



ADDRESS ■ 00070 



T 0000:0 
T 0000:0 
T 0000:2 

00647000 
SIZE» 0001 WORDS 



PRT(4?3) * PUNT 

STACKfF-3) » T 

stack(F+i ) ; TM8 

PRTC422) * RSlT 



SAVE PROCEHURE PUNTCI>> VaLUf \i REAL \l 

START OF SAVE 

BFGlN REAL Ts-3; 

Real tmr, kslt.rfsultj 

LABEL, HA'HBj 

Ii. if i«o then t else punter INX II 

STREAM(Qi=»PCO»RDF): i# 

Af«18» D««M«PUNTER INX o)J 
BEGIN OS!" 16 LlT«-SYSTEM HANG* F«"J X104- 

SIl'LOC Q! Sl**Sl+3J 

5(DS:»3 RESET; 

3CIF SB THEN DS* B SET ELSE DS:*RESETJ SKIP SB>>» 

nS»=2 LtT m i n i Si:»IJ 

63CTF Sc*"«- M THEN DS«*CHR)J OSl««LlT w * f, l 

DM'AI 0S»*8 LIT M 29290 + Jf»; X I N I , iNi ,4 , BBW 

ST : » A * nSla44 WDS> 

DP=AJ 01 IkOt 4-81 X IOBUSY- 

DS:*4 LlT»002("» X 0»RTN 

0Ii*lH+?8) X IOCOMPLETE-LOD R,RTN 

DS«s32 LlT^O +A+:2(OU>A4i2COY+A+»2C0*+A+:2C"> 

end; 



00650000 T 0000«0 
SE6MENTI BASE ADDRESS * 00071 



HA t 
HB» 



P(HP2)J 

TMBIb|K60[3I42I6]| 

PcrTMfll.nO); 

DO IF (TMR«»P(MKS,RSLT)) ■ THEN X 10 BUSy 
BEGIN PfMKSpRSLT.DEL)* GO HA END 



UnTIi, TmB.[3J6J.60> 

if tmb. ccf3<i then go to hb> 
if Tmb.cff^o then go to hai 
s set omit = not autodump 

IF NOT HALTSET aNo PUNTER CDUMPADR J«P501 THEN 

BEGIN 

STRC*M<S«"[PuNTER[DUMPcRd]]» D!*?20)J 
REGIN Slt^SJ DSJ«19 WQSJ ENnJ 

r,0 TO P(0»STS»O.STF»[M[P20]])I 



S POP OMIT 

END* 



END! 

DO UNTIL FALSE) 



00650250 


T 


0000:0 


00650500 


T 


0000:0 


00650750 


T 


OOOOSO 


00651000 


T 


0000:0 


00651800 


T 


0003:3 


00652000 


T 


0005:1 


00652400 


P 


000711 


00652600 


T 


000912 


00652800 


T 


0010:0 


00653000 


T 


0010S2 


00653200 


T 


0012(3 


00653400 


T 


0013:2 


00653600 


T 


0015:1 


00653800 


T 


0016:3 


00654000 


T 


0017:1 


00654200 


T 


0017:3 


00654400 


T 


0018:2 


00654600 


T 


0018:3 


00654800 


T 


0023:0 

00652400 


00655000 


T 


0023S1 


00655200 


T 


0023:2 


00655400 


T 


002511 


00655600 


T 


002513 


00655800 


T 


002711 

00655800 


00656000 


T 


002910 


00656200 


T 


0030:3 


00656400 


T 


0032:2 


00656500 


T 


0034U 


00656600 


T 


0034U 


00656800 


T 


003612 


00657000 


T 


003710 


00657200 


T 


003811 

00657200 


00657400 


T 


0039:0 


00657600 


T 


0041 12 

00656800 


00657700 


T 


004H2 


00657800 


T 


004i:2 


00662000 


T 


0042U 

00650250 


SIZ 


E» 0043 WORDS 



t SET OMyr » DATACOM 00689990 T OOOOJO 

$ RfSfT SrPTKTANK 00690000 T 000010 

i POP OMIT 00699990 T OOOOJO 

$ SET pMjT a nqT DATACOM 00699999 T 000010 

S SET nMlT = MoT(DFX) 00999999 T 000010 

SAVE PROCEDURE STArTIoCU)* VaLUE U» REAL UJ FORWARDj 01165000 T 000010 

START OF SAVE SEGMENT! BASE ADDRESS » 001H 
PRTU?4) s STARTIO 

savf procedure complexsnooze c pr i . code ) $ value prii real pri.code) ol?ftoooo t 000010 

start of save segmenti base address » ooih 

PRT(«2b> »s ^OMPLEXSNOOZr 

BEGIN SNOOZE(PRI#1»P(,COOF»LOD))I END; 01240100 T 000010 

01240100 
SIZE" 0002 WORDS 



START OF REL 



DEFINE COMPLEXSLEEP(COMPLEXSLEEPl)*COMPLEXSMOOZE(PRYOR[PtMIX]» 

COMPLEXSLEEPl)#l 
PROCEOUPF USASlTAPFUREA»TYPE»FRQM,u»OlR)l XRHR 

PRTC426) » (jSASITAPF 

VALUE AREA.FROM#U.DIR> REAL AREA . TYPF »FROM, U#D I R I 
BFG?N RfAL PTN,YI 
STACKfF+1) * PTN 
STACKrE+2) = Y 

array ulabi*]i 

STACKfF+3) a UL.A8 

LA8FL EX!T»ERR0R»V0L»8A0»WAIT.TIP*ETIP» 
SUBROUTINE LABELSPACEl 

BEGIN ULApiaCMtSPACECll)3]|10t8l38llO]> 

M0VE(10»ULAB,CCF]-1»ULAB.CCF3)I 
E^D LABELSPACEl 

SURROUTINE VOLlFlLLI 

BEGIN STRFAM(AREA,LILA8)J 

BEGIN 0St*8 LIT « LABEL "I Dll»0l + il Sl»*AREAJ 

Sl*Sl + t II IF SCs" " THEN DS*7LlT"0" ELSE OS4.7CHR; 
DI*0I+37; XMlD 

SIt*AREA| Slt=Sl+5J DS|*5 CHR| ^PHYSICAL TAPE NO. 
END? 

END VOLlFlLLl 

SUBPOUTINF HDR1CHK; 

PFRIN STRFAM(Y:aO»ARFA»X»«0)l 

BFGIN DI«*LOC XI DS«*4 LIT *HDRl"l 
SpsAREAl OI'*LOC XI 

if 4 sc«oc then tallyi«u 

Y:sTALLY| 
CNDJ 



F*D 



Y«*PJ 
HDRlCHM 



SIJBROUTjNf 
BEGIN 



hdRjfillj 

STRfAMf area.ulaB); 

BEGIN Spa.AREA; S I t » S I 4- 4 1 

DU«DI + 17» DS»»7 CHRI IFID 
SI i»S!*i7J OSl*3 CHR| SREEL 
SIi a Sl+ln DS|*5 CHRj XC-DATE 
SI:*SI-8j DS»*2 CHR| XcYCLE 
S I i =* S I + 7 : DSt*5 CHRI XP-DATE 
Oli"DI+l| SI«*SI+2| 
0S»«5 CHRI *BLOCK COUNT 
DSI»7 CHRI XRECORD COUNT 

fNo? 



FND HHRlFlLLI 



SUBROUTINE 
BEGIN 



HARDFlLL* 

pTN|«PRNTABLECUJ,t30ll83> 

STREAM(pTN»AREA»ULAB)l 

BEGIN Sl»=LOC PTNJ Dli«0l+53j 



01240200 


T 000010 


01240300 


T 000010 


01250100 


T OOOOtO 


SEG^fNTi disk 


ADDRESS « 00002 


01250200 


T 000010 


01250300 


T 000010 


01250400 


T 000010 


01250500 


T OOOOtO 


01250600 


T 000010 


01250700 


T 000110 


01250800 


T 000413 


01250900 


T 000811 




01250700 


01251000 


T 000812 


01251100 


T 000910 


01251200 


T 001011 


01251300 


T 001210 


01251310 


T 001412 


01251400 


T 001413 


01251500 


T 001512 




01251200 


01251600 


T 001513 




01251100 


01251700 


T 001610 


01251800 


T 001610 


01251900 


T 001712 


01252000 


T 001812 


01252100 


T 001910 


01252200 


T 001913 


01252300 


T 002010 




01251900 


01252350 


T 002011 


01252400 


T 002013 




01251800 


01252500 


T 002110 


01252600 


T 002110 


01252700 


T 0022*1 


01252800 


T 0022»3 


01252900 


T 0023U 


01253000 


T 002313 


01253100 


T 0024U 


01253200 


T 002413 


01253300 


T 002511 


01253400 


T 002513 


01253500 


T 002610 


01253600 


T 002611 




01252700 


01253700 


T 002612 




01252600 


01253800 


T 0026»3 


01253900 


T 002710 


01254000 


T 002812 


01254100 


T 003010 



DS 
ns 



f-ND J 



*5 DEC* DI»*ULABJ ^PHYSICAL TAPE NO, 

*e lit * label m * 



fnd 



ULAHtn:*MuLTlTABLE[uJj 
HARDFILL* 



LABfLSPACE? 

if fRomm then 

regin vol1fill; 

pcwaiti0(?u0000005»p377»u)»del)» 

PfWAlTlO(AREA iNX *120540000000»»377»U)»OEL)I 

HDR1CHK; 

IF Y THFM HnKlFlLL ELSE GO TO FRROR* 

Pf WaiT jO(P340000005»«»55tU)»DFl')l 
PCWAlTl0(?3aOO00OO5.P55tU) f nE;L) J 
C,0 TO MAI U 
FNO? 

IF FROM a? THEN 

RFGIN IF TYPE»1. THEN 
BEGIN VOLlFlLL* 
VOLt P(HAlTiO(AREA INX 9 \ 205<»0000000. 0377. U ) .DEL) * 

HORl CHK ! 

IF Y THEN HORIFILL ELSE GO TO ERROR; 
P(WA IT iO(P340000005. 0377,U>» DEL>) 
GO TO WAIT* 
END* 

if tyRe*2 then 
regin hdr1fill* 
hardfill* 
go to exit* 

END I 

ENDS 

IF fR0M*3 °R FR0M«4 THFN 
RFGIN IF TYPe=1 THfN 
RFGIN VOUFILL* 

GO TO yOLj 
END* 

IF TYPF»2 OR TYPE-4 ThEN 
RFGIN HDRlFILL* 

HARDFILL* 

GO TO FXIT* 

END* 

IF TYPF«3 OR TYPE*5 T H EN 
RFGIN IF DIR=0 THFN 

RFGIN P(WAlT i 0( 0340000005. P377,U).DfL)» 
P< WA T Ti 0(^340000005. P377,U)»DEL)* 
P(WA T T T 0(AREA INX 0120540000000. 0377. U) , DEL) * 
END ELSE 

P(MfTiO(AREA INX 0120740000000 » 0377, U ), DEL ) * 



01254200 T 
01254300 T 
01254600 T 



01254650 
01254700 



01254 
01254 
01255 
01255 
01255 
01255 
01255 
01255 
01255 
01255 
01255 



01255800 
01255900 
01256000 
01256100 
01256200 
01256300 
01256400 
01256500 
01256600 

01256700 
01256800 
01256900 
01257000 
01257100 



01257300 
01257400 
01257500 
01257600 
01257700 

01257800 
01257900 
01258000 
01258100 
01258200 

01258300 
01258400 
01258500 
01256600 
01258700 
01258800 



800 T 
900 T 
000 T 
100 T 
200 T 
300 T 
400 T 
450 T 
500 T 
600 T 
700 T 



01257200 T 



01258900 T 



0030*2 
0031*0 
0032:1 

01 
0032*2 
003410 

01 
003411 
003710 
003713 
0039*0 
0040*2 
004212 
0044*0 
004610 
0047*2 
004910 
0053*0 

01 
005310 
0053*3 
0055*0 
0057*0 
0059*0 
006010 
0062*0 

0063*2 
006610 

01 
0066*0 
0066*3 
006810 
0069*0 
0069*2 

01 
006912 

01 
006912 
0071*1 
0072*2 
0074*0 
0074*2 

01 
0074*2 
0076*1 
0078*0 
0079*0 
0079*2 

Oi 
0079(2 
008111 
0082*2 
0084*2 
0086*0 
0088*0 

01 
0088*0 



254100 
253900 



255000 



256000 



256800 
255900 



257500 



257900 



258500 



FNn; 



WAIT* 
TlPj 



FRRoR» 



FTlP» 



FXIT! 



uHR1 (* M K * 

if y thfn hdr1filu else go to error? 
hardfillj 

GO TO WA!T| 



END I 



TF TyFFs6 THfN 

begin hdrifill* 
hardfillj 

STRFAMcULAB)! 
BEGIN DI «»ULABi 
OS*»l LIT 

END* 



DI taeQI + 39; 



GO TO F*IT) 



end; 



PTNlsO 
iFf CTW 

GO TO 
PTNlsP 
IF(PTN 
PCWAIT 

STREAM 
R 



OCU) 
FXIT 
TN + 1 
>120 
TOCP 
(T:a 
EGIN 



AND PCRRR)) *0> THFN 

ELSE SLEEP([CLOCK]» NOT CLOCK)! 

* 
* 

)THFN GO TO EXIT ELSE GO TO TIP; 
1200000000. 9377* U)»HEL); 

TlNUtU3»UUAB)» 
SpsLOc T; SI 1=51+5* 
DS»=LIT "#") 0Sl«3 CHRJ 
DS»=22 LIT " INVALID USaSI» RW/L*"; 



BAD8 
END USASITAPFJ 



END J 
$POUT(ULAB.[CF"])J LABfLT ABLE tU] « *?3 14 ; 

tyPe«-oi ptn*o; 

if(ctwocu) and p(rrr)) #0) thfn 

GO TO BAD ELSE SLfEP( r CLOCK ] , NOT CLOCK); 

PTN*PTN + n 

IF(PTN>|20) THEN GO TO BAD ELSE GO TO ETjP; 

MOVEnO»liLAB.rCF3»AREAtCCF])l 

FORGrTSPACE(ULAB.[CF])) 

XRHR 



01259000 
01259100 
01259200 
01259300 
01259400 

01259500 
01259600 
01259700 
01259800 
01259900 
01260000 
01260100 



01260200 T 
01260300 T 



01260425 
01260450 
01260455 
01260460 
01260465 
01260500 
01260600 
01260700 
01260600 
01260900 
01261000 



01261 
01261 
01261 
01261 
01261 
01261 
01261 
01261 
01261 
01261 



100 
150 
160 
170 
180 
200 
300 
400 
450 
500 



0093 
0094 
0096 
0097 
0099 

0099 
0099 
OlOl 
0102 
0103 
0103 
0104 

0104 
0104 



01260400 T 0104 



0104 
0105 
0107 
0109 
0110 
0112 
0114 
0115 
0116 
0116 
0119 

0120 
0123 
0125 
0126 
0129 
0130 
0132 
0134 

0136 
0136 



SIZE» 01 



10 

(0 

10 

10 

10 

01258400 

10 

13 

10 

to 
to 

12 

to 

01259900 
tl 

t3 

01259600 

13 

01257400 

13 

12 

II 

12 

13 

»2 

to 

12 
10 
13 
»3 

01260700 

to 

U 

to 

13 
10 
II 
10 
13 

II 
H 

01250300 
38 WORDS 



PRTC160) = 



TRVHERE 
$ 



SAVE PROCFDURF SNOOZFC NfWPR I , ADDRESS* MASK ) J 

VALUE NEWPRl, ADDRESS. MASK* 

REAL NFWPRjJ 

MAmE ADDRESS! 

ArrAY mASk[*]» 

BEGIN 

REAL TRYHF.RE»NTj ; 



START OF SAVE 



SET nMIT - MoT(NEWlOGGInC) 

label bedenterj 

IF CJ08NUMt*J06NUM+2) 
PRYORtPlMlXl,tFF3* NfWPRI* 



PRT£427) ■ NOTHlNGTOnO 



FOR 



GEO JOBNUMaX 
NFWPRI + U 



THEN PUNT<9)> 



JF 



TRYHERE*JORNUM STfP "2 UNTIL 2 DO 
PEG IN 

PRYQR[fBEDnRYHERFJ*BEDETRYHERE-2]).r3«5]] 

< nfwprt then go to bedfnteR* 

BEOCTRYhERE+1 J * BED[TRYHERE-1] I 

end; 



tFF) 



BEDEmTER: 

BED[TPYHFRE3 *■ PUDDRESS 

BEDITRYHERE + U * MASK? 

ST0PL06(PtM!X» 1)1 
GO TO NOTHINGTOOO» 



& PlMIXt3U3l5]» RDF)J 



fnd slffp? 



02000000 
SEGMENT* base 
02001000 
02002000 
02002500 
02003000 
02004000 
02004500 

02004599 
02004900 
02005000 
02006000 
02007100 
02007200 
02007300 
02007400 
02007500 
02007600 

02008000 
02008100 
02008200 
02008300 
02008400 



T 000010 
ADDRESS • 



00116 



T 000010 

T 000010 

T 000010 

T 000010 

T 000010 

T 000010 

T 000010 

T 000010 

T 000010 

T 000310 

T 000610 

T 000710 

T 000710 

T 000912 

T 0011 II 

T 001313 

02007200 

T 001610 

T 001610 

T 001813 

T 002013 

T 002311 



02009000 T 0023J3 

02004000 
SIZE* 0024 WORQS 



SAVE PROCEDURE I NDEPENDENTrUNnE RC ROUT I NE »P ARAMFTER » SSZ } J 02012000 T OOOOlO 

PRTC4JO, = .NDtPFNntNTRuNNFR "*" "' **" *" HSMT ' "" ""'"^ ' 001 «° 

value r0ut1nf#parameter»ssz> 02013000 t oooolo 

array parameter!*]) 02014000 t oooolo 

real routjne»ssz; 02015000 t ooooio 

rfgtn LSLaTE«= LSLATF+2 ANn slatendjx 02016000 T OOOOlO 

ie nslateslslate then punt(75> 02017000 t 000211 

slatetLSLaTe] «• parameters 02018000 t 000411 

SLATFrLSLATE+l]l»ROUT|NE»SS2cCTF3l 02019000 T 000513 

ENDJS 02020000 T 0008*0 

02016000 
SIZE* 0009 WORDS 



„„ , REAL KFyBOaRDCOUNTpFU 02020500 T 000010 

PRTM31) = KEYBOARncOUNTER ^ ^ 3 " T uuuo,u 

Real procedure keyjN(B)j value b> boolean bj forward;* 02021000 t 000010 

PRT(432) u KEYfN START ° F REU S"^ 11 DlSK ADDRESS « 00007 

S SET OMIT = NOTCDCSPO AND DATACOM ) 02021099 T OOOOlO 

BOOLEAN PROCEDURE WHYSLEEPCMaSK > J VALUE MASK? REAL MASK? FORWARD!* 02022000 T OOOOlO 

PRT(433) * WHYSLFEP START ° F REl SEGMfNT ' DISK AD ° RESS " ° 0007 

LABEL P1PP0CESS.P?PR0CESS|* 02023000 T OOOOlO 

Real oneohone = Pioi.oneomTwo * ?io2U 02024000 t ooqqio 

PRT(lOl) = ONEOHONE 
PRT(102) « ONEOhTWO 

save procfdure runtmix); value mix; real mixi* 02025000 t ooooio 

PRT(4 4) - RUN START ° F SAVE SFGMENT| BASE: ADDRESS » 00149 

BEGIN P1MJX * MIX;* 02026000 T OOOOlO 

$ SET OMIT = NEWLOGGING 02026999 T 000Q13 

• „«» ^ „ STARTLOGCMIX); 02027000 T 000013 

$ pop M * T 02027001 T 000311 

STACKUSE ♦ TRUEJ* 02028000 T 000311 

GO TO EXTERNAL?* 02029000 T 000510 

PRTC435) b rXTFRNAL 

F^'DJ* 02030000 T 000512 

02026000 
SIZE" 0006 WORDS 



RFAL NilMFSSlI 
PRTC436) b NUMfSS 

SAVE PROCFOURF SA VF M J XC M I x ) ; VALUE Mix* REAL MjXJI 

PRTC437) a SAVEM|X 

RFC, IN tndfpfndentrunner(P(.Run).mix»o)J 

$ SFT oMjT = MEWLOGGING 

STOPLO r 'CM|X.O); 
S POP OMIT 

END»I 



02031000 T 000010 

02032000 T OOOOlO 
START OF SAVE SEGMENT! RASE ADDRESS ■ 00155 



02033000 
02033999 
02034000 T 
02034001 
02035000 



T 000010 
T 000U1 
OOOlM 
T 0003*3 
T 000313 

02033000 
SIZE" 0004 WORDS 



SAVE PROCEDURE HAL1I* 02036000 T OOOOlO 

BBT ,„ fl , A1 T START OF SAVE SEGMENT) BASE ADDRESS « 00159 

rKI(tl4U) c HAL' 

BEGIN NOPROCESSTOG * NOPROCESS T OG + 1 1 % 02037000 T 0000*0 

IF P?MIX > THEM 02038000 T 0001*1 

BEGIN P(HP2)JX 02039000 T 0002*0 

$ SFT OMJT = N0TCNEWLOGGING3 02039099 T 000213 

SNOOZrC-lf 1«1)J 02040000 T 000213 

IF P2MIX > THEN* 02041000 T 0004*1 

BEGIN SAVEMIX(P2M|X)I| 02042000 T 0005*0 

P?MIX*0* TOGLE*T0GLE AND NOT hP2MA$K* 02043000 T 0006*1 

END** 02044000 T 0008*2 

02042000 
ENItm 02045000 T 0008*2 

02039000 
F - kDi% 02046000 T 0008*2 

02037000 
SIZE* 0009 WORDS 



PRT(44l) ■ /ILL. 



SAVE PROCFDURE KlLLfA); VALUF A» ARRAY A [ * ] ; % 



REG IN p(64»STSU* 

FORGETSPACECA)!* 
GO TO NOTHlNGTOOOl* 

end** 



CT „ r , 02047000 T OOOOJO 
START oF SAVE SEGMENT} BASE ADDRESS a 00168 



02048000 
02049000 
02050000 
02051000 



T OOOOJO 
T 000013 
T 0001«3 
T 0002U 

02046000 
SIZE* 0003 WORDS 



PRT(<»42) ■ 
PRT(4«3) s OLAY 
PRT(ft<Ki) * 



REAL PBrOUNT; 
PBCOUNT 

BOOLEAN PROCEDURE OLAYCLOC); VALUE LOCJ REAL LOCI FORWARD; 



PROCEDURE SFEKNAM(A,B,C.D,F.N,XLST)J VALUE A.B1 

SEEKNAM 

REA|, A,B.C»D»E.n; ARRAY X t ;ST[*]J FORWARD* 
PROCFDUrE UNHOOQUE(MlX)jX 



START OF REL 
START OF REL 



02052200 T 0000*0 

02052500 T 0000*0 

SEGMpNTI DISK ADDRESS « 00007 

02052700 T 0000*0 

SEGMENT! DISK ADDRESS ■ 00007 



PRTC445) * UNHOOQUE 



STACK(F+1) 
STACKfF+2) 
STACK(F+3) 
STACK(F*4) 
STACK(F+5) 
STACKfF+6) 
STACKfF+7) 



VALUE MIX;X 
INTEGER MIX;X 

BEGIN* 

rfal u»s»sn»t»x»i»procej* 



02052800 T 0000*0 

02053000 T 0000»0 

START OF REL SEGMENT DISK ADDRESS « 00007 

02054000 T 000010 

02055000 T OOOOJO 

02056000 T 000010 

02057000 T 0000*0 



s U 

■ S 

* SN 
s T 

8 X 
= I 

* PROCE 



STACK(F+5) s OLDQ 



NAME OLDQ«XJ 

LABEL DOLP.PELlNKl H 

FOR U*0 STEP 1 UNTIL 31 DO* 
BEGIN* 

lF<SnjN?T[U].tFF])#077777 THEN 
BEGlNX 

WHILE fSN-LOcATQUECS], [FF])5*P77777 dOX 
BEGIN IF fT*NFL/VGCL0CATQUErSNJ)),r3l5] m% 
MIX THEN* 
IF LOCATQUErSNJtCllM] THEN S*Sn ELSE 
BEGIN* 

L0CATQUEtS3*L0CATQUE[SHTCFTFl>* 
RETURNIOSPACECSN)! 



END 
S*SN;X 



ELSE? 



F N n x 



ENo 



end; 



« SET OMJT a NOT OFX; 

D0LPS FOR U*0 STEP 1 UNTIL 3t DOX 
BEGIN* 

IF CS*(T*UNTT[UJ),tFF])''P77777 THEN 
BEGIN? 

TF L0CATQUEtS3,[3l5]«MiX TheNX 

R F C T N K 

IF CX+T,(i3S5))«0 OR X«j6 THEN 

GO DELINKITJ 
IF Xai» THEN* 



02057500 


T 


OOOOJO 


02058000 


T 


0000*0 


02059000 


T 


OOOOJO 


02060000 


T 


0003»0 


02061000 


T 


0003*0 


02062000 


T 


0005*0 


02063000 


T 


0005*2 


02064000 


T 


0008*0 


02065000 


T 


0009*3 


02065100 


T 


0010*1 


02066000 


T 


0013*0 


02067000 


T 


0015*0 


02068000 


T 


0017*0 

02068000 


02070000 


T 


0020*1 

02066000 


02071000 


T 


00204 1 


02072000 


T 


0021*2 

02064000 


02072100 


T 


0021*2 

02062000 


02072200 


T 


0022*0 

02060000 


02072490 


T 


0024*1 


02075000 


T 


002411 


02076000 


T 


0025*0 


02077000 


T 


0025*0 


02078000 


T 


002713 


02079000 


T 


002811 


02080000 


T 


0029*3 


02081000 


T 


0030*1 


02082000 


T 


0033*0 


02087000 


T 


0033*3 



DEL TNK IT t 

$ SFT OMIT s NOT DFX 



BEGIN* 

IF LoCATQUE[S3 f tm»077777 THEN* 
BEGIN* 

1*F IRSTWA ITl X 

WHILE WAlTGUEt U#UX 
DO I * 1+1 AND 31 ; X 

WAITQUEtU** 
WA1TQUECNEXTWAIT*NEXTWAITX 

+31 AND 31 3 ; X 
UN|T[U]*T»P77777[13i?8l20]l 
END ELSE 

UNlT[U3»»T&LOCATQUErS]rFTr]l 

RETURNlOSPACECS)( 

END ELSE 

PR0CE*((U/23 AND U*24) OR X»3) 
AND X#25 OR PROCE* 



FNn? 



end* 
end J* 
if proof then* 

PFG1N* 

SLEEPCfCLOCKJ.NOT CLOCK)! PROCE*OJ GO TO DOLP* 
END»* 



FND UNhOOOUEIX 



02088 
02089 
02090 

02091 
02092 
02093 
02094 
02095 
02096 
02097 
02097 



000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
200 



02105000 
02106000 
02107000 
02108000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



02097400 T 
02097590 T 
02100000 T 

02100400 T 

02101000 T 
02101100 T 
02102000 T 

02103000 T 

02104000 T 



02109000 T 



SIZ 



003412 
0035*0 
0036*2 
003710 
003713 
0038U 
004310 
004382 
0043(2 
0046<0 
0048(1 

02090000 
0048(1 
0052(0 
0052(0 

02100000 
0055(1 

02088000 
0055U 
0058(0 
0060(2 

02080000 
0060(2 

02078000 
0060(2 

02076000 
0062(3 
0063(0 
0063(2 
0066(2 

02106000 
0066(2 

02056000 
£9 0067 WORDS 



DEFINE PSF*3«4*» 

TERMSF TfTFRMSFTl )*(pRTROW [TFRMSFT 11 

NOTFRMSrT(NOTFRMSETl )= ( PRTROW f NOTFR 

TFRMROlNGf TFRMRO!Np,l)«(PRTROWrTFRMG 

BRFAKSETf RRfAKSfTD = ( PRTROW rBREAKSE 

SToPSETfSTOPSET^BfPRTRoWrSTopSETl] 

real, procedure getfspdisk;forward;x 



,[6j n»i)#» 

MSETl],t6H3 NEO 1)#» 

OlNGl],rP5F3«3)#, 

T1].[PSFJ«4>#» 

.rPSF]»2)#; 



02110050 
02110100 

02H0200 
02110250 
02110260 
02H0300 
02111000 



PRT(446) * 

PRTC447) * 

PRTC450) m 

PRTf451) = 

PRT(45?5 * 

PRT(453) * 

PRTM54) s 



RETFSpDISK 

PROCFDUrF 

CHANGEMCP 

PROCEDURE 



X139- 
START OF REL SEGMENT! DISK ADDRESS m OOOlO 



000010 
0000:0 
000010 

OOOOtO 
OOOOtO 
OOOOtO 
000010 



chanGemcpcktr); value ktri real ktr; forward? 



START OF REL 



CHANGE INTRINSfCFTl.E(KTR)l 



CHANGF1NTRINSICFILF 

* SFT OMjT * NeT(DFBUGGING) 
REAL PROCEDURE ANALYSIS; FORWARD* 



VALUE KTR> REAL KTRt FORWARD! 

START OF REL 



ANALYSIS 

PROCFDURF 



SHORTCOMMUNICATEJ FORWARD! 



shortcommunicatf 

procedure continuitybit; forward; 



CONTI 
CCTRL 



NUiTYR 
REAL C 
WORD 
DEFINE 



REAL R 
READERA 
READFRB 

S SET 

ARRAY 

PRT(«5f) ■ PSEUDO 

ARRAY 

PSEUDOMIX 

NYLONZIPPFR 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

t POP 

PROCE 



PRTM55) s 
PRT(456) m 



PRTC460) * 
PRT(46I) * 



IT 
CTBLWORDI 

CCCOUNT « CC 

CCTRLAODR ■ CC 

EADFPA.READERRJ 



OMjT s NOT(PAC 

psFUDor*]; xpsf 



START OF REL 
START OF REL 
START OF REL 



02111100 T OOOOJO 
SEGMENTi DISK ADDRESS « 00010 

02111200 T OOOOtO 
SEGMENT; DISK ADDRESS « 00010 

02111299 T OOOOJO 
02111400 T OOOOtO 
SE6MFNTI DISK ADDRESS « 00010 

02U1500 T 000010 
SEGMENTI DISK ADDRESS ■ OOOlO 

02H1600 T 0000*0 
SEGMENT! DISK ADDRESS « 00010 

02112000 T OOOOtO 



TRLWORD.rFFl** 
TBLWORD.rCFl*! 



KETS) 

UDOMAXl 



02112100 
02112200 
02H2500 



02H3079 
02113080 



000010 
OOOOtO 
OOOOtO 



T OOOOtO 
T OOOOtO 



PSFU00MJX[*J, NYL0NZiPPfR[*3> XMjXMAX 



02H3085 T OOOOtO 



packetpagecpac 
packetrecipack 
packetpbotpack 

PACKETACTtPACK 
pACKETERRCPACK 
PAGESIZE«300#! 
PAGFFULL«fPAGE 
OMIT 
DURE MESSAGEWRI 



ketpageii*pseu 

ETREC1 ]»pSfUDO 
ETPBDU*PSEUD0 
ETACTi ]«pSFUDO 
ETERRl J.pSEUDo 
% SAME 
SIZE DIV 3)x5- 

TERJ* 



D0[PACKETPAGEl].t22t26]#; 
rPACKETRECl].tl8l3]#l 
rPACKETPBDll,[8tlO]f; 
rPACKETACTU, t2t61#l 
tPACKETERRl J,[IU]#I 

AS PBDROWSZ AT 08699100 
40# J % ALLOW FOR 8 INFO RECORDS 



*732' 



0211 
0211 
0211 
0211 
0211 
0211 
0211 
0211 
0211 



3086 
3087 
3088 
3089 
3090 
3091 
3092 

3099 
4000 



OOOOtO 
OOOOtO 
000010 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 



PRTC462) « MESSAGEWRITER 



STACKfF+O) 
STACKfF-2) 

STACKfF+1) 



a RCW 
= MSCW 



S SFT OMIT 



BFGIN REAL RCWs+O, MsCW*"2| 



Real t«+i;x 

LABEL L»X 
P(0)> 

N0T(DCSP0 and daTacom 



START OF REL SEGMENT; DISK ADDRESS ■ 00010 

02115000 T OOOOtO 



02116000 T OOOOtO 



021 17000 
02H8000 
02H9009 



OOOOtO 
OOOOtO 
OOOOti 



S SET 0M1T = ncSPO 
LI 
$ POP 0M?T 



P(WATTlO(MFSSAGrHOLDER INX 1»0>25>)I 
P CDEL)J3! 

NUMfSS * NuME"SS-i;X 
T * MrMFSSAGEH0L0FRJ.rl8U5]l 

forgetspacfcmessageholdfr [NX 1)1 

IF T * THEN* 

BEGIN MESSAGFH0LDER.t33»l5] * TJX 
GO TO LX 

END>* 

mfssageholder + Ot% 

KiLLcrMSCW])? 



fnd;* 



0?n90l9 
02119020 
02U9021 
02120000 
02121000 
02122000 
02123000 
02124500 
02125000 
02126000 
02127000 
02128000 



02129000 T 
02130000 T 
02131000 T 



T 0000»1 
T OOOOU 
T OOOOU 
T OOOOU 
T 000210 
T 0002U 
T 0003»2 
T 0005»2 
T 000613 
T 000712 
T 0009U 
T 000913 

02126000 

0009*3 

001012 

001111 

02115000 
SIZF* 0012 WORDS 



STACK f F-4> 
STACK(F+1) 



S 

MKSCW 

MIX 

S 

$ 



* SET OMIT = NOTCDCSPO AND DaTaCOM ) 
S SFT OMjT = PACKpTS 
S SFT OMiT s NOT(PACKETS) 
PROCFOUPE SP0UTrR(MESSAGE»UNlTN0»TYPE)8 

VAI..UF MESSAGE»UNlTNO,T¥Pr> 
RFAl MESSAfiE.UNlTNOfTYPfl 
POP OMfT 

BEGIN REAL MKSCWsMESSAGE" 1 I 



STACK(F+2) * LET 



S 

$ 



STACKrF+3) = PSD 

STACK(F*4) a PSW 

STACKfF+5) = Y 

STACK(F+6) * 7 

STACKfF+7) s BR 

STACKfF+lO) = NTl 

STACKfF+11) s R 

STACKfF+12) • S 

STACKfF+13) = T 

STACKrF+lA) * BUF 



I 

$ 



$ 
$ 

$ 

$ 



START OF REL 



02131005 
02131999 
02132299 
02132300 

segMfnti disk 

02132400 
02132500 
02132501 
02133000 



000010 
OOOOlO 
000010 
OOOOtO 



SET 
SET 



POP 
SET 



INTEGER MIX* 

OMIT s NOTCDATACOM AND DCSPO ) 
OMIT = (DATACOM AND DCSPO 
INTEGER LFT; 



OMIT 

OMIT 



i SFT OMIT 



POP 
SET 



SET 

SET 

POP 
SFT 



OMIT 
OMIT 



OMjT 
OM?T 

OMiT 
OMIT 



NOT(PACKETS) 

DEFINE PACKETFRFE*PSEUD0[UNiTN0],t21»l]#i 

packetmask«*4000000 00*| 
Real psd»psw,y»z»bb> 



*950- 
*950- 

1950- 



INTERE R NT1»R,S,T; ARRAY BUF[*3J 



not(datacom and dcspo) or omit 

ri=unitno,ccf]i unitnoi*o; 

IF RsO THEN if P1MI**0 THEN R«=PSEUD0MlXrPlMIX3; 
IF R>31 AND R<6Q THEN UNITN0«*R; 

NOTCOATaCOM AND DCSPO) 

message ♦ pc .message»lod) »c33i 153-nx 

MjX * MrMFSSAGE-l].[9i6]; 
NOTCDATACOM AND DcSPO ) 
NOT(PACKETS) 
IF TYPE THEN 

NOTCDATACOM AND DcSPO ) 

BEGIN 

IF MFSSAGEHOLDER = THEN* 

BEGIN MFSSAGFHOLDER * MESSAGE** 

IN0EPfN0ENTRUNNER(P(,MeSSAGEWRiTER>.0,64)I 

end» 



*?03- 



ELSe MrMESSAGEH0LDE R .rl8«l5]].[l8ll53 
MrMESS.AGC]*0»MIXt4*«3l5]l 
MESSAGEH0LDER.[i8:i5] «■ MESSAGE!!! 

END) 

MrMESSAGE-13.[9:6] ♦ 01% 



* MESSAGE* 



ADDRESS « 
T OOOOlO 
T OOOOlO 
T 0000*0 
T OOOOlO 



00011 



02133010 T OOOOlO 



02133011 
02133122 
02133123 

02133124 
02133129 
02133130 
02133140 
02133150 



02133279 
02133300 
02133350 
02133380 
02133381 
02133499 
02134000 
02134005 
02134008 
02134889 
02134890 
02134891 
02134899 
02134906 
02135000 
02136000 
02137000 
02138000 



02139000 T 
02140000 T 
02141000 T 
02141020 T 

02142000 T 



OOOOtO 
OOOOlO 
OOOOlO 

OOOOlO 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOlO 



02133200 T OOOOlO 



OOOOlO 
OOOOlO 
000510 
000812 
001112 
001112 
001112 
001312 
001610 
001610 
001610 
0016H 
001611 
001611 
001613 
001712 
001813 
002010 

02136000 
002010 
002311 
002513 
002710 

02134906 
002710 



MtMES SAGE" 1J. [ARE ATYPfF] 
IF P(MKSCH t (33»l5].DUp) 
BEGIN > 
STReaM(N*0IX*MfSSaGE+1 )! 

BEGIN Si «■ Xj* 
Ll IE SC * "-" THEN* 
BEGIN IF 5C= 
8B« 



»« SPOUTMSGAREAVJ* 

* o then* 



X167- 



IF 



* " THEN* 
BEGIN SI* Sl+lJ 

IF SC*" " THEN GO BB) 

if sc * alpha then* 

BEGIN SI * Sl-il* 

OS *■ CHRJ* 
END ELSE GO TO LI* 



END)* 

SC ■ *14 THEN* 
BEGIN OS «■ CHRIX 
G* IF SC a ?14 THEN* 

BEGIN SI * SI+1IX 
GO TO QJ* 

end;* 



DS 
N , 



END)* 



fNdJ* 

♦ CHR** 

on 



DS 
GO 



END** 

♦ CHR1* 
TO LlX 



GO TO LJX 



NT1*P»NT1*((NT1.C33I15)-CMESSAGE+1))x8+NT1,[30I3])k6| 
END ELSE NTl * P x 6l 

$ SET OMIT a NOT(PACKETS) 

IF UMTNO*0 T HEN IF PACKETPAGFt UNI TNO-32 3 >1 THEN 

BFGIN UNITN0|»UNITN0-32I 

IF NOT PACKETFRFE THEN SLEEP( [ PSEUDOtUNI TNO ] ]• PACKETMaSK ) 1 

IF (PSDI*PACKETPAGECUNITN0])>1 THEN 

REGIN * JUST TO Be SURE 

PACKETFREE'sFALSEJ 

Z:=IF (PSWJ»PACKETREC[UNlTNO]) THEN 60 ELSE 30; 

Sl=( f Y«xiF NT1>725 THEN 120 ELSE NTl DlV 6> + 7) DIV 8| 

RUF t*rM[T;=SPACE(7 + S)]]4Zl8l38M03; 

MrBUF-?].[9l6] JbOj 

STREAM(NI«S»AA»»NESSAGE+1»BUFI»BUF inx Z)J 

begin siimAai dsun wos end* 

DISKWAIT(-T,Z»PS0+PSW oiV 2)* 
Rj=(PSWxi8) MOD 30* 

IF (BB»«BUF[R+t73.£CF]) GEO PAGEFULL THEN 
BEGIN STREAMfBUF»»[BUF[R] J)l 

BEGIN 0SI-12L1T" "J 

DS:=?8LIT»ALL FURTHER MESSAGES LOST «* 



02142100 
02143000 
02143050 
02144500 
02145000 
02146000 
02147000 
02148000 
02149000 
02150000 
02151000 
02152000 
02154000 



02155000 T 



02156000 
02157000 
02158000 
02159000 
02161000 
02162000 

02163000 
02164000 

02165000 
02167000 
02168000 

02169000 
02171000 
02172000 

02173000 
02173050 

02173069 
02173075 
02173080 
02173085 
02173087 
02173088 
02173090 
02173095 
02173100 
02173110 
02173120 
02173150 
02173160 

02173210 
02173220 
02173230 
02173240 
02173245 
02173250 



C 003011 

T 0033*2 

T 003510 

T 0035*2 

T 00371 1 

T 003712 

T 003810 

T 003812 

T 003813 

T 0039*2 

T 004010 

T 004011 

T 004012 

02151000 
004110 

02148000 
T 004110 

T 004112 

T 004113 

T 0042*1 

T 0042«2 

T 0042*3 

02159000 

T 0042*3 

T 0043»0 

02157000 

T 0043*0 

T 0043*1 

T 0043*2 

02147000 

T 0043*2 

T 0043*3 

T 0044*0 

02145000 

T 0044*1 

T 0049*0 

02143050 

T 0050*2 

T 005012 

T 0053*3 

T 0055*2 

T 005813 

T 0061*0 

T 0061*2 

T 0064*0 

T 0067*2 

T 0072*1 

T 0077*0 

T 0080*2 

T 0083*0 

02173160 

T 0084*0 

T 0086*2 

T 0088*1 

T 0092*1 

T 0093*3 

T 0095*2 



END 



2(0! t*ni+4S)> DSja6LlT , Mx5908 w ; 
FNOJ 

PACKFTPAGEfUNlTNO]l«ll % TO MARK OVFRFLOW 



else bfgin p( 9 1 540005000l00000&( bb*1) t ctc j ) * % pbdstoppfr 
if psw=o then 

BFGIM PfBUFt?9],XCH)» 

P([BUF[29]],STD)I 

0lSKwAlT(T,30.PSD+5)> 
P([BUFt29]),STU); 

END ELSE 

Pf [BUF[R-1]3#STD)» 

Bl'F t R+17 ]<b?15« 0000 1040000004 BBtC TCI* 

(S + 2 + (M[BUF INX Z3 ,[1*53# W > ,, ))C8I38» 103J 
F0RMTIME([LFTJ»XCL0CK*P(RTR))1 *1 54- 

STRFAMCN:»S-l»CLl«Sx8-Y»AAJ«BUF INX Z»BB I* LFT.X154- 
BUF»*CBUFtR33 )J *154" 

BEGIN OS »= 7 LIT " "J Si !■ LOC BBJ DS :« 8 CHR| 

DS »a 9 LIT M "I Si I* AA* *154- 

IF Sc* M > M THFN DS»b8 CHR ELSE 
BFGIN DH«0I-8J 6C IF SC*">" THEN DSl*CHR ELSE 

BFGIN DI ««ni + ll SM»SI + 1> END)* 

FNDJ N(DS»a8 CHRJJ D I > *D 1 -CL; AA»*DTJ 

SMsAAJ Su«si-i; 

IF SC* M * W THFM BFGIN DllsDl-U DSIfUIT" "J END* 

Ct(DS!*LlTw »); 

endjend; 



0ISKWA!TCT»2.PSD+PSW DIV 2M 
IF PACKETPAGFtUNITNOJM THEN 
IF PSK'»0 THEN 

BEGIN PACKETPAGF[UNITNO]I»PSO+3I 
PACKETRECrUNlTN03»»4j 

END FLSE 
PACKFTRECtUNjTNoJ »«PSw-1 * 

packetfrff'*truf* 
forgftspacecbuf)J 

END? % JUST TO BE SURf 
END* 

if not type then begin forgetspacec message* 13 * p(xit)i 

endj 

8 POP OMfT 

TOTlMEfPlMlX) «. *P(DUP)+NT1JX 
$ SET OMIT « NQT(DCSPO AND OATACOM ) 
$ SET OMIT = DCSPO 

IF (NUMESS* NUMfSS*1)>0 THEN 



02173255 
02173260 

02173265 
02173270 

02173275 
02173280 
02173282 
02173284 
02173286 
02173288 
02173290 

02173292 
02173294 
02173296 
02173297 
02173300 
02173301 
02173305 
02173306 
02173310 
02173315 
02173320 



02173325 T 



02173330 
02173335 

02173340 
02173345 



02173350 
02173360 
02173362 
02173364 
02173366 
02173368 

02173370 
02173375 
02173380 
02173383 



02173385 T 



02173389 
02173390 

02173391 
02174000 
02174005 
02175002 
02175003 



T 0099 M 
T OlOlJO 

02173245 
T OlOlM 
T 010313 

02173240 
T 010313 
T 0107U 
T 0108:0 
T 0l09«l 
T 011010 
T 0111 » 3 
T 011212 

02173282 
T 011212 
T 0U5M 
P 0117*0 
C 012210 
P 012312 
C 012710 
P 012713 
C 0129*2 
T 0131*1 
T 013211 
T 013313 

02173320 
0134:2 

02173315 
0136(1 
013613 

02173335 
013810 
013911 

02173305 
02173275 
013912 

01*113 
014311 

014412 
014810 

0150*2 

02173364 
015012 
015510 
015712 
0158*2 

02173086 
015812 

02173080 
T 015812 
T 016110 

02173389 
T 016110 
T 0l6l»0 
T 016310 
T 0163*0 
T 0163»0 



$ POP QMjT 
S SET OMfT 



BEGIN 

notcdatacom and DCSPO ) 

SLeEPC[NUMfSS]»-0)JJH 

fnd; 



fndj* 



02175004 T 0164«3 



02J75010 
02175020 
02176000 
02176100 



02177000 T 



T 0164J3 
T 016511 
T 016511 
T 016710 

02175010 
016710 

02133000 
SIZE" 0J68 WORDS 



PROCEDURF ENDOrDErKCR»TUSTA);VALUE R,TUSTA; REAL R»TUSTA; FORWARDI 02177100 T 000010 

START OF REL SEGMpNTJ DISK ADDRESS « 00017 
PRT(463) * FNDOFDFCK 

PROCEDURE PBTOrA.B)? VALUE AJ REAL A»BJ FORWARD* 02178500 T 0000;0 

START OF REL SEGMENT} DISK ADDRESS ■ 00017 
PRT(464) a PBIO 

REAL TERMiNALCLOCKJ 02179000 T 000010 

PRT(465) * TERMINALCLOCK 

PROCEDURE TERMiNATECMlX); VALUf Mix) REAL M I X J J! 02180000 T 0000»0 

START OF REL SEGMFNTJ DISK ADDRESS • 00017 
BEGIN IF MJX LEQ ThEM BYBYC'MCP DS-ED*"» 10) J 02181000 T 000010 

02181000 
02181000 

IF JARROWfMIX] NFQ ThEN 02182000 T 000612 

BEGIN 02183000 T 0007»2 

IF NOTfRMSET(MIX) ThfN 02184000 T 0008»0 

REGIN 02185000 T 00091? 

TERMINAlCLOCk»»ClOCK*P(RTR)J 02185900 T OOlOlO 

PRTROWtMlX],[FF]J=MlX,[FF)> 02186000 T 001111 

PRTR0W[M!X],[PSF3««1» 02186050 T 0013*3 

END» 02186100 T 001611 

02185000 
END? 02186300 T 001611 

02183000 
END?* 02187000 T 001611 

02181000 
SIZE" 0017 WORDS 



REAL PROCEDURE PLACEF I NDERC S . A' L)i 
PRTC466) s PLACEFlNOFR 

value s» a j 
rfal s* a» li 
forwaRoj 

ARRAY CTnROWr*]»ClOTABLE«ClDROHf *»*]! 
PRT(467) k riDROW 
PRT(467) a ClDTABLE 

PROCEDURE TFRMINAlmESSAGacn)} VALUE N! REAL N! 

PRTC470) o TERMINALMESSaGA 

begin label founo* do t t » owt# to i t ! 
Real a»t»s»adR!s 

STACK(F+1) a A 

STACKCF+?) = T 

STACK(F+3) x S 

STACKeF+4) r ADR 



START OF REL 



02187100 T OOOOaO 
SEGMpNTl DISK ADDRESS * 00018 



02187200 T 
02187300 T 
02187400 T 
02187500 T 



000010 
000010 
0000)0 
000010 



START OF REL 



02188000 T 0000 »0 
SEGMENT! DISK ADDRESS « 00018 



STACKfF+5) a B 

STACKCF+6) = FIB 

STACKfF+7) a BLEN 
STACK(F+10) ■ NBUF 

STACKfF+11) ■ MJXER 

STACK{F+12) = TOPIO 

STACKfF+13) s LUN 

STACKlF + M) * L 



NAME BJ* 
ARRAY FIB[*]| 
REAL BLFN>NBUF! 

PEAL MjXER#TOPTOiLUN»L;« 



STACKfF+3) = I 



INTEGER I»Sl LAREL 07!* 



LABfL STT1X 

SUBROUTINE SLAPlTOFFl* 
IF LUN GEO 32 THEN 

s set omit * packets 

ELSE 

BFGIN SLEFPaiOSLF]»sTATUSMASK)l 

Rfady «• not (i «. twOclun)) and Ready!* 

RRRMFCH «- NOT I AND RRRMECH OR I AND SAVEWORDJ* 

LABELTABLEtLUN] ♦ *114J« 

MULTjTABLEtLUN) * RDCTABLEtLUN ] * OJX 
END!* 

LABEL LB»LBj;S 
$ SET OMIT * NOT(NEWLOGGING) 

N0MEMI»N0MEM-TAR[P1M1X], [20113! X I F THIS JOB HAD A NOMEM 
TARCP1HIX],[20H Jl«Ol XCONDITION - CLEAR IT 

UNLOCKTOG(TAR[PlMlX])! 

RFPLY[PlMlX]*0!X 

PRTROWCPlMIX].[PSF3l«3i % IN PROCESS OF DSING 

PRY0R[PlMlX3*-l! 

A * IF N < THFN ABS(N) ELSE SPACEUOm 

IF N*32 THEN JARt P lMl X» 63 » U ) 1 3 *1 * X MEM PAR 

B «• PRT[PlMlX#4]!X 

IF P(MtL*PRTrPlMlX»8 3.[CF3 3,TOP#XCH#DEL)THEN 



02189000 
02190000 



T 0000)0 
T OOOOSO 



02191000 T ,0000*0 

02191500 T 000010 

02191600 T 000010 

02192000 T 0000«0 





02193000 


T 


0000)0 




02194000 


T 


OOOOlO 




02195000 


T 


000010 




02195100 


T 


ooouo 




02195199 


T 


000U3 




02195300 


T 


OOOt > 3 




02196000 


T 


000211 




02197000 


T 


000411 




02198000 


T 


000613 




02199000 


T 


000911 




02200000 


T 


0010«2 




02201000 


T 


001213 

02196000 




02202000 


T 


0013*0 




02202049 


T 


0013»0 


MEM 


02202100 


T 


001310 




02202200 


T 


001912 




02202500 


T 


0022)0 

02202500 




02203000 


T 


002610 




02205000 


T 


002711 




02205100 


T 


0029(3 




02206000 


T 


003111 


X949- 


02206100 


C 


0035)3 




02207000 


T 


0040(0 


STR 


02208000 


T 


0041»2 



S*-AOR«-0 Et-SE 
DO BfGIN !F P(MfL.]»TOP»XcH»0«INX.,AOR»*) THENX OVERLAID 
BEGIN IE NOT M[L],[33lll THENXNOT TYPE 13 INT 
BEGIN S*ADRJ XSEGNO IN RCW 
T*OIADR*M[MCL).MOM],[CF]l X AND THE MSCW 
END FLSE S--1) 

END ELSE X ITS PRESENT: WEVF GOT TO WORK 



BEGIN 



T*T+2> 



t*o; 

while (Si»mct].ccfi) lss adr do 
if s>t then tl*s else puntc3)! 
s*|f m[t3,[areatypef]»codeareav 

M[T*1].[CF] ELSE 01% 



THENX 



END> 



XTR 
RCWTR 



XTR 



XTR 



XTR 



X167- 

X167- 

XTR 



IF PRT[PlM|X,8],tCF]^L OR M[L-1 J , MSFFXSTACK jS MARKED 
THEN DO L*M[L3»MQM UNTIL NOT M[ L J , MSFF J XGET LAST MSCW 
L*M[L],MOMi«POlNT L TO NfXT RCW»JUST IN CASE. XTR 
END UNTIL (IF S#0 THEN IF S«(-l) THEN ELSE 

(BtO]<S OR NOT BtSl.PBlT) 

else (p{m[t-2]»t3h2]»dup)#p700 and p( xch ) #p1 500) ) i 
found* adR * adR-t;x 

TtsPLACEFlNDERfS»ADR»S); 

if n rtr o then 

BEGIN 

B «- pMrSPACE(TFRMSGSZ)]]! 

DfSKWAlT(-(B INX ) , TeRMSGSZ » MESSAGETABLE t H . [ 22 « 26] ) I 

END ELSE N»sOJ 

STREAM(Z»*NstO»Xl»T»TJs6.J«*[JAR[PlMlXfO]]» 

P1MIX» INDX«.PRTCP1MIX»8] INX NOT 2 INX Ot 
DSZE«-IF P(MtP(DUp) + l ]»TOP) THEN P ELSE P, TBI 1 OJ» 
TOG«-(N*f)» Q*[B[N)]» A)l 
BEGIN CI ♦ Cl+Zl GO TO LUX 
DSteLlT "-"> SI »sQ* 
LJ SHaSi + H 

IF SC ■ M 8" THEN Sll*Sl+l ELSE 
BEGIN AI*DI J DI l*LOC T) 

nStsOCT; DI»*AI 
END> 



Lit 



DSjsT chRJ 

IF TOfiGLE Then go to LJ 

DS «• LIT " "I GO TO L2IX 

si «- m% 

IF SC * "*" THENX 

BEGIN SI * Sl*l* A ♦ 
GO TO LUX 

fNojx 



Sill 



L?»X 



DI 

Si 
Si 



AIX 

Jl SI 
SI + 1J 



♦• Sl + ll DS «■ 7 
DS *■ 7 CHRl DS 



CHRI DS 
* LIT "i 



•• LIT 
"|X 



*V"|X 



02209000 
02210000 
02211000 
02211010 
02212000 
02212100 



02214000 
02215000 
02215500 
02216000 
02216010 
02216100 



SI*LOC PlMiX| DS*2DECI A*DII 



02216510 
02216600 
02217000 
02217100 
02217200 
02217300 
02218000 
02219000 
02220000 

02221000 
02222000 
02222200 
02223000 
02224000 
02225000 
02226000 
02227000 
02228000 
02229000 
02230000 

02231000 
02232000 
02234000 
02235000 
02236000 
02237000 
02238000 

02239000 

02240000 
02241000 
02242000 
02243000 
02244000 



02216200 T 

02216300 T 

02216400 T 

02216500 T 



0045 
0046 

0049 
0052 
0053 
0057 



02213000 T 0058 



0058 
0060 
0063 
0066 
0068 
0072 

0073 
0076 
0082 
0084 

0088 
0089 
0095 
0097 
0098 
0099 
0100 
0103 
0107 

0108 
0110 
0113 
0116 
0118 
0119 
0120 
0120 
0121 
0121 
0122 

0122 
0122 
0123 
0124 
0124 
0124 
0125 

0125 

0125 
0125 
0125 
0127 
0128 




3 

3 

1 
1 

2211010 
3 

2211000 
3 


3 
3 
2 

2214000 
3 
2 
3 
3 

2210000 
t 
1 
3 

3 
2 

2 

02217300 
t 
3 
1 
2 
2 
1 

1 
1 
3 
1 

2228000 
1 
3 
1 

1 
3 
1 
2 

2237000 
2 
3 
3 





DI*DI-2j DS*FILLi DI*A; 

s i * =x ; ds:*2o chr; a«*dii 

togcd?*a; ns*2 lit "» *; a*di; si •• i ndxi 
skip sb> if sb then begin di«-indxi 
skip db; os»rfset; di*a; tog*tally; 

qS*12 LIT w EFF 1NX IS -"I END! 

A*DU SI*INDXJ DI*LOC Qi DS*8 DECl 

SUL.OC «; 7 c I F SC> M 0* THEN JUMP OUT; 

TaLLY*TaLLY*11 SI*SI+1)I Dl*Al 

t+tally; ds*8 chr; di*di*t; 

T(DS*LiT m ")l Ol*Dl-TJ A«-DI); 
TOr,fSi«-LOC DSZE! Dl*LOC Ql DS*4 DEC; 

r)I*AI DS*5 LIT " GEO "I SI*LOC Q; 
TALLY*OJ 3CIF SC> w O" THEN JUMP OUT; 
TALLY*TALLY+1J SI*S1+1)I 
T*TALLY> DS*4 CHRI OI*DI»TJ 

TC nS*L |T " M )l DI*DI-T» A*DI)J 
Dl * A* DS * LIT »*•»;* 
fc"NO»* 

IF N#0 THEN FORrETSPACE(B)> 

s*a; 

streamcb*s»a*a*spacecl7)}jx 

rfgin 17c0s-8 l|w")| si*b»di*aidi*di+8|0s*2 lit" "1% 
i7(8(ir sc*"+" Then ds*chR else jump out 2 to lj)) * 

Ll« dS*2 LfTti »|j 

end;? 

spoutcS); 

IF not tfrmgo then begin haltjx 
complexslefP(-ioo«numesS);x 
accidental fntry at numfss 

do until kfytncO)»i; 

noprocesstog «■ noprocesstog-i; end;x 

JAR[PlMlXfU ♦-JARtPlMIXtllll 
UNHOOOUECPlMiX);! 

mixer* P30o+pim,x;% 

if n*35 then x es-ed 

if jar[P1mix,9].sysjorf * prnpbtcode then 
if (li»prt[p1mix»?25]> * then 

BEGIN *675- 

IF (LUN*L.C41»5])<16 THEN SLAPlTOFFl X675« 

LUN«-L,[46»2] + 19; % LPA# LP8» OR CPA X675" 

SLAPITOFF; %675' 

end; % PRNPBT/DlSK ESfD« to clear units, 

STTi t*mstaRt;ss 

whilfcl*t.[cf])/o dox 

if (t*m[l3),[3i1?]»mixer and t>ox 

thfnx 

BEGIN LUN «• (TOPIO - NfLAgC Mt L + ? ] } ) , [ 12 |6 ] ! 

if i. UN >32 then 

BEGIN 

FILECLOSECTOPIO I NX 0)1 
GO TO stt; 



02244500 T 012813 



02245000 
02251010 
02251020 
02251030 
02251040 

02251050 
02251060 
02251070 
02251080 
02251090 
02251100 
02251110 
02251120 
02251130 
02251140 
02251150 
02252000 
02253000 

02253050 
02254000 
02?55000 
02255100 
02255200 
02255500 
02256000 

02256500 
02257000 
02258000 

02258100 
02258200 

02259000 
02260000 
02261000 
02261050 
02261100 
02261200 
02261250 
02261300 
02261350 
02261400 
02261750 

02262000 
02263000 
02264000 
02265000 
02266000 
02266100 
02266200 
02266300 
02266400 



T 012912 

T 013011 

T 0132*0 

T 0133*0 

T 013410 

02251020 

T 013513 

T 0136J3 

T 013811 

T 0139U 

T 0140U 

T 014212 

T 0143 (3 

T 0145*1 

T 014613 

T 014712 

T 014812 

T 0150*3 

T 0l5l»2 

02224000 

T 0151 : 3 

T 0153*3 

T 0154*2 

T 015712 

T 0160*2 

T 0163M 

T 016313 

02255100 

T 0164J0 

T 016511 

T 016711 

T 017310 

T 017413 

02257000 

T 017610 

T 017813 

T 017952 

T 018013 

T 018112 

T 018410 

C 016612 

P 018710 

C 019010 

P 0191 13 

T 0193J0 

02261250 

T 019310 

T 0194M 

T 019612 

T 019912 

T 0200;0 

T 020313 

T 020412 

T 020510 

T 0206M 



end* 

!f un it clijn 1 , [ 1 31 5j = p20 
Then begin* 

Q7?X 

slapitoffj 

UNlT[LUN],[13»5]|»P20l» 
FORGETSPACFCL INX 2)JX 
GO TO stt;x 
END ELSE 



PFGIN T «■ 0) 

FIB ♦ MCTOPIO INX NOT 23) 
ADR «• NBUE «■ FI8M3J, [1193-H 

IF P(M[TOPl03.[3l5J»nUP)»2? OR P(XCH)*26 



MARK IT NOT READY ANYWAYS 



BEGIN 
TO IT I 

DOIT) 



FOR S - 1 STEP 



IF 
IF 



NOT M[T0PI0 

LUN<18 THEN 
BEGIN 



THEN 
1 UNTIL ADR DO 
INX S], [19113 THEN 



MCTOPIO INX S3, [20113 * 01 

MCMHOPlO INX S3 INX 17] * M[TOPjO INX S3 

& FIBC5] [FTCJ? 
FIB[53 * P(DUP»LOD»0» 1»CFX,+)J 



IF 



NOT PRTR0W[PlMlX3,miJ THFN 

IF FlB[14j,CCF]»FlBtUl.CFF] THEN 

BFGIN PBIOCTOPIO INX S»FIBC14l)l 

SLEEPCfMfTOPIO INX S3 J * IOMASK) J 
END ELSE 

BFGIN STREAM(C*M[T0PI0 INX S]» 
Z*FIB[H3,[FF3)I 

BEGIN SI ♦ CJ DS * 18 WDSl END; 



FIBtl4],[FF3 * P(DUP).tFFJ-l8) 



END> 



END ELSE 



BEGIN IF WaITjQ(M[TOPiO JNX S3 t 9357, LUN ) . [45 I 1 3 

Then go owt; 

FIB[6] * *P(DUP)+i; 

END* 

if adr<o then 

begin if adr then fi8c x 73 * blen) go owti 

END? 

S * 01 

IF FIBU73 < (BLEN*FIB[183 f [31153) THEN 
BEGIN IF NOT FIB[13] THEN 

FlBIin * *P(DUP)-(FlBC53.t46)23»3>> 
M[TOPIO] * FLAG(FIB[16])J 
STREAM(N*FIB[173»D*M[T0PI0],[CF])I 
BEGIN NCDS * 8 L I T " " ) I END) 



END 



ADR ♦ 
ELSE ADR 



'It GO 
«• -2J 



DOITJ 



02266500 


T 


0206)3 

02266200 


02267000 


T 


0206)3 


02268000 


T 


0208<0 


02269000 


T 


020813 


02270000 


T 


020813 


02270500 


T 


021010 


02271000 


T 


0212)2 


02272000 


T 


0213)3 


02273000 


T 


0214)1 

02268000 


02274000 


T 


0214)1 


02275000 


T 


0215)2 


02275100 


T 


0217)3 


02275150 


T 


0220)1 


02275200 


T 


0223)2 


02275250 


T 


0225*0 


02275300 


T 


0227)1 


02275350 


T 


0228)2 


02275400 


T 


0232)1 


02275450 


T 


0235)0 


02275500 


T 


0237)2 


02275550 


T 


0240)0 


02275600 


T 


0241)1 


02275650 


T 


0244)0 


02275700 


T 


0246)3 


02275750 


T 


0249)0 

02275650 


02275800 


T 


0249)1 


02275850 


T 


0251)2 


02275900 


T 


0252)3 

02275900 


02275950 


T 


0253)1 


02276000 


T 


0256)2 

02275800 


02276050 


T 


0256)2 

02275350 


02276100 


T 


025612 


02276150 


T 


0259)2 


02276200 


T 


0260)3 


02276250 


T 


0262*3 

02276100 


02276260 


T 


0265*0 


02276270 


T 


026513 


02276280 


T 


0268)3 

02276270 


02276290 


T 


026813 


02276300 


T 


0269)2 


02276350 


T 


027U3 


02276360 


T 


0273)0 


02276370 


T 


0276)3 


02276400 


T 


0278)3 


02276450 


T 


0281U 

02276450 


02276500 


T 


0283)2 


02276550 


T 


0285)0 

02276350 



FND 
OwTl FOR NT1 ♦ 



GO 
FL.SF 



toit; 



(P(M[TO 

THEN 
BEGIN IF LUN 



stfp 1 until nruf do 
m[topio inx nm] «. *p(oup3 or 
clUnsis and % lp 

PCXCH)sslO)) 



IF l,UN<?? AND LUN^20 o« CL^N 

PI0].C3»!S]»DUP)»?2 OR 

HFN 



IOMASKU 
OR CP BK-UP 



< 18 THEN % Unit is backup 



BEGIN S+I7i% 

STREAM(A»D«.L + 4>; 

BEGIN S I •- A I D5*17 WDS ENDJS 



$ SET 
* SET 



NT4*M[TOPlO fNX NOT 23 INX 01* 
MTl*M[NT4+i4)l» 

NT2*NTl.[FFl> NTi*NT1,[CF]I« 
IF M[T0PI0],[3I5]*22 THEN * NOT CP BK-UP 
IF NT1-NT2-7? THEN* 
BEGIN NTl*MtNT4+5l.lFFJI* 
M[NT4 + 5].[FF]«-NTl + l ;% 

MCNT2+173* 01540004002000000 ftNTt [ CTC 3 1 % 
MtNT4 + l43.[FF]«-NT2-l8>* 

END ELSE* 

IF MLNT? + 353,[27»63«0 T HFN M [NT2+35] f [ 28 I 1] ♦ 1 J 
FIBHH * -1; 
MtTOPIO] * FLAG(F1BC J6]*0t20l47H]«St8l38ll0]JI 

END ELSE * 

BEGIN T*(A INX 0540000000000000 )& 1 7 [ 8 ( 38 I 1 ] \ «150- 

IF SEPARATE THEN T«-T&< LUN#22 ) [ 32 » 47 ( 1 3 M50- 

ELSE T4.T&(LUN« t 22)[28l47ll3> X150- 

LUN*22 THEN *IF PUNCH FlLE» IGNORF 

IF W A ITlO(a4002000000.P357#LUN) t [45l 1 3 THEN GO QZl 

T*WAITI0(T,P357»LUN);X 

IF T.C45I13 THEN GO TO QZlX 

ENn; 



END ELSE* 

IF LUN«23 OR LUn*?4 ThENX 
BEGIN ADR*L+4I* 

LR« IF(T»UNlTtLUN3).U3l5]«25 THEN* 
BEGIN ADR ♦ lOOUErS*T,[FF3J.C33H5]|X 

STREAM (A*"END"IaDR); BEGIN Si ♦■ ADR?* 

i, i si * si +1; if sc ■ " " then go to l i x 
omit = packets 
omtt = not(packets) 

DT:«LOc AJDI«»Dl+5; tF 3SC*DC THEN TALLY1«0 ELSE 
BEGIN DJ+LOC Aj DS*4 L|T "PACK"* Dt+LOC A? 
Sl^Sl-3; IF 4Sc=DC T H EN t Al.L,Y*0 ELSE 
TALLYtsi EnD} AIs 



IF 



POP OMIT 

TALLY END» 



02276600 
02276700 

02276750 
02277000 
02278000 
02278100 
02278500 
02279000 
02280000 
02281000 
02282000 

02283000 
02284000 
02285000 
02285100 
02286000 
02287000 
02287100 
02287110 
02287120 
02287130 

02287H0 

02287200 
02287210 
02287230 

02287240 
02287245 
02287250 
02287254 
02287255 
02287260 
02287270 
02287280 



IF P THEN BEGIN* 



02291000 
02292000 
02293000 
02294000 
02295000 
02296000 
02296999 
02297009 
02297010 
02297100 
02297200 
02297300 

02297301 
02298000 



T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 

P 
C 
P 
T 
T 
T 
T 
T 



02290000 T 



RETURNIOSPACECS); 



02300000 T 



028612 
028710 

02275200 
028710 
028910 
029410 

0296*2 
0299«3 
0300U 
030182 
0302(3 
030411 

02282000 
030510 
030713 
030913 
0312M 
031411 
031610 
0319(0 
0322U 
032413 
032810 

02287000 
032810 
033611 
033713 
034P3 

02280000 
034113 
0344(2 
034613 
035211 
0353)0 
035610 
035713 
035911 

02287240 
0359«1 

02279000 
035911 
036213 
036412 
036612 
036912 
037150 
0372»0 
037210 
037210 
0373(2 
037413 
037610 

02297100 
0376U 
0376U 

02295000 
037711 



fNd 



UH\Tll\)H]+Q7777777777% 



FNDJ FNDJ 



PRT(471) » DIFFCOM 



FLSF BEGIN M[ T Op I 03 *M [ TOP I J ORP2004000000 J T*0;X 
M[M[TOPIO]]*»END. "*P14U*43*53J ENDJX 

END} 

IF T#0 THENX 
REGIN% 

LB I JT«-WAJTI0Cefl0000000 + ADR»P367.LUN)lX 
IF T. [45:13 THEN GO TO QZJX 

IF T.t42ll3 THEN GO TO LB FLSf* 
GO TO LB IX 

END FNnJ* 



tf TsO then 

IF Fl3[51.f42«n 

THEN FORGETSPACECL INX 2) 
ELSE FjLFCL0SE(T0PiO INX 0); 
GO TO STT 



FORGFTSPACECA)** 

t«-mstaRt;mixfk*'P4oo+pimix;x 

WhILf(L*T,CCF3)j*0 DOX 

IF(T«.M[L3).[3»12]*MIXER AND T>0 
IF M[M[L+43.tCF3+5], 141*13 

T«.MSTART8MIXER«.p600 + PlMlX;* 

WHILF(L*T.[CF3)#0 dox 

IF(T*M[L3).[3»12]aMlXER AND T>0 

IF M[l+7),tM«U THEN F I LECtOSECM [L* 1 3 

FOR LUN «■ STEP 1 UNTIL 31 DO* 

IF RDCTABLF[LUN3.t8:63 * PlMIX THENX 

SLAPlTOFFiX 
PRT[PlMjX.83 5»Tt*NF0t(PlMIX-l)xNDX+23lNX 2 J 
MtT3 J«-rLAr,CO)»MrT-l J l»-FLA6C04(PRT)t6l 33«93)| 

P(,C0M5)J GO TO DlFFCOM} 



THENX 

THEN FILECLOSECL+7)! 



THEN* 



INX 3)*X 



02301000 T 

02302000 T 

02303000 T 

02304000 T 

02305000 T 



02306000 
02307000 
02308000 
02309000 
02310000 
02311000 
02312000 



02313000 
02313500 
02313600 
02314000 
02315000 
02316000 



02317000 
02318000 
02319000 
02320000 
02321000 
02322000 
02323000 
02324000 
02325000 
02326000 
02327000 
02328000 
02328100 
02328200 
02329000 



02300000 
0380*2 

038111 

02298000 
0381(3 
038812 

02303000 
039113 

02294000 
039113 
039212 
0393(0 
039511 
039613 
0397*2 
0398*2 

02307000 

02292000 
0398*2 
0399*1 
0400(0 
0402*0 
0407*1 
0407*3 

02274000 

02266000 
0408*1 
0409*0 
0411*2 
0413*3 
0417*1 
0423(3 
0426*1 
0428*2 
0432*0 
0438*0 
0439*0 
0440(2 
0444* 1 
0448*3 
0454*2 



fnd;x 



02330000 T 0455*1 

02189000 
SIZF* 0456 WORDS 



savf procfdure: termtnalmessasecn)i value n> real ni 

BFGIN Ml ♦ NJ 
PfO,STF); 
TeRMtNALMeSSAGA(Nt1)J 

ENn; 



start of save 



02330100 

segMfnti base 

02330200 
02330300 
02330400 
02330500 



T OOOOJO 

address ■ 



00171 



T 000010 
T 000013 
T 0001? 2 
T 000211 

02330200 
SIZE* 0003 WORDS 



*R R AY T n2?lr T n nr?2IJ nFBUGGlNG ° R CHECKL I NK) 02330599 T 0000.0 

PRTC472) . , JN ITc5de ^T^*" 02347,00 T 0000.0 

PRTC473) * PSEUD0C0PY ER PSF,Jn0r ° PY ' X USfD BY S T A«TADECK TO EXERCISE SOME CONTROL 35541- 02347M0 C 0000»0 

* OVER THE NO. OF "COPIES" OF CONTROLCARD X541- 02347120 C OOOOlO 

* SERVICING PSEUDO-READERS. *54i- 02347130 C OOOOlO 
BOOLEAN PROCEDURE RE ADEMFROMoI S<( H, I B) * 02347150 T 0000:0 

PRTC474, * READEMFROM OIS K START ° F REL *W" DISK ADDRESS • 00034 

VALUE H.IBS ARRAY Ht*),lBt*3; F0RWARD1 02347160 T 0000»0 

S SET OMIT = NOT(PACKETS) 02347 99 T 0000 

PROCEDURE DRAIN0(UNIT,BUMP, ERROR); 02347200 T OOOOlO 

PRT(4753 = DRAfNO START ° F REL S"^ 11 DISK ADDRESS • 00034 

VALUE UNIT, BUMP. ERROR* REAL UNIT; BOOLEAN BUMP.ERRORI 02347210 T OOOOlO 

STACKfF+1) s T BFGIN PEAL Tl 02347220 T OOOOlO 

label, next; 02347222 t 000010 

^l^Vl'^V 023X7230 T OOoSlO 

if bump then 02347240 t 000112 

PACKETA-CTriiNlT3l.pACKETACTtUNin.il 02347250 T 000113 

IF ERROR THEN PACKE TfRR t UN| T ] l«TRUF I 02347260 T 000610 

IF PACKETACTrUNlT3=0 T HE N 02347280 T 000911 

IF LA8ElTABLECUNlT+3?)>0 ThEN 02347290 T 001013 

IF ClDTA8LFrUNlT,3]<ciDTABLEtUNlT.7] THEN 02347300 T 001213 

^ F G I N 0?U7ltO T OOiMJ 

LABELTABLErUNlT+3?]*-Pl4l 023473 5 T 0016 

T*SPACEU3) + 2I MtT-4]. t 9l6].0l 02347320 T 00l6«0 

MrT INX 10]*UNlTC0DErUNlT+93l 02347395 T 009410 

NEXT« DO UNTIL READE MfROMDI SK( C I DROWt UNI T 3 . 02347330 T 002613 

rM[T33llOt8l38liO])l 02347335 T 00272 

IF PACKETFRR[UNIT] T H EN BEGIN! 02347340 T 003010 

STREAM f E*"END"» Q*PU. D*T); 02347350 T 003112 

BFG-IN Sl*LOC 81 Si«-Si + 7I IF SC*DC THEN DI»DI + 1I 02347360 T 003310 

Q*Dl> S I *Q ! 02347370 T 001411 

L» if sc* w « then begin swsi+u go to l end; 02347380 I 003413 

02347380 

Dl*LOC E; DUDI+51 IF 3 SCi«OC THEN TALLY*1» 02347390 T 003513 

E4.tai.ly; end; 02347400 t 003710 

if p then g o to next, end; 02347410 t 0037?I 34736 ° 

091/17140 

INDEPENDENTRUNNER(P(. CONTROLCARD), T&(UNlT+32)r2l42l63 02347430 T 003841 

SERRORtHllUf 192)| 02347435 T 003913 

pseudo c opy*pseudo c opy+i;* s5M . 02347437 c 004210 

FN ° eLSe " 02347440 T 0043*1 

02347310 

END0F0ECK(UNiT»(UNiT + 32)&ERR0RU!ltl3)l 02347450 T 004311 

FND DRAINO; 02347460 T 004712 

02347220 
SIZE* 0048 WORDS 



PRTM76) = iiNHlN 



$ POP OMJT 02347461 T OOOOlO 

REAL PROCFPURF l)N I T I N( T I NU» WHaT) J VALUE WHAT? REAL WHAT* 02348000 T 0000»0 

START OF REl SEGMfNTi DISK ADDRESS « 00036 



STACKfF+?) s HOLD 
STACKfF+3) = I 



array TiNur*); 02348500 t ooooio 

BEGIN RFAL HOLOJ INTEGER 0% 02349000 T 000010 

STREAM(A*OiHHAT)l* 02350000 T 0000*0 

BFGIN SI ♦• WHATJI 02351000 T 0002*0 

LI IF SC s " " THEN 02352000 T 000211 

BEGIN Si * Si + 1J GO TO L) END** 02353000 T 000213 

02353000 

DJ ♦ LOc AJ Dl * DI + 51 DS ♦ 3 CHR** 02353500 T 0003*1 

fnd stream;* 02354000 t 000410 

02351000 

HOLD * POLTShJX 02355000 T 0004*1 

S SET OMjT s NOT(ShAREDISK) 02355999 T 000413 

S SET OMfT = ShARfDISK 0?356499 T 000413 

FOR 1*0 STEP t UNTIL 64 DO 02356500 T 000413 

$ POP OMIT 02356501 T 000610 

IF TlNU[I].r30ll8]«H0Ln.C30»l6] THFN 02357000 T 000610 

BEGIN 02357500 T 000810 

HOLD* I I 02357600 T 000812 

T*™» 02357700 T 00091 1 

F^DJ 02357800 T OOlOlO 

02357500 
UN I T IN* IF ]<70 ThfN 69 fLS F HOLD* 02358000 T 0012*1 

END UNiTiNl 02359000 T 001510 

02349000 
SIZE* 0016 WORDS 



PROCEDllT IDLETIMr;?! 
PRTC477) « TOLETlMf 



STACK(F+1) = c 
STACKfF+2) a N 

STACKfF>3) = T 



BFGlN RFAL C»N;X 



INTEGER TJX 

HALT}* 

C «• f (P2MlX>0) + l)K(CL0CK + P(RTR))l* 
FOR T *■ 1 STfP 1 UMTJL MlXMAX DOS 
IF JA«[T»*] # THEN* 
BEGIN N ♦ N+1JX 

C •• -JAR["T»3J-PR0CTlMEfT]4C; 

end;k 

IF N / THEN* 

t ♦ cc-old?dletime)/n;x 
oldioletime *■ c}% 

FOR N * 1 STEP t UNTIL MlXMAX DO* 

if jar[n»*j # then* 

jar[n,7] ♦ *p(dup)+tj* 
noprocfsstog •• noprocesstog-1 i % 

end;* 



02360000 T 0000:0 
START OF REL SEGMfNTI DISK ADDRESS ■ 00037" 

02361000 T 0000:0 



02362000 T 0000:0 



02363000 
02364000 
02365000 
02366000 
02367000 
02368000 
02369000 

02370000 
02371000 
02372000 
02373000 
02374000 
02375000 
02376000 
02377000 



T 0000:0 
T OOOpl 
T 000410 
T 0005«0 
T 0006»0 
T 000713 
T 0010*3 

02367000 
T 001310 
T 001313 
T 001610 
T 001613 
T 0018J0 
T 001910 
T 002411 
T 002512 

02361000 
SIZE" 0026 WORDS 



DEFTNF fNTfRUSERFILFCENTERUSERFiLE1»ENTERUSfRFILE2»ENTFRUSERFILF3)« 02378000 T 000010 

P(FUFCFNTFRUSFRFiLEltFNTERUSrRFlLF2»FNTERUSERFlLE3)»DEL)#J 02378500 T OOOOtO 

REAL PROCEDURE FUFfA»B»L>» VALUF A#B»LJ REAL A#8»L) FORWARD? 02379000 T 0000«0 

START OF REL SEGMpNTI DISK ADDRESS « 00038 
PRTfSOO) s F UF 

INTEGER PROCEDURE C ALCULATFPURGE ( PURGE >» % 02380000 T OOOOsO 

„„, „ START OF REL SEGMENT! DISK ADDRESS « 00038 
PRT(50l) = CALCULATEPURoE 

VALUE PURGE! REAL PURGE** 02381000 T 0000»0 

BFGIN REAL Y.DJ* 02382000 T 0000«0 



STACKfF+2) * Y 

STACKrF+3) = D 

STACKfF+4) a J 

STACK(F+1) s C 



R f*L Jtt 02383000 T 0000*0 

REAL C«+lll» 02384000 T 000010 

STREAM(A*[DATE3»B*[Y1)I* 02385000 T OOOltO 

BEGIN Sl«-Aj SI*Si + 3? DS * 2 OCT? DS ♦ 3 OCT END?* 02386000 T 000210 

02386000 

J ♦ fD * C Y + 3) DlV AxH61 + (Y*3) MOD A x 365 +D + PURGE-X 02387000 T 0003U 

1) 01 V J46HX 02388000 T 000810 

IF <Y ♦ <D * D MOD 14613 IV 365) ■ 4 THFNX 02389000 T 001010 

BEGIN Y ♦ 3> D * 365 END ELSE D * D MOD 365? « 02390000 T 00121 3 

02390000 
CALCULATEPURGE * (4xJ + Y-3)xiOOO + D + n* 02391000 T 0018U 

STREAM(C*-rC])5 BEGIN SI*C? DS * 8 DEC END* % 02392000 T 002210 

02392000 
FNDfX 02393000 T 002312 

02382000 
SIZE" 0024 WORDS 



PROCFDURF CHANGfDATFCRUfF)! VaLUE BUFF* REAL BUFFI FORWARD* 02393100 T OOOOlO 

START OF REl SEGMpNT* DISK ADDRESS « 00039 
PRT(502) ■ CHANGFDATE 

DEFINE MIDNIGHT s BFGIN XCLOcK I sXCl,0CK-Wl TCH I NGHOUR * 02393200 T 0000«0 

DATE:*CAICUL.ATEPURGEC1)> 02393225 T 000010 

CHANGEDATE(SPACEdO)); 02393230 T 000010 

END*? 02393300 T OOOOlO 

real. procedure tapflabel (m,f »r * c »p ) i value m.f,r»c,pj %k\ 02393400 t oooolo 

start of rel segmfntl disk address ■ 00039 
prt(503) * tapelabel 

Real m,f»r»c#p* forward* saj 02393500 t ooooio 

$ set omit x mot (dump or debugging or breakout) 02393790 t oooolo 

real mfmaski 02393800 t oooolo 
prt(504) * memask 

$ POP OMIT 02393810 T OOOOlO 

S SET OMIT s NOT DEBUGGING *763- 02393999 P OOOOlO 

$ SET OMIT « NOT (DEBUGGING OR DUMP) X763- 02434051 C OOOOlO 

PROCEDURE nlJMPCORE(BUFF)! XA I 02434100 T OOOOlO 

START OF REL SEGMENT! DISK ADDRESS « 00039 

VALUE BUFFI RE-AL BUFF* %k\ 02434110 T OOOOlO 

BEGIN REAL B , S, N , TM # TA , U. D i %M 0?434l20 T OOOOlO 
STACKrF+l) « B 
STACKfF+2) « S 
STACK(F+3) a N 
STACKfF+O) B TM 

STACKCF+5) * TA 
STACKeF+6) b U 
STACK(F+7) a 

INTEGER II REAL MASK, PARITY* 02434125 T OOOOlO 

STACKcF+10) = I 

STACKfF+11) « MASK 

STACKfF+12) * PARITY 

ARRAY TP[*]* ARRAY TLr*]> SAl 02434130 T 0000*0 

STACK(F+13) * TP 

STACKfF+14) * TL 

LABEL X,Ll»ERR> 02434135 T OOOOlO 

SUBROUTINE CHECK* 02434162 T OOOOlO 

BFGIN 02434164 T OOOllO 

if P(Xcm)sP20 then 02434166 t ooono 

PFGIN 02431168 T O0OH3 

STRf aM(B*8UFF*BUFF,[15U5]'-1)* 02434170 T 000211 

DS*32LIT""DPMT ABORTED* TRY ANOTHER TAPE*"* 02434172 T 0004*2 

P(WA!T|0(P47<i0000020, 0377, U), DEL)* % SPACEBACK 02434174 T 000910 

PAR|TY*1* 02434176 T 001012 

GO ERRl 02434178 T OOllU 

END* 02434180 T OOl 3»0 

02434168 

END* 02434182 T 0013*0 

02434164 

FOR U*0 STpP 1 UNTIL 15 DO 02434185 T 0013*1 

IF (MULTITABLECU] EQV "MEMORY ")*N0T THEN 02434190 T 001810 

IF (LABELTABLECU].[5»25]«"1DUMP") THEN GO Lll 02434195 T 001913 

FOR U*0 STpP 1 UNTIL 15 DO IF LABELTABLET U ]«0 XAl 02434200 T 002412 

AND PRNTABLEtU],tl*n THEN GO TO LI* XAl 02434210 T 0028*3 

BUFF**BUFF.tl5tl53-ll XAl 02434215 T 0033*1 

STREAM(BUFF)* XAl 02434220 T 003510 

DSl«17LlT"*N0 MEMDUMP TAPE*"* XAl 02434230 T 003513 



Li « 



GO TO X| 

MUtTiTABLErU] J»"MEMORY " j 

LABEL T ABLE r U], II 129 ]»■» 102464444 7; 
STREAM (A »**001"»B»*rLABELTABLErUJ])J 
BEGIN Si 1= LOC A« SI » ■ Sj + 5j 
Dl»=Dl+5; 0Sla3ADD) 

end; 



RRMeCH «= TWO(U) OR RRRMECH* 
*(SPACE(20))*20r8i3»»lO]*5[2H45l3]l 
TREAM(UTT*BUEE,[33U5]<100,BUFF»BUFE, 
EGIN 



RR 

BI- 
STRE 
BEGIN 



[33115], B)J 



F.NDI 



0S»»8l,it w m ; SI«*BI DSisi9W0Sl 
01 «■ B> 
LTT(Sf 4- LOc 
SI *■ BUFFJ 

then ds*chr else jump out 

LI 



20(8(IF SC#"* 

to l))j 



BUFF* DS «• 2 DECI JUMP OUT 1 TO 

2 



LABELTABLE[U].[ll5]l»02O| 

TLI*[M[TaPfLaBELC "MEMORY % LABELT ABLE! U] . [ 6 I 42] . 

l»l»10)J]*10C8l38li0H5r2ll45i3]l 
STRFAH(A*PRNTABLEtU] i C30ll8]»TL)l 

BEGIN S]*L0C Al Dl*Dl+53; DS*5 DEC END* 

TPl*[M[TA««TYPEDSPACEC5l3.M0UMP4RFAV)]]«5l3tBl38n0U 

5[?ll45l3]>X 
TMl =0&?1737C 1 » 37» 11 Jl 
MASK*P40 & P20CCTF1; 
$ia>0; 

HALT; SLEEP(rTOGLE]»STOREMASK)f 
L0CKT0G(ST0REMASK)> 

WHILE (Si«MCSJ) t r33lJ3j NEQ DO 
IF M[S3.tlM7]»HOOO THEN 
Dl*0LAY(S.t33ll5]); 

unlocktogcstoremask); 

p(waiti0(tl»mask,u)»del)i 
p(waiti0(ctm]»mask#u)»del)j 

S8*0j 

DO BEGIN 

N|«S.r33»33; 

IFfMFMASK AND TW0(N))NfQ THEN Sl*-S 

ELSE M0VEC5l2»S*TA4l)l 
TP[0] la S| 

P(WAITIO(TP,MASK.U))J CHECKJ 
IF S LSS THEN S I* 3584 - S; 
END UNTfL (Sl*S+512),[l8| 15J J 

pcwaitiocb.mask.u)); chec«i 

LABELTABLElU].[lt5]*P0i; 

pUFF« s BUFF,tl5ll5]-i; 

STReaM(U*T|NU[U3,L*LABELTABLeCU3»BUFF)I 
BEGIN 

spxLoc u; si t= si + s; 



XAI 


02434240 


T 


003812 


XAJ 


02434250 


T 


003910 


SAI 


02434260 


T 


004011 


XAI 


02434270 


T 


004213 


XAI 


02434280 


T 


004410 


XAI 


02434290 


T 


004412 


XAI 


02434300 


T 


004510 

02434280 


XAI 


02434310 


T 


004511 




02434320 


T 


004710 




02434330 


T 


0051U 


XAI 


02434340 


T 


005410 


XAI 


02434350 


T 


005410 




02434360 


T 


005513 


L); 


02434365 


T 


005610 




02434367 


T 


005713 


XAI 


02434370 


T 


005810 


XAI 


02434380 


T 


006010 


XAI 


02434390 


T 


006013 

02434340 


*AI 


02434400 


T 


006110 


XAI 


02434410 


T 


006312 




02434420 


T 


006513 




02434424 


T 


006913 


XAI 


02434426 


T 


007113 

02434426 


OH 


02434430 


P 


007213 


67- 


02434435 


C 


007513 


XAI 


02434440 


T 


007810 




02434445 


T 


007913 


XAI 


02434470 


T 


008110 


XAI 


02434480 


T 


008113 




02434490 


T 


0083«3 

02434490 


XAI 


02434500 


T 


0087U 


XAI 


02434510 


T 


009011 


XAI 


02434520 


T 


009211 




02434530 


T 


009710 

02434530 




02434532 


T 


010012 




02434534 


T 


010211 


XAI 


02434540 


T 


010313 


XAI 


02434550 


T 


010412 


XAI 


02434560 


T 


010412 




02434570 


T 


010513 


XAI 


02434580 


T 


010810 


XAI 


02434590 


T 


011H2 




02434600 


T 


011213 


XAI 


02434610 


T 


011510 


XAI 


02434620 


T 


011712 

02434550 




02434630 


T 


012010 


XAI 


02434690 


T 


012210 


XAI 


02434695 


T 


012412 


XAI 


02434700 


T 


012611 


XAI 


02434710 


T 


012810 


XAI 


02434720 


T 


012810 



Sl*LOc LI 
DSjs7lit w 



end; 



"; dsj*3chRi 

Si*SI*1| DS* 1 
DP-ED*** J 



LIT 



t 0S*7 CHRl 



*AI 
XAI 

*AI 



ERR: P(HAiriO(CTM]»MA5K»U)»DEL)l 

p(waiti0ctl»mask,u)»0el)> 

if Parity thfn setnotinusecu»i ) eisf 

BEGIN 

p(waitioc[tmj»mask»u).nel)j 

p(waitiocp4740oooo2o.p377,u)»del)l 
end; 

forgftspacf(tp)» 
forgetspacfctdi 
forgetspacf(b)» 
noprocesstog*noprocesstog-ii 
x! spoutcbuffjj 

END Ol'MPCOREJ 



02434730 
02434735 
02434740 
02434750 

02434760 
02434770 
02434780 
02434790 
02434800 
02434810 
02434820 

02434830 
02434840 
02434850 
02434860 
02434870 
02434880 



T 012812 
T 012911 

T 0130«2 

T 013113 

02434710 

T 013210 

T 013312 

T 013511 

T 013710 

T 0139»0 

T 014012 

T 014210 

02434790 
T 0142J0 
T 014310 
T 0144(0 
T 014413 
T 014610 
T 014711 

02434120 
SIZF« 0149 WORDS 



S POP OMJT 

S SFT OM?T * NOT(DEBUGGING) 

$ SFT OMJT - N0T(nATAC0M AND Df.SPO ) 

PROCEDURE NAMFID(A»KTR)JX 



PRT(505) ■ NAMfiD 



START OF REL 



Real a#ktr;s; 

BEGtNJX 

STREAMf A*-rAl!KTR);2 

BEGIN DI * A; DS *. 8 LtT »»0 "IX 

Dl * DI-7* Sj «. KTRJX 
LI IF SC s " " THEN* 

BEGIN Sj * Sj+ll GO TO L END»X 

IF SC = """ THEN?! 

BEGIN Si ♦ Si+llx 

7(IF SC = M * w THEN JUMP OUT TO EXjTlX 

OS «■ ChRU 

TF SC * »"" THEN JUMP OUT TO LQUJ* 

lsi if sc * n »» then if sc * leftarrow then 

BEGIN Si := SI + \i GO TO LSJ END? 

IF SC * LEFTARROrt THEN GO TO EXIT; 
L©« Sj * SI + H* 

GO TO EXITJS 

if sc = alpha then* 

BEGIN 7(DS * CHRJX 

if sc * alp h a then go to la;x 

JUMP OUT TO EX I T ?2 
LA* m 

uf * if sc = alpha then x 

BEGIN S i *S | + l ; GO TO LEI END? % 



Xl52< 
X152" 

X152- 



endjx 



GO TO FXITJS 



IF Sc - 



H - H 



thenx 



BEGIN DS * CHRJ SI * Sj-H GO TO EXIT ENOJX 

if sc » "*" then* 

BEGIN DS»? LIT"**"; Sl»SI + U GO TO EXIT ENDJ 

os * chr;x 

EXITIA * SI i% 

fnd; * 

ktr * pcxch>»x 



END}? 



02434890 
02434999 
02522099 
02603000 
SEGMFNTJ DISK 

02604000 
02605000 
02606000 
02607000 
02608000 
02609000 
02610000 

02611000 
02612000 
02613000 
02614000 
02615000 
02615100 
02615200 

02615300 
02616000 
02617000 
02618000 

02619000 
02620000 
02621000 
02622000 
02623000 
02623500 
026?350l 

02624000 
02625000 

02626000 
02627000 

02628000 
02629000 

02630000 
02631000 
02632000 

02633000 
02634000 



0000*0 
000010 
0000*0 
0000*0 



ADDRESS « 00044 

T 0000*0 

T 0000*0 

T 0000*0 

T 0001*1 

T 0002*3 

T 0003*1 

T 0003*3 

02610000 

T 000411 

T 0004*3 

T 0005*0 

T 0006*1 

T 0006*2 

C 0007*3 

C 0008*3 

02615200 

C 0009*1 

T 0010*0 

T 0010*1 

T 0010*2 

02612000 

T 0010*2 

T 0011:0 

T 0011*2 

T 0012*1 

T 0012*3 

T 0013*0 

T 0013*2 

02623501 
T 0014*0 
T 0014*1 

02620000 
T 0014*1 
T 0014*3 

02627000 
T 0015*2 
T 0016*0 

02629000 
T 0017*0 
T 0017*1 
T 0017*2 

02607000 
T 0017*3 
T 0018*3 

02605000 
IZE* 0019 WORDS 



REAL PROCFPURE TAPF LABEL CMULF ?D, F 10 » REELNO. CYCLE » PURGE )? % 



STACKfF+2) c LBL 



BEGfN 



valuf mijlf i d. fid* reelno, cycle, purge j x 
Real mulf i d, fid.Rfelno, cycle. purge »s 
Rfal lbljx 



START OF REL 



LBL»«TYPEOSPaCEMO.LABELAREAV)I* 

stream?* 
date. mulpid.ftd,reelno.cycle.pu 

LBL))! 
BEGIN* 

DS*8 LIT" LABEL " » % 

SULOC MULFlOJ? 

DS..WDSJ* 

DS«.WDS»X 

0S*3 DEC>* 

SI * loc date; SI * SI+3JX 

DS * 5 CHR»* 

SULOc cycle** 

OS* 2 DFC> 

Sl*LOc pu; Sl*SI+3>* 
DS*5 CHRJ DS*1 LIT"O m ;* 
5(dS*8 L!T"00O000O0»}* 

enojx 
tapeubeulbli* 



X167- 
CALCULATEPURGE(PURGF).* 



02635000 
SEGMFNTl DISK 
02636000 
02637000 
02638000 

02639000 
02640000 
02641000 
02642000 
02643000 
02644000 
02645000 
02646000 
02647000 
02648000 
02649000 
02650000 
02651000 
02652000 
02653000 
02654000 
02655000 
02656000 



T 0000 
ADDRESS 



END** 



0000 
0000 
0000 

0000 
0002 
0003 
0005 
0005 
0005 
0006 
0007 
0007 
0007 
0007 
0006 
0008 
0008 
0009 
0009 
0010 
0012 



:0 

« 00045 
:0 
JO 
SO 



02657000 T 0012 
02658000 T 0013 

SIZE- 00 



:0 
'3 
10 
:0 
»2 
52 
»3 
sO 

51 
52 

13 

51 

12 

»3 
SO 
52 

51 
10 

02643000 

51 

to 

02638000 
14 WORDS 



REAL PROCFHURF: LABFLASCRATCHCLBL); VALUE LBLJRFAL LBLJX 02659000 T 0000:0 

START OF REL SFGMfNTJ DISK ADDRESS » 00046 
PRTC506) s LABELASCRATCh 

BFGTNX 02660000 T 0000*0 

Real lun»tm,reel»t* 02661000 t oooo;o 



STACKfF*2) * LUN 

STACKfF+3) = TM 

STACKfF*4) = reel 

STACKfF+5) = T 



LBL «■ P(,LBL,L0r>).[CFJ & 10(8136110] & 02662000 T 0000*0 

(IF P(.LbL,L0D).[7»1J THEN 1 ELSE 5)[2ll45l3]« 02662050 T 0003*1 

STREAMtL«-LBL + 3#R*rREFL])) 02662100 T 000750 

BEGIN ST«-l; DS*3 OCT END* 02662200 T 0008*2 

02662200 
LUN«.FlNn0UTPUTCM(LBL+n,M[LBL + 2]»REEL»0»0#2#0.TM) % 02663000 T 0009*1 

IF LUN>0 THEN 02663100 T 0014*3 

BEGIN* 02663200 T 0015*2 

STREAM(A«-PRNTABLEtLUN],[30»l8]#T*(T],L*LBL + 6); 02664000 T 0016*0 

BFGIN ni*Dl+5; SI-LOC A* DS*5dECJ S I - S I - 8 > DI*Tl 02664100 T 0018*2 

DS*8DEC* 0I*DI-7I DS*-6FlLL! END* 02665000 T 0019*3 

02664100 
RDCTABLE[LUN],[8*6]*PlMiX* 02665100 T 0020*3 

M[LBL+1] .[1 *5J*=0> *148» 02665110 C 0023*1 

MULTiTABLECLUN]*MrLBL+n; 02665150 T 0026*2 

RRRMECH*TWOCLUN) OR RRRMECH* 02665200 T 0029*0 

P(WAlT!O(LBL»0,LUN)»DEL)? 02666000 T 0030*3 

TM«-0ft»>«- M r 1*37*11]*!* 02667000 T 0032*1 

P(WAlTTO((TM].O.LUN)»DEL)JX 02668000 T 0034*0 

S SET OMIT = PACKETS 02668099 T 0035*2 

FILEMESSAGEC OuT"&T I NU[LUN] [ 6 I 30l 18] » J, 02668500 T 0035*2 

M[LrL+1 J»M[LBL423»RefL»0.0,0PNMeSS); 02668600 T 0037*2 

END* 02668800 T 0042*1 

02663200 
LaRELaSCRaTCh«-LjN* 02669000 T 0042*1 

END LABELASCRATCH; * 02670000 T 0042*1 

02660000 
SIZE* 0045 WORDS 



PRT(507) * 

PRT(5iO) B 

PRTC511) * 

PRT(5i2) « 

PRT(5i3) « 

PRT(5i4) « 

PRT(5i5) . 



PROCEDURE NSECOND1FORWAROIX 

START OF REL 
MSECOND 

DFFINE CMFCKSTACKSPACE = IF P( PRTr Pi M I X , * ] t NX ) -PC , ROS )< 1 ?8 SWF 

then begin Pc64,sts); go to stackoveRflow; fnd#; xwf 
array usercodft*]; 

USERCODE 

REAl. PRrCFOURE SFCUR I TYCHECK (M > F * U» ») ) 

START OF REL 
SECURITYCHECk 

value m,f,u; real m»f»u#h! forward; 

procedure makepresfnit(c)j value c> real cl forward? 

start of rel 
makepresent 

procedure stgnoff(v»f»w)ivaluf v.f»wjarray v [ * ] *f[ * ] j real wlforwardl 

start of rel 

SIGNOFF 

SAVF PROCEDURE I OReQUESTC F , I , L> '> VALUF F, I .LI ARRAY F,Lt*]l REAL II 

START OF SAVE 
TORFQUEST 

FORWARD; 

BOOLEAN PROCEDURE MTX JN f I , U, B ) ; REAl U.B! INTEGER \i FORWARD; 

START OF REL 
MTXTN 

S SET OMfT = NOT(BREAKOUT AMD AUXMEM) 
DEFINF C ODE ADDRESS f CODE ADDRESS l,CODF ADDRESS? ) ■ 

ACTUALOVERl.AYADDRFSSn»COOEADDRESSi , CODE ADDRESS?. ) #, 
DATADDR ESS (DATA DDRESSl,DATADDRESS2)« 

AC TUALOVERLAY ADDRESS (0, DAT ADDRESS i ,DAT ADDRESS? )# ; 
SAVE INTEGER PROCEDURE ACTUALOVERLAYADDRESSf TYPE » MI X , LOC > I 



02692000 T 0000:0 
SEGMENT; DISK ADDRESS « 00046 

02693000 T 0000:0 
02694000 T OOOOlO 
02695000 T OOOOlO 

0?696000 T OOOOJO 
SEGMENT; DISK ADDRESS » 00048 

02696100 T OOOOJO 
02696200 T OOOOlO 
SEGMENT! DISK ADDRESS » 00046 

02696300 T 0000»0 
SEGMENT! DISK ADDRESS « 00048 

02696500 T OOOOlO 
SEGMENT! BASE ADDRESS « 00174 

02696600 T OOOOlO 
02696700 T OOOOlO 
SEGMENT! DISK ADDRESS * 00048 



02697299 
02697710 
02697720 
02697730 
02697740 
02697750 



OOOOlO 
OOOOlO 
0000:0 
OOOOlO 
OOOOlO 
OOOOlO 



PRT<516) a 



ACTUALOVERLAYADDRESS 

VAi.UF TYPE, MIX, LOC! INTEGER TYPE , M I X, LOC t FORWARD; 
$ SET OMIT = NOT(BREAKOUT) 
S SET OMIT = NOTCDATACOM AND DcSPO ) 
SAVE PROCFDURE I N I T I ATE I0( IOdESC *M f X, U) I * 



START OF SAVE SEGMENT; BASE ADDRESS • 00174 



02697770 T 

02700000 T 

03500099 T 

04000000 T 



OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 



PRT(5l7) * TN1TIATFI0 



STACKfF+1) = C 



VALUE lODfSC»MlX,UJX 
REAL MjX»U!X 

Real jodesc;x 

BFGIN REAL C«+llLABEL F*lTj 

S SET OMIT » NOT(STATlSTicS) 

IF CPf I0DESC.t3l5] 

$set omit * dkbnodfx 

»DUP)a PU OR P(XCH 
S POP omit 

) « P6) AND 
NOT IODESC. r24UJ AND 

(((P(M[IODESC.[CF]]»DUP) EQV 0)*NOT 0) OR 
((P(XCH) EQV 32). NOT 0}) AND 

NOT oksegzerowRitf then 

BYBYfSpGMENT ZERO OVeRWRI Te*". 23 ) ; 



PrTjO); 



START OF SAVE SEGMENT; BASE ADDRESS * 00174 

04001000 T OOOOlO 

04002000 T OOOOlO 

04003000 T OOOOlO 

04004000 T OOOOlO 



*204» 
*204« 
X204- 
X204- 
X204* 
X204" 
S204- 
X204- 
H204- 
*204- 



04004099 
04004110 
04004119 
04004120 
04004121 
04004130 
04004140 
04004150 
04004155 
04004160 
04004170 



04004200 T 



OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

000113 

0001(3 

0002*2 

000313 

000613 

000813 

000912 

04004170 
04004170 

001710 



CHANNFLrPfOWPmUj 
P( r IOOF.SC]* ! 10)1 
CHANlOrC]*CLOCK+Pf RTR) J 
$ SFT OMjT = NOKSTATISUCS A^ AUXMF.M) 
IF U < 16 THFN 
BEGIN 
IF IODESC. [22*1] THEN* 

BFG1N TRANSACTI0N[UJ * IF l00ESC f [l8HJ 
ELSE TRANSACTI0N[U1-DX 
GO TO exit;* 
FNDJ 

$ SET OMIT b NOT(STATlSTicS) 

FND 

ELSE 
IF CU OR 15=19 ThfN 

BFGTN 

FUlOrCl*CLOCK+P(RTR); 
S SET OMjT s NOT(STATISTICS) 

end; 
* reset omit 

TRANSACTION^] »* P ( nUP . LOo> + 1 » 

EXIT«ENDJ2 



Then ox 



04005000 
04006000 
04007000 
04007099 
04008000 
04008100 
04009000 
04010000 
040H000 
04012000 
04013000 

04013009 
04013100 

04013200 
04013300 
04014000 
04014002 
04014009 
04014100 

04014105 
04014500 
04015000 



T 0017M 
T 0018«2 
T 001910 

T 0020*3 
T 0020*3 
T 0021*2 
T 0022»0 
T 0022»3 
T 0025*1 
T 0027*1 
T 0027*3 

04010000 
T 0027*3 
T 0027*3 

04008100 
T 0027*3 
T 0027*3 
T 0029*2 
T 0030*0 
T 0031*3 
T 0031*3 

04014000 
T 0031*3 
T 0031*3 
T 0033*3 

04004000 
SIZE* 0034 WORDS 



save procfdurf qufufuP(U)i value u \ real uj* 04016000 t oooojo 

PRT(5 ? 0) . QUEUFUP START ° F SAVE S "MFNT, BASE ADDRESS p 00208 

BEGIN IF U«30 ThFN 040i6l00 T OOOOIO 

WAlTOUEfFThSTWAlTl«(FlRSTWAlT+31) AND 3l]t=U ELSE 04016200 T 0000;3 

BEGIN WAlTOUE[NEXTWA T T] * UU 04017000 T 000410 

NEXTWAIT * NEXTWAiT + i AND 3D* 040i8000 T 0005J3 

El" '* 04019000 T 0007»2 

04017000 
tND * 040i9i00 T 0007*2 

04016100 
SIZE* 0008 WORDS 



PRTC160) * T 
PRT(161 ) * R 
PRT(162) * S 



$ SET OMIT = NOT(DF)f) 

save procfdure startiocu)j value uj real uiz 

BEGIN REAL T=NT1,RxNT2, S=NT3f* 



start or Save 



04019499 

04020000 

SEGMENT! BASE 

04021000 



S SET 0MfT = NOT(DFX) 

IF (T * UNlTrU]),rl3l53 - ThEN* 
IF (S * T, f 18M53) < 91777 THEN* 
t SET OMIT s NOT(DFX) 

BEGIN IF PfTjO) # THEN* 

REG IN lN!TIATE!0(lOQUEtS]fLOCATOUErS].r3l5] 
»U)U 
P ( 3 ) I X 

fNox 

ELSE BEGIN QUEUEUPCU))* 

Pf 4);x 
fNd;* 



t SET OMIT «s DFX 



P(T&PcXcHHl5l45l3),[UNlT[Un«*)IX 



END>* 



S POP OMIT 

* SET OMIT = NOTCDFX) 

eno;x 



040^1099 
04022000 
04023000 
04023099 
04024000 
04025000 
04026000 
0402/000 
04028000 

04029000 
04030000 
04031000 

04032000 
04032999 
04033000 

04033001 
04033049 
04034000 



T 000010 
T 000010 
ADDRESS * 00216 
T 0000 10 



OOOOi 
00001 
0002» 
00041 
0004S 
0005 J 
0007J 
00081 
00081 

00081 

0009; 

00101 

00101 
00121 
0012« 

00121 
00121 
00121 

SIZE* 001 



T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 

T 

T 
T 

T 







1 
1 

2 



1 

2 

4025000 

2 

3 



4029000 







4024000 







4021000 

3 WORDS 



save procfdurf pRtnteRfinish(U); value uj real uix 04035000 t ooooio 

START OF SAVE SEGMENT! BASE ADDRESS « 00?29 
PRT(521) = PRiNTfRFINtSh 

REGTN 04036000 T 000010 

* SET OM?T * NOT(NF.WLOGG!NG) 04036099 T OOOOIO 

IF NOT UNTT[U].rl6H3 ThEN UN I T [U 1 , [ 1 7 I i) * 0; 04036200 T OOOOIO 

STARTlO(U)!* 04037000 T 0004*1 

GO TO EXTERNAL** 04038000 T 0005*0 

PND>% 04039000 T 0005*2 

04036000 
S!ZE» 0006 WORDS 



start or save: 



PRTC160) . u 

PRT(161) » T 

PRT(162) * S 

STACKcF+t) s R 



save procfdurf iorfQuesT(final,iOdfsc, location);* 

VALUE FlNAL»lOnESC»LOCATlON?X 

ARRAY F!NAl,»LOCATyONr*3»* 

REAL IODESC;* 

BEGIN REAL U = MT 1 » T*NT2, S*NT3»R*+ 1 1 % 



S SFT OMJT = NOT(DFX) 

IF IOQUESLOTS Lf« 

(UtaJF LOCATION. [9IU OR P1MIX»0 THEN ELSE 7) THEN 
SLFFPfC IOQUESLOTS] #P77-U)) 
IOQUFAVAIL * IOQUf(S»»iOQUEAVAIL]J 
$ SET OMIT a NOTfSTATlSTicS) 
S SET OMIT * NQT(DFX) 

S SET OMIT * N0TC0K8N0DFX AND NOT DFX) 
$ SFT OMIT k OFX 

IF (T * UNITrU + LOCATION, [ 1 2 » 6] ] ) , [ 1 3 * 5 J » THEN 
$ POP 0MfT 

RFGIN IF Pf T TO) t THEN* 

BEGIN INITIATEI0(I0DESC.P1MIX,U)>* 
P(3)»* 

end elsf begin oueueupf u ) i % 

pca);* 
end;* 

T * T«PcXCH)tl5?45i3]&Sn8»33ll5]JX 
END ELSE* 

IF T . r 18 s 6 3 » 977 ThFN* 

T. [ 16: 153 * S ELSE* 
L-OcATQUF[P(T,[33»l5JiDUP)]«-L0CATQUErRm 
Stt8l33M53>X 

$ set omit * not(ofx) 

ioqufslois«»ioqueslots-i; 

LOCATQUEtSl * LOC AT I 0N&P1 M I X[ 3 I A3 ' 5 3 OR P77777O0000 t % 
$ SFT OMJT = DFX 

UNIT[U1 * T&Sr 33* 33* 153 ;« 

S POP OMIT 

inQUFCS] «• IODESCJX 
FlNALQUFtSi «■ FlN A L;* 

end;* 



04040000 
SEGMENT? RASE 
04041000 
04042000 
04043000 
04044000 



04044099 
04045000 
04045100 
04045200 
040A6000 
04047009 
04047099 
04048701 
04048799 
04048800 
04048801 
04049000 
04050000 
04051000 
04052000 

04053000 
04054000 

04055000 
04056000 

04057000 
04058000 
04059000 
04060000 
04060099 
04060500 
04061000 
04061999 
04062000 
04062001 
04063000 
04064000 
04065000 



T 000010 
ADDRESS • 
T 000010 
T 0000*0 
T 000010 
T 000010 



00235 



T 0000«0 

T 000010 

T 000011 

T 000412 

T 0007*0 

T 0008*2 

T 000612 

T 0008*2 

T 0008*2 

T 000812 

T 0011*3 

T 0011*3 

T 0013*0 

T 001413 

T 0015*0 

04050000 

T 0016*1 

T 0016*2 

04052000 

T 0016*2 

T 0018*3 

04049000 

T 0018*3 

T 0020J2 

T 0022*1 

T 002412 

T 002512 

T 0025*2 

T 0026*3 

T 0029*3 

T 002913 

T 0031*2 

T 0031*2 

T 0032*3 

T 0034*1 

04044000 
SIZF« 0036 WORDS 



savf procfdurf FINIShOfFIOCU)J VALUE U* REAL Ui% 

PRT(5?2) s FINISHOFFIO 

BEGrN REAL T=NT1» F|N*NT3» V=NT4» l0D*NT6J 

PRTC160) * T 

PRT(162) m FIN 

PRTU63) « V 

PRTC165) s T OD 

LABEL 0N»0FF,C0,C1»C2»C3»C4.C5»C6#C71* 
SWITCH CSW * C0,C1#C?,C3»C4,C5»C6»C7;X 

if fin > o Then* 
IF F!N,t25»13 Then* 

BEGIN T «■ FIN, [ 3*5] ;% 

FIN ♦ FlN*!0Dt3»3l5]*0t?5l25ll3lf 
GO TO CS*[T]JX 
END ELSE GO ON ELSE GO ONJX 

co: GO TO co;x 

C!l FIN, [8110] * \li% 
GO TO C2JX 

c3* FjN.reuo] ♦ vix 

C«» FIN «• NOT V iNX 1 I NX FlNJX 

GO TO C51X 
C65 STREAM(A*0$ IOD)JX 

BEGIN Dl ♦ LOC Al Si * 1 001 Sj «■ Sf + 4J DS*4 OCT END* 

T ♦ p DJV 8-j }% 
OFF' FIN, r8H0] * TJX 

GO TO C2;x 

C7« STREAM(A*OI I0D)I« 

BFGJN Dl + LOC AJ SI * IODJ DS ♦ 4 OCT END;X 

T * p DlV 8-iJX 

FIN * (NOT T INX 1 INX F I N ) 1 1[ 8 I 38 I 1 ] t % 

GO TO C5;x 
on* if u < t6 then* 

IF I0D,[22*1] ThENX 
C*>» MriOO INX 13 «• MfNOT V INX lOp iNX \] * \l% 

ELSE* 
C?8 Mf IOD INX NOT 0] ♦ VJX 

END»X 



04067000 T 000010 
START OF SAVE SEGMfNTj BASE ADDRESS « 00271 

04068000 T 0000*0 



04069000 


T 


000010 


04070000 


T 


0000*0 


04071000 


T 


oooo;o 


04072000 


T 


000013 


04073000 


T 


000210 


04074000 


T 


000313 


04075000 


T 


000612 


04076000 


T 


0011*2 

04073000 


04077000 


T 


001H2 


04078000 


T 


001210 


04079000 


T 


001313 


04080000 


T 


001411 


04081000 


T 


001610 


04082000 


T 


0018»0 


04083000 


T 


001612 


04084000 


T 


001913 

04084000 


04085000 


T 


0021 SO 


04086000 


T 


0022*2 


04087000 


T 


002411 


04088000 


T 


0024*3 


04089000 


T 


0026t0 

04089000 


04090000 


T 


0027*0 


04091000 


T 


0028«2 


04092000 


T 


0031*2 


04093000 


T 


0032*0 


04094000 


T 


0032*3 


04095000 


T 


0034*0 


04096000 


T 


0037*3 


04097000 


T 


0039*0 


04098000 


T 


004113 

04068000 


SIZE" 0042 WORDS 



procedure programrfleasej* 04099000 t 0000*0 

start of rel segmfntl disk address ■ 00048 
prt(523) • programrfleasf 

rfgtn nam f t; real fsxsjunk; 04100000 t 0000*0 

STACKfF+1) a T 
PRT{5) c FSX 

ARRAY R*-4[*j;X 04101000 T OOOOlO 
STACKfF-4) a R 

Real i od=nt 1 ? * 04102000 t oooojo 

PRTH60) u T 0D 

ARRAY LOCN[*j;» 04103000 T ooooto 
STACKfF+2) a LOCN 

Real s; 04103050 t 0000*0 

STACKfF+3) 3 S 

CHECKSTACKSPACEl* XWF 04103100 T 000010 

PRT(524) b STACKOVERFLOw 

04103100 

L0CN*MrS*(lF(I0D*NFLA6(MlP(T»[MtPRT[PlMiXf9J]]»DUP»PRL)3)) 04104000 T 000510 

♦ r2?in then ?. else not n inx iodi; 04105000 t 000812 

IF I00.t3l5j« 6 THEN 04105100 T 0013»3 

flFGIN! STREAMfStBMtPRTtPlMjX.81] INX P ( DUP » 0» XCH» D I A 10, 041.05200 T 001510 

DIB 30.TRB ?),[)«-P600005); 04105300 T 001812 

BEGIN S T * S J DS*2 CHR END; 04105400 T 00l9t3 

04105400 

$ SET OMJT * NOT(STATlSTicS) 04105409 T 0020*2 

IF JUNK,r36ii2]#45 AND ReLTOG 04105500 T 002012 

OR M[ T 003 . r 3 * 6] a ANq M[I0D3 LSS (DIRDSK k DSKToG) THEN 04105510 T 0021*3 

IF fUSFRCODFCPjMIXJ EQ\/ McP) * NOT THEN * 04105550 T 002713 

BEGIN TFRMiNATEfPlMlX)! TERM INALMESSAGE C 30) END; 04105600 T„ 0030*3 

04105600 

!F(FSrPlMlx»(FSX«.P(*(NOT 2 iNX LOCN) , 4, COC ) , r 1 3 1 1 1] 04J05650 T 0032*3 

DlV 5), [40*433 04105700 T 0035*3 

AND TW0f l0D.t?4*l]4FSXt43»44*4]))#0 THEN 04105750 T 0037*1 

BEGIN Tr0]t*TE0Hl[l9«47un0[26*40*7}l 04105800 T 0040*2 

M[f*( f N0T 2)INX LOCN))lNX 5 3>s N ABS(*P ( DUP ) ) J 04105850 T 0043*3 

GO 10 RpTURNJ 04105890 T 0047*2 



PRT(5?5) * RETURN 



ENDJ 04105900 T 0048*0 

04105800 
IF NOT I0D, [24*11 THEN M [ S ] . [ 1 1 » 1 3 M I 04105950 T 0048*0 

END DISK BUSINESS; 04105990 T 0052*1 

04105200 

IF l0D,[3*5]a30 THEN GO RETURN; % SPO S846- 04105998 C 0052*1 

IOREQUEST(R»!OD.LOCN)|X 04106000 T 0054*2 

T f 0] . c J 9 » 1 J * 0? 04107000 T 0056*1 

IF CNT1*P(*(N0T 2 INX LOCN ) , 1 3. COC ) , 1 10 * 9 ]-l ) *0 THEN* 04108000 T 0058*0 

STRF.'AM(NTlfC*T[0]»T)l 04109000 T 0062*0 

BEGIN Si * T; SI * SI+81 DS * NT1 H[)S)% 04110000 T 0063*3 

SI * LOC CI DS * WOSIX 04111000 T 0064*3 

END** 04112000 T 0065*1 

04110000 
GO TO RETURN;* 04J13000 T 0065*2 

FNDJX 04H4000 T 006610 

04100000 
SIZE" 0068 WORDS 



Save procfdure newio;* 04ii50oo t ooooio 

PRT(5?6) * NFWIO START ° F SAVF SEGMF:NTJ BASE ad O r ESS « 00313 

RFT.IN REAL S«NT3.U«NT4lX 04H6000 T OOOOIO 

PRT(162) * s 
PRTC163) « i) 

S * UNITCU»HaiTQUfSFIRSTHA1T3], [18115)1* 04117000 T OOOOtO 

INITTATElO(IOOUFtS]»LOCATOUErS].f 3I5)»U)>* 04118000 T 000211 

FlRSTWAlT * FlRSTWAlT+1 AND 3lJX 04119000 T 0004:2 

UNlTrUl. [13153 * 31% 04120000 T 0006«1 

END;X 04121000 T 000813 

04116000 
SIZE* 0009 WORDS 



real mof-lta » ?iu« 04121050 t oooqio 

PRT(ll) * Mf>pLTA 

REAL MLOG * ?l2;i 04121100 T OOOOIO 
PRTC1?) s MLOG 

REAL MRoW = ?13U 04121150 T OOOOIO 
PRTC13) - MROW 

REAL L0 r ,Sl7E s 043;* 0412H70 T OOOOIO 
PRT(43) * LOGSIZE 

REAL LOfiHOLDER = P56|S 04121200 T OOOOIO 
PRTC56) « LOGHOLDER 

REAL NUMAINTMESS « P5?;2 04121250 T OOOOIO 
PRT(57) * NuMAINTMESS 

REAL LOfiENTRY * 063;% 04121300 T OOOOIO 
PRTC63) * LOGENTRY 

REAL NXnISK = 076l* 04121350 T OOOOIO 
PRT(76) » NXDISK 

ARRAY MAINTLOGARRAY « »77[*J|« 04121400 T OOOOIO 
PRT(77) * MAIMTLOGARRAY 

PROCEDURF DISKORAUXERROR(R); VALUE R; REAL RJ FORWARD; 04121410 T OOOOIO 

„„ r , START OF REL SEGMENT! DISK ADDRESS « 00051 

PRT(527) a HISKORAUXERROR 

PROCEDllRF ACTUALIOERR(R)! VALUE Rj REAL Rl FORWARD; 04121425 T OOOOIO 

START OF REL SEGMENT; DISK ADDRESS ■ 00051 
PRT(530) > ACTUALJOFRR 

procedure linkup(Type.key); value type, key; Real type.key; forward;* 04i?i450 t ooooio 

START OF REL SEGMENT! DISK ADDRESS ■ 00051 
PRT(531) * LINKUP 

PROCEDURE CHFCKJOBORFILEMESS(MIX.FIB#U);X 04121500 T OOOOIO 

START OF REL SEGMENT; DISK ADDRESS m 00051 
PRT(532) s CMECKJOBORFII.EMFSS 

VALUE MIX.FIBfUl REAL MlX,FIB»Ul FORWARD!* 04121550 T OOOOIO 

procedure logoutmaint(b)l value bl real b! forward!* 04121600 t ooooio 

start of rel segment! disk address « 00051 
prtc533) » logoutmaint 

procedure maintlogger(b)! value bl real b; forward;* 04121650 t ooooio 

start of rel segment! disk address « 00051 

PRT(534) s MAINTLOggER 

DEFINE 04121700 T OOOOIO 

L.OGVERSlONs( % VERSION NUMBER ON NfXT CARD 0412171 T OOOOIO 

? 04121720 T OOOOIO 

& X CURRENT ENTRIES ON NEXT CARD 04121730 T OOOOIO 

21 04121740 T OOOOIO 

[30l42l6])#» 04121750 T OOOOIO 

TAPFBUFFFRSiZE * 200#! 04121850 T OOOOIO 

ARRAY MAINTBUFFERC*]; 04121950 T OOOOIO 

PRT(535) a MAINTBUFFER 

save procfdure iofinish(R,c)! value RtCi real r.c; 04122000 t 000010 

START OF SAVE SEGMENT! BASE ADDRESS ■ 00322 
PRT(536) ■ tOFINiSh 

BEGIN BOOLEAN STOP! 04123000 T 000010 
STACKfF+1) s STOP 

COMMENT 04123010 T OOOOIO 

WHEN E#0» STOP TAKES THE FOLLOWING VALUESl 04123020 T OOOOIO 

DISK ERROR (OTHER THAN NOT READY ON A DFX SYSTEM). 04123030 T OOOOIO 

1 ANY ERROR OTHER THAN THOSE LISTED FOR 0» 2 OR 3, 04123040 T OOOOIO 

2 LOCKED ADDRESS (SHAREDlSK), 04123050 T OOOOIO 

3 ANY ERROR OCCURRING WHEN UN I T [ U] , [ 5 1 B] #0 (A RETRY). 04123060 T OOOOIO 



when f*o, stop takes these values* 
-? to for which complete should not 

DISK WRjTE BFFORf READ WITH UNIT 
1 PRINTER lOl 
NORMAL 10, 



BE SET (DATACOM 
OR EU SWITCH), 



OR 



STACK<F+2> « TJM 
STACKfF+3) = U 



FNO COMMENT* 
RFAL TjMsSTOP+t» 



U = TtM+U 



PRT(160) 
PRT(t61) 
PRT(i62) 
PRT(163) 
PRT(164) 
PRT(166) 



T 
S 

si 

V 

F 

T 



LABEL TEST,N0WAlT,PR0C,NEW,QUP.INCR> 

LABEL ERRORS,OlSKrRR,DS»X.SW#LP*DK,OX,DXl.OC»OK,LH 

REAL TsNTi,S*NT2»$1pNT3»VpNT4.EpNT5« JpNT7JX 



nu» 



PRTC164) b LOCN 
PRTC165) p tOD 
PRT(162) « FIN 



NAMF LOCNbFJ REAL I0D«NT6, FIN*S1* 



SWITCH TYPF :« OK, LP, OK.OK.dK, OK, OK, OK, OK, OK, DC* 



xiii- 



% INITIALIZES TIM 
% INITIALIZES U 



S SET OMIT = NOTCDFX) 

$ SFT OMjT = NOT(NEWLOGGING) 

P(CHANjO[C J)» 

SI«(T »«UN i TTP( CHANNEL fC)»niJP)]) t U 8H 511 
t SET OMJT s NOT SEPTICTANK 

% Xlll- 

* CHECK FOP A PARTIAL word binary Read with no parity fRRors, this IS 

% ILLEGAL AND IS MARKED AS BEING A PARITY ERROR. Xlll- 

% Xlll- 

TF U LEO IS THEN % TAPE I/O Jill- 

IF (R.C18I123 AND M462) p 00440 THEN % BIN READ-NO PAR Jill- 

IF R,ri5»3] * C(8-R.t22«ll) AND 7) THEN X PART WD XFERX1U" 

R.I28MJ '* MOn3iOSj % MARK AS PARITY ERROR IF MOD III \f 

ERRORSI 

IF (E ♦ R.[26I73)+(V * T.[5<8] ) * THENX 
BFGIN IF(S1 * FiNALflUECSJ) < THENX 

IF (E * SI « f ?5I8 j AND E) ■ THENI 
IF V s THEN 
GO TO SWI 
IF (U AND P774) # 16 THEN 
BEGIN 

RDcTABLE[Ujl*(*P(DUPm ( C-l ) [ 1 » 46 » 2 ]& R[3»3*5JJ 
IF Up30 THEN 
BEGIN 
TF (R.r28i5J AND *25) # THEN 

begin 

IF ( NOT R, [32*13 AND R. [28*13) ThEN 

GO TO DC* 
GO TO X» 
END 

FLSE GO TO DC* 
FND ELSE GO TO Xl 



04123070 
04123080 
04t23090 
04123100 
04123110 
04123120 
04123500 



04124000 T 
04125000 P 
04126000 T 



000010 
000010 
000010 
000010 
000010 

ooooto 

000010 



OOOOlO 
OOOOtO 

ooooto 



04127000 


T 


ooooto 


04] 


128000 


P 


ooooto 


04 


128010 


T 


ooooto 


04' 


128099 


T 


ooooto 


041 


128799 


T 


ooooto 


041 


28900 


T 


ooooto 


04] 


129000 


T 


000013 


041 


129490 


T 


000312 


041 


29520 


C 


000312 


041 


L29530 


C 


0003t2 


041 


29540 


C 


000312 


04] 


129550 


C 


000312 


041 


129560 


C 


000312 


04] 


29570 


C 


000411 


04] 


129580 


C 


0006J2 


04] 


29590 


C 


0009t3 


04 


129900 


T 


001212 


041 


30000 


T 


0012«2 


04] 


[31000 


T 


0015*3 


041 


132000 


T 


001713 


04] 


133000 


T 


002012 


04] 


133500 


T 


002113 


04] 


34000 


T 


0022*1 


041 


34050 


T 


0023*2 


04J 


34060 


T 


002410 


04] 


34300 


T 


0026*3 


04J 


34400 


T 


002813 


041 


34500 


T 


0029*1 


041 


34600 


T 


0031*0 


04] 


34700 


T 


0031*2 


04] 


34800 


T 


0033*2 


041 


34900 


T 


0034*1 


04] 


34950 


T 


0036*0 

04134600 


04] 


34955 


T 


0036*0 


041 


34960 


T 


0036*0 



$ SFT OMTT 



end; 

IF E * ThFNS 

BEGIN X RECOVERED MASS STORAGE % 
MA!NTbUfFER[NXDISKI*NXMSK + 4 AND 153 

»* -0 8. UI2t46t23 & L0CATQUEtS][4»3l5] « 
CL0GFNTRY»«L0GENTRY*1)[CTF] I 
RDCTABLECU][18M»23; 
IF FINAlOUETS) GTR THEN 
BEGIN 
MAlNTBUFFER[NXDlSK3ta(*P(DUP)) & 

C(M[M[Sl|*L0CATQUEtS3 INX NOT 23 INX 
,[131113 DIV ETRLNGW1)C9I39|9] J 
M t 5 1 ) i t 7 I 1 3 I » 1 ; 
END? 

P(MAINTbUFF(tR[NXDISK + 23> = IOOUE[S3)I 

notcauxmem) 

pcnflaG(M[P])); 

P(P*Vrl »44i4]#tMAlNTBUFFER[NXDISK + n3»STn>l 
MAlNTqUFFER[NXDISK +33l «MAINT BUFFER [U3I 
IF (LOGHOLDrR INX 0) a THEN 
BEGIN 

LOGHOLDEW.tCF3lBtMAlNTBUFFER[NXOISK3 3» 
INDfPfNDENTRUNNeR(P(.MAINTU0GGER)#O,10O)> 
ENn ELSf MrLOGHOLDER.tFF33.CCF3 «* 

[MAINTBUFFERINXDISK33I 
LOGHOL.DER.tFF3«*[MAlNTBUFFER[NXDISK3 3J 
NUMAINTMESSl* NUMAINTMFSS+li 
T,[5f83 * 0> 

GO TO SWJ 
ENd?% 

IF V * ThENX 
S SFT OMIT = NOT(SHARFDISK) 

BEGIN % ORIGINAL ERROR ON MASS STORAGE!! 

TINUtU], [16112] * P£DUP> t rl8ll2J+llX 
MaINTBUfFER[U3«bRRTWOCC)[18U3U3» 
RDCTABLECUJU(*PCDUP))»(C-Ut H 461 23 J 
V»*129j 
S SFT OMTT • NOTCSHAREMSK) 

ENoX 

FLSF BEGIN % RECURRENT ERROR ON MASS STORAGE* 
P(MAlNTBUFFER[U3»*PCDUPtL0D) OR 
Rj,TWO(C)t I8i43i4]}| 



43 



SET OMjT = 

DISKFRR' 
SFT OMfT = 



NOT(AUXMEM) 
NOTCDFX) 



TF tV ♦ V*l) > 137 THENX 
BEGIN RJaPJ 

IF LOCATQUEtS3.C9ll3 
M[LOCATQUE[S33l*R 



T. [5:103 i»0; 
GO TO DXJ 



THEN % OLAY I/O 
OR IOMASKI 



04134990 T 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

04 

04 
04 
04 
04 
04 
04 
04 
04 
04 

04 
04 
04 
04 
04 
04 

04 
04 
04 
04 
04 
04 
04 
04 
04 

04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



135000 T 


137000 T 


137100 T 


137110 T 


137120 T 


137130 T 


137140 T 


137150 T 


137160 T 


137170 T 


137180 T 


137190 T 


137200 T 


137202 T 


137203 T 


137212 T 


137215 T 


137220 T 


137230 T 


137240 T 


137250 T 


137260 T 


137270 T 


137275 T 


137280 T 


137290 T 


142000 T 


142500 T 


143000 T 


144000 T 


144099 T 


145000 T 


146000 T 


146100 T 


146200 T 


147000 T 


147399 T 


148000 T 


149000 T 


150100 T 


150200 T 


151000 T 


151200 T 


151220 T 


151230 T 


151235 T 


151300 T 


151399 T 


152400 T 


152600 T 



04134400 
003610 

04134050 
0036(0 
003613 
0037U 
003910 
004113 
004311 
0045U 
00461 1 
004613 
004713 
005012 
0054U 
0057(0 

04137150 
005710 
0059«0 
005910 
006010 
006211 
0064U 
006512 
006610 
0067 J 2 
006BS3 

04137240 
007012 
0072«1 
007313 
007510 
007613 
007711 

04137000 
0077U 
0078»0 
007610 
007812 
008210 
008413 
008713 
008812 
008812 

04J45000 
008812 
008910 
009010 
009212 
009411 
009511 
009611 
009910 
0099(0 
009910 
009910 
010013 



DS s X 



Xi 



P(DEL); 

end;* 

UNlTfU] * T&V[5M0;83;X 
CHANNEL[P(TI0)J * U»X 

P(t ioouF.rs]]»iiO);x 

GO TO EXTERNAL i % 
STOP * CV*0)v2+l»* 
T . C 5 1 1 3 3 «• 3?xE + 8?X 
GO TO TfSTj 



04152800 T 



END* 



SWt i 60 TO TYPf[T,[1S4] j }% 
LP: 

IF STOP :* (T is T&OC 161 161 13 ) t f 171 1 J THEN 

test: if ftrstwatt * n f xtwait then go to incr else* 

go to nfw else go to nowajt;x 

DKl 

IF NOT f H"I0QUECS3).[?4I1] THEN 
IF FINaLQUF[S].C24 II] THEN* 
S SET OMIT * DFX 

BFGIN 
S SFT OMfT = NOT DKBNOpFX OR OMIT 
S SFT OMjT = OKBN0DFX OR OMIT 

Mf l0QUF[S]:*l&lr2/U47: 1 ]]***( PC DUP ) I NX P(0,LNR,XCH) ) I 
$ POP OMIT 

GO TO ds; 
END FLSE GO TO OK F.LSE GO TO OK; 

S POP OMIT 

$ SFT OMIT * NOT DFX 

DC « 
S SFT OMfT s NOT(DATACOM ) 

$ SFT OMIT b DFX 

DX« 0X1 : 
S POP OMfT 

OKI IF FIRSTWAIT s NeXTWaIT ThfN 

NOWaITi IF (SI ** L0CATQUElS],tl8ll53) USS *177T THEN 

INlTJATEl0(i0QUE[Sn»L0CATQUECSn.[3l5],U)l! 
ELSE 
PR0r« T ts T*0[16U6l2] 

ELSE 
BEGIN* 
NFWl NFWIOIX 

IF STOP THFN GO TO INCRIX 
OUPl IF L0CATQUFCS3,tFF] GTR P1777 THEN GO TO PROci 

OUEUEUP(U)|X 
T * T&4ri3:43:5] t% 
ENOJX 



incr: 



IF CTIM*CLOCK+PCRTR)-TiM) L.SS THEN TJM*Oj 
I0D«=I0QUF[S]I 



04 
04 

04 
04 
04 
04 
04 
04 
04 
04 
04 

04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

04 
04 
04 



52900 T 
53000 T 



54000 
55000 
56000 
57000 
58000 
59000 
60000 
61000 
61500 

62000 
63000 
64000 
65000 
66000 
67900 
68000 
69000 
69090 
69100 
69190 
70750 
70800 
70900 
71000 
71200 

71250 
71350 
74000 
74999 
76000 
76899 
76900 
76901 
77000 
78000 
80000 
81000 
82000 
83000 
87000 
86000 
89000 
90000 
91000 
92000 
93000 



T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



94000 T 
94050 T 
94100 T 



0101 1 1 

04151200 

oiom 

010112 

04149000 
010112 
010313 
010313 
0105:0 
0105*3 
010611 
010812 
011111 
Oil 1 « 3 

04131000 
011113 
0119J0 
0119«0 
0121*3 
0123*0 
012410 
012410 
0125«3 
012711 
0127J1 
012713 
012783 
0127:3 
013212 
013212 
0133»0 

04169100 
013310 
013310 
013310 
013310 
0133*0 
0133*0 
0133*0 
0133*0 
0133*0 
0133*3 
0136*1 
0138*3 
0139*0 
0140*0 
0141*1 
014113 
0142*1 
0143*1 
0145*1 
0146*0 
0147*3 

04187000 
0147*3 
0147*3 
0151*1 



IF (U OR 1 )xl9 THFN 
RFGlN 

IF CJUNKl«MriOD],r5l7])>9 ThFN 

JUNKJnNpUP.rCFUCJUNK AND ?i7)) 
IF JDNK<NFUP,tFF] THEN 

PEUIOCJUNK] l»PCDUP»LOn)+CLOCK+P(RTR)»EUlO[C]; 
FN[>; 

T*(Sl*L0CATQUEt5J), C3I531 * FIND MIX INDEX 
S SET OMIT = NOT(NEWLOGGING) 

TOTlMEr I ]*(*P(DUP))+TIM; 

if P(,si»L00).rio:i3 then forgetspacec iod)) * no mem message 

IF F#0 THFN 

IF STOP THEN 

PCT) 
ELSE GO TO Li 
ELSE BEGIN 

RETURNIOSPaCE(S)> 



Hi 



END? 



Pf T&P(.Sl»LOn)CFTF])> 



PftUNlTrU)]»STD)J 

FIN «. FlNALQUEfS] ANn NOT MEMORY)* 

TF (li OR l ) NEO 17 ThEN 

IF IOD . C24 I 1 3 THEN* 

BEGIN V «■ ABS(10D.r33!l5]-R.f33Jl53);X 
IF IOD. f 811 03 < V THEN* 

if iod- r 23 » 1 3 then* 
v * loo.teiioji* 

IF U < 16 THEN* 

IF IOD. f21 12] ■ THEN* 

BEGIN; STREAM(A*0lB«-MC51,[33U5] + V-l J)»* 
BEGIN SI ♦ LOC B)* 

if sc * "«■" then tally * n* 

A ♦ TALLY)* 

END)* 

V * -P+V)* 
END)* 

IF U * 30 THEN * NOT DCA 

FINISHOFFIO(U))* 

END)* 

IF E * THEN* 
* SFT OMIT « NOT(SHAREDISK) 

BEGIN IF STOP LfQ 1 THEN 
BEGIN 

INDEPfNdENTRUNNER( 

P(.DtSKORAUXERROR)+((U AND 0774) NEQ 16), 
RtS[3t43lS]f 240)1 
LOcATaUE[S],Ul»nt»l) 
END 



FND* 



ELSE IF FIN < THEN PC LOC ATQUEt S3 . R» XCHt* ) ) * 



04194200 
04194300 
04194400 
04194500 
04194550 
04194600 
04194650 

04194700 
04194799 
04195000 
04195100 
04196200 
04196400 
04196600 
04196800 
04197000 
04199000 

04?01000 
04?02000 

04?03000 
04205000 
04205012 
04?06000 
04?07000 
04208000 
04209000 
04210000 
04211000 
04212000 
04213000 
04214000 
04215000 
04216000 
04217000 

04218000 
04219000 

04219100 
04220000 
04221000 

04222000 
04222499 
04223000 
04223500 
04224000 
04224010 
04224100 
04224500 
04224750 

04225000 
04226000 



0152«1 
0153«2 
0154)0 
0156)2 
0159)1 
016012 
0164)1 

04194300 
0164)1 
0166)1 
0166)1 
0168)1 
0170)2 
017111 
0172)0 
0172)2 
0172)3 
0173)1 

04199000 
0176)2 
0177)2 

04197000 
0177)2 
0178)1 
0180)0 
0181)1 
0182)2 
0185)2 
0186)3 
0188)0 
0189)3 
0190)2 
0192)1 
0196)1 
0196)2 
0197)1 
0197)2 

04214000 
0197) 3 
0199)0 

04213000 
0199)0 
0199)3 
0201)0 

04207000 
0201)0 
020113 
0201)3 
0203)0 
020312 
0203)3 
0205)2 
0207)1 
0209)3 

04223500 
020913 
0212)3 



» SET OMJT m MOT(SHARFOISK) 
FLSF BEGIN* 

IF FT N < THEN PCR OR lOMASK»LOCATQUE[S]»»): 
FLSE 
S SET OMJT * NOT CDATACOM OR DFX OR DKBNOOFX) 

BEGIN 

LOCN * [M[L0CATQUE[S)3]J* 
IOD * I 00. t 33* 15] ; X 
WHILE LOCNcO], £331153 * fOD DO* 

LOcN *■ 1 INX LOCN;X 
L0CN[0] ♦ M OR FjNjX 
END ENOJX 



04226499 
04227000 
04228000 
04229000 
04229099 
04229200 
04230000 
04231000 
04232000 
04233000 
04234000 
04235000 



PRTC53M * INITIATE 



IF PIMiX * THEN GO TO NOTHINGTODOiX 
IF I ■ PIMIX THEN GO TO RETURN;* 

GO TO initiate;* 

END IOcOMPIeTEJX 



04236000 T 
04237000 T 
04238000 T 



04223000 

021213 

021213 

021311 

021610 

0216J0 

021610 

021612 

0218(0 

021911 

0221J0 

022213 

022410 

04229200 
04227000 

022410 

022513 

022712 



04239000 T 022810 

04123000 
SIZE* 0229 WORDS 



STAC*(F*2) * T 



save Rfal procedure wa i t iof iod,mask>u);x 

VALUF MASK#UflOO;X 
RFAL MaSK,U» T 00* * 
RFGINSf 

Real t> 



HFFINE OCTADF* DS*3 RfSET*3cIF SB THEN DS'SET ELSF 

ds*.RfSetiskip sp)#; 

TOP «■ NFLAG(PC.|0D»L0D))*TlNUrU]r3l3l5j;* 
MASK ♦ NOT MASKJX 

!0REOUEST(NABSClOD)»MASKt25U0i8J»lOD» 
t I0D]&Un?l4?»63);j! 
IOD * IOD&0r?5l?5!8]&0Cl9« 19M3iX 
SLEEP(t I00]» JOMaSk)JX 

TF C t WA I TTO* IOD. C26S 7] ) AND MASK AND MASK , C 18 Jl 5 ] ) #0 
REG IN 

T*SPACE(1?); 

STREAM(i0D*IO0.[26l7),MASK*(NOT MASK ) , t 41 ? 7 ] , 

Z«-tTlNUtU3],T*T); 
BEGIN DS*20 LIT" UN£XP i-0 ERROR ON •» I S I * Z ; 
SI«-SI+5jdS*3 CHR)DS*8 LIT" |RESULT»"| 
Sl*LOc I00ISI*SI+6ISKIP 3 SB> 3(0CT ADF ) * 
DS«-6 LIT w ,MaSKs m >Sl*Slf6*SKlP 3 SBI 
3(0CTaDE)>DS«-2 LI T " . - •* ? 
END? 

IF Plhjx * THEN BEGIN P(T)* PUNT(O) END* 

IF NOTERMSfT(PIMtX) then 

BEGIN 

TFRMINATE(PlMlX&19[l8l33ll5])J 

IF JAR[P1MIX»91,SYSJ0BF THEN ISYSTEM JOB 

BEGIN 

SPOUT(T)J 

bLasto(U); 

ENO ELSE 



START OF SAVE 



04240000 
SEGMENT? BASE 
04241000 
04242000 
04243000 



THEN 



TERMINALMESSAGE(-T)J 



END? 



FNDJ 



END! 



T 000010 
ADDRESS * 
T 000010 
T 000010 
T 000010 



00551 



04243100 T 000010 



04243200 
04243300 
04?44000 
04J>A5000 
04246000 
04247000 
04248000 
04249000 
04250000 
04251000 
04251100 
04251200 
04251300 
04251400 
04251500 
04251600 
04251700 
04251800 
04251900 



04252100 
04252200 
04252300 
04252500 
04252600 
04252700 
04252800 
04252900 

04253000 
04253100 



04252000 T 



04253200 T 
04253300 T 



0000» 
00001 
00001 
00031 
0004) 
0006* 
00071 
00101 
0011« 
00151 
0015* 
0017J 
00191 
00201 
00231 
00251 
00291 
0030? 
00331 


0034? 


0036? 
00371 
00381 
00391 
00411 
00411 
00421 
0043« 


0043? 
0045* 


0045? 


00451 


IZF* 004 















2 

1 

3 



2 

3 

3 

3 

3 

2 



2 

3 

4251400 



4252000 

1 

3 

i 
2 

2 
3 
2 

4252600 

2 



4252200 



4251000 


4243000 
6 WORDS 



REAL PROCEDURE TAPfEAR J T YRETRy ( R. U, KEY ) t % 
PRT(5ftO) s TAPfPaRiTYRftRY 

valuf r»u,kfy; real r>u,key; forward;* 
Rfal procfduRe wRitfPaRitvrfflswitch(Oiod,Rc)j 

PRTf541> • WR|TEPARiTYRfELSW!TCh 

value OiOD,RC* real ojoo»rc; forward; 

PROCEDURE DISkORAUXERRORCR)? VA|,UE RJ REAL Rl 



STACKfF-?) m MSCW 

STACKfF+1) = U 

STACK(F+2) a S 

STACKcF+3) = E 

STACKfF+4) 3 T 



STACK(F+5) s MK 
STACKfF+5) s CELL 

STACK(F+6) 3 I OD 

STACKfF+7) a MfX 

STACKfF+10) * FIN 
STACKfF+tO) 3 PARITY 

STACK(F+11) = KEY1 

STACKfF*12) ■ KFY2 

STACKfF+13) ■ DISC 

STACKfF + H) * MASK 

STACKfF+15) m ARFA 
STACK(F + 15) s Ul 

STACK(F+16) * RSLT 
STACKfF+16) x MSg 

STACKfF+17) » PRTMAX 
$TACK(F + m ■ Tl 

STACKfF+20) 3 DISKCFLL 
STACKfF+20) a T2 

STACKrF+2l) a TERMNATE 
STACKfF+22) * OLAYlO 



BEGIN 
REAL 


MSCW 


3 '2* 




U 


* + 1 » 




s 


= + 2, 




E 


K + 3, 




T 


* + 4, 




MK 


a +5* 




IOD 


B +6# 




MIX 


= +7, 




FIN 


* + 8, 


Y 


KEY1 


3+9, 




KEY? 


B + 10» 




DISC 


B +11, 




MASK 


B +1.2» 




AREA 


s *13» 



RSLT 



■ + 14» 



PRTMAX a +15» 

DISKcELLb +16. 

TERMNATF a +17, 
OLAYlO 3 +18» 
DSKADRS s +191 



CELL = MK, 



PARITY3 FIN, 



Ul a AREA, 

MSG ■ RSLT, 

Tl * PRTMAX, 

T2 s DISKCELL. 



04254000 T OOOOIO 
START OF REL SEGMENT* DISK ADDRESS * 00051 

04255000 T OOOOIO 

04255100 T 0000*0 
START OF REL SEGMENT! DISK ADDRESS » 00051 

04?55200 T OOOOIO 

04P56000 T OOOOIO 
START OF REL SEGMENT* DISK ADDRESS « 00051 

04256200 T OOOOIO 

04256400 T OOOOIO 

04256600 T OOOOIO 

04256800 T 0000«0 

04J>57000 T OOOOIO 

04257200 T OOOOIO 

04J57400 T OOOOIO 

04257600 T OOOOIO 

04257800 T OOOOIO 

04258000 T OOOOIO 

04258200 T OOOOIO 

04258400 T OOOOIO 

04258600 T 0000«0 

04258800 T OOOOIO 

04259000 T OOOOIO 

04259200 T 0000*0 

04?59400 T OOOOIO 

04259600 T OOOOIO 

04259800 T 0000*0 

04260000 T 0000*0 

04260200 T 0000*0 

04260400 T OOOOIO 



STACKfF+23) * DSKADRS 

NAME 



LOCM 



= +16; 



STACKcF+20) a LOCN 



LABEL nSTT, START. QUIT* RfTRY* KILLL* KjLLERl 
% SET OMjT s NOT(PACKETS) 

DEFINE "J N I T N » PSeUqOMt X [ MI X J # I 
$ POP OM?T 

S SET OMjT « NOT(AUXMEM) 



SUBROUTINE 
BfGTN 
StREAM( 

BEGI 
St «* 

S| » = 
CI ** 

GO L 

LOj DSJs 

Lll DSt = 

L2t DS J = 

L3: OS»* 

L4: nsts 

L5r 0S:= 

L6» os:* 

L7t DS t = 

MXl DSts 

MSG! 

DS J* 

DS : a 

nS« = 

16CD 

si t = 

IF S 
IF S 
IF S 
IF S 
D?»» 
END 



oiskmessagei 



MSg» 
StalO 
N 

LOC M 

Sj+5t 

CI+MS 

OJ GO 

"LIT 

4LIT 

SLIT 

<SLIT 

12LIT 

3LIT 

13LIT 

10LIT 

6LIT 

*di i 

5LfT" 
7LjT- 
4LlT" 
S«s3R 

Si-5; 

B THE 
B THE 
B THE 
B THE 
Ot-U 
STREA 



MK» At»TfNUrUj. M T X, Bl»DSKADRS» 

OUE[S] ,C27*6]» R» KFril»KpYtl«SPACE(lO))l 



Kt S i I *S l*7i DSJeCHRi 

ds;«3Chr; dSi=lit m »t 

g; 

Ll» GO L2* GO L3J 



"NOT READY"; GO 

"BUSY"! GO 
"I/O MEM «| 

"PARITY"; GO 

H i/o t nv addR w ; GO 

"EU "; GO 

"inv disk addr";go 
"write lock"; 



GO 
TO 
TO 

TO 
TO 
TO 
TO 



L4I 

mx; 
mx; 

mx; 
mx; 
lo; 
mx; 



GO L5) GO L6; GO 17 1 



"» MfX="; DS«s2DEC» 

dmsDi-2; ds«=fill; dh«msg> 
, da»"i ds«=8chr; 
» SEGSs"; ds«s2dec; 
, R*"j 

eset; 3cif SB then ds»*set else ds»*reseT; skip sb)>' 

DS:*5LlT"» io»"; 
N DSIs2LlT"4»*; SKIP SB; 
N DS»*2LiT M 3."; SKIP SB; 
N DS8=2LlT"?,«; SKIP SB; 
N DS» = 2LtT'M»«; 

DSlsLlT"*"; 
M STATEMENT; 



END subroutine diskmessagei 

SUBROUTINE DETA I LRECORDENTRY ; 
BEGIN 

KEY2 »* TYPEDSPaCEC6.MAtNTbUfFARfAV);X %\67« 

MtKEY2] ts « R0CTABLErU]rl8»ll2]» 

ie mtx neQ o then 
bfgin 

MrKEV21 I* (*P(DUP)) 

(TF FlNALGUErSl LSS o ihin v tuat 

(MIMrLOCATQUErS] jNX NOT 21 INX 4 J , [1 3 « 1 1 J Dl V ETRLNG ) + l) r9 « 39 » 93 1 

end; 



& MIXr20»43«5] 
LSS TrFN ELSE 
INX NOT ?1 INX 



04260600 


T 


0000 


to 


04260800 


T 


0000 


»0 


04261000 


T 


0000 


to 


04261200 


T 


0000 


to 


04261299 


T 


0000 


10 


04261300 


T 


0000 


to 


04261301 


T 


0000 


10 


04261400 


T 


0000 


to 


04261600 


T 


0000 


to 


04271200 


T 


0000 


to 


04271400 


T 


0000 


(0 


04271600 


T 


0001 


to 


04271800 


T 


0001 


SO 


04272000 


T 


0002 


13 


04272200 


T 


0006 


12 


04272400 


T 


0006 


'2 


04272600 


T 


0007 


(1 


04272800 


T 


0008 


'1 


04273000 


T 


0008 


3 


04273200 


T 


0010 


3 


04273400 


T 


0012 


2 


04273600 


T 


0013 


2 


04273800 


T 


0014 


3 


04274000 


T 


0016 





04274200 


T 


0018 





04274400 


T 


0019 





04274600 


T 


0021 


1 


04274800 


T 


0022 


3 


04275000 


T 


0024 


iO 


04275200 


T 


0025 





04275400 


T 


0026 


1 


04275600 


T 


0027 


3 


04275800 


T 


00281 


2 


04276000 


T 


0031« 


1 


04276200 


T 


00321 


2 


04276400 


T 


0033 


3 


04276600 


T 


00351 





04276800 


T 


0036! 


1 


04277000 


T 


0037) 


1 


04277200 


T 


00381 



54272200 


04277400 


T 


0038! 


1 
>42716Q0 


04777600 


T 


00381 


2 


04277800 


T 


00381 


2 


04278000 


T 


0039i 





04278200 


P 


0039t 





04278400 


T 


00415 


1 


04278600 


T 


0044! 





04278800 


T 


0044> 


3 


04279000 


T 


0045» 


1 


04279200 


T 


0047« 


2 


04279400 


T 


00491 


3 


04279600 


T 


00541 


2 






04278800 



MCKFYP + 1 ] * = TRANSACTION^))* 
IF NOT DISC THEN 
BFH IN 

STRFAMCS:»lOn,[FFl» D » *KF_Y 2 + 2 ) J 
BFGIN 

SMeLOc S* DSI«8DFCI 
END* 

FND 

ELSE M{KEY2+2J »« DSKADRSJ 

MCKEY2+33 »* IOOUECS]! 

MCKEY2+4) »* R & ROCTABLEtU3t3»3l5]; 

mckey2+5) !» if finalqufts] lss then else locatquecs) inx not 2* 
end dftailrecorofntry; 

subroutine fjnishdftail; 

BfGIN 

IF MIX NFQ THFN CHFCKj0B0RFiLEMESS(MlX,M[KEV2+5]»U); 

LlNKUP(4+DlSCf KEY2)J 

FNO> 

P(0, 0, 0, 0, 0, 0. 0» 0» 0» 0# 0» Of 0$ 0, 0, 0# 0, 0, 0)1 

niSci«(U«"L0cAT6UE:tS:»R.r3i5]] l ii2l6]) i [46ini 

M!Xl«LOCATOUf[Sj, [315)1 

IF (OLAYIO Ik CfFlNALOUElS] LSS 0) AND (LOC ATQUEt S) . [9 J 1] ) 3 ) THFN 

BFGIN 

STRFAM(St»04FlNALQUErS]rCTC]*FlNALQUEtS3r21*8ll2 3» lx[ OSKADRS] ) t 
BEGIN 

sl»sloc s> ds«=8dec; x disk address in finalque for olay i/o 

end; 

end flse dskadrs j* h( i oquec s] ] ; 

MK*»»*«J MSGJ*C-i)S 

Rl»RRl00UF[S][3l3l5]; X RESTORE HARDWARE UNJT TYPE 

iOd j* iOQuftS]; 

IF D?SC THEN 
BFGIN 

if Rlr30:n t h fn % disk not Ready 

BFGIN 
$ SET OMIT = NOT(DFX) 

UNIT[U] »«(*P(DUP))i*77777[5*P0«28]| 
MSG»*Oj MK*s"#"J % n t READY 

DlSKMESSAf,E» 

DFTAILRECOROE^TRYJ 

RFAPY *■ NOT TWO(U) AND READY* 

RRRMECH Is NOT TWOfU) AND RRRMECH* 

UNlT[U],[5M0] ** 2; 

GO TO KILLL» 

END* % IF NOT READY 

LOCATQUErS],rFF] I* NOT 0) 
IF Rlt26!7] NEQ 1 AND NOT OLaYIO THEN % NOT BUSY OR SPECIAL I/O 



04279800 
04280000 
04280200 
04280400 
04280600 
04280800 
04281000 



04282400 
04282600 
04282800 
04283000 
04283200 
04283400 



04283 
04283 
04284 
04284 
04284 
04284 
04284 
04285 
04285 
04285 
04285 



600 
800 
000 
200 
400 
600 
800 
000 
200 
400 
600 



04286000 
04286200 
04286400 
04286600 
04286800 
04287000 
04287200 
04287400 
04295400 
04295600 
04295800 
04296000 
04296200 
04296400 
04296600 
04298800 
04299000 



04281200 T 

04261400 T 
04281600 T 
04281800 T 
04282000 T 
04282200 T 



04285800 T 



04299200 T 
04299600 T 



0055»3 
005810 

0058*2 
0059*0 
006l»0 
0061*0 
0061*2 

04280600 
0061 ' 3 

04280200 
0061*3 
0064*1 
006612 
0069 J 3 
0075*0 

04278000 
0075*1 
007511 
0076*0 
0076*0 

0079 5 3 
0081 *1 

04282800 
0081*2 
0081*2 
0086*3 
0086*3 
0090*1 
0091*3 
0094*2 
0095*0 
0098*0 
0098*0 
0098*2 

04285200 
0098*3 

04284800 
OlOllO 

0102*3 
0104*3 
0105*3 
010610 
0l06»2 
0107*1 
0107*3 
0l07»3 
0110*1 
011113 
0113(0 
011410 
0116*0 
0118*0 
0120*2 
012210 

04287200 
0122*0 
0124*1 



nS T T: 



BFG1N 

parity *s c iod, 1 2<* *n and 

IF FjNALQUEtS] GTR THEN 
BFG IN 

IF PARITY THFN GO TO START; 
TfRMiNaTF(MiX&20[cTF])J 

FND X OBJECT ERROR 



(R,r?6l73»l6))l % PARITY CONDITION 

* object job error 



% recoverable error 



F.I.SF 

BEGIN J! MCP I/O 

if mjx neq o then 

BEGIN 

IF JAR[M!X,9].SYSJ0BF THEN % "SYSTEM" 

IF PARITY THEN GO TO START; 
* OONT DS LIBMAIN/DISK ON PARITY ERROR 
GO TO DSjT* 
END» % NON-ZERO MIX 

END* % MCP I/O 

END! % NOT BUSY OR SPFClAL I/O 



JOB 



START: 



QUtT* 



TRANSACTIONS 5b TRANSACT 1 ONr U ] -II 

MaSK Is if (r|N ! = FINALQUECS]) LSS THFN FlN, [25183 ELSF ?377» 
IF (F '•* R.C25I8] AND MaSK) * THEN % ERRORS ARE ACCETABLE 
BFGIN % FIX UP IOOUE 



if msg neq (-1) and 
dftailrecordentryj 
s set omit = not(auxmemh 
rfturnjospacecs); 



disc Then diskmessage* 



AND NOT MfMORYJ 

o Then % mcp i/o 



FlNJsFlNALQUEtSl 
IF (Tll»F!N) LSS 

BFGjN 

IF NOT OLAYlO THEN % I/O FINISH PLACES RESULT DESC. FOR OLAY 
M[LOCATQUE[S] J » *R&EC 25 * 40 *8 ]& I ODt 3 I 3 »5 ] OR I0MASKJ 

FND % IF MCP I/O 

ELSE 

BEGIN 

IF E NFQ THEN % ERRORS 
BEGIN 

PC ,ti»prl); 

Tt I* TUE[25l«0i83J 

END 

ELSE P(.Tl.lOR); 

LOCN Is [MtLOCATQuElS]]]! 

IOD i* I0D.C33M5]> 

WHILE L0CNC0],t33il5J NfQ 

LOCNTO] la PC,T1»LOd)I 

END? 



IOD DO LOCN i« 1 JNX LOCN* 



04299800 
04300000 
04300200 
04300400 
04300500 
04300600 
04301000 

04301200 
04301400 
04301600 
04302000 
04302200 
04302600 
04302800 
04303000 
04303200 



04303400 T 



04303600 T 



04303800 
04304000 
04304200 
04304400 
04304600 
04304800 
04305000 
04305200 
04305400 
04305600 
04305800 
04309200 

04309400 
04309600 
04309800 
04310000 
04310200 
04310400 
04310600 

04310800 
04311000 
04311200 
04311400 
04311600 
04311800 
04312000 

04312200 
04312400 
04312600 
04312800 
04313000 



T 0126*1 
T 0126«3 
T 0129*2 
T 0130*2 
T 0131*0 
T 0l32»0 
T 0133*1 

04300400 
T 0133*1 
T 0133*1 
T 0133*3 
T 0134*2 
T 0135*0 
T 0136*2 
T 0138*0 
T 0138*0 
T 0138*2 

04302000 
0138*2 

04301400 
0138*2 

04299800 
T 0138*2 
T 0138*2 
T 013812 
T 0138*2 
T 0140*2 
T 0144*2 
T 0146*3 
T 0147*1 
T 0147*1 
T 0150*0 
T 0151*0 
T 0151*0 

04309200 
T 0154*1 
T 0154*1 
T 0156*0 
T 0157*1 
T 0157*3 
T 0158*1 
T 0163*0 

04310000 
T 0163*0 
T 0163*0 
T 0163*2 
T 0164*1 
T 0164*3 
T 0165*2 
T 0167*1 

04311400 
T 0167*1 
T 0168*1 
T 0169*3 
T 017H0 
T 0174*2 



04313200 T 0175*2 



GO TO 



KILLLJ 



04313600 T 
04313800 T 



IF F THEN % ROSY 
RFGIN 
MSG«-1 I * BUSY 



RETRY: 

$ SET 



$ SFT 



OMIT * tMOT(AUXMEM) 

niSKMFSSAGF> 

DFTAlLRFCOROFNTRYj 
OMJT * NOTCAUXMEM) 

Tll-(!F DISC THEN \ OqUf CS 3*6 [ 3 » 43 I 5 3 

RFTURNlOSPACFCS)J 



FLSE I09UECS3) 



P1MIX »«M |X ; 

IF NOT OLAYIO THEN * RFTRlFS ARE OK 
IORfOUfST(FiNAL4IUf[S3» Tl» 

(IF DISC THEN IOC ATQUEt S ]*P22[ 121 421 6 J 
L0CATQUEtS3))J 
PlMlXJsO; 
GO TO KILLER; 
FNDJ X IF BUSY 

IF F.M6MJ THEN X I/O MEMORY PARITY 

RFGIN 
MSG»»2; 

GO TO QUIT; 

FND? 

IF E.t41»l3 THEN % INVALID ADDRESS 
BFGIN 
MSGJ=4j 
F»*<M537j 
GO TO quit; 
FND* 

SFT OMIT a NOT(SHAREDISK) 

IF NOT E,t43Ul THEN % NOT PARITY#CHECK DISK ADDRESS 
RFGIN 

STRFAM(DAI*MASKSsDSKADRS J EU»*MASK.[6«63» A»«0, 
EUAI»tMULTlTABLECl6+2KMASK. [511331)1 
BEGIN 



ELSE 



si *«uoc da; 

IF SC GTR w 1" 
IF SC LSS "0 M 
$ SFT OMiT * SHARFDISK 
7( 



THEN 

Then 



go 

GO 



TO 
TO 



bad; 
bad; 



pop 

SET 



OMyT 
OMIT 



NOT(SHAREDISK) 

if sc lss "0" then 
if sc gtr "9" then 

$ sft omit = sharedisk 
Si i»si-5; 

s pop omit 



jump out to bad; sp«si + i; 

JUMP OUT TO BAD); 



0431 
0431 
0431 
0431 
0431 
0431 
0431 
0431 
0431 
0431 

0431 
0431 
0431 
0431 
0431 
0431 
0431 
0431 
0431 



4000 
4200 
4400 
4600 
4790 
4820 
5000 
5190 
5400 
5600 

5800 
6000 
6400 
6600 
6800 
7000 
7200 
7400 
7600 



04317800 
04318000 
04318200 
04318400 
04318600 
04318800 

04319000 
04319200 
04319400 
04319600 
04319800 
04320000 

04320200 
04325400 
04325600 
04325800 
04326000 
04326200 
04326400 
04326600 
04326800 
04327000 
04327200 
04327400 
04327600 
04328200 
04328400 
04328600 
04328800 
04329000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 



0175 
0176 

0176 
0176 
0176 
0177 
0177 
0177 
0179 
0180 
0180 
0183 

0187 
0187 
0187 
0188 
0189 
0192 
0193 
0194 
0194 

0194 
0195 
0195 
0196 
0197 
0197 

0197 
0198 
0199 
0199 
0200 
0201 

0201 
0201 
0202 
0202 
0204 
0207 
0207 
0207 
0208 
0208 
0208 
0209 
0209 
0209 
0210 
0211 
0211 
0211 



04311000 

2 


04305000 



1 

3 

2 

2 

2 







3 
04315600 





3 

1 

3 

2 

1 



2 

04314200 
«2 

1 

3 

2 

1 

3 
04318000 

3 

2 



3 

2 



4319200 







2 

3 





1 


3 
3 





1 

2 

2 

3 



$ SET OW|T 



BAD* 
0K« 



■ NOT(SHAREDISK) 
Dl»«LOc DA* D5:«2 OcT; 
Sjl»FUA» Si:=Sl+14> SKIP EU SB* 
DI**L0c Al DM»D1+7| SKjP 2 DBJ 

if SB then skip db* 

St'bLOC HA; SjIbSi+61 

if sc nfQ "0" then go to bad; s i ««si + 1 » 

«cif sb then ds»«set else ds**reset; skip sb); 

smbloc a* sii s S]+7i if sc gtr m" then go bad? 

if sc lss "o" thfn go bad; 

s i i -euaj sp«sl+eu> skip sbi skip a sb) 

if sb then go to ok; 

tallyj.u 

da*.tally; 

FNDI 

IF fMASK**P) OR E.t4?MJ THEN % BAD ADDRESS OR EU NOT READY 
BEGIN 

MSG*«5+MASK> % 5 = fU NOT READYt 6*JNVALID DISK ADDRESS 
IF NOT MASK THEN MKl»"#"J 
IF f MIX NEQ 0) OR OLAYIO THEN 

BEGIN 

E:»P1^37; GO To QUIT; 

END* 



DISKMESSAGF1 

detailrfrordentry; 
go to killer; % lft 

END 



IT HANG 



ELSE 

BEGIN % 
MSGIB2I 
END; 



MUST BE E.C44U], MEM. PAR, 
E»=P1537; GO TO QU I T ; 



FND; % IF NOT PARITY 

if iO0UEts].r2 / »:n then % disk paHity on Read 

BEGIN 

ms6i«3i % parity 

e»*?20; 

go to quit; 

ENDS 

MSG:s7; % WRITE LOCK 
Et«?l537l 

go to quit; 

ENDI % IF DISK 



* SET OMIT * NOT(AUXMEM) 



KlLLLl 

locatqufcs], 
killer; 

IF Kp-Yl NEQ 
IF KfY2 NFQ 
IF TFRMNATE 



1 1 1 1 1 ] x =0 ; 

THEN SP0UTeR(KfY1#UNiTNO»35)J 

o then finishdfTail; 

THEN TrRMINATTfMiX«?0[CTFJ)l 



04329200 
04329800 
04330000 
04330200 
04330400 
04330600 
04330800 
04331000 
04331200 
04331400 
04331600 
04331800 
04332000 
04332200 
04332400 

04332600 
04332800 
04333000 
04333200 
04333400 
04333600 
04333800 
04334000 

04334200 
04334400 
04334600 
04334800 

04335000 
04335200 
04335400 
04335600 

04335800 

04336000 
04336200 
04336400 
04336600 
04336800 
04337000 

04337200 
04337400 
04337600 
04337800 

04338000 
04338200 
04351600 
04351800 
04352000 
04352200 
04352400 
04352600 



021H3 
021i:3 

021251 
0213*1 
0214(0 

021413 
02151 1 

0216*1 
0218*1 
0219 *2 
0220J1 
022113 
022212 

022213 
0223«0 

04326200 
0223*1 
022413 
0225*1 
022612 
022811 
022912 
023050 
0231*1 

04333600 
0231 t 1 
0232*0 
0233*0 
0233*2 

04332800 
0233<2 
023312 
0234*0 
023610 

04335200 
0236*0 

04325600 
023610 
0237*0 
0237*2 
0238*1 
0239*0 
0239*2 

04336200 
0239*2 
0240*1 
0241*0 
024112 

04286800 
0241*2 
0241*2 
0241*2 
0241*2 
024410 
0244*0 
0246*3 
0249*0 



KlLLf TMSCWJ) J 
FND PROCEOURF 



diskorauxfrroRj 



04352800 
04353000 



T 025l»0 
T 025113 

04256400 
SIZE* 0252 WORDS 



PROCEDUPF AnTUALIOERR(R) J VALUF R» REAL. Rj 04353200 T OOOOlO 

START OF REL SEGMfNTJ DISK ADDRESS « 00060 

04353400 T OOOOlO 



STACK(F-2) = MSCW 
STACKfF+1) e E 
STACKrF+2) = T 
STACKfF+3) = S 
STACKfF+4) * F 
STACKfF+5) s U 
STACK?F+6) = Tl 
STACKfF+7) » T2 
STACK(F+10) = T3 
STACKfF + 1 1 ) s KEY 
PRT(162) * FIN 
PRTC165) * tOD 
STACK(F+12) » MASK 
STACKfF+13) * DISC 
STACKfF+14) = TYPE 
STACKfF+15) a MIX 



BEGIN 
RFAL 


MSCW 


= -2, 




F 


= +1. 




T 


B + 2. 




S 


= +3 , 




F 


= +4, 




U 


* +5, 




Tl 


= +6, 




12 


* + 7, 




T3 


s +8, 




KEY 


u + 9, 




FIN 


* NT3. 




ion 


» NT6, 




MASK 


* +10, 




nisc 


* +11, 




TYPf 


* +12, 




MIX 


= +135 


NAME 


LOCN * 


T3; 



04353600 T OOOOlO 

04353800 T 0000:0 

04354000 T OOOOlO 

04354200 T OOOOlO 

04354400 T OOOOlO 

04354600 T OOOOlO 

04354800 T OOOOlO 

04355000 T OOOOlO 

04355200 T OOOOlO 

04355400 T OOOOlO 

04355600 T OOOOlO 

04355800 T OOOOlO 

04356000 T OOOOlO 

04356200 T OOOOlO 

04356400 T OOOOlO 

04356500 T OOOOlO 

04356600 T OOOOlO 

04356800 T OOOOlO 
STACKfF+10) s LOCN 

t SET OMyT * NOT(PACKETS) 04356899 T OOOOlO 

DEFINF UN|TNO s pSpUoOM? X [ MI X 3 * t 04356900 T OOOOlO 

* POP 0M?T 04356901 T OOOOlO 

04357000 T OOOOlO 

LABEL Ll» L2, Dl 7* D1.9, D2?» START, NOTRFADYMESS, NTRDY, 04357200 T OOOOlO 

EOF, REALFOF, TAPeRETRy, SIX, SEVEN. FIX, LEAVE. 04357400 T OOOOlO 

REWINDING. NOCOOE, CLEAR. KILLL, KILLER* 04357600 T OOOOlO 

LABE|, READER, PRINTER, TAPE* DRUM. DISK, SPO. PUNCH, 04357800 T OOOOlO 

PAPERPUNCH, PAPER, DATACOM; 04358000 T OOOOlO 

04358200 T OOOOlO 

SWITCH W Is READER. PRINTER, TAPE.ORUMtDlSK.SPO.PUNCH.NOCODE, 04358400 T OOOOlO 

PAPfRPUNCH.PAPfR.DATaCOMI 04358600 T OOOOlO 

04358800 T OOOOlO 

SUBROUTINE MaKEMfSSI 04359000 T OOOOlO 

BFGIN 04359?00 T OOOllO 

STREAM(Sli*F.r*3»53» S2I «F . C 38 I 5] . AUTjNUcU]. 04359400 T OOOllO 

MX*MIX» KEY*KEY*SPACE(tO)}» 04359600 T 000311 

BEGIN 04359800 T 000610 

S?l«LOC Al S I l«S 1 4.51 04360000 T 000610 



L 1 * 

L2» 

L3» 

L4» 

L5» 

L6« 

LL» 

MXXI 

PS« 

NR» 

LLO: 

LL1 I 

LL?« 

CHK» 

MjXiT: 



CT »* 

GO L 
DS? = 

DSia 
OSIs 
DS««= 
DSI* 
DSis 

0S! = 

GO T 
GO T 

n>] » = 
cm* 

DSJs 

nsss 

DS: = 
DSt* 
DS*« 
DS« = 

OT « 
FND> 



L!T"*"> DSJ*3 CHRJ DSt.LlT" "J 
Cl+Stl GO TO LL> 

1' GO L2J GO L3» GO L4* GO L5t GO 
19 UT M BLANK TA P F N WRITE"' GO 

4 LlT"BUSY"J GO 

6 LI T" I/O MEM M ; 

6 LlT w PARlTY"J GO 

1? LIT" I/O INV ADDR"* GO 

9 LIT«M/0 ERROR"! GO 

10 LIT W WRITE LOCK"; GO 
PS* 
MlXlTI 



L6; GO Hi 

TO mxx; 
TO mxx; 



GO III 



TO 
TO 
TO 
TO 



mxx; 

mxx; 
mxx; 
mxx; 



DI-51 DSl*LlT«#"; 01**01+4; 
CI+S2; GO TO LLO> f,0 TO LL II 

9 LIT"N0T READY"; 

5 LIT H PRINT"; 

4 LlT w READ"; 

5 LlT w PUNCH w ; 

5 LIT'CHECK"; 

6 LIT". MjXs"; nS«a2 OECJ DSl.LlT 

■01-31 osisfill; 



GO TO LL2; 

GO TO MI XI T J 

GO TO chk; 
GO TO CHK; 



end cf makfmfss; 



SUbROUTtN 
BEGIN 
KEY is 

MfKEY] 
IF M T X 

BFG 
MfK 
(IF 
(Ml 
CHE 
(IF 
U)l 
END 



f dftajlrfcordentry; 
typedspace(abs(T2)#matntbuffaReav);x *167- 

»* (ABS(T2) DfV 5 -l) & RdC TABLE [U J [ l8 I 1 J 23 ; 

MEO THFN 
IN 
EY] «■ (*P(t)UP)) & MIX[20U3«5] & 

FTNALQUErSl ISS o ThEN fLSE 
MrLOCATQUEtS] iNX NOT ?1 INX 4J, [131111 DI V ETRLNG >♦ 1 ) [ 91 39» 9] ; 
CKJOBORF!LE.MFSS(MiX# 

FlNALOUEfSl LSS ThEN ElSE LOCATQUECS] INX NOT 2), 



MCKEY+11 is TRANSACTlONfUl; 
MfKEY+2]«slF TYPE«2 THEN RoCTABLFtU] 
M[KFY+3] *s lOQUEfSj; 

m[key + 4j »* r & rdctableruh3»3*5ji 
if type»? then 



& Uf3U3l5] ELSE 0> 



bfgin 

MrKEY+53 
MfKEY+6] 
MrKEY+7] 
MrKFY+83 
MrKfY+9] 

end; 



la MULTITABLECU3; 

«= LABELTABLEtU]; 

I* PRNTABtErUJ; 

»« o; 

is 16; 



IF T2 GTR THEN LI NKtjP( TYPE* 1 , KEY ) J 

end detailrecoroentry; 



04360200 
04160400 
04360600 
04360800 
04361000 
01361200 
04361400 
04361600 
04361800 
04362000 
04362200 
04362400 
04362600 
04362800 
04363000 
04363200 
04363400 
04363600 
04363800 
04364000 
04364200 
04364400 



04364800 
04365000 
04365200 
04365400 
04365600 
04365800 
04366000 
04366200 
04366400 
04366600 
04366800 
04367000 
04367200 
04367400 

04367600 
04367800 
04368000 
04368200 
04368400 
04368600 
04368800 
04369000 
04369200 
04369400 
04369600 
04369800 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



04364600 T 



04370000 T 
04370200 T 

04370400 T 



000612 
000713 
000812 
001012 
001312 
001412 
001513 
001710 
001910 
002013 
002212 
0022»3 
0023*0 
002410 
002511 
002710 
002dll 
002911 
0030M 
0031*1 
003310 

003312 

04359800 
0033*3 

04359200 
003410 
003410 
003410 
003410 
003612 
004012 
0041*1 
004113 
0044<0 
004611 
005110 
005213 
005611 
005613 

04366000 

005613 
005910 

006411 
006612 
006913 
007012 
007110 

007311 
007512 
007713 
007913 
0081(3 

04368600 
008113 
008412 

04365200 
008413 



DEFINE: MAKEMLOGCMAKEMLOGl ) « 
BrGfN 

T?t»MAKEMLOG1 J DE TA I LRECORDENrRY; 

end*; 

P(0, 0. 0, 0, 0, 0, 0. 0, 0» 0, 0# 0, 0)> 



SET OMiT 
THIS CODE 
IE RiO 
THrN 



* datacom 
was placed here 
* ovfRflow of 

BEGIN STRfA 

DS««42_, 
SPOUT(T)J 
GO KILLER? 

FND» 



tRom outer block to avoid causing 
interrupt stack 

■ ~ — " ■ 5 ; 

JNTFRRUPT IGNORED BY MCP*"» 



flow of interrupt st ( 

mcbisTs.spaceciO)); 

2lit»#datac0m/tnquir< 

/ T % i 



S POP 

Ut* 
MIX 
Rl» 
STARTt 
Ti* 
TRA 
TYP 
MAS 
IF 



OMiT 
LOCATQUFrS«sR.r3«53] 
*|.,0CAT0UE[S].c3l5]l 
R«!00UE[S]t3l43J5lJ 



r i ?« 6] ; 

% RESTORE UNIT DESIGNATE 



IF 



UN|TrU]|0tl3H3l?JI 

NSACTIONTU) J«s TRANSACTT0NtU3-l; 

E ** T . C t 143 1 

K|*IF (T2J«FINAL0UE[SJ) L5S THEN 

CF *«T, t 5* 83 AND MASK) » THEN 

BFGIN 

F I = l ; % RFTAIN ERROR FlFLn 

GO TO fix; 

FNDJ 



E then 
Bfgin 

T3«*l & CU«30)[43i47iiJ| % BUSY/ I NCOMPLETE 
IF U LSS 16 AND TRANSACT TOMEU 3 LE^ THEN 



T2.C2518] ELSE ?377l 
% ACCEPTBLE 



% BUSY 



MASK 



BFGIN 

pc on 

GO TO 

END) 



% dont spout 
Rewinding; 



MfSSAGE 



if 



Lit 



U NEQ 25 THFN % NOT SPO 

BEGIN 

F « * i ; 2 BUSY 

MAKEMESSI 

SP0UTER(KFY.UNlTN0»35)> 

end; 



makfmloguf type»2 then 10 else 5)» 

DO BEGIN 

SLEEPC[CL0CK]»N0T CLOCK)! 

UNiT[U]lB(*PcDUP>>*P(T f XCHHCTCll 

STARTIO(U); 

SLEEPf rUNiTtU]]# Pi 00000000000); 

TRANSACTlONrU] 1« TRANSACT y0NtU]» 1 | 

END UNTIL CUNIT[U].C5«63 AND T3) = Ol 



0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 
0437 



0600 
0800 
1000 
1200 
1400 
1600 
1800 
1900 
1910 
1920 
1930 
1940 
1950 
1955 
1960 



04371970 
04372000 
04372050 
04372100 
04372200 
04372400 
04372600 
04372800 
04373000 
04373200 
04373400 
04373600 
04373800 
04374000 

04374200 
04374400 
04374600 
04374800 
04375000 
04375200 
04375400 
04375600 

04375800 
04376000 
04376200 
04376400 
04376600 
04376800 

04377000 

04377200 
04377400 
04377600 
04377800 
04378000 
04378200 
04378400 



006413 
006413 
008413 
006413 
008413 
008413 
006811 
008811 
006811 
008811 
008813 
009211 
009610 
009911 
009913 

04371930 

009913 
009913 
010211 
010313 
010513 
010513 
010713 
010913 
Olll'O 
011510 
0117U 
011713 
011812 
011910 

04373400 
011910 
011911 
011913 
012210 
012410 
012412 
012413 
0125U 

04375000 
0125H 
012610 
012612 
012711 
012810 
012912 

04376000 
012912 

04377000 
013310 
013310 
013413 
013710 
013713 
013912 
014112 

04377200 



TRANSACTION^] »* TR A NSACT iONr U ) +1 1 

IF (UNfTrU],r5l8] AND MaSk) • THEN GO TO CLEAR* 

go to start* 
end; 



% not Ready 



TF E! r 45* 1 3 THEN 
BFGIN 
IF F.f43*l3 THEN 
PFGIN 

IF TYPE»0 THEN GO TO KFADERJ * READ CHECK 
IF TYPF=1 THEN GO TO PRlNTfR? % PRjNT CHECK 

if type»6 then go to punch; * punch check 

end; 

if u nfo ?5 then % not spo, 

BFGIN 

notreaoymfssi 

f«*96j % not ready 

makemlogmf type*? t h en 10 else 5)j 

makfmessj 

pn); x spout messagf 

REWINDING! 

RFADY »« NOT TWO(U) AND READY? 
NTRDYJ 

RRRMfCh»»NOT TWO(U) and RRrmfchj 

rr p Then spouteRt kfy»unitno,35>i 

FMDJ 

UN!TrUJ,t5»lO] :» 21 
RRRMECH ♦ NOT THO(U) and rrrmechi % let status find it 

GO TO KILLLI 

end; 



X115- 



D175 

IF Flt46l 13 THEN 

BFGIN 

F;*2! % I/O M£M F'aRJTY 
L2: MflKEMESS; 

SpOUTFR(KFYtUMTNO»35); 

MaKeHLOGMF TYPE*? THEN 10 ELSE 5)1 

PfPl537)> X ACCEPT EOF/FOT/EOP 
GO TO SIX; 

EMDI 

IF rl C 4 1 : 1 3 AND TYPE NfO 2 T H EN 

BFGIN % [41*13 FOR TAPE ■ BACKWORD DRIVE 
022! Ft*4> % I/O INVALID ADDRESS 
GO TO l?; 

END) 



GO TO WrTYPE]* 
D19J E 5a 10231 GO TO 017 1 



% I/O MEMORY PARITY 



% I/O INVALID ADDRESS 



04378600 
04378800 

04379000 
04379200 


T 

T 

T 
T 


04379400 
04379600 
04379800 
04380000 
04380200 
04380400 
04380600 
04380800 
04381000 


T 
T 
T 
T 
T 
T 
T 
T 
T 


04381200 
04381400 
04381600 
04381800 
04382000 


T 
T 

T 
T 
T 


04382200 
04382400 
04382600 
04382800 
04383000 
04383200 
04383400 
04383600 


T 
T 
T 
T 
T 
T 
T 
T 


04383800 
04383900 
04385400 
04385600 


T 

C 

T 
T 


04385800 
04386000 
04386200 
04386400 
04386600 
04386600 
04387000 


T 

T 
T 
T 
T 
T 
T 


04387200 
04387400 
04387600 


T 

T 
T 


04387800 
04388000 
04388200 
04388400 
04388600 


T 
T 
T 
T 
T 


04388800 
04389000 
04389200 
04389400 


T 
T 
T 
T 



014410 
014610 

0148»2 
0150*0 

04374400 
015010 
015010 
0150! 3 
0151 1 1 
0l52!0 
0152*2 

015313 
015510 
0156*1 

04380200 
0156*1 
015710 

0l57»2 
0157*2 
0158*1 

04382000 
0162*0 
016310 
0163*1 
0163*1 
0165*1 
0165*1 
0167*1 
0169*1 

04381400 
0169*1 
0171*3 
0173*3 
017411 

04379800 
0174*1 
0174*1 
0175*0 
0175*2 
0176*1 
0177*0 
0178*2 

04387000 
0182*0 
0182*1 
0182*3 

04386200 
0162*3 
016412 
0185*0 

018513 
018611 

04388000 
0186*1 
0186*1 
0192*3 
019213 



SPO: 

IF Flr43«l] THEN GO TO U 1 f * ERROR BUTTON 
f,0 TO Dl9l 

PRlNTFRj 

IF f:[4?U) THEN % END OF PAGE 
BFGIN 

IF !00UEtS],r27l6]-0 ThfN GO FIX* * NOT SPACING 
COMMFNT IGNORF EOP IF NO SPACF OR SKIPI 

IF ROCTABLEIU] OR MULT I TABLE CU]b"FULLPGE" *724« 

then if ioquecs], [28111 then ioque[Sj,[ffj*«»40oi3 xdrl*ch 11 

ELSE I0eUE[SJ,[FFl**400l2 X DBL SINGLE - SKIP TO CH 10 
FLSE % SKIP TO CHAN 1 ON EOP IF NOT 66 LINES %7?A> 

I00UFrS),Cl8ll5] »* 94000H % INHIBIT DATA XFER. SKIP TO CHANNEL 

GO TO CLEAR; 

END! 

IF f!r43IU THEN 

Begin 

FiaOl % PRINT CHECK 

makfmessj 

SpOUTER(KEY.L)NITNO»35)> • 

if e.t*5:il then go to notreadymessi * printer not ready 
maKemloguf type*2 then 10 else 5); 

PfO)l % CLEAR ERROR FIELD 
T T NUrU],n8«i21 '* PfDUP), [18H23 + 1I 

go to Six; 

ENDI 

GO TO 019; % PARITY 

READER! 

IF E!t43«ll THEN % READ CHFCK 
BFGIN 

T|NUrUJ,tl8l12] I* PfDUP). [18U21 + 1I 
Fl*3?; % READ CHECK 
MaKeML0g(5)I 

MaKeMESSJ 

P(l)> % SPOUT MfSSAGF 

GO TO NTRDYJ 

ENDI 

IF Fl[42»l] THEN % EOF CARD READFR-TREAT AS NOT READY 
BFGIN 
UNIT[UJ,[5*8] ,» m | er b r FIELD»N0T READY 

Rl[25«8] ix a; % Rfslt,dfsc,»not Ready 

TRANSACTI0N[U3 != TRANSACT JON fUj + 1 I 

GO TO START; 

ENDJ 

COMMFNT MUST BE Dl9 - USUALLY INVALID CHARACTORl 
STREAMfA5*0 » B I «I OOUE[ S3 ) I 
BfGIN 

d? * = a; si i * bj Di »« Di+8; 



04389600 
04389800 
04390000 
04390200 
04390400 
04390600 
04390800 
04391000 
04391200 

04391400 
04391550 

04391560 
04391570 
04391580 
04391600 
04391800 
04392000 

04392200 
04392400 
04392600 
04392800 
04393000 
04393200 
04393400 

04393600 
04393800 
04394000 
04394200 

04394400 
04394600 
04394800 
04395000 
04395200 
04395400 
04395600 
04395800 

04396000 
04396200 
04396400 
04396600 

04396800 
04397000 
04397200 
04397400 
04397600 
04397800 
04398000 

04398200 
04398400 
04398600 
04398800 



T 019410 

T 019410 

T 019410 

T 019512 

T 0196»0 

T 019610 

T 019610 

T 019613 

T 0197U 

T 019911 

C 019911 

C 0200*2 

C 020411 

C 020911 

T 021010 

T 021410 

T 021610 

04391000 

T 021610 

T 021613 

T 021711 

T 021810 

T 021910 

T 022012 

T 022210 

04393400 

T 0226J0 

T 0226»1 

T 022913 

T 023011 

04392400 

T 023011 

T 023013 

T 0230J3 

T 023013 

T 023112 

T 023210 

T 0235J2 

T 023611 

04395800 

T 023810 

T 023910 

T 023911 

T 023913 

04395200 

T 023913 

T 024012 

T 024110 

T 024312 

T 024511 

T 024711 

T 0247J3 

04397000 

T 024713 

T 024713 

T 024911 

T 024911 



ir sc * ?h then a u or' 
2 f 40fD!««ni+e; sp« Sj + i; 
if sc ■ hi then jump out 2 to d« 

Dt •* 0I-6J Si »« Sj-i J) ; 
Dl »■ AJ 

L« A »a DP 

END* 

IF fjl I* P) s THEN GO TO D19J % NOT INVALID CHARACTER 

if T1 neo 1 then % not in column 1 

bfgin 

STRFAM(A:*TlNUtU].Tl,KEY«»KEY:«SPACEClO))> 
BFGIN 
DS »* LIT "#"J Si i» LOC Al Si tm SI+5J 

ns «= 3 chR> 

ds «* 16 lit " inv chR in col "i 

DS :* ? DFC* DS l» LfT ««■»* 

ENDI 

Pfi)> % SPOUT MESSAGE 

GO TO NTROYI 

END* 

E »* ?40J 

F *« P31OO00U 

GO TO LFAVE* 

PUNCH* 

IF E,r*35 1] THEN 
BFGI* 
Fl »6/t J X PUNCH CHECK 

Makemess; 
sp0uter(key»unitn0»35)> 

I NFW PUNCH DOES NOT GO NOT-RfADY ON PUNCH CHECK 
IF E. [45*11 THEN GO TO NOTREAnYMESSj % NOT READY 
MAKFMLOGfS)) 

TfNUfU], tl8ll?]l«P(DUP),[l8l 121 + 11 

FfsOj % 7FR0 ERROR FIELD 

GO TO CLEARI 

ENDI 

GO TO D19; % PARITY 

PAPERPUNCH« 

IF R. C 27 1 11 THEN % EOR 
BFGtN 
P(P40); 
GO TO SIX J 
ENDI 

GO TO 019; % PARITY 

PAPER* 

IF R. r ^7: 23 NeQ THE^ GO TO eOFJ * BOT/rOT 
IF F 1 r 44 * 1 ] THEN X PARITY 
BFGIN 



04399000 
04399200 

04399400 
04399600 
04399800 
04400000 
04400200 

04400400 
04400600 

04400800 
04401000 
04401200 
04401400 
04401600 
04401800 
04402000 
04402200 

04402400 
04402600 
04402800 

04403000 
04403200 
04403400 
04403600 
04403800 
04404000 
04404200 
04404400 
04404600 
04404800 
04405000 
04405200 
04405400 

04405600 
04405800 
04406000 
04406200 

04406400 
04406600 
04406800 
04407000 
04407200 
04407400 
04407600 
04407800 

04408000 
04408200 
04408400 
04408600 
04408800 
04409000 



025010 
025013 
025113 
025311 
0254*0 
025411 
0254»2 

04398600 
025413 
0256»1 
025710 
025712 
026l»0 
026H0 
026210 
0262*1 
026412 
026511 

04401200 
026512 
026513 
026611 

04400800 
0266»1 
0267*0 
026713 
027010 
027010 
027010 
027013 
0271*1 
027210 
027310 
027412 
027412 
027610 

04405400 
027810 
028112 
0282*1 
028213 

04404200 
028213 
028311 
0283*1 
028311 
028410 
0284*2 
026413 
028511 

04407200 
0285*1 
028513 
028513 
028513 
028712 
0288*1 



GO TO SIX; 
END I 

GO TO nocodf; 

DATACOMt 

IF{T3*«J8Fr*3U3H]}«P2l ThFN GO TO Lis 
NOCODFJ 

F 1= 5; * I/O ERROR 

GO TO L?S 

DRUM « % DRUM NOW HANDLED IN Dl SKORAUXERROR 
DISKI * DISK NOW HANDLED IN DT SKORAUXERROR 
DO UNTU FALSE1 

TAPF 1 

TRANSACTlONtUJ l« TRANSACT fQN [U ] + 1 ; 
IF F^t4AM] THEN 

IT R.I21U THEN % MOD MI DESCRIPTOR 

BFGIN * COULD BE MEM ,PaR, » BLANK TAPE»BOT»EOT 
IF R.tllM] THEN GO TO D19; % MEMORY PARITY 
OPTIONjcOPTION OR Ml % MEANS M0D3I OS I »TRUE 
IF R,t24»l 3 THEN * RfADING 
BEGIN 

IF R.C13M3 THEN R v [27f 1 3 t«ll % BOT. SET EOF 
IF R.tltll) THFN % fOT 

IF (F AND P367)*0 THFN * PARITY 
IF R,r27»l]s0 THEN 2 NOT fOr 
GO TO FIX) % FINISH I/O 
FND 

ELSE 

BEGIN % WRITING 

IF R,n?»n THEN I BLANK TAPE ON WRITE 
BEGIN 

F«*9J % BLANK TAPE ON WRITE 
MaKfMeSSI 

SPOUTERCKEY,UNtTN0#35); 
MAKfMLOGC 10); 

P(16)S 

GO TO SIXI 

end; 

IF R.CHtiJ THEN R.f27li3»«l E LSE GO FIX; 3! EOT, SET EOF BIT 
ENDI 

FND % MOD III DESCRIPTOR 

ELSF GO TO Dl 9; % PARITY 
IF R'.r?«Sl] THEN 
BFGTN 

IF E.t4UU THEN GO TO D??> X INVALID ADDRESS 
IF R.t27lU THEN % EOT 
FOFI IF MASK, [42113 THEN % pOF OK 
BEGIN 



04409200 
04409400 
04409600 

04409800 
04410000 
04410200 
04410400 
04410600 
04410800 
04411000 

04411200 
04411400 

04411600 
04411800 
04412000 
04412200 
04412400 
04412600 
04412800 
04413000 
04413200 
04413400 
04413600 
04413800 
04414000 
04414200 
04414400 
04414600 
04414800 
04415000 

04415200 
04415400 
04415600 
04415800 
04416000 
04416200 
04416400 
04416600 

04416800 
04417000 
04417200 

04417400 
04417600 



04417800 T 



04418000 
04418200 
04418400 
04418600 
04418800 
04419000 
04419200 



T 028813 

T 028910 

T 028912 

04409000 

T 028912 

T 029010 

T 029010 

T 029010 

T 029213 

T 029213 

T 029312 

T 029410 

T 029410 

T 029410 

T 029410 

T 029413 

T 029413 

T 029413 

T 029613 

T 029712 

T 029813 

T 029911 

T 030013 

T 030210 

T 030213 

T 0303U 

T 030611 

T 0307;0 

T 030813 

T 031012 

T 031110 

04413800 

T 031110 

T 031H0 

T 0311 >2 

T 031211 

T 03121 3 

T 031312 

T 031510 

T 031612 

04416600 

T 31810 

T 0318U 

T 031813 

04415800 

T 031813 

T 032113 

04415400 
0321 » 3 

04413000 

T 032153 

T 032P3 

T 032212 

T 032310 

T 032412 

T 0325J1 

T 032612 



REALEOF* F**U(IF R.I24I1J THEN P31 ELSE 0)[CTF3> 
T,[5:8] ;» P40j 

r,o TO fix? 

fnd 

FUSE 

BEGIN % FOF NOT ACCEPTABLE 
PC04O)? 

go to six j 

end* 

tapfRetry* 

MaKfmlog(-tapebuffersizf)* 

IF fTl«TAPFPARlTYRETRV(RiU»KEY)),l5i8]»32 AND 
L0CATQUFtS].r3i5J N£Q ThEN r,0 TO REALEOF* 
U*!OOUf tT,[FF]].t3U]» 
PfT,r5J8])J 

GO TO SlXj 

END* 

IF E*[41 M 3 THEN * WRITE RlNr, 

IF E. [43*13 THEN % PARlTY,hRlTE RING 
BEGIN 

FI«6J X WRJTF LOCK 
GO TO L2* 
FND 

FLSF GO TO D22> % INVALID ADDRESS 

IF E.f«3M3 THEN GO TO TAPfReTRy* % PARITY. WRITE RING ONLY 

P(P40)> 
SIX! 

T |» TtP(XCH)rSUOlS3| 

F I* 1* 
FIX! 

E *« T,r5:83xFJ 

FIN is SI 

IOD l* tOQUE[S3j 
SEVEN* 

RETURNTOSPACEfS)! 



T. [ FF 3 ! »S I »LOC AT OUE tS 3. TFF] I 
IF F « P31OO0O1 THEN 

IF S NFQ 977777 ThEN GO TO SEVEN* 
S«*FiN| 
IF FALSE THEN 
LEAVE! 

lOn *« jOQUEtS3» 

FIN is FlNALQUFrSl AND NOT MEMORY* 

if ion;r24M.3 then 

BFGJN 

NT4 t» MCIOD INX ( IF IOD. [22*13 THEN 1 ELSE NOT 0)3* 

FtNiShOFFiO(U)? 

END! 

IF ( Tii« FIN) LSS then 



04419400 T 
04419600 T 
04419800 T 
044?0000 T 

04420200 T 
044*0400 T 
04420600 T 
04420800 T 
04421000 T 

04421200 T 
04421400 T 



04421600 
04421800 
04421900 
04422000 
04422200 
04422400 

04422600 
04422800 
04423000 
04423200 
04423400 
04423600 

04423800 
04424000 
04424200 
04424400 
04424600 
04424800 
04425000 
04425200 
04425400 
04425600 
04425800 
04426000 

04426200 
04426600 
04426800 
04427000 
04427200 
04427400 
04427600 
04427800 
04428000 
04428200 
04426400 
04428600 
04428800 
04429000 



T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



04429200 T 



032710 
0330*1 
0332J0 
033212 

04419200 

0332«2 
033212 
0333*0 
0333*1 
033313 

04420400 
033313 
0333*3 

04421400 
0336:0 
0338*3 
0341*1 
0343*1 
0344*0 
0344*2 

04418400 
034412 
034511 
0346*2 
0347J0 
0347*3 
0348*1 

04423000 
0348*1 
0348*1 
0349*3 
0350*0 
0350*0 
0351*3 
035212 
0352*2 
0354*1 
035510 
0356*0 
0356*0 

04426000 
0359*1 
0359*1 
0361 » 3 
0362*2 
0364*1 
0365*0 

0365*1 
0365*3 
0366*3 
0368*2 
0369* 1 
0369U 
0374*0 
0374*3 

0442&400 
0374*3 



PCR*Fr?5MO«83M0n[3:3«5J OR I 0MaSK,L0CAT9UE[ S J , *) 
ELSE 

BrGlN 

if f nfQ o then 

RFGTN 

P(.T1»PRL) J 

Tl 5b TUf[»U0:8]J 

FND 

ELSF P<. TIMOR) J 

LOCN »= rMtLOCATQUErSJI]! 

I Of) »* IOD.T33M5J; 

WhTLF L0rNr0],[33ll5] NfQ IOD DO LOcN I* 1 I NX LOCN» 

LOCN[0] !* P C • T 1 » L o 3 J 

FNO> 

UNUrU] Is T| 

CLEAR: . 

U N i T r U 3 Ib f*P(0UP)HF[5l20ll3]l 

STftRTTOfU); 
KIULL: 

LOCATQUFCSJ.dl tillao; 
KILLER: 

KlLLf CMSCW])} 

ENO> 



04429400 
04429600 
04429800 
04430000 
04430200 
04430400 
04430600 
04430800 

04431000 
04431200 
04431400 
04431600 
04431800 
04432000 

04432200 
04432400 
04432600 
04432800 
04433000 
04433200 
04433400 
04433600 
04433800 



T 037610 

T 038010 

T 038010 

T 036310 

T 038313 

T 038411 

T 0385J0 

T 038613 

04430200 

T 038613 

T 038713 

T 036911 

T 039012 

T 0394J0 

T 039510 

04429800 

T 039510 

T 0396M 

T 0396*1 

T 039813 

T 0399:2 

T 0399:2 

T 040210 

T 040210 

T 0402:3 

04353400 
SIZE* 0403 W0RD5 



STACKf F*2) 

STACKfF+3) 
STACK(F+4) 
STACKfF*2) 

STACKfF+5) 

STACKfF+6) 

STACKfF+7) 

STACKfF+10) 

STACK(F+in 

STACK(F+12) 

STACK(F+13) 

STACKfF*H) 

STACKfF*15) 

STACK(F+16) 
STACKfF+17) 

STACKfF+10) 

STACKfF+20) 
STACKfF+21) 
STACKfF+22) 
STACKfF + 23) 



$ SET OMjT a NOT DEBUGGING 
RF!AL PROCEDURE TAPFPARITYRETRYCR»U#KEY);ili 

VALUr R#U»KFY)« 
REAL RtU»KF.Y|X 
BFfifN RfAL Tl*T?»T3l INTEGER I* TUX 



START OF REL 



« Tl 
= T2 

a T3 

» ! 

* RESULT 

* IOO 

* OIOD 

« spacemask 
» spaceiod 

3 M 

a N 

* W 
■ MODE 

* J 
8 K 



0454*999 T OOOOtO 

04548000 T OOOOtO 

SEGMeNTj DISK ADDRESS « 00074 

04549000 T 0000«0 

04550000 T 000010 

04551000 T 000050 



REAL RESULT, I OD »0I 00 »SpACEM ASK » SPACE I OD»M»N»W, MODE U 



Real J.kix 



STACKrF+24) 
STACK<F+25) 
STACKfF+26) 

STACKfF + 27') 
STACKfF+30) 
STACKfF+31) 

STACKfF+32) 
STACKfF+33) 
STACKfF+34) 
STACKfF+35) 

STACKfF+36) 
STACKrF+37) 
STACKfF*40) 



rfal fraseiod-spacemaSkjs 
» eraseiod 

Real z.y.mtx.bsizej 
= z 

= Y 

« MIX 

* BSiZE 

LABEL XIO,GIVEUP; 
LABEL RP.LXJ 
REAL SjZE»T«,LlMIT; 
= SIZE 

* T4 

= LIMIT 

RFAL PTR»BUFFER»BUFFFRSIZE#X 

■ PTR 

■ BUFFER 

* buffersjzf 

pattern, patterni,pattern2»patternw0rd»« d0n«t change order 

a PATTERN 

* PATTERN! 
= PATTERN2 

« PATTERNWORD 

BOOLEAN TESTING. SPACTNG.FLAGGERJ 
a TESTING 
s SPACING 

* FLAGGER 

* SFT OMfT = NOT(PACKFTS) 

DFFINE UNiTNO » PSeUdOMJ X [ MI X ]# I 

* POP OMfT 

LABEL XXiT,E*lT»ENDIT»XEXlTJ 
SUBROUTINE RECORDRETRYII 
BEGIN* 

IF PTR-KFY * TAPEBUFFERSIZE-1 THENX 

BFGINX 



04552000 T OOOOlO 



04553000 T 0000»0 

04554000 T 0000:0 
04554100 T OOOQJO 



04554200 T OOOOtO 
04554300 T OOOOlO 
04554500 T OOOOtO 



04554600 T OOOOtO 



04554700 T OOOOtO 



04554800 T OOOOlO 



04554899 
04554900 
04554901 
04555000 
04555050 
04555100 
04555150 
04555200 



OOOOlO 
OOOOlO 
OOOOtO 
OOOOlO 
OOOOlO 
OOOllO 
OOOllO 
000213 



T4 » = TYPEDSPACE(TAPEBUFFERSIZE»MAINTBUFFAREAV)»!I 

M0VE(l0,KEY^T4);X 

MFM0RYrKFY + 8]t* T APF.BUFFERS I ZE-10; % 

1023JX 



*167- 



MEM0RYtKEY*9JI* 
LINKUP(3.KFY)JX 
KFY«= T«; PTR»» 

FNDJ* 



*EY+9;X 



MrMORYrPTRl«PTR+U «* l0D»* 
M r MOPYrPTR:ePTR+l] «» RESULT 
FND RFCORORETRYJX 



& RnCTABLFtU]ri9U»2]>X 



SUBROUTINE DOlONOWl* 
BEGtN FOR Y*l STFP 1 UNTIL 18 DO 
BFGIN IF R.[24»1]THEN 

BEGIN % WAIT 1/15 SEC BETWEEN 
WHILE T4>CL0cK+P(RTR) DO 
T**CL0CK*PfRTR)+4l 
END* 



Read Retries 
sleepci tl)l 



if ioqueslots*o then sleeP(uoqufslots],63>* 

IOQUESLOTSiafOQUtSLOTS-ll 

IOBUEAVAIL»*lOOUE[Tl »* I OQUEAVA I L ) > 

IOQUECT1 3- IODI* 

LOCATQUECTl]*LOCATQUErT? -C T 3*UN I T t U J } . [ 18 t j 5] ] I [ RESULT ]X 

[33i33M5HT2tl8:33U5m 
UNlTrUl «• T3»Tlrl8i33M5H64[5l35U3]>8 
STARTlO(U);X 
FlNALOUEtTl) «■ NABSCIODH C25I40IB3 OR IOMaSKJX 

Rfsult * OH 

SLFEPC r UN I T CU 3 3, * lOOOoOOOOOOO ) ; I 
IF RFSULT.C30U] THEN * NOT READY 

BFGIN 

MODF «» C-16)> 

GO TO e^ it; 

ENDJ 

IF RFSULT,t29Jl] AND RESULT, [2*1] THEN 
BEGIN 

IF RFSULT.rl2:l ] THEN * BLANK TAPE 

IF lOD,[24llJ ThfN 1 READ 

TRANSACT I ONrUj*TRANSACTlON[U]-|&IODt 1« 22H] ELSE 
BEGIN* % WRITE 

STREAM(A*TtNU[U]»T*T2*SPACE<3))J 
BEGIN Sj«-LOC A* Sl*Sl + 5i DS*3 CHR* 

ds*21 lit" blank tape on wr|te* h j 
end; 



SPOUTfR(T2#UNiTNO,35)j 
GO TO XXI T J* 



END? 



if Result. rii»i] then % mem parity 
begin; 

stream(a*tinu[u]»t«-t2*space(3)); 

begin Sj*loc a; Si*si+5; ds*3 chr; 
ds*13 lit" i/o mem par*"; 



04555250 


P 


0003*1 


04555300 


T 


0005*2 


04555350 


T 


0007*0 


04555400 


T 


0009:2 


04555450 


T 


0011 '2 


04555500 


T 


001212 


04555550 


T 


0014*2 

04555200 


04555600 


T 


0014:2 


04555650 


T 


0017J0 


04555700 


T 


0020*3 

04555100 


04556000 


T 


0021*0 


04556100 


T 


0021*0 


04557000 


T 


0022*0 


04557100 


T 


002213 


04557200 


T 


0023*1 


04557300 


T 


0027*0 


04557400 


T 


0028(3 

04557100 


04558000 


T 


0028*3 


04558500 


T 


0031*2 


04559000 


T 


0032*3 


04560000 


T 


0034*1 


04561000 


T 


0035*2 


04562000 


T 


0038*3 


04563000 


T 


0040*0 


04564000 


T 


0042*3 


04565000 


T 


0043*2 


04566000 


T 


0046*2 


04567000 


T 


0047*1 


04567010 


T 


0049*0 


04567020 


T 


0049*3 


04567030 


T 


0050*1 


04567040 


T 


0051*1 


04567050 


T 


0053*0 

04567020 


04567100 


T 


0053*0 


04567150 


T 


0054*3 


04567200 


T 


0055*1 


04567250 


T 


0056*0 


04567300 


T 


0057*1 


04567310 


T 


0059*1 


04567320 


T 


0061 *1 


04567400 


T 


0064*2 


04567500 


T 


0065*1 


04567550 


T 


0068*1 

04567400 


04567600 


T 


0068*2 


04567700 


T 


0070*0 


04567750 


T 


0070*2 

04567310 


04567770 


T 


0070*2 


04567780 


T 


007111 


04567790 


T 


0071*3 


04567800 


T 


0075*0 


04567810 


T 


0075*3 



END* 
SP0UTfR(T2»UNiTN0,35)> 

xx tt * mode is 16; 

IF TEvSTING Then go xioi 
RecordretRy; 

go TO fXtTJ 

end* 

IE RESULT,rl3«2]#0 THEN Y*l8> 
END ELSE GO TO XIO; 

ENDJX 

Result, [27M ]*u modf*32* 

X I O I IF NOT SPACING THEN RfCORDRETRy* 
ENn DOlONOWJ* 

SUBROUTINE SPACEBACKJ 
BEGIN 

IF TRANSACTION^].! THEN 

BEGIN 

IODU^4 200000000&OlOOr3»3«5]> 

doionow; 

I ««TWO(U)» 

T?t»ClOCK+P(RTR)+600» 

COMPLEXSLEEPfCPfRRR) AND I)/0 OR T2<CL0CK + P( RTR ) ) ; 
02258000 ACCIDENTAL fNTRY AT RTR 

IE (P(RRR) AND T 5*0 ThEN % TlMF OUT s> NOT READY 

BEGIN M0DE'*-16J 
GO TO EXJT; 

END* 

END ELSE 
BEGIN 

M»*w; 
!Odi*spaceiod; 

J:*0; 

spacing** true;x 
do bfgjn 

doionow; 

TRANSACTlONruJ'«(*P(DUP))+i; 

vi*«J+l* 

END UNTIL ((MJ*RESULT.[CF]-SPACElOD.rCE]+M) LSS 

OR RESULT, r27H J) ANO J GTR \l 
IF NOT TESTING THEN SPACING** FALSE; 
TRANSACT I ON[U 3 »*( *P( DUP>)'2; 
l0D««SPACEl0D«0f22l47il]; 

doionow; 

IF N»0 THEN BSIZE»*RESULT.[CF3-I0D.[CF3 ELSe 
IE BSIZE#RE5ULT;:ccF3-tOD.£CF3 THEN 

begin 

STREAM(A*«TlNU[Uj,D««T2USpACE(l0))| 
BEGIN Sll*L0C AI5!U$U5fOSl«3 CHR; 
DSjxi3 L iT» ERASE ERROR*"; 



04567820 T 

04567830 T 
04567840 T 
04567845 T 
04567850 T 
04567855 T 
04567860 T 



04567870 
04567900 



04568300 
04568310 
04568320 
04568330 
04568340 
04568350 
04568360 
04568364 
04568366 

04568370 
04568372 
04568374 
04568376 



04568390 
04568400 
04568410 
04568420 
04568425 
04568430 
04568440 
04568450 
04568460 
04568470 

04568480 
04568485 
04568490 
04568500 
04568510 
04568520 
0456.8530 
04568540 
04568550 
04568560 
04568570 



04568000 T 

04568100 T 
04568200 T 
04568250 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 



04568380 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



007713 

04567800 
007810 
007912 
0080» 1 
0081*1 
008210 
008212 

04567780 
008212 
008510 

04567150 
008510 

04557000 
008711 
0089»3 
009210 

04556100 
0092*1 
009310 
0093*0 
0094*0 
0094 I 2 
00961 1 
009710 
00961 1 
010010 

0107*3 
010910 
011012 

04568372 
0H2I0 

04568330 
0112*0 
0112*2 
0113*1 
0114*0 
0114*3 
0115*2 
0115*2 
0117*0 
0119*0 
012011 

04568430 
0123*0 
0126*0 

0127*3 
012913 
0131*2 
0133*0 
0136*2 
0139*1 
0139*3 
0143(0 
0143*3 



ENDI 

SP0UTER(T?,UNITN0»35)* 
FLAGGER «• 1> 
GO GIVEUP) 



end; 



ENDI 



END> X OF SPACFRACK 

TjNurU], [18112] ♦ PCDUP),rl8»123*l/* 

MIX ♦ L0CAT0UECUNlTtU].tFFl].C3l5]l 

FLAfiGFR * F!NALQUEIUNIT[UJ,[FF3] < 01 X NOT OBJECT JOB 

OlOn ♦ NFLAGU0QUE[UNlT[U].ri8il5J]m 

PTRi* KEY+9) 

IF R,r?«lll THENX 

BEGTN COMMENT READ RETRYIX 

SPACEMASK * OIOD, [21123**1111 E8V NOT P0123IX 
SPACElOn * OlOo8,lt8»38Jl03iir23U7u3;X 
FOR M * 1 STEP 1 UNTfL 3 DOX 

BEGIN SPACEIOD * SPACF I OO&SPACEMASK t 2 1 1(6 I 23 J * 
FOR N * 1 STEP 1 UNTIL 5 DOX 
BEGIN IOD * SPACEIODIX 
IF N#l OR M#l THEN 



IF 
IF 



N0T(R,c29il]AND 
THEN DOIONOWI 
RESULT. [28113 THEN* 

BFGJN MODE * 0|» 
IOD * OlODlX 

ENDX 



DOlONOW 
R.[2»l] 



ELSE 

AND R, [12H3) 



FLSE bfgin MODF 
IOd «■ 
ENDIX 



«■ SIX 
0lODiSPACEMASK[21lfl3l?]lX 



«0l0n[l»22M ))[33»33»153l 



dOionow;x 

if not result. [28H3 then go to exttix 

IF MOD3IOS THEN IF OjOO, [23113 THEN 
BEGIN Z*I0D*0I0D&SPACEMASK[21 14012] 

&(0I0D,[33i15]+C0IOO»[8j103p1) 



RPi 



DOIONOWI MODE*0| 

IF RESULT, [2611] THEN 

BEGIN I0D*0|0DJ DOIONOWI 

IF NOT RESULT, [28»13 ThEN 

GO TO EXITI 
lOD*ZRSPACEMASKt21i46l?]| 
DOIONOWI M0DE*8I 
IF RESULT, C28H3 THEN 
BEGIN I00*0I0DSSPACEMASK 
[2114312)1 
DOIONOWI 
IF RESULT, [28113 THEN 

GO TO LXI 
GO TO EXIT! 
ENDI 



04568580 T 



04568590 
04568595 
04568600 
04568610 

04568620 

04568630 

04569000 
04569100 
04569200 
04570000 
04570100 
04571000 
04572000 
04573000 
04574000 
04575000 
04576000 
04577000 
04578000 
04579000 
04579100 
04579200 
04580000 
04581000 
04582000 
04583000 

04584000 
04585000 
04586000 

04587000 
04588000 
04588010 
04588020 
04588030 
04588040 
04588050 
04586060 
04588070 
04588080 
04588090 
04588100 
04588110 
04588120 
04588130 
04588140 
04588150 
04588160 
04568170 
04588180 
04588190 



014513 

04568560 
0146»0 
014712 
014811 
014813 

04568540 
014813 

04566390 
014813 

04568310 
014910 
016012 
016213 
016510 
016710 
016811 
016910 
016912 
017210 
017413 
017610 
017713 
017910 
017913 
018310 
018511 
018810 
018813 
019010 
019013 

04561000 
019013 
0l92«0 
019313 

04584000 
019313 
019510 
019611 
019811 
019911 
020113 
020412 
020613 
020712 
021010 
021110 
021111 
021310 
021413 
021512 
0216U 
021713 
021910 
021913 
022012 
022110 



LXl 



N 



FND) 



fnd» 

Z*ABS(I0D.[33il5]-RFSULT.r33rl5])j 
IF IOD. [21123=0 THEN 

Z*Z-(RESULT,[15l33»0); 
IF I0D,[8I103<Z THEN 

begin ioo*oiod; mode*oj GO TO rp endi 

IF 10D, [22U1 THEN 
STREAM(Z#Y*Z D IV 64» 

S*RESULT. [331153+1, 

SK* (RESULT ,[151 33 + 1). [45 I 33. 
GM*(JF IOD, [21113 THEN 

ELSE "*")» 
D*0I00, [331153)1 
BEGIN SI*S| SJ*SI+SKJ 

Y(16(DS*32 CHR)>; 
Z(DS*8 chrji 

SK(DS*LIT "0")| 
OI*DI-SK| Sl*LOC GMJ 
SI*Sl+7l DS*CHR> 
END ELSE 

STREAM(Z»Y*Z DIV 64# 

S*RESULT,[33ll53-l# 
SK*(RESULT,[15l33+7),[45«33# 
FL*(IF IOD. [21H3 THEM 

ELSF ?1 45 . 
FK*(8-RESULT.[15»3 3).[45l33. 
D*0I0D,[33M53)J 
BEGIN SI»Sf SI*SI+SK> DI*DI+7l 
YC16(32(DS»CHR; SI*SI-?| 

0I*DI-2))); 
ZC8(DS*CMRJ SI*SI-2I Dl*DI-2))J 
SIfLOC FLl Sj*SI+7| 
FK(DS*CHRI SI*SI*H DI*DI-2)» 
FND1 

IOD*P14 0000005&OIOD[22I22U ] 
&OIODC 31 3153 1 

OOIONOW; GO TO EXlTi 



04588200 T 



ENDJX 



IF 



TRANSACTI0N[U3 < 15 THENX 
TRANSACTI0N[U3 ELSE 15; X 
IOD ♦ SPACFl0B«SPACEMASKr21i4Ol23>X 
spacingib TRUEI 
FOR W * 1 STpP 1 UNTIL N DOX 
BEGIN DOIONOWJX 

IF RESULT, [27113 THEN N*0|X 
ENDI* 



IOD * SPACEI0D&SPACEMASK[21I37I23|X 
FOR N * 3 STEP 1 UNTIL W DO DOJONOWIX 



04588210 
04588220 
04588230 
04588240 
04588250 

04588260 
04588270 
04588280 
04588290 
04588300 
04588310 
04588320 
04588330 
04588340 
04588350 
04588360 
04588370 
04588380 
04588390 

04588400 
04588410 
04588420 
04588430 
04588440 
04588450 
04588460 
04588470 
04588480 
04588490 
04588500 
04588510 
04588520 
04588530 

04588540 
04588550 
04588560 
04588570 



04590000 
04591000 
04592000 
04592100 
04593000 
04594000 
04595000 
04596000 

04597000 
04598000 



T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 



04589000 T 



T 
T 
T 
T 
T 
T 
T 

T 

T 
T 



04588130 
022110 

04588070 
0221 tO 
022312 
022413 
022712 
022813 

04588250 
023U1 
023210 
023313 
023510 
023613 
023712 
023910 
024010 
024013 
024211 
024311 
024412 
0245U 
024513 

04588330 
024610 
024713 
024910 
025013 
025112 
025310 
025413 
025513 
025613 
02581 1 
025911 
0261U 
026113 
026311 

04588470 
026312 
026410 
026611 
026910 

04588020 
026910 

04578000 
027111 
027211 
027412 
027611 
027710 
027810 
027910 
028110 

04594000 
0283U 
028510 



fnd;* 



IOD * OlODjX 
MODE * 0>* 

spacingi* false; 
if not result. c 28 « 1 3 



THEN GO TO EXITjX 



THEN GO XEXITJ 
GO GIVEUPI 



MODF * 16 J X 
FND ELRF BFGIN COMMENT WRfTF RETRY.** 

LIMIT * $15000' 

ERASEIOD ♦ (SPACEIOD * I Oo&Ot 8 I 38 I l03&7t 22 « 45 » 33& t T23X 

[33»33I15])R9112[18U1»73;« 
W «• R. C 33: 15]-0I0d.C33j15] + 2j!K 

WHILE TRUF DO 
PEG IK' 

spacebackj 

if mix#o then if tfRmseT(Mix) 

if (n+n+w+128) gtr limit then 

IOD «■ ERASFlOD&Nr9t39»9]|X 

SPACING.'* TRUE** 

FOR J * STfP 512 UNTIL N DOX 

BEGIN TRANSACTION^] * TRANSAC T J ON[ U 3* 1 J X 

nOjONOWJX 

IOD * eRASEIODU[8:47:13IX 

if result. r27in then 

BFGIN 

IF NOT R. [27113 THEN L I M I T«-J + 3000| 

R.[27il3*l; 
END? 

end;i 



spacing:* false;*; 

IOd»« IOD R NCCTcJ; 

recordretryi* 

IOD «• OjOD;X 

nOiONOw>x 



% 



nOiONOw>x 

IF RESULT. [?7«1J THEN R.[27U3 * 
IF NOT RESULT. [2Blt] THENX 
BFGIN 

SlZE*RESULT.[CF3"OIOD,rCF3; 

spaceback; 

I0D*SPACEI0DR0f22lft7ll3; 

DOlONOW; 

IF 



111 



ionow; 

NOTCRESULT, [28»n OR (OlOD.t2t«13 AND 

f RESULT, [CF 3 -SPACE I OD.CCF3/SIZE))) THEN 

GIN 



BEGIN 

MOdE*OrR[42»27H3j 

go to fxjt; 

end; 



end; 



END1X 



04599000 
04600000 
04600100 
04601000 
04602000 
04603000 



04605500 
04606000 
04607000 
04608000 
04609000 
04610000 
04611000 
04626000 
04627000 
04628000 
04628100 
04629000 
04630000 
04631000 
04632000 
04633000 
04633100 
04633200 
04633300 
04633400 



04634100 
04634200 
04634300 
04635000 
04636000 
04637000 
04638000 
04638100 
04638200 
04638300 
04638650 
04638700 
04638800 
04638900 
04639000 
04639100 
04639200 
04640000 



04604000 T 
04605000 T 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



04634000 T 



GIVEUP: 



04641000 T 
04642000 T 
04642900 T 



028911 
029010 
029013 
029112 
0293*0 
029411 

04576000 
029612 
0297* I 

04572000 
029713 
029812 
030110 
0303U 
030610 
030613 
030613 
030810 
031111 
031410 
031513 
031612 
031910 
032110 
0322»0 
032313 
032412 
0325J0 
032713 
032912 

04633100 
032912 

04630000 
0331 13 
033212 
033313 
033510 
033513 
033710 
034010 
034110 
034112 
034313 
034510 
034613 
034810 
034912 
035212 
035310 
035413 
035710 

04639000 
035710 

04638100 
035710 

04610000 
035712 



ST» 



I* 



5TRfAM(A*TlNU[U]» T*T?*SPACFC6))| 

&FGIN SI * LOC A* SI * Sl+5j DS * 3 CHRIS 
DS «- 11 LIT " WR PaRITY* h U 

end;* 
if mjx*0 then if (not olod),r21«13 thfn i alpha tapf 

BEGIN STRFAMcT*0» S*OIOD.[cF3» QM*P14)I 

BEGIN SI •• S; Df * LOc qm; 01 * D I + / 1 

if sc s "«- ,f thfn go f; 
if sc=oc Thfn go l> 

DI • DI-1J 
. GO ST I 
TALLY*1; T*TaLLYJ 
FNDJ 

IF P THEN 

BEGIN STREAMfT2)J 

BEGIN 01 * 01+13; 

OS «■ 29UT", TRIED TO WRITE INVALID CHR*"I 

END? 



END! ENOI 



FLAGGER * II 



SP0IJTER(T?»UNITN0,35)8 

IF MIX)«0 AND NOT FLAGGF« TmFN 

RFGIN 

TAPEPARITYRETRY «• Y «• WRlTEPARlTYREEUSWlTCH(OlOD»0)l 

MODE «• Y,[5I8]> 

R.t27Jn ♦ 0) 

GO ENDITJ 
FND> 



XEXIT: 

MOOF 
ENoJX 



\6t% 



FX[T* TaPePARJTyReTRYJ= UN[T[UJ 8, M0DE[5M0i8]J 
FNoiTJ 

Mf-MORYIKEY + 8] !.■ PTR-KEY-9J 

MEM0RY[KFY+9]I»ABS(M0DF)I 
M F MORY[KEY] l« P(DUP.LOn) & ((PTR-K^Y) QlV 5H39l39(9]j 
IF (MODE/16) OR CR,C24MJ) THEN L I NKUPC 3 , KEY ) ELSE 
BFGIN 

BUFFFR»= OIOD INX Ol 

RUFFERSlZEIa OIOD* f8 llO J f 

IF NOT 0I00.C21 • 13 THEN 3! ALPhA WRiTE - CHECK Q-MARKS 

BEGIN 

STREAM(T»»0( 

TfMP>*0» SVS|»sO> 
BUFFSTARTJcBgFFER* 

BUFFENOlaflUFFER+BUFFERSlZE)! 
BEGIN 

si««buffendi dp«loc tempi dsj« chri 

dii.buffend; DS»sLIT"- m J dii»di-ii dsi*resetj xq-mark 

si j.buffstartj 



04644000 
04645000 
04646000 
04647000 

04647050 
04647100 
04647150 
04647200 
04647250 
04647300 
04647350 
04647400 
04647450 

04647500 
04647550 
04647600 
04647650 
04647700 

04647750 
04647800 



04648000 
04648050 
04648100 
04648150 
04648200 
04648250 
04648300 
04648350 

04648400 
04649000 
04650000 

04651000 
04651010 
04651050 
04651100 
04651200 
04651300 
04651400 
04651500 
04651600 
04651700 
04651800 
04651900 
04652000 
04652100 
04652200 
04652300 
04652400 
04652500 
04652600 



035712 
036013 

036112 

0363U 

04645000 
036312 
036513 
0368(1 
036910 
036913 
037012 
037013 
037110 
037112 

04647150 
037113 
037113 
0373»0 
037311 
037711 

04647600 
037712 
037811 

04647550 

04647100 
03781 1 
037913 
038111 
038K3 
038313 
038510 
038613 
038711 

04648100 
038711 
0387U 
038810 

04605000 
038810 
039010 
039010 
039310 
039511 
039910 
040211 
040213 
0404(0 

0405(1 
0406(1 
0406(3 
0407U 
0408(0 
0408(1 
0409(1 
0409(1 
041010 
0411 I 1 



if sc > 9 Then 

BEC IN 
LIS SjIsSl + U IF SC>9 THEN GO Ll * 

end; 

L?» SjlsSl+l» IF SC<9 THEN GO L2 I 
SVSi l*Sf J 
SpsLOC SVS I ; SllaSj+51 

DI»=LOC BUFFENo; 0l»sDl+5» 
IF 3 Sc*DC THEN TALLY» = U 
DMaBUFFENDJ Sn»L.Oc TEMP; DSi« CHR* 
Tt«TALLY> 

fnd; 

j i«POL!ShI 

MEMORYtKfY+2] I* PfDUP.LOD) R IU*47llJ; 

END* 

IF STOPTEST OR FLAGGER THFN L fNKUP ( 3» KEY ) ELSE 
BfGIN 

MFWORYTKEY] Is NABSC Pf DUP» LOD) > I 

LTNKUPf 3.KFY)) 

testings* spacingi* true; n»*»o; 
bufferstzess buffersi7e-u 

OyODIe OlOQ & 1 C 181421* J I 

PTRS= KeY+81 

STRFAM(MOD2lOSIaN0TCM0D3l0S + 62)» D « at PATTERN] ) > 

BFGIN 

nS«=l3 llT"0l?48 + x*<c.GS"; 

M0D2?0S(DI»»0l-6> DS I «L I T»*»J DIUDI+5)! 

DSSs LIT"""; dSs« LfT" w "; 

DS 1*3 LIT M ]$C"* 
END* 

SLFFPCCMEMOKY[KfY]],P 100 OOOOOOOOOOOOO) J 
MfMORYTPTR] 8s OJ M0VE(191#PTR>PTR+i)J 
FOR K1*0 STEP 1 UNTIL 15 00 
BEGIN 

STReaM(AS=[PaTTeRN3, 

K«sK+CK*15)# Htc4+4x(K<14)» NSsl+(K>13)» 
SlZEDIV64t=BUFFERSlZE,t36l63» BUFFERS I ZE» 
BUFFER)' 
BEGIN 

SII«A» 5f?"SUK? 

Mcos»=N chR; si «*si-n) j 
sissbuffer; 

SlZEDIV64CDSt*3i> WDSJ DSI*32 WDS); DS **BUFFERS IZE WoSJ 
r> I » * A ; DI« B DU24; OS««WoSs 
FNOJ 

TOD*a OiOD'= OIOo & (tK<7) OR ( K> 1 3 ) ) r 2H 47 I 1 ] J 

nOioNowi 

MEMORYfPTRlls RESULT R RDCT ABUE [ U 3 C 1 9 1 1 I2JI 

SPACEBACK; 

STREAM(Sj7EDIV64l*BUFFERSlZE.t36»6],BUFFERS!ZE» 

BUFFFR)' 
REG IN 



04652700 
04652800 

04652900 

04653000 

04653100 
04653200 
04653300 
04653400 
04653500 
04653600 
04653700 
04653800 

04653900 
04654000 
04654100 

04654200 
04654300 
04654400 
04654500 
04654600 
04654700 
04654800 
04654900 
04655000 
04655100 
04655200 
04655300 
04655400 
04655500 
04655600 

04655700 
04655800 
04655900 
04656000 
04656100 
04656200 
04656300 
04656400 
04656500 
04656600 
04656700 
04656800 
04656900 
04657000 
04657100 

04657200 
04657300 
04657400 
04657500 
04657600 
04657700 
04657800 



041112 
041210 

041210 
041310 

04652800 
041310 
041410 
0414U 
0414U 
041511 
04)610 

041613 
041710 

04652300 
041711 
041713 
042110 

04651800 
042110 
042313 
0424U 
042611 
0427 II 
0429U 
043012 
0432U 
043312 
043513 
043513 
043713 
043912 
044012 
0441U 

04655100 
044U2 
044312 
044710 
044910 
044910 
044912 
045313 
045413 
0455U 
045511 
045610 
045713 
045810 

045913 
046012 

04656500 
046013 
046412 
046610 

046813 
047010 
0471H 
047H3 



0S»«8 LIT" "1 SI l*6UFFER* 
Sl?pDIV64(DS»*3? WDS> 0S««32 WDS)> 

fnh* 



dsi«buffe"size WqSI 



04657900 T 
04658000 T 

04658100 T 



lOD « * OlOD 
DOTONOW? 
MEMORYfPTR 
5TREAM(Als 

CNR 
LOO 

wos 

L 

Vl = 

Nla 

RFC 
TpM 
BIT 
BUF 

begin; 
leapfrog 

N(V(S|t« 

BEGI 
SI 
FORSEVFN(SV 
SI 
01 
Si 
TA 
SI 
IF 
BE 



I lt24U7»l]* 



+ 13«» RESULT & RDCTABLErU]M9lit?j; 

[PATTERN] I NX 3, 

ERR:*0, WRDERR**0, WRDCNTl«0» 

P » -0» FORSCVENl.l, LEAPfROG»*0» 

LEFTl«i»*(Ji»IF (Sli!E»-ABS(BUFFER-(RESULT InX 0))) 

EQ BUFFERSIZE ThEN SIZE ELSE BUFFERSIZE+1) MOD 63. 

if j<64 Then j else 63. 

IF J<64 ThEN 1 ELSE J Dl V 63, 

YCLE«* IF J<64 THEN ELSE IF 1*0 THEN ELSF 1, 

PlsO» SVDj*«0» 

L0CN»sPTR+3, WRDLOCNJ.PTR+5. 
FER)* 



*■ CI* TALLY«»0; X USED ONLY FOR LEAPFROG RETURN 

a; if s Sc#oc Then 

N 

laWRDERR* SimSt+81 WRDERR»«Sl» 

oiisDij di»sbiTlocn; loopcdhsdi + 2)* 
*»loc wrdcntj s f s *s j 4-6 > ds»*2 chr* 

tsWRDLOCNj LOOPfDI »*Dl+8)» 
IbSVQT! SjlsSl-8* oSHts WOS* 
LLY«»LOOP; TALLY»sTALLY+l* LOOPJsTALLY* 
**L0C LOOP* SI JsSl+f* 

sca"7« Then 

GIN TALLYJaO* FqKSE VEN « .TALLY* END* 



taopolf: 

FROG' 



DI J = S\/Di); 

Si « =A; DM=DI-8J TALLY»sO| 
8(IF SC*DC THEN TALLY*aTALLY + l)l 
TFMPl.TALLYl 

SMsCHRERR* TfMPcSI»«SI+8) J CHRERRr 
FNn* 

SliaWRDCNT* StJ«SI+8* W«0CNT»*SI* 
))* 

Rfcyclectally««ij n:*tallyj 

tallyi = wdslefT) vutallyi 
tally»«oi recyclei.taluy* 
jump out to tadpole)* 
go to frog* 
ci ^leapfrog* 

DI«»BITLOcN; Of 1-01-51 



si* 



Sj :«LOc 
SpsLOc 

END* 



chRe r R* 
wrdekr* 



S| i; 



Hi 



1SI + 
Sl+6* 



os;«3 

0S«a2 



ChR* 

CHR* 



IF MEMORYrPTR].[275l ] 
PTR»»PTR+12* 

END* 



then spaceback* 



04658200 

04658300 

04658400 

04658500 

04658600 

04658700 

04658800 

04658900 

04659000 

04659100 

04659200 

04659300 

04659400 

04659500 

04659600 

04659700 

04659800 

04659900 

04660000 

04660100 

04660200 

04660300 

04660400 

04660500 

04660600 

04660700 

04660800 

04660900 
04661000 
04661100 
04661200 
04661300 
04661400 

04661500 
04661600 
04661700 
04661800 
04661900 
04662000 
04662100 
04662200 
04662300 
04662400 
04662500 
04662600 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



MEM0RY[KEY]«3 P(DUP,L0D) & OC 1 * 1 1 23 & 39[ 39$ 39l9] I 



04662700 T 
04662800 T 
04662900 T 

04663000 T 



0471 13 
0473*1 
0475*0 

04657800 
047511 
047710 
0478*0 
0481*1 
0482*1 
0483)0 
0483*3 
0485*0 
0489*3 
0492*0 
04941 3 
049910 
0499*2 
0501*0 
050H2 
0501*2 
050210 
0503*3 
0503*3 
050412 
0506*2 
0507*1 
0508*2 
0509*1 
0510*2 
0511*0 
0511*2 

04660800 
0512*0 
0512*2 
0513H 
0514»2 
051413 
051611 

04659900 
0516*1 
051710 

0517*2 
0518*2 

0519*2 
0520»0 
0520*3 
0521*0 
052H1 
0521*3 
0522*2 
0523*1 

04659600 
0523*2 
052710 
0528*1 

04656000 
053012 



MFTMORYrKFY + 21 J» 
LINKUP(?0,KFY)J 
ENDIFNDJ , 



end tapfParityretry;* 



P(OUP.LOD) ft OPT I0NC2I2I 111 



04663100 
04663200 
04663300 



04666000 T 



T 053411 
T 053712 
T 053812 

04654300 
04651400 
0538J2 

04551000 
S!ZF« 0539 WORDS 



REAL PROCEDURE WR I TEPaRI TYREFLSW I TChC 01 OD» RC > J 
ALUF OiOO.Rc; RFAL OjOD.RC* 



START OF REU 



THF PURPOSE OF 
TO CHANGE HAG 
ERROR. THIS Ro 
IN RFSPONSE TO 
REFLCHANGER af 

BASICALLY. Thj 
SUrESSFULLY WR 

cmaRktng the t 

TAPE UNIT* Re- 
BY THF BLOCK I 
ALLOWS THE PRO 

WHFN THIS ROUT 
MESSAGE. THERE 

so thf saving 
ANn only The c 
untt are Rfoui 

thf paramaters 
otoo 



this routynf is to allow object programs 
tapf units when fncountering a write parity 
utine is called from either tapepar j tyretry 

a fatal write parity error or from 
ter an "rc" keyboard request by the operator. 

S ROUTINE READS T NTO CORE ThE LAST TWO 
ITTEN BLOCKS ON THE TAPE. CLOSES THE FILE 
APE AS AN END OF REEL). OBTAINS ANOTHER 
WRiTfS THE TWO BLOCKS jN CORE FOLLOWED 
N WHICH THE PARITY ERROR OCURRED. AND 
GRAM To CONTINUE WRITING ON THE NEW TAPE. 

INE IS CALLED DUE TO AN OPERATOR "RC" 

IS NO FATAL PARITY ERROR AT THIS POINT. 

OF ThE LAST TWO RECORDS JS UNNECESSARY 

LOSING OF THE FILE AND OBTAINING OF A NEW 
RED. 



% 

BEGIN 



RC 



ARE USED AS FOLLOWS* 
THE ORIGINAL I/O DESCRIPTOR ON WHICH 
A FATAL ERROR OCCURRED 

1 IF CALLED FROM REELCHANGER. OTHERWISE 



STACK(F+2) 
STACKfF+3) 

STACKfF+4) : 
STACKfF+5) i 
STACKfF+6) , 
STACKfF+7) s 
STACKfF+lO) 

STACK(F+11) 
STACKfF+12) 
STACKfF+13) 
STACK(F«44) 
STACK(F+15) 
STACKfF+16) 

STACKrF+17) 
STACKfF+20) 
STACKrF+21) 
STACKfF+22) 
STACKfF+23) 

STACKfF+24) 
STACK(F*25) 
STACKfF*26) 
STACK(F+27) 



INTEGER LLOGICLRC; 



s I 

= LOGICLRC 

* BSIZE 
s FNUM 

* numbuffs 

* NUMRECS 
REEL 



REAL BSf ZE. FNUM. NUMBUFFS, NUMRECS. REEL J 



= S 

* Y 

■ U 

= OLDU 
» SAVEU 
s MjX 

* TFMP 

* Tl 
« T2 

a T3 
x T4 

■ IOD 

» RESULT 

* MODE 

» TOPIOD 



REAL S.Y.U^OLDU, SAVEU, MIX? 



REAL TEMP.T1,T2.T3,T4i 



REAL IOD.RFSULT»MODE.TOPiOD.TM,HOLDCTI 



04667000 

sfgmfntj disk 

04667050 
04667100 
04667150 
04667200 
04667250 
04667300 
04667350 
04667400 
04667450 
04667500 
04667550 
04667600 
04667650 
04667700 
04667750 
04667800 
04667850 
04667900 
04667950 
04668000 
04668050 
04668100 
04668150 
04668200 
04668250 
04668300 
04668350 
04668400 
04668450 



T 0000:0 
ADDRESS m 



00092 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



OOOOJO 
OOOOJO 
000010 
OOOOJO 
OOOOJO 
000010 
000010 
OOOOJO 
0000(0 
000010 
000010 
OOOOJO 
OOOOJO 
000010 
OOOOJO 
OOOOJO 
000010 
OOOOJO 
OOOOJO 
000010 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 



04668500 T OOOOJO 



04668550 T OOOOJO 



04668600 T OOOOJO 



04668650 T OOOOJO 



STACK(F+30) * 

STACKfF+31) ■ 

STACKfF*32) = 

STACKfF+33) = 

STACKfF+34) = 

STACKfF+35) = 

STACKfF+36) ■ 

STACKfF+37) s 

STACKfF+40) = 

STACKf F + /11 3 m 

STACKfF+42) a 



TM 
HOLDCT 

RFAL FlRSTRFC#SFCRFC#FlRSTRrciO»SFCREClOl 
FlRSTRFC 
SECREC 
FfRSTRFCin 
SECRECIO 

BOOLFAN TOGGLES! 
TOGGLES 

ARRAY FTPr*J,FPB[*]FLABELAr*]»TANK[*]l 
FIB 
FPB 

LABELA 
TANK 



% 
% 
% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

% 
% 
% 
t 
% 
% 
% 
% 
% 
% 
% 

% 



THF LOCAl 
INTEGERS 

I 

LOGICLRC 
REALS 

BSfZE 

fnum 
NuMsurrs 

NllMRFCS 
RFFL 

s 

Y 
U 

OLDU 
SAVpU 

MIX 

temp 

Tj »T?,T3,T4 

ion 

RESULT 

MODE 

TOPIOD 

TM 

HOLDCT 

FIRSTREC 

SECREC 

FJRSTRECIO 

SECRECIO 
BOOLEAN 

TOGGLES 
ARRAYS 

FIP 

FPB 

LABELA 

TANK 



VARIABLES ARE IISfD AS FOLLOWS: 



TEMPORARY 
CONTAINS ThE 



logical Record count 



BLOCK SIZE OF FILE 

FILE NUMBER WITHIN fPB 

TOTAL NUMBFR OF BUFFERS DECLARED FOR FILE 

RECORDS PER BLOCK (BSIZF DIV RECORD SIZE) 

CONTAINS ThE CURRENT REEL NUMBER + 1 

INDEX INTO IOQUE OF UNSUCCESSFUL I/O 

TFMPORARY 

LOGICAL UNIT NUMBER OF TAPE UNIT BEING WRITTEN 

HARDWARE UNIT NUMBER OF TAPE UNIT 

LOGICAL UNjT OF ORIGINAL TAPE UNIT WiTh FRROR 

MIX INDEX OF JOB FOR WHICH RECOVERY IS ATTEMPTED 

TFMPORAY 
HOLDS The f/O DESCRIPTOR FOR EACH I/O ATTFMPTFD 
RECEIVES ThE LAST I/O RESULT DESCRIPTOR 
USED TO INDICATE A SUCCESSFUL RECOVERY ATTEMPT 
LOCATION OF TOP f/O DESCRIPTOR IN TANK 
TFMPORARY. USED FOR WRITING TAPE MARK 
CONTAINS ThE NUMBER OF FILLED BUFFERS 

ADDRESSES OF AREAS TO HOLD LAST TWO BLOCKS 

VARIABLF LENGTH BLOCK I/O DESCRIPTORS 

USED TO HOLD VARjOUS BOOLEANS (SEE DEFINES) 

FIB ARRAY. USED FOR CLOSEING The FILE 
FPB ARRAY. USED FOR OPENING NEW FILE 
ARRAY DESCRIPTOR FOR IN-CORE LABEL RECORD 
TANK ARRAY, CONTAINING I/O DESCRIPTORS 



04668700 T OOOOlO 

04668750 T OOOOlO 
04668800 T OOOOlO 



LABEL LI.RETRY.PROB.KAPUT.RESETUNITS.ARN.ERROROUT.XIO.EXIT; 
DEFINE ALFA « TOGGLES, [471 1 ]*» 

DSED « TOGGLES. [46MJ*» 

LABELED * TOGGLES; [ 45 I 1J #. 

NORMALPROCESS « TOGGLES, [ 44 I 1 ] I . 

PBT s TOGGLES, r«3JU#l 



04668850 
04668900 
04668950 
04669000 
04669050 
04669100 
04669150 
04669200 
04669250 
04669275 
04669300 
04669350 
04669400 
04669450 
04669500 
04669550 
04669600 
04669650 
04669700 
04669750 
04669800 
04669850 
04669900 
04669950 
04670000 
04670050 
04670100 
04670150 
04670200 
04670250 
04670300 
04670350 
04670400 
04670450 
04670500 
04670550 

04670600 
04670650 
04670700 
04670750 
04670800 
04670850 
04670900 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 



OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

0000«0 

OOOOlO 

OOOOlO 

0000(0 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

0000(0 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

0000*0 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

0000(0 

OOOOlO 

OOOOlO 

0000(0 

OOOOlO 

OOOOlO 

OOOOlO 



* SFT OMtT s NOT(PACKETS) 

DFFINF LJNITNO = PSeUDOM I X t H I X ] * 1 

» POP om?t 

SUBROUTINE DOlONOWJ 
BEGIN 

* DOIONOW IS COPIED FROM TAPEPAR I TYRFTRY 
FOR Y ♦ j STEP 1 UNTIL 18 DO 
BFGIN IF 1 OD. C 24 t 1 ] T H EN 

BEGIN % WAIT 1/15 SECOND BETWEEN READ RETRIES 
WHILE T4 > CLOCK+P(RTR) DO SLEEP(1»1)I 
T4 * CL0CK+P(«TR)+4; 
END! 

IF IOQUESLOTS»0 THEN SLEEPU J OQUESLOTS] ,63 > 1 

JOQUFSLOTS * loQUESLOTS-i; 

IOQUEAVAIL * !OQUEtTi«-jOaUEAVAlL]» 

I OQUEt Tl ] * iODl 

IF ( T2*(T3*UNIT[U]>.rFF))=e77777 THEN T3. CCFJi-Ti; 

LOCATQUEtTl] «■ [RESULT] & MIX[3t43t5) & 

UC 12142161 & T2CCTF1I 
LJNlTtU] ♦ T3 & Tt[CTr) & 9 100 1 5 I 35 1 t 3] 1 
START IOCU); 

FINaLQUECTIJ «■ NaBS(tOD) & 0[ 25 1 40f 83 OR iOMASKl 
RESULT * 0; 

SLEFPC t UN I TtU]]»P 100000000000)) 

IF RESULT, C 30 1 1 J THEN GO ERR0ROUT1 % NOT READY 
IF RESULT. f29 s i ] AND RESULT, [2»U THEN 
BEGIN 

IF RESULT. I12U) THEN % BLANK TAPE 

if i oo. c 24 * 1 3 then % read 

TRANSACTION^] ♦ C*P(DUP))-Ci «, I ODt 1 122 1 1 ] ) FLSE 

REGlN % WRITE 

STREaM(A*TtNU[U3» T*T2*SPACE(3>)> 
BEGIN SI*LOC A* SI*Sl + 5)l DS*3 CHRJ 

DS*2t LIT" BLANK TAPE ON WRjTf>"i 

end; 



SP0UTERCT2,UNlTN0,35)J 
GO ERROROUTI 



end; 



IF RESULT. C 1 1 1 1 3 THEN % MEM PARITY 

BEGIN 

STREAM(A«-TjNU[U)» T*T2*SPACE(3))1 
BEGIN SI«-LOC A* Sl«Sl+5l DS*3 CHRJ 

ns*i3 lit m i/o Mem PaR* w ; 

ENDJ 



SP0UTER(T2,UNlTN0»35)l 
GO ERROROUT* 



ENDJ 



FND 



IF RESULT. [1352]#0 THEN Y * lBj 
END ELSE 

GO XlO; 



04670950 


T 


000010 


04671000 


T 


000010 


04671050 


T 


000010 


04671100 


T 


OOOOJO 


0467H50 


T 


OOOl 10 


04671200 


T 


000110 


04671250 


T 


OOOl JO 


04671300 


T 


000210 


04671350 


T 


00021 3 


04671400 


T 


0003* 1 


04671450 


T 


000710 


04671500 


T 


000813 

04671350 


04671550 


T 


000813 


04671600 


T 


001 1 * 2 


04671650 


T 


001213 


04671700 


T 


0014H 


04671750 


T 


0015*2 


04671800 


T 


002010 


04671850 


T 


002113 


04671900 


T 


0023»3 


04671950 


T 


002612 


04672000 


T 


002711 


04672050 


T 


003011 


04672100 


T 


0031*0 


04672150 


T 


0032*3 


04672200 


T 


0034U 


04672250 


T 


003610 


04672300 


T 


0036>2 


04672350 


T 


0037U 


04672400 


T 


0038:2 


04672450 


T 


004210 


04672500 


T 


0045:0 


04672550 


T 


004811 


04672600 


T 


004910 


04672650 


T 


005210 

04672550 


04672700 


T 


005211 


04672750 


T 


005313 


04672800 


T 


005411 

04672450 


04672850 


T 


005411 


04672900 


T 


005510 


04672950 


T 


005512 


04673000 


T 


005813 


04673050 


T 


005912 


04673100 


T 


006112 

04673000 


04673150 


T 


006113 


04673200 


T 


0063*1 


04673250 


T 


0063*3 

04672900 


04673300 


T 


0063*3 


04673350 


T 


0066*1 

04672250 


04673400 


T 


006611 


04673450 


T 


006611 



X I J 



RESULT. [?7ll ] 

pNn dOionow; 



* 1* MODE ♦ 32* 



U * S 
% SAV 

OLnu 

% SAV 

MIX * 
MOnE 
* SET 
LABEL 
E!B * 
PBT * 
FNUM 
8S T Z|r 

NUmRE 

REEL 

ALFA 

LABEL 

NUMBU 

TANK 

HALT* 

% STO 

IF RC 

IE TA 

BEGIN 



for ds-ing, 
table entry 



AVEU * 0i0D,[3»4]l 
I OFF ORIGINAL UNIT 
«• UNIT[U]$ 
E OFE ORIGINAL UN I T 
ROCTaBLfCU]. [81631 

* 16; 

MODE TO FLAG PARlTy* MOdf WILL BF SET TO ZERO IF CHANGE 
A * Mf(T0Pt0D*PRNTABLE[U].n5U5])»2] & ?05000[CTF]I 
MfTOPlOD-3]J 
F!Br41,r8»«)»7> 

* FifJr4].ti3«ini 

«• IF PBT THEN 90 ELSE FIBC183, [3*153* 
CS * IF PBT THEN 5 ELSE BSIZE OIV FIBU83.E33U53* 

* F!B[13] ( t?6llO] + H 

* (NOT FlBri3]),r24ll]J 
FO •■ CNOT FIB[4]),[?M]{ 
FFS * F!B[131.C10I9]| 

«• [M[TOPlODJ3 & NUMBUFFSC8J38»10]| 

P NORMAL STATE PROCfSSINg. 

THEN 
NKr0j,t24ll] THEN 



OK 



STREAM(T*T?*SPACEC5)3> 
DS ♦ 40 LIT»#RfEL 
SP0UTfR(T2»UNiTN0»l)l 

go exit; 



SWITCH NOT POSSIBLE ON INPUT FILE**; 



ENnJ 



STRFAMCA'TlNUtU], T*T2«-SPACE ( 5 ) ) I 

BEGIN 

DS * »4 LlT"#REEL SWITCH TO 
SI * LOC A* Si •■ SI+5; DS ♦ 

ENn« 



BE ATTEMPTED FROM "J 
3 CHRJ DS * LIT"*"* 



SP0UTFR(T2,UNiTN0#l)> 

IF PBT THEN 

BEGIN 

LABELA. [8*103 «■ 8* X PRINTER LABELS ARE 15 WORDS 

LABELAU3 * MtjLT T T ABLECU] . [ 3 « 45] > 

l,ARELA[2] «- LABELTABLE[U3,[3»45]> 
ENnl 

if Re then go li; 

FIRSTREC * GETSPACECBSlZF+4#0,i)+4J 

secRec * GeTSPaCE(BSiZE+4»0»1)+4> 

* GETSPACE ON TWO BUFFERS FOR BACKWARD READ. 

IF ALFA THEN 

BEGIN 

IOD * P340000000 & OIOD[3*3*53 & [T23tCTC3; 

DOIONOWJ DOIONOW; 

TOD * OIOD 8 l[24«47»l3 S F I RSTRECC CTC 3 ; 





04671300 


04673500 T 


006812 


04673550 T 


007l«0 




04671150 


04673600 T 


007U1 


04673650 T 


0071*1 


04673700 T 


0082*1 


04673750 T 


0082*1 


04673800 T 


008311 


04673850 T 


0083*1 


04673900 T 


008413 


04673950 T 


008512 


04674000 T 


0085*2 


04674050 T 


008911 


04674100 T 


009m 


04674150 T 


0094»1 


04674200 T 


0095*3 


04674225 T 


0099*1 


04674250 T 


0103*1 


04674300 T 


0105*1 


04674350 T 


0108*0 


04674400 T 


0110*3 


04674450 T 


0112*1 


04674500 T 


011412 


04674550 T 


0115*0 


04674600 J 


0115*0 


04674650 T 


0115*1 


04674700 T 


0116*3 


04674750 T 


0117*1 


04674800 T 


0120*0 


04674850 T 


0125*2 


04674900 T 


0127*0 


04674950 T 


0129*0 




04674700 


04675000 T 


0129*0 


04675050 T 


0132*1 


04675100 T 


0132*1 


04675150 T 


0136*3 


04675200 T 


0138*0 




04675050 


04675250 T 


0138*1 


04675300 T 


0139*3 


04675350 T 


0140*2 


04675400 T 


0141*0 


04675450 T 


0143*0 


04675500 T 


0145*3 


04675550 T 


0148*2 




04675350 


04675600 T 


0148*2 


04675650 T 


014912 


04675700 T 


0152U 


04675750 T 


0155*0 


04675800 T 


0155*0 


04675850 T 


0155*3 


04675900 T 


0156*1 


04675950 T 


0158*2 


04676000 T 


0161*0 



Ll« 



pojonow; 

if rfsult.[27»23#0 thfn go frhoroutl 

TOD * IOD & SECRECCCTcl* 

DOJOMOWI 

IF RESULT, C27:?]#0 THFN GO ERROROUT I 

100 * 0340000000 & OlOO[3:3l5J & [T?HCTC]I 

doionow; doionow; 

GO LI I 



FNn» 



ton * oi 

DOjONOWl 
% RUjt.,0 

if Rfsul 

IF fTFMP 
% VARTAB 

secRfcto 
ion «• io 
dotOnow; 

% NEXT B 

if resul 

IF CTFMP 
% VARlAB 
FIRSTREC 

FOR I «■ 
IF (MOT 
X SCAN F 
FI pr 6 3 * 

LOgICLRC 
% nETERM 
FIRT7] ♦ 
% LOAD F 
IF HOIDC 
BEGIN 

NOP 
NOR 
ENn? 



00 ft CSECRFC + BSIZE-IMCTCJ & 5r22:45i3Jj 

BACKWARD DESCRIPTOR AND FXECUTE FIRST BACKWARD READ. 
T,r?7»?]*0 THFN gO ERROROUT* 

* Mi IOD TNX 1 ])#BSIZE THEN 
LE LENGTH BLOCK, 

«• f(!00 INX j)-TEMP) & TEMP[8I38I10]} 
D & (FlRSTREC+BSfZE-l)rCTC3> 

ACKWARD READ, 

T, r 27i ?1**0 THEN qO ERROROUT; 

♦ M[iOD INX U)#BSIZF THEN 
LE LENGTH BLOCK, 

10 * fMOD INX D-TEMP) & TEMPr8l38t 1031 

STEP 1 UNTIL NUMBUFFS-1 DO 
TANKCI]5,[l9:i j THEN HOLDCT ♦ hOLDCT+1* 
OR THE NUMBER OF FILLED BUFFERS, 
H BC 6 ] -{(RC*0>x?) -HOLDCT > 

* n Br 73 mod numRecs; 

INF THE NUMBER OF LOGICAL RECORDS WRITTEN, 
FIBC6J x NUMRECS) 

ib with record count for trailer label, 
Tsnumbuffs then 



rocesstog « 
malprocess 



NOPROCpSSTOG-lr 



% IF THERE ARF MO UNFILLED BUFFERS THFN ALLOW NORMAL STATE 

% PROCESSING TO CONTINUE. 

% FLAG THE RELEASE OF NORMAL STATE, 

% THE CHANCE OF UNFILLED BUFFERS IS VERY REMOTE* BUT JUST IN CASE 

pimix * mix; 

* load plmlx for console messages. 

TEMP * u; 

% SAVF OFF CURRENT UNjT T N CASf nS CALLED AT THIS POINT, 
RETRY! 

IF TERMSET(MIX) THEN 
BEGIN 

U * (-1)1 

GO ERROROUT; 
ENn> 

temp ♦ u; 

TM ♦ 9 173700000O000O00J 

% tape-mark. 

lOn * nflagcctmi) & o iOor 3» 31 5] ; 



04676 
04676 
04676 
04676 
04676 
046f6 
04676 
04676 
04676 



050 
100 
150 
200 
250 
300 
350 
400 
450 



04676500 
04676550 
04676600 
04676650 
04676700 
04676750 
04676800 
04676850 
04676900 
04676950 
04677000 
04677050 
04677100 
04677150 
04677?00 
04677250 
04677300 
04677350 
04677400 
04677450 
04677500 
04677550 
04677600 
04677650 
04677700 
04677750 
04677800 
04677850 

04677900 
04677950 
04678000 
04678050 
04678100 
04678150 
04678200 
04678250 
04678300 
04678350 
04678400 
04678450 
04678500 
04678550 



T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0163 
0164 
0165 
0167 
0168 
0169 
0172 
0174 
0176 

0176 
0179 
0180 
0180 
0181 
0184 
0184 
0187 
0189 
0191 
0191 
0192 
0195 
0195 
0198 
0198 
0202 
0206 
0206 
0209 
0211 
0211 
0213 
0213 
0214 
0214 
0215 
0217 

0217 
0217 
0217 
0217 
0217 
0218 
0218 
0219 
0219 
0219 
0220 
0221 
0222 
0222 



04678600 T 
04678650 T 
04678700 T 
04678750 T 



0222 
0223 
0224 
0224 







1 


3 


3 





'4675850 

1 


3 
1 
1 
2 
3 


3 
1 
1 
2 
2 
3 
1 
1 
3 
1 
1 
1 

1 

2 
3 

2 
4677700 

2 

2 

2 
2 

2 

1 
1 




2 





2 

4678400 

2 

I 






DOf ONOWJ 

% wRtte tape-mark, 
Fiprni. [28iio] * reel; 

IF LABELED THFN 
BffilN 

STREAMCBr*FIB(6], Rr*Fl8[7]t BKUP*PBT# D+LABELA>) 

BEGIN 

di *■ di + 39; [)s ♦ lit"1"» 
* end of Reel flag. 

BKUPCDl * Dl+12) JUMP OUT TO OWT); 
SI *• LOC BCI DS ♦ 5 DEO DS * 7 DEC* 
OWTJ DS * LlT«l*; 

% SPECIAL FLAG FOR SORT AND USE PROCEDURES 
END* 

TOD * NFLAG(LABELA) I 0I0D[3»3I5J» 
IF NOT PBT THEN IF ALFA ThEN 
I0D.C21 II] * 0) 
DOlONOWl 

* BUILD I/O DESCRIPTOR AND WRITE THE TRAILER LABEL. 
TOO * NFLAG([TM]) & |0D C 3 » 3* 53 J 

nOlONOWJ 
ENn? 

IOd * fOD & *«2Cl8M2i6j; 

% build the Rewind descriptor, 
doionow; 

SToPTfMIN6(FNUM»l023)l 

FPR * PRTTMIX, 31 ; 

LARELTABLEtUJ «• P2l4; % RW/L 

MUUTTABLFtU] «• RDCTABLErU] * PRNTABLE[U] ♦ 0) 

IF LABELED THfN 

BEGIN 

streamcr«-refl, bkup*pbt> D*LABELA)J 

BEGIN 

Si *- LOC R) DI * DI+24) DS * 3 DEC) 

X LOAD REEL NUMBER INTO LABEL. 

DI * Dl+12) DS * LlT«0«) 

BKUPcDl * DT+t?) JUMP OUT TO OWT)) 

DS + 12 LIT-O"; 
OWT; DS * LIT M 0«J 

% CLEAN OUT OLD TRAILER LABEL INFO, 
FND) 

TF NOT PBT THEN IF ALFA THEN 
LABELA,[7M] ♦ U 

U * labelascratchcLabela); 

* FIND TAPE FOR LABfLFD OuTPUT. 

if u»(-i) Then go erroRout) 
% operator ds-ed. 

END ELSE 



04678800 
04678850 
04678900 
04678950 
04679000 
04679050 
04679100 
04679150 
04679200 
04679250 
04679300 
04679350 
04679400 
04679450 



04679 
04679 
04679 
04679 
04679 

04679 
04679 
04679 



500 
550 
600 
650 
700 
750 
600 
850 



BEGIN 



U * FlND0UTPUTCFPBrFNuM],FPB[FNUM+n,REEL»0»0»2,0,TM)j 
% FIND UNLABELED OUTPUT TaPE, 

if u*(-d then go erRoroutj 

T2 * OJ 



04679900 
04679950 
04680000 
04680050 
04680100 
04680150 
04680200 
04680250 
04680300 
04680350 
04680400 
04680450 
04680500 
04680550 
04680600 
04680650 
04680700 
04680750 
04680800 

04680850 
04680900 
04680950 
04681000 
04681050 
04681100 
04681150 

04681200 
04681250 
04681300 
04681350 
04681400 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 



0226 
0227 
0227 
0229 
0230 
0230 
0233 
0233 
0234 
0234 
0235 
0236 
0237 
0237 

0237 
0239 
0241 
0244 
0245 
0245 
0247 
0248 

0248 
0249 
0249 
0251 
0252 
0253 
0254 
0258 
0258 
0259 
0261 
0261 
0262 
0262 
0262 
0264 
0266 
0266 
0266 

0266 
0269 
0271 
0273 
0273 
0274 
0274 

0274 
0276 
0260 
0280 
0281 



04 










2 
1 
3 
2 
2 
1 
1 
3 

2 





4679100 

1 

2 

3 









679000 

3 
3 


2 
3 

3 
1 
1 
1 


3 
1 

2 
2 

4680400 
3 

2 


2 
2 
4680300 

2 




2 



STREAMfPRN*PRNTABLErU].[30»l8]» 
BFGIN SI ♦ l.OC PRNJ DS •• 8 DEC? 

DI «■ DI-7J DS + 6 FILL! 
FND> 



D*tT?])J 



$ set omit * packets 

FILE M ESSAGFC" OUT" & TlNUrU][6l30»l8]»T2. 

FPB[FNUM],FPBrFNUM+l],REFLpO,0,OPNMESS)J 

ENn; 



PROB* 



RDrTA 
PRNTA 
FPRtF 
% l.OA 
TEMP 
% LUN 
S * II 
% SAV 
UN T Tr 
X CLE 

UNiTr 

* LOA 

oton 

* LOA 
FOR J 
IF TA 
TAnKC 

* l.OA 
TlNUf 
TlNUf 
IF RC 
IF FI 
% TFS 
ELSE 
DOf ON 

% wRi 

IF RF 
BEGIN 



PLFCU] 
PLFtU] 
NUM+3] 
n LOR I 

♦ OjOd 

OF OL 
NIT[Te 

F OFF 
TEMPI 
AH UNI 
U) * 
NEW 

* OjOo 
OiOq 

♦ OS 
NKf ! J. 
H * ( 
D NEW 
U] + ( 
TEMP] 

THEN 

RSTREC 

T FOR 

TOD * 

OWJ 

TE FIB 

SULT.r 



* (*P(DUP)) t, MlX[fll42»6]| 

+ C*P(DUP)) & TOP IODC 15» 331 153 » 

,[36:6] *■ u + l; 

CAL UNIT NUMBF8 +1 INTO FPB. 
,[3*4JJ 
D UNIT, 
MPJ.CFFU 
INDEX INTO IOQUF 

♦ (*P(DUP)) & P7f777[l4l29li9j| 
T TABLE ON OLD UNIT. 
LDUI 

UNjT TABLE ENT&Y. 
& UNU[U] r 3*3»5J* 

with new unit numbfR, 

TEP 1 UNTIL NljMBUFFS-t DO 

r7in then 

*P(DUP)) & 0l0Dr3*3s53J 

UNIT DESIGNATF INTO I/O DESCRIPTOR TANK. 

*P(DUP)) & TlNUrTEMp][24J24»6] t 

+ f*P(DUP)) & 0(24U2I6]| 

GO KAPUT* 

10*0 THEN IOD * 0I0D&FIKSTRECIO[8l8ll0jftFIRSTKEci0tCTC] 

BLOCK LESS THAN MAX LENGTH — VARI ABLE LENGTH--, 

OIOP & FlRSTRFCtCTC]; 



ST RECORD 

?«m then 



I CHFCK fOR WRiTe ERROR 



II 



Fifici si • r2©« ioi *■ reel 

% DECREMFNT REEL COUNT. 
STRFAM(A*TINU[U], T«.T2*SPACEC 6) ) J 
BEGIN 

ds ♦ 23 lit«»#Rfel switch failed on - 
si * loc aj si * si+5i ds * 3 chrj 
ds «. ?? lit", another reel please*"* 

FNDJ 



I 



SP0UTeR(T2»UNITN0»1)> 
GO RFTRYt 



END* 



IF SFCRECtO*0 THEN IOD * Ol OD&SECREC I Of .81 8* 1 OJISECREC I Of CTc 3 
* CHECK FOR LfSS ThAN MAX LENGTH BLOCKS— VAR I ABLE LENGTH — 
ELSE IOD * OIOD K SECRECfCTC]* 
% STANDARD LENGTH 
DOfONOWJ 



04681450 


T 


0282*1 


04681500 


T 


0284(0 


04681550 


T 


0284*2 


04681600 


T 


0285*0 

04681500 


04681650 


T 


028511 


04681800 


T 


0285*1 


04681850 


T 


0287*1 


04681900 


T 


0290«2 

04681200 


04681950 


T 


029012 


04682000 


T 


0293»0 


04682050 


T 


029512 


04682100 


T 


029910 


04682150 


T 


029910 


04682200 


T 


0300U 


04682250 


T 


0300*1 


04682300 


T 


030l>3 


04682350 


T 


0301 « 3 


04682400 


T 


0304*1 


04682450 


T 


0304U 


04682500 


T 


030512 


04682550 


T 


0305*2 


04682600 


T 


030712 


04682650 


T 


0307*2 


04682700 


T 


0311*3 


04682750 


T 


0312*3 


04682800 


T 


0319*0 


04682850 


T 


0319:0 


04682900 


T 


0321*3 


04682950 


T 


0324*1 


04683000 


T 


0325*1 


04683050 


T 


0328*0 


04683100 


T 


0328*0 


04683150 


T 


0330*2 


04683200 


T 


0332*0 


04683250 


T 


0332*0 


04683300 


T 


0332*3 


04683350 


T 


0333*1 


04683400 


T 


0333*1 


04683450 


T 


0336*1 


04683500 


T 


0336*1 


04683550 


T 


0339*2 


04683600 


T 


0339*2 


04683650 


T 


0342*3 


04683700 


T 


0343*2 


04683750 


T 


0346*2 

04683550 


04683800 


T 


0346*3 


04683850 


T 


0348*1 


04683900 


T 


0348*3 

04683300 


04683950 


T 


0348*3 


04684000 


T 


0351*2 


04684050 


T 


0351*2 


04684100 


T 


0354*0 


04684150 


T 


0354*0 



X WRjTF SECOND R ECORD. 

if result, r ?o* i i then go prob; 
ion «■ oion; 

% ORIGINAL RAD 10 ON NEW UNIT 
DOfONOWI 

IF RFSULT,t?8ul ThEN GO PROB* 
KAPUT: 

if not nSFD Then 

REr,lN 

MODF *■ 0) 

startimingcfnum,u); 
ENnf 

% change over successful: 

FIRM 51, [24 16 J * Ul 
% MEW LUN INTO FIB. 
OLoU «• TlNUTU] , C 3* 51 ; 

% OLDU LOADED WITH NEW PHYSICAL UNIT NUMBERi 
IF NOT RC THEN 
BEGIN 
RESFTUNjTS: 

lOQUECS] ♦ (*P(DUP)) ft 0LDUC3I43I53I 

FlNALQUETSl «• C*P(DL)P)) ft 0LDU[ 31 43 : 53 ; 

LOCATOUErSl * (*P(DUP)) ft U[l2»42t6]j 

% RESET DESCRIPTORS IN IOQUe. 

IF CS + L0CAT0UErS]:tFF3)#P77777 THEN GO ReSeTUnITS* 
END? 

FIBM6] * C*PfDUP)) ft OLDUf 3«43«5]J 

FTRM9] * (*PeDUP)) ft 0L[)Ut3U3»5]> 

% CHANGE UNIT FIE^D Of DfScRIPTORS IN FIB. 

FIRT6] * CCRC«0)x?)+HOLDcT; 

% LOAD NEW BLOCK COUNT INTO FIB 

FIRTH * ( ((RC«=0)x?) x NUMRECS) + HOLDCT x NUMRECS + LOG I CLRC ; 

% LOAD NEW RECORD COUNT 

TlNUrUj.[?fl 16] * OJ 

UNiTrui # [5»iO] * o; 

% RESFT ERROR FLAGS. 
IF NOT DSFD ThEN 
BEGIN 

STREAM(A*TINUtU3. UT2*SPACEC 4 ) ) I 

BEGIN 

DS ♦ ?6 LIT"#RfFL SWITCH COMPLETED ON ", 

SI ♦ LOC A) SI * SI+5J DS * 3 CHR* OS * LIT M * W * 

FNn; 



ENn> 



spoutfRctz»unjtno» 1)* 



aRni 



od * temp * (if Rc t h en f ib t i« j else oiod>.[CF3-2j 

ST RESET LUN IN I/O RUFFER FOR PROGRAM RELEASE 
MP] «- (*P(DUP)) ft Utl2»42l63; 

rTrUDl r rr 1.1 JTflD . r.n T . . r- M 



TOPIOD 

I! MUST 

MtTE 

IF MrTEMP3.[FF3-2#TOPiOD ThEN 

BEGIN 

TfMP * MrTEMP3.tFF3-2| 

GO ARNJ 
ENnJ 



0a684?00 
04684250 
04684300 
04684350 
04684400 
04684450 
04684500 
04684550 
04684600 
04684650 
04684700 
04684750 

04684800 
04684850 
04684900 
04684950 
04685000 
04685050 
04685100 
04685150 
04685200 
04685250 
04685300 
04685350 
04685400 
04685450 

04685500 
04685550 
04685600 
04685650 
04685700 
04685750 
04685800 
04685850 
04685900 
04685950 
04686000 
04686050 
04686100 
04686150 
04686200 
04686250 
04686300 

04686350 
04686400 

04686450 
04686500 
04686550 
04686600 
04686650 
04686700 
04686750 
04686800 



T 0355*0 

T 035510 

T 0356*2 

T 0357*1 

T 0357*1 

T 035810 

T 035912 

T 0359*2 

T 0360*2 

T 0361*0 

T 0361*3 

T 0362*3 

04684600 

T 0362*3 

T 0362*3 

T 036511 

T 0365*1 

T 0366*3 

T 0366*3 

T 0367*1 

T 0367*3 

T 0367*3 

T 0370*1 

T 0372*3 

T 037511 

T 0375*1 

T 0377*3 

04665100 

T 037713 

T 0380*1 

T 0382*3 

T 0382*3 

T 0385*2 

T 0385*2 

T 0389*3 

T 0389*3 

T 0392*1 

T 0394*3 

T 0394*3 

T 0395*3 

T 0396*1 

T 0399*2 

T 0399*2 

T 0403*0 

T 0404*1 

04686150 

T 0404*2 

T 040610 

04686050 

T 040610 

T 041010 

T 0410*0 

T 0412*3 

T 0415*1 

T 0415*3 

T 0418*1 

T 0420*0 



GO FXfTJ 
FRROROUTJ 

STREAM(T«-T?«-SPACEC3)>* 

PS * 21 LjT"#REFL 
SP0UT|rR(T2»UNTTN0»l ) J 
IF U < THFN % JOB BEING 
BEGIN 

II + TF^Pl 

* SET U TO LAST 
IF UsSAVFlJ THEN 
DSED * II 

r.o KAPUTJ 

* GO TO KAPUT TO COnTjNUE HOUSE-KEEPl NG 
END* 



switch aborted*"* 
ds-ed at mt req 



UNIT. 
GO fXjTI 



f*it» 



END 



PtMIX * OJ 

IF FlRSTREC^O THEN 

BEGIN 

forget spacf(flrstrfc-?)j 
forgftspacecSecbfc-?); 

END* 

IF NOT NORMALPROCESS ThEn NOPRqCESSToG *■ NOPROCESSTOG-l * 
% WAS UNABLE TO FREE NORMAL PROCESS DUE TO UNFILLED BUFFERS, 
% THIS SITUATION MAY NEVfR OCCUR* BUT JUST IN CASE 
WRjTFPARjTYREELSWTTCH * UNlTCU] 8 M0DET5 * 40 I 8 ] ; 
WRITEPARITYREELSWJTCH; 



04686850 
04686900 
04686950 
04687000 
04687050 
04687100 
04687150 
04687200 
04687250 
04687300 
04687350 
04687400 
04687450 
04687500 

04687550 
04687600 
04687650 
04687700 
04687750 
04687800 
04687850 

04687900 
04687950 
04688000 
04688050 
04688100 



04686650 
T 0420*0 

T 042012 

T 042012 

T 0423*3 

T 042710 

T 042812 

T 042911 

T 042913 

T 043012 

T 043012 

T 043113 

T 0433«2 

T 0434»0 

T 0434*0 

04687150 

T 0434*0 

T 043410 

T 0434*3 

T 043512 

T 0436*0 

T 0437*1 

T 0430*2 

04687700 
T 0438*2 
T 0441*1 
T 0441*1 
T 0441*1 
T 0443*1 

04668400 
SIZE" 0444 WORDS 



STACKfF+2) * I 

STACKfF+3) a B 

STACKfF+4) > T 

STACKfF+5) a W 

STACKfF+6) 3 E 

STACKfF+7) » J 
STACKfF+10) s AA 



STACKfF + U) = SS 



RFAL PROCFDURF PLACFFINDER(S, A* LW 

VALUF S, AJ 
RFAL S. A. LJ 
BEGtN ?NTFfiER ?; ARRAY Br*]* 



RF.AL T, W, F» J» AA> 



START OF REL 



NULL 



SANDAt 



FOUND! 



LABEL 6IULL» FOUND, EXIT* 
L.ABEL SANDAJ REAL SSj 

W * -J J 

B ♦ [MrT ♦ SPACE(30)]]&30[8«38«10]J 

SSl»SJ 

IF SaO THEN 

begin strfamcT); ds«s2o Lit •• "; go exit; end; 
dtskwaitc-t.30, jar [Pi mix. ioj>; 

IF CJAR[PlMlX»iO]«0) OR ( AA*Bt J . [ FF 3 )*0 THEN 
BFGIN STRF.AMcSl«SS»A,Ki»MtPRTtPlMlX»8j].tl0l2],T)l 
BEGIN DS*5 LlT « . S a"; 

SI4-LOC s; ns*4 dec; 
ds<-5 li r % a * M ; 
ds*4 dec; 

dsislit "ii»i siusi + 7j ds«»chr; 
di«-t; [)i*di+5i ds*3 filli 
di*t; di*di + h* os*3 fill; 
fnd stream; 



go to exit; 



end; 



DlSKWAlT(-Tt30,IUJARtPlMlX»AA Dl V JARt PlMlX . 8 J + 10] + 

AA MOD JARCP1MIX.83 + S 1 V 30}) 
IF (J«-B[S MOD 30])<0 ThEN GO TO NULL; 
AA * I * JARCPlMlXt J.CCF3 DI V JAR[ P1MJX. 8 ] + lO J + 

J.tCFj MOD JARCP1MIX,81; 

i*o; j*j,[ffi; 

DO BEGIN S»(I*J).[36ill]J 

IF W/(W»sS DIV 30) THEN D I SKWA I T( -T . 30. AA+W ) ; 
IF (E * B[S-W*30].[3BllO]>"A THEN GO TO FOUND; 
IF E<A THEN I*S ELSE J*S; 
END UNTIL J-I*i; 

s*t; 

L «• -BrS MOD 30],[10:?8]; 

if l*o thfn go to sanda; 

stream(l*abs(l)»t); 

bfgin osi*ii lit *,nfar Line "i 

Sl*L0C LI DS*8 DEC; 

OSJ»LlT " "; DII*Dl-9; 0SU7 FILL! 

FND stream; 



04700000 
SEGMENT! DISK 
04701000 
04702000 
04703000 



T 000010 
ADDRESS * 00107 
T 000010 
T 000010 
T 000010 



04704000 T 000010 



04705000 T 000010 
04705500 T 000010 



04706000 
04707000 
04707500 
04708000 
04709000 



0471 
0471 
0471 
0471 
0471 
0471 
0471 
0471 
0471 
0471 
0471 



0000 
1000 
2000 
3000 
4000 
5000 
6000 
6100 
7000 
6000 
9000 



04720000 T 
04721000 T 



04722000 
04723000 
04725000 
04726000 
04727000 
04728000 
04729000 
04731000 
04732000 
04733000 
04734000 

04735000 
04736000 
04736500 
04737000 
04738000 
04739000 
04740000 
04741000 



T 000010 

T 0003»1 

T 000712 

T 000811 

T 000910 

04709000 

T 001313 

T 001610 

T 001913 

T 0023»3 

T 002413 

T 002511 

T 0026U 

T 002612 

T 002712 

T 002811 

T 002910 

04713000 
002911 
002913 

04712000 

T 002913 

T 003312 

T 003710 

T 003912 

T 004213 

T 004610 

T 004810 

T 004913 

T 005410 

T 005712 

T 006013 

04729000 

T 006212 

T 006311 

T 006513 

T 006710 

T 006811 , 

T 007010 

T 007012 

T 007112 



EX?T: 
FND 



PUCFFrNDFR 
PLACFFINDE«» 



T) 



04742000 
04743000 



04738000 
T 007113 
T 0072«? 

04703000 
SI7E* 0073 WORDS 



$ SfT OMfT * NOKnATACOM } 
PROCEDURE LOGOUTfA)! VALUE A; REAL A* FORWARD* 



PRT{54?) * LOGOUT 



STACKfF+1) = S 
STACKfF+2) s M 



PROCEDljRF FORMTIMF(W.T)* VALUE W»T; REAL W,T* 
BFGIN INTEGER Sthl 



T*fT + 60) DTV 60; 

S*T MOD 60; 

T*T D I V 60* 

M*T MOD 60; 

T*T DlV 60? 

STREAMf T»M»S,W*r«] >> 

BEGIN Sl*L0C T* DS«-2 DEC? 

2(DS*LIT "* w $ DS*2 DEO* 

d i *-w ; d$*7 fill; 

END* 

f^d* 



X154. 
START OF REL 

1154* 
START OF REL 
S154- 



Xl54« 
*154< 
X154* 
*154- 
JJ154* 
*154- 
X154« 
X154- 
*154« 
X154- 

X154* 



04999999 

05606900 

SEGMFNTI DISK 

05607000 

SEGMFNTI DISK 

05608000 



T 000010 

c ooooto 

ADDRESS e 00110 



P OOOOiO 
ADDRESS * 
C 0000*0 



00110 



05609000 
05610000 
05611000 
05612000 
05613000 
05614000 
05615000 
05616000 
05617000 
05618000 



05619000 C 



C OOOOIO 
C 000211 
C 000312 
C 000413 
C 000610 
C 000711 
C 000813 
C 000911 
C 0010*2 
C 0011*0 

05615000 
0011*1 

05608000 
SIZE* 0012 WORDS 



PROCEDURE LOGSPACECW>L)> % THfS MAY ZjP 



PRT(5ft3) s 



STACKfF+1) 
STACKfF+2) 
STACKfF+3) 
STACKfF+4) 
STACK(F+5) 
STACK(F+6) 



LOGSPACF 

VALUE 



START OF REU 



05700000 
SEGMfNT! DISK 



T OOOOlO 
ADDRESS « 00111 



B 
I 

J 
K 
N 
A 



W,LJ NAME W; INTEGER LJ % FIRST WORD»WORD COUNT 
COMMENT THIS WILL CLOBBER WORDS AROUND THOSF LOGGED* 
BEGIN IKtTFGER B,\,j,K,Nt ARRAY A[*J) LABEL OKJ DEFINE Z*LOGFREE*> 



IF 



N*L D! V 5* XNO REMAINDER ALLOWED 
AlarMtBi>SPACE(30)]]t30t8i38llO]) 
IF Z>0 THEN SLEEP(tZ3»-0); Z*-Zj 
SF.T OMIT * NOT(SHAREDISK) 
DISKWAITCB»30,Z); 

ci«"Ar0])+6+N>(j*Arn) Then begin i«-o> 



K*l END XWRAP AROUND 



FLSF IF l+N+100 GEO J THEN 

BEGIN T NDE PE NDF NT RUNNERfPf, LOGOUT), 1*128); 
Kle2J 

END 

ELSE IF 1<J DIV ? AND J DIV 2<I+N THFN K*3 X HALF FULL 
ELSE GO TO OKJ 

STReAM(K:=K-1 . JIbJi»SPACF(3))» 
BEGIN CI!»ci+Kj GO TO I?; GO TO Li f 

0SJ=14 LIT M #L0G HALE FULL"; GO TO L3J 
DS«sl9 LIT" LOG FULL - AUTO LN") GO TO L3J 
DSl*l7 LIT"*+L0G WRAP AROUND"* 
DS»=l,IT M * M J 



m 

L28 
L3J 
ENDJ 



XWE NOW PUT THE WORDS IN I 



xdump Record zero 



SPOUT(J)) 
OKJ ArOl*N+T> Ar3]*K; ae^3»i*t+i * 

WCL]*4» % END Of LOG 

J*(T MOD 6)x5j XSIZE OF NEIGHBORHOOD (NBD) 
$ SET OMjT = NOTCSHAREOISK) 

IF M + I DIV 6)#0 THEN I S«W a I T( r, 30, Z ) I 

TF J/0 THEN ?! GF.T NflD 

BEGIN IF 1*0 THEN DiSKWA!TC-B»30»Z+I)J 

M0VE(30-J,W iNX 0,A fNX J) 
END 

ELSE R»*W INX OJ 
DISKWA!T(B.30,Z+I )J 
IF rL+J) GEO 30 THEN 
BEGIN KI«L"CJ»b30-J)+H 
U»I + 1J 

no 

BFGIN DlSKWAjTcW t nx J, IF K>l020 THEN 1020 ELSE K*Z+I)J 

J»=«J+l020J 

I *sl+3AI 
END UNTIL (Kl*K"1020) LEO 0* 

ENDJ 



05701000 T 
05701010 T 
05702000 T 



05702500 
05703000 
05703500 
05703699 
0570*000 
05705000 



05707000 
05708000 
05709000 
05710000 
05710500 
05711000 
05711500 
05712000 
05713000 

05714000 
05715000 
05715100 
05716000 
05716999 
05722000 
05723000 
05724000 
05725000 
05726000 

05727000 
05728000 
05728100 
05728120 
05728140 
05728160 
05728180 
05728200 
05728220 
05728240 



05706000 T 
05706100 T 
05706200 T 
05706300 T 



T 
T 

T 
T 
T 
T 
T 
T 
T 

T 

T 

T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



OOOOJO 
000010 
OOOOlO 



05728260 T 



0000:0 
0002«3 
0007»0 
0011 JO 
OOUIO 
0012«2 

05705000 
001713 
002010 
0021«3 
002212 

05706100 
0022J2 
0027»0 
002712 
0031 JO 
0032J0 
003411 
0037J1 
003913 
004011 

05710000 
004012 
0041 I 3 

004710 
00481? 

005011 
005011 
005313 
005412 
0058 I 1 
0060 U 

05724000 
006l»2 
0063d 
006510 
006611 
006912 
007013 
007013 
0075)0 
007611 
007712 

05728180 
007913 



t SET OM|T = NOT(STATISTkS) 

FORfiFTSPACCf A)) 
$ SET OMjT a NOTCSHAREDISK ) 

z»»-z; 

fnd Of LOqSPACF? 



05728299 
05729000 
05729199 
05729300 
05730000 



05728120 
T 007913 
T 007913 
T 008013 
T 0080*3 
T 008113 

05702000 
SIZF» 0082 WORDS 



DEFINE 



STACK(F*1) > K 



STACKfF+2) 
STACKfF+3) 
STACKfF+4) 



STACKfF+5) 
STACKfF+6) 
STACKfF+7) 
PRTC165) » 
STACK(F+6) 

PRT(164) ■ 
PRT(163) » 
STACKfF+lO) 



Ma 
sp 

EU 
ST 
N|| 
DS 
DF 
TO 
FU 
AV 
AV 



XSi7s 

EFD * 
NP C 
ARTWR 
MfNTs 

rZF*c 

Nn«r? 

SIZE* 
IOFFS 
DTFFM 
TMAXs 



avsmtn* 



[H?0]#. 

T23I 31#» 
t?l»l]#. 
D«r26ll23 
t 38 1 103## 
2«20]#, T 
2»26J#, T 
8 I 3B* i 0#, 
FTs4 #, X 
IN.15#, A 
3900#, X 
X 
90 *, AVS 



$ s 

REAL 

X N 

X GE 
X TH 
* T> 
X T< 
X Ts 
% T. 
X T. 
X N> 
% N< 
X N* 
X N. 
X M, 



FrXARRAYrnXAKRA 

SpACEcFtXARRAYD 

ET oMtT a NOT(SHAR 

PROCEDURE PETUSER 



TOM A XSlZ«l* 

TOSPEED* 2 
TOEUNP « ?\ 
## TOSTaRTW 

T0NuMFNTb3 

0DSI7E=2*28 
0DENQ«2?I?2 
NEUf*C 18 : l 
ONE WORD F 
VD!FFMAX*50 
MAX # WORDS 

IS REFLFCTE 
MAX»300#, X 
% 
% 
Yl.FlXARRAY 
]]&FlXARRAY 
EOISk ) 
DjSK(N»T)> 



28)20** 
3l45l3*» 
I47U#» 
RD=26l36l 
8138 1 10#* 
»20*. 
126*. 
5]*, 

OR EACH I 

*» % AVDI 

ALLOWED 

D IN USER 

MyN AND 

AVSMAX G 

BOTH MUS 

2tFIXARRA 

3CTOSIZE3 



12*. 
NUMFNTMsl023#» 



/O CHANNEL, 
FFMAX GTR AVDIF 
FOR AVAILABLE T 
DISKBOTTOM & DI 
MAX # WORDS TO 
TR AVSMJN GTR 8 
T BE MULTIPLFS 
Y3)«FIXARRAY1*[ 
# I 



VALUE N»T| REAL N»T I 



IS TH 
TUSfR 

E RFS 
n> 
*> 
*> 

r ? 1 1 1 

r?»i i 

n> 
■> 

B> 

r 2 « 1 3 

[2»1 ] 
BEGIN 
INTFG 



E NUMBER OF SEGMENTS RfQUESTED* AND T IS T 

disk will return -i, o, or the absolute di 

UL.TANT AREA. SEE T.[?»l] FOR THE -It AND N 

T IS A PREFERRED SPEEDfl T*1.2»3»4 OR 

-T IS A PREFERRED EU#l T«- i . -2» -3. -4. 

DONT CARE ABOUT SPEED* OR EU#, USE EU 

=1 => IF CANT GET PRfFfRRED SPEED* OR 

»0 s> TF CANT GET PREFERRED SPEED* OR 

MAKE A SCRATCHDIRECToRY ENTRY, 

DONT MAKE A SCRATCHD I RECTORY ENTRY. 

IMMEDIATELY RETURN WfTn A 0, 

*0 => IF CANT FIND AnY USERDISKi AND T,[?: 

= 1 => IF CANT FIND AN* USERDjSK* AND T,[?i 



. . . » 

WITH 
EU#, 
EU*. 



HE EU# 
SK SEG 
. C2I 1 3 

31. 

OR "20 
LEAST 
RETUR 
TREAT 



FMIN GTR 14, 

ABLE ON DISK, 

SKAVAILTABLEMAX 

READ IN P 1 TIM 

5, 

OF 30, 

MCFIXARRAY2* 



START OF REL 
OR THE SPEED*. 
MENT ADDRESS OF 
FOR THE 0. 



EU I/O. 
N -1, 

AS T»0 (ABOVE) 



13»0» NO-USER-DISK, 
1J*0» RETURN 0, 



Z 

NS 
I 



R 

AVS 
J 



ER K*+l. X K IS ALSO "GETUSERD I SK M I DONT USE K ABOVE LABEL 0. 
ZssK + 1, NSaZ+l# I»NS + 1. 



05780000 
05780010 
05780020 
05780025 
05780030 
05780040 
05780100 
05780200 
05780300 
05780310 
05780400 
05780500 
05780505 
05780600 
05780605 
05780610 
05780700 
05780800 
05800000 
05839400 
SEGMENT) DISK 
05839600 
05839700 
05839800 
05840000 
05840100 
05840200 
05840300 
05840400 
05840500 
05840600 
05840700 
05A40B00 
05840900 
05841200 
05841300 



$ SET 0MjT *.N0T(SHAREDISK 
8 SET OMlT * ShARfDISK 

RsJ+1. AVSsR+1, 



JsAvS+1, H«NT6. L«AVS t 



Real mi*nt5, M2*nt4; array ut»j+ic*]j define u»avtablf * » 



Ml 
M2 



UT 



$ POP OMjT 

LABfL A#B.C,D#E»E»G»W ? 
DEFINE GETUSERDlSKrPETUSERDI SK** X *************** ******* ***************** 

if n*o Then go w ; 



T 000010 

T OOOOIO 

T OOOOIO 

T OOOOiO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOlO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T 0000*0 

ADDRESS • 00114 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 



05841350 T OOOOIO 



05841380 T OOOOlO 
05841610 T OOOOIO 
05841615 T OOOOIO 



05841620 T 0000:0 



05841621 T OOOOIO 

05841650 T OOOOIO 

05841700 T OOOOIO 

05842100 T OOOOIO 



P(T^r?»n.ABS(N)»i»o. 0,0,0) ; 

$ SET OMJT * NOTCSHAREDISK ) 
A« SLEFP(rTOGLEJiUSERDlSKMASK)l LOcKTOGC USERD I SKM aSK ) > 

* SET OMiT ■ NOTCSHAREDISK ) 
$ SFT OMfT * SHARpDlSK 

M) lsM?teP(D) J 
S POP OMJT 

l«*neup,neuf 5 

if t lss then if uuj*lf -t gtr l then l+t else -t].maxsiz gfq ns 

then go f else if z then go c ( 

Bl IF UtM.MAXSlZiNS THEN 
BEGIN 
PfFUlOr(NTli»I-l)+EU| OFFSET ]+PEUi0[NTl]».NT2»SN0»0UP) » 

IF P LSS Ml THEN BEGIN MH»NT2( h««nti end i 

if p lss m? then if uci],speeo*t Then begin M2(*nT2(J(«nti end* 

fnd \ 
if fii«i + n leo l then go b ; 

IF PCD)*Ml THEN 
BFGIN 

if m2*m2:»pcd) then if z and t#o then 
c« begin getuserdisk*-u go g end 

flse J*h ; 

j i ■ j + 1 ; r,o f i 

ekd ; 

if 7 then go c j 

if N.r2»n then go g j 

$ SFT OMJT ■ NOT(SHAREDISK ) 
S SET OMIT = ShAReDJSK 

FIXaRR*.V(UT.R.30)| usf&dtskspecialcaseci »=i»r»ut,ns)j 

t POP OMIT 
D» J IP0777777777777777 ; 
S SFT OMjT s NOTCSHAREDISK ) 
SET OMiT = ShARfDISK 
IF ( AVS!.(K:»(TJ=UrJ] AND NUMENTM)+ I ( bC Z ( =U[ J ] , ST ARTWRD ) 

30) neq o Then avsi»30«avsj avs»savs+kj P(M?) i 

FjXaRRaY(UT,R,aVS); DlSKWAiTC-Rt AVS,Z*Z DI V 30+USERDlSKBOTTOM) 
M2UPI P(K-1)I NT?t»0> NT3»«K»«U[JJ,MAXSIZ J 
POP OMIT 
IF fNTj4-UTf I],DSIZE)>NT? THfN IF NTl#K THEN NT2*NTl ELSE Kt»0 I 
IF MT1>NS THEN IF NTI<M? THEN BEGIN M2*NT1> H*I END t 

IF P(DUP) GTR MM + 1 THEN GO F ; 
UTrH],DSlZE*NS*M2-NS ; 

IF M1I*M2»NT3 THEN U [ J ] .MaXS IZ 1 « I F NT2>NS THEN NT2 ELSE NS I 
6ETUSFR0ISK»UTCH).DEND-M2| I»»P I 
SFT OMjT * NOTCSHAREDISK ) 

if N*NS*o then begin Hover i»h> cutch+iu* cuTr h3] )iur J3 »nume:nt*i 

SET OMIT « NOTCSHAREDISK ) 



05842200 T 
05842205 T 
05842300 T 



>l»R*UTtNS)J GO A ( 



$ 

E« 



S 
F« 



MOD 30) MOD 



T-1END* 



05842390 
05842405 
05842410 
05842411 
05842450 
05842475 
05842500 
05842700 
05842800 
05842900 
05842930 



05843200 
05843300 
05843400 
05843500 
05843600 



05843950 
05844000 
05844050 
05841090 
05844H0 
05844H1 
05844200 
05844290 
05844915 
05844920 
05844925 
05844930 
05844935 
05844936 
05845000 
05845100 

05845200 
05845300 
05845400 
05845500 
05845590 
05845700 



05843000 T 
05843100 T 



05843700 T 
05843800 T 
05843900 T 



SET OMIT « NOTCSHAREDISK 
SET OMIT b SHAREDJSK 

diSkwaiTcr,avs,z) i 



05845790 T 
05846350 T 
05846360 T 



0001*2 
0004(0 
000410 

05842300 
0009(0 
000910 
000910 
0010(1 
OOlOJl 
0011 12 
0017U 
0019J1 
002013 
0021M 
0024(3 

05842930 
0027(1 

05843000 
0031(3 

05842800 
0031(3 
0034(0 
0034(3 
0035(1 
0038(1 

05843600 
0040(1 
0041(2 
0043(1 

05843400 
0043«1 
0044U 
0045(3 
0045(3 
0045(3 
0052(3 
0052(3 
0054(0 
0054(0 
0054(0 
005813 
0063(2 
0070(3 
0074(3 
0074(3 
0080(2 

05845100 
0084(2 
0086(3 
009011 
0096(2 
0099(0 
009910 

05845700 
0106(3 
0106U 
0l06(3 



S POP OMp 

S SFT OMjT ■ NOKSMAREDISK } 
$ SFT OMfT * ShARfOISK 
FOR r ,FTSPACFfR) J 
T,« UNLOrKTrf,(USFRDlSKMASK)j 



S POP pMfT 
HI FND OF GFTUSERDlSK J 



05846361 T 

05846370 T 

05846385 T 

05846390 T 

05846395 T 



05846396 
05846500 



010810 
010810 

010810 
0108»0 
010613 

05846395 
T 0H2U 
T Ol 121 J 

05841200 
SIZE« 0113 WORDS 



STACKfF + D a 
STACKfF+l) m 
STACKrF*?) s 



STAC 
STAC 
STAC 
STAC 
STAC 
STAC 
STAC 
STAC 
PRTC 
PRT( 
PRT( 
PRT( 
PRT( 



KfF+3) 

KfF+4) 

KfF+5) 

K(F+6) 

KfF+7) 

K(F+10) 

K(F*11) 

KfF+12) 

166) 

165) 

164) 

163) 

162) 



AVS 

F 

UT 



E 
B 
C 

D 

I 



PROCEDURE FORGFTUSFRniSKCA.N); VALUE A»N| RfaL A»N i 

START 
% A !S THF APSOLUTF DISK SFGMfNT ADDRESS OF AN AREA N SEGMENTS LONG 

% which is to be made available again. 

% n<0 => MAKE A SCRATCHDIRECTqRY DELETION, 

* N>0 s> DONT MAKE A SCRATCHDl RECTORY DELETION, 

% NsO s> IMMEDIATELY GO AWAY ; 

begin 

« SET OMIT = NOTCSHAREDISK ) 
* SET oMiT s ShAReDISK 

INTfGER AVS.F»AVSJ ARRAY UTC*]} define u»avtable ** 



J 

R 

s 



B 
St 
K 

s 



PRT(5) m Q 



05846600 
OF REL SEGMFNTl DISK 
05846800 
05846900 
05847000 
05647100 
05847200 
05847400 
05847490 
05847590 
05847600 



T OOOOtO 
ADDRESS 



00116 



POP OMIT 
REAL EJ 



INTEGER B»C»D, I > j» R> S » h»NT7» KsNT6» L*NT5» G0NT4, TsNT3» Q* jUNKJ 



LABFt V»W,X.Y»Z»AZ»BZ»CZ»d7 > 

SUBROUTINE SETSHIFT * 

BEGIN 

S»=P(XCH) t 
$ SET OMiT = NOTCSHAREDISK ) 
* SET OMfT s ShARfDISK 

UrJl,STARTWRD«sI+SJ Gl*D+S ; 
$ POP OMfT 

KlaG+C-t J 

END OF SETSHIFT J 

IF N*0 OR CJt«A DIV 1000000) GEQ NEUP.NEUF 

OR A LSS USERDISKBOTTOM+DISKAVAILTABLEMAX THEN GO 
SLFFP(rTOGLEJ»USERDlSKMASK)J LOCKTOGCUSERD I SKMASK ) ; 



BZ I 



t SET OMiT s NOTCSHAREDISK ) 

IF fD»»U[Ol.MAXSlZ) NEQ AND N GTR ThEN IF (TWO(J) AND 
THFN BEGIN USERDISKSPECIALCASEC 3tN,Uf A)> IF NOT P THEN GO 

J'«J*1 '> 
VI D»(T«.(F*UrJJ),STARTWRD) MOD 30 I 
S SET OMfT s NOTCSHAREOISK ) 
$ SFT OMTT «s SHAREDISK 

AVSi«30-cS«bCC«*E AND NUMfNTMJ+f)) MOD 30 + S I 

FIX A RRAYCUT,R.AVS)| D I SKWA I T C -R» AVSt B I * I DIV 30+USERDISKI 

KlaSJ LIsDI S(*I+C I 
$ POP OMIT 



OOOOlO 
000010 
OOOOlO 
000010 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOtO 



05847601 

05847700 



T OOOOlO 
T OOOOlO 





05847800 


T 


OOOOlO 




05847900 


T 


OOOOtO 




05848000 


T 


000110 




05848100 


T 


0001 to 




05848190 


T 


000113 




05848250 


T 


000113 




05848255 


T 


000113 




05848256 


T 


000610 




05848300 


T 


000610 




05848500 


T 


000713 

05846000 




05848900 


T 


000810 




05849000 


T 


001212 




05849300 


T 


001610 

05849300 




05849390 


T 


0021 10 


D) NEO 


05849420 


T 


002110 


DZ END 1 


058«9460 


T 


002513 

05849460 




05849480 


T 


002911 




05849500 


T 


003012 




05849590 


T 


003312 




05850105 


T 


003312 




05850110 


T 


003312 


OTTOM) 1 


05850120 


T 


003713 




05850130 


T 


004510 




05850131 


T 


004713 



6*I-(NT2l«fP(UrJ-l3»DUp) AND NUmENTM )+P(XCH ) .ST ARTWRD ) ; 
S4.Li r j+n.STARTWR0»S; h«-K*K-1I IF UTtULJ.DENDiA THEN GO X ; 
W5 IF UT[T*CH + LM)DIV ?],DEND*A THEN IF UT r H*T- U , OEND3S A ThEN GO W ELSE 
ELSE IF UTtT*T+i],DEND<A THEN BEGIN L*T+il GO W END > 

XI IF fL«=A+A8S(N)) GEO H J *P{UT CQ l«T ) . DUp ) , DEND-PC XCH ) , DS IZE THEN GO Zj 

if s*o then 

BFGIN 
$ SET OMIT =» NOTCSHAREDISK ) 
$ SET OMIT * SHAREDISK 

IF G*0 OR D = THEN GO Y* IF P((G + DD1V 2»DUP)>0 THEN P(DFL.D); 
$ POP OMIT 

PCSSN)JSETSHIFT?MOVEfC#[UTrG-S33*tUTtG]])JT*Q*T+S; 

end ; 



Y« 
$ 

7» 



AZ: 



FOR H*K STEP -1 UNTlL T DO UT[ H+ 1]*UT[ H ] * 
USERoiSKSPEClALCASE(2tE»UT, J) t 
SET OMjT ■ NOTCSHAREDISK ) 
GO V > 

IF PfUTrQ«-9*l],0UP),DEND-P(XCHJ,DSlZE<L THEN GO 
IF PCUTf NT1 :*Q-11,DEND,DUP) LSS L THEN PCDEL»L) 
H»«rLI«C)-ClF A LSS H THEN A ELSE H) * 
IF NTl GTR T ThEN MOVEf K-NT \ » [UT f 0] ] » [UT[T + 1] ] ) 
UTtT3*UHtT0DSiZF]; C* ( Q*T»Q+1 ) + C i 
IF(S*S-Q)>T*IF AVDIFFMAX>T*C D IV 2 
OR S + G>T + (TF AVDIFFMAX>T*)sjT? OIV 2 
FLSF BEGIN 

IF (NTi*F-l-K)s;0 THEN GO Y> 
IF P(fS+G) DIV 2tDUP) GTR N Tt 
FOR NT1*K STEP -1 UNTIL G 00 
END i 



H*ABS(N)J GO A7 I 



THEN 
THEN 



Z 

I 

; 



AVDIEFMAX 
AVDIFFMAX 



ELSE T THEN IF J«l 

else T) then go y 



THEN P(0EL«NT1)JSETSHIFTj 
UT[NTt]»UTtNTl-S) I 



S 
$ 

$ 

$ 

£ 

DZ« 



Ut J]*(NTl*U[Jl)&CtTONUMENTJ&(lF 
NTUITOMAXSIZJ * 
SET OMJT s NOTCSHAREDISK ) 
SET OMJT ■ SHAREDISK 

DISKWAITCR»AVS.B) i 
POP OMIT 

SET OMlT = NOTCSHAREDISK ) 
SET OMIT * SHAREDISK 

FORpETSPACFCR) i 

unlocktogcuseRdiskmask)j 



E*CNT1*NT1,MAXSIZ)<H THEN H ELSE 



$ POP OMlT 
RZ» END Of fORgfTUSeRDISK ; 



05850200 
05850300 
05850400 
05850500 

05850600 
05850700 
05850800 
05850890 
05851215 
05851220 

05851221 
05851300 
05851400 

05851500 
05851600 
05851650 
05851675 
05851700 
05651800 
05851850 
05851900 
05852000 
05852100 
05852200 
05852300 
05852350 
05852400 
05852500 
05852600 

05852700 
05852800 
05852890 
05853420 
05853425 
05853426 
05853490 
05853593 
05853595 
05853600 

05853601 
05853700 



T 004713 

T 005210 

T 0058»3 

T 0065*1 

05850500 

T 0072*3 

T 007713 

T 007910 

T 007912 

T 007912 

T 007912 

T 0085*0 

T 008510 

T 009011 

05850800 

T 009011 

T 009613 

T 009812 

T 009812 

T 009910 

T 010311 

T 010710 

T 0U0I2 

T 0H4I3 

T 011913 

T 012513 

T 0131*1 

T 0132»0 

T 013413 

T 0139»0 

T 014411 

05852300 

T 014411 

T 015011 

T 015U3 

T 015113 

T 015113 

T 015310 

T 0153*0 

T 015310 

T 0153*0 

T 015313 

05853600 

T 0157*1 

T 0157*1 

05847400 
SIZE* 0158 WORDS 



PROCEDURE 0K8USiNESS(BUFF); VALUE BUFF* REAL BUFFJ 



PRT(544) * OKBUSlNESS 

BEGIN 

real rcws+o, 

STACKfF+O) x RCH 



STACKfF-2) a MSCW 

STACKfF+1) = Mid 

STACKfF+2) = FID 

STACKfF+3) x TMlD 

STACKfF+4) = TFID 

STACKrF*5) ; A 

STACK(F+6) 8 B 

STACKfF+7) * N 

STACKfF+lO) s HO 

STACK(F + 11 ) * ROT 

STACKfF+t2) = C 

STACKfF+13) a D 

STACKfF+14) s I 

STACK(F+15) = J 

STACKfF+16) * R 

STACKfF+17) a S 

STACKfF+20) a LA 
PRTU61) * SA1 

PRTC166) s h 

PRTC165) = K 

PRTC164) « L 

PRTC163) = r, 

PRTC162) * t 

PRT(5) a Q 

STACKfF+21) = E 

STACK(F+6) a KTR 

STACK(F+12) « TYPE 

STACK(F+13) x WORD 

STACK(F*15) » HA 

STACK(F+16) a HEADER 

STACKfF+21) = HDR 



MSCWs-?, 
MTD=RCW+1, 
F!D»M!D+lt 
TMIDsFjD+t # 
TFID=TMID+1. 
A«TFID+It 
B=A+1 J 
INTrGFP NbB+U 

ARRAY HD = N+H*]J 

BOOLEAN RDTsHD+i? 

INTfCFR C«RoT+1 ,D*C + t »I«D + 1# J«I + 1pR«J+1#S»R+1 . 



05950000 t ooooro 

START OF REL SEGMENTl DISK ADDRESS ■ 00124 

05950200 T OOOOlO 

05950400 T OOOOlO 

05950500 T 000010 

05950600 T OOOOlO 

05950800 T 000010 

05950900 T 000010 

05950950 T OOOOlO 

05951000 T 000010 

05951200 T OOOOlO 

05951400 T OOOOJO 

05951600 T 000010 

05951700 T 000010 

05951800 T OOOOlO 



LA»S+1,SA1*NT2, 
H«NT7#K«=NT6»L*NT5»GsNT4,T«NT3#0sJUNKJ 



REAL F"LA+1I 

REAL KTR=B> 

REAL TYPE»r; 

real word«0; 

Real ha*ji 

Real headeR*R* 

ARRaY mOR»E[*]» 



05951900 T OOOOJO 



05952000 T OOOOlO 



05952200 T OOOOlO 

05952210 T OOOOlO 

05952220 T OOOOlO 

05952230 T OOOOlO 

05952240 T OOOOlO 

05952250 T OOOOlO 

05952260 T OOOOlO 



BOOLEAN FILTOGbE+I J 
STACKfF+?2) * FILTOG 

Real sfgSbfiltog+i; 

STACKfF+23) = SEGS 

$ SET OMIT = SHARFOISK 

ARRAY UTsHDT*]; INTFGER AvS*SEGS+i; DEFTNE U»AVTABLE*J 
STACKfF+lO) = UT 
STACKfF+24> s AVS 

integer slfeper«avs+i; 
STACKfF+?5) * sleeper 

* POP OMJT 

S SET OMIT s NOT(SHAREDISK) 

LABEL V»W»X,Y,z,AZ»BZ»CZMNUSE»FXlTI 

LABFL FlLE!n»XOFlLE#CONFL!CT» FOUND* MSG.FI NTS I 

S SFT oM!l * NOT(SHAREDISk) 

real subroutine decword; 
begtn 

STREAMcT*OtW»-rWORp] )j 
BEGIN 

Sl+Wj D!*LOC T; D5*8DfC> 

end stream; 

decword*pi 
end decword; 

subroutine scan; 

regtn 

strfamfktr,type*0:t*0»w*-[word])> 

BEGIN 

SJ4-KTR; 

IF SC«" " THEN BEGIN SI«-SI + 1* GO LO; END; 

if sc= Mww then * string identifier 
begin 

si»st+u ds*liT"o"i 
if SC«"" h then 
begin 

si*suu 

if so*"** then ds*chr else ds*lit« m ; 

DS*6LlT" *; 
END ELSE 



LOt 



BEGIN 



LI* 



7(if sci«" HW then ds*chr else ds*lit« *)j 
if sc#"»" then begin st*simi go li; end; 



Sl*Sl+lj 



end; 

GO Til 



end; 



IDt 
L2: 



ie stbalpha then if Sc lss "o» then 

BEGIN % IDENTIFIER 

ns»LiT"0"; 

7UF Sc.ALPHA THEN DS*CHR ELSE DS^LlT" ">; 
IF SCALPHA THEN BEGIN S!«.S! + lf GO L2; END* 



05952270 T OOOOlO 

05952300 T OOOOlO 

05952399 T OOOOlO 

05952400 T OOOOlO 

05952500 T OOOOlO 



05952501 T 
05952505 T 
05952600 T 
05952620 T 
05952690 T 
05952705 T 
05952710 T 
05952715 T 
05952720 T 
05952725 T 
05952730 T 

05952735 T 
05952740 T 



05952745 
05952750 
05952755 
05952760 
05952765 
05952770 

05952775 
05952780 
05952785 
05952790 
05952795 
05952800 
05952805 
05952810 
05952815 



05952820 T 
05952825 T 
05952830 T 

05952835 T 
05952840 T 

05952845 T 
05952850 T 

05952855 T 
05952860 T 
05952865 T 
05952870 T 
05952875 T 



OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
000110 
000110 
000211 
000211 
000310 

05952720 
0003H 
000312 

05952710 
000313 
000410 
000410 
000513 
000513 
000610 

05952770 
000710 
000712 
000712 
000811 
000813 
000813 
000910 
001012 
00UI2 

05952795 
001H3 
001113 
001313 

05952830 
001413 
001510 

05952820 
001510 
001511 

05952780 
001511 
001611 
001611 
001613 
001813 



Til 



TALLY*1» 
GO F.XT I 



ENDJ 



fXT 



LLl 



IF SC«ALPHA THEN IF Sc leQ "9" then 

BEGIN 3! NUMBER 

SI*SI+1> TaULY*1) 

7(IF SCsALPHA ThfN IF SC LSS *0 M THEN 
BEGIN T*TALLY> S i *S I -T I JUMP OUT TO ID; END 

ELSE IF SC LeQ *9 w THEN 

BEGIN S j «-S i + i ; Tally*tally+u end); 

TOTALLY; Sf *S!-T| DS*T OCT; 

TALLY*2; 

GO FXTJ 

end; 

if sc/"*" thfn tally*3 else tally*s; 

DS*7 LfT"0"l DS«-ChKJ 

type«-tally; 

KTR*SH 

end stream; 

P( ,type»std» .ktr.stdj j 

END SCAN! 
SUBROUTlNf MLOgjT; 

bfgtN 

s*typfdspaceci5»maintbuffareav);x 

STREAMfB«DATE»D*S*l)| 

BEGIN 

sf«-loc datej ds..8 oct} d i «-d i +8 ; 
Si*b; 

2 ( 6 3 f I F SCs« M * M THFN DS*CHR EUSE JUMP OUT ? TO LL))I 
OS*LlT w » f »S di«-dt-i; b«-du 

END STRFAMJ 

LA* P INX OJ 

MfS]«- (LA-S) DI V 5; 

M[S + 2J«-1F FILTOG THEN -N ELSE SEGSl 

LlNKUP(l8, S>; 

end mlogit; 

SUBROUTINE eNTeRFILE* 

begin 

FIXARRaY(mD»B»30)> 

move(30»hd-i»hd); 

HDt0]*?3600036000i0li 

STRFAMrDATE»XCLOCK»H«-HD INX 3); 
BFGIN 

si*loc date; ds*8oct; 
01*01-20; si»si+4j ds*4chR; 
oi«-dt*7j si*h; si*si+s; ds*3chr; 

DI*h; 0S*2LlT"+#"j S i *S i -3S ds*3chr; 
fnd stream; 



X167- 







05952B75 


05952880 


T 


0019(3 


05952885 


T 


002010 


05952890 


T 


002011 

05952860 


05952895 


T 


0020U 


05952900 


T 


0021U 


05952905 


T 


002111 


05952910 


T 


0021»3 


05952915 


T 


0023(0 

05952915 


05952920 


T 


0024U 


05952925 


T 


002510 

05952925 


05952930 


T 


002513 


05952935 


T 


002710 


05952940 


T 


002711 


05952945 


T 


002712 

05952900 


05952950 


T 


002712 


05952955 


T 


002613 


05952960 


T 


003011 


05952965 


T 


003012 


05952970 


T 


003013 

05952760 


05952975 


T 


003110 


05952980 


T 


0032(0 

05952750 


05952985 


T 


0032U 


05952990 


T 


003310 


05952995 


P 


0033<0 


05953000 


T 


003511 


05953005 


T 


003711 


05953010 


T 


003711 


05953015 


T 


003810 


05953020 


T 


003811 


05953025 


T 


0041 10 


05953030 


T 


004210 

05953005 


05953035 


T 


004211 


05953040 


T 


004311 


05953045 


T 


004513 


05953050 


T 


004912 


05953055 


T 


005012 

05952990 


05953060 


T 


005013 


05953065 


T 


005110 


05953070 


T 


005110 


05953075 


T 


005511 


05953080 


T 


0057(3 


05953085 


T 


0059(0 


05953090 


T 


0061(0 


05953095 


T 


0061(0 


05953100 


T 


0061(2 


05953105 


T 


0062(1 


05953H0 


T 


0063U 


05953115 


T 


0064(2 



HPr«],[«2M]»«l» % MAKf FILE NON-MOVE ABLE 

Hnf7]«-CHDf81*N)-(HD[9)*l)> 

HHT 1 J* A * 

pNTERUSERFlLF(HIO»FlDtr6U?]»B-l)l 

STRFAM(MID»FID»N,TMID*TFID»FILT0G» 

P«-JF FlLTOR THEN B ELSf BUfF)J 

BFMN 

Sj*LOC N? DWLOc Hi DS*8DEC; 

D]»-LOC N) DS*7F|LL» D?«-BJ 

OS*LTT" "I Sl*LOC MIDI SI*Si*U DS*7CHR* 

DS*LjW"; Si*Si+i; DS*7CHR> 

0S-6LIT" SEGS«"; DS«-8CHR* DS*6LlT» CREATED"* 

FlLT0G(DS*6LlT" FROM " ; S I*SI 4-1 > DS*7CHRJ 

DS*L|T"/ W ; Si*S] + i; DS«-7CHR)J 

DS«-LlT w * w ; 

end stream; 
if filtog then 

BFGIN 

MLOGITI 

SPOUT(B); 
END fLSF 

f0r6etspacecb)! 
end enterfile; 

P(0,0,O,0,0,pUFF»DUP)> BUFF«-P,[l5»l5]-1 t P(0»0,B LSS 0)J 

Pc 0,0, 0,0, 0,0,0, 0,0, o,o); 
SFT OMfT « nqtcsharedisk); 
if R.rcF)»o thenx make reserve/disk 

BFGTN MrDi*"RE5ERVF w J FIDl»"DISK "I 

TF (A»«DlRECT0RYSEARCHf-MlD»FlD#5))^0 THEN 
BEGIN STRFAM(BUFF)! 

DSIa^OLlT" RESERVE/DISK ALREADY PRESENT*"! 

GO To exit; 

end; 

IF CA*GETUSFRDlSK((N*RF.SERVEDlSKSIZE)81t2»47ll]))«0 THEN 
BFGIN STRFAM(BUFF); 

nsj3s3?L.iT"**No uSfR disk for reserve/disk*"* 
go to exit; 

end; 



GO TO C.7.1 



end; 



if rdt then 

BFGtN P(B)I AlsMtBUFF INX 0]l Nl«MtBUFF INX 131 END ELSE 
BEGfN 

scan; 

if types! then % identifier 

BEGIN 

TMlOfrWORDJ 

scan; if word**/" then go fxit; 

FILEIDI 



05953117 
05953120 
05953125 
05953130 
05953135 
059531*0 
05953145 
05953150 
05953155 
05953160 

05953165 
05953170 
05953175 
05953180 
05953185 
05953190 

05953195 
05953200 
05953205 
05953210 
05953215 

05953220 
05953225 

05953350 
05953360 
05953369 
05953400 
05953600 
05953800 
05954000 
05954200 
05954400 
05954600 

05954800 
05955000 
05955200 
05955400 
05955600 

05955800 
05956000 

05956250 
05956300 

05956350 
05956400 
05956450 

05956500 
05956550 
05956600 
05956650 



05953090 
006413 
00671 J 
007110 
007211 
007511 
0077*0 
007910 
007910 

007913 
0080(2 
008113 
008213 
0085*1 
008711 
0088«2 
008910 

05953145 
008911 
0089*2 
0090*0 
0091*0 

0092*1 

05953200 
0092*1 
0094*3 

05953065 
0095*0 
009912 
0102*1 
010211 
0103*2 
0105*2 
0108*0 
0109*1 

0113*2 
011610 

05954000 
0116*0 
011912 
012013 
0125*1 
0127*0 

05955000 
0127*0 

0127*2 

05953600 
0127*2 
0127*3 

05956300 
0132*2 
0133*0 
0134*0 

0134(3 
0135*1 
0136*0 
0138*1 



VI 



BZ 
£ 



scan? if n0t(type=1 or type=2) then go exit* 
tfid«-if type=? Then decworo else word? 
filt06*true» 

scan; 



END* 



if typf*2 then % number 
bfgtn 

a*word; 

scan; 

IF TYPE»3 THEN IF WOROb"/" THEN 

bfgin 

word*a? 
a*o? 

TMlO*nFCWORDJ 
GO FILE ID; 
END ELSE SCAN; 



if type»2 then n*woro? 



end; 
end; 



SEGS*N«.N + (NbO) J 

if a#o then 

begin 

strfam(a»dis[fidi ); 

begin sitsLoc a; ds:«8 dec; end; 

IF fJS.A DIV lOOOOOO) GEO NfUP.NEUF OR A LSS DI RECT0RYT0P+4 THFN 
BEGfN STRfAM(FlD»BUFF)l 

BFGIN DSI«?2LIT" INVALID DlSK ADDRESS "I 

si :«loc fid; ds»x8chr; ds»»liT"*«i 

di :*di-9; ds» = 7 fill; 
end; 



go to exit; 



end; 



IF 
IF 



GO TO VI 



WAfTiOaFlDJ I NXPt 00000000 »?64t 18 + FID,[5U3>.C42I1] ThEN 
fR!sFID.rl2»6J) GEO ? THEN X CHECK FOR 40 MIL ADDRESS 

IF NOT WAT Tl OC CF I D J T NX ?140000000, 064 . 1 8 + F I D. [5 1 1 } ) , [ 43 1 1 J 

THEN GO TO V ELSf IF R GE^ 4 THEN GO TO V I % fNV ADO 
END? 



IF FILTOG then go xdfilei 

IF A=0 THEN GO EXlTj 

SLEFPf rTOGLEl«USERDl SKMAS«>! 



LOCKTOG(USERDISKMASK)! 



SET OMIT = NOT(SHAREDISK) 

J*J+1? 
: D««( I l«(E J *U[J] ),STARTWRD) 
SET OMjT s NOT(SHAREDISK) 
SET OMjT = ShARfDISK 



MOD 30? 



SET OMjT = SHARFDISK 
AVS?«30-(SlstC5»E AND NUMpNTM )+D )MOD 30+Sl 
FlXARRAY(UT,RtAVS); D I SKWA I TC -R. AVS»B » «I DI 
KisS? |.?sD? SIbJ+CI 



V 30+USERDISKB0TT0M)? 



05956700 T 
05956750 T 
05956800 T 
05956850 T 
05956900 T 



05956950 
05957000 
05957050 
05957100 
05957150 
05957?00 
05957250 
05957300 
05957350 
05957400 
05957450 



05957650 
05957700 
05957750 
05958600 
05958800 

05959000 
05959200 
05959400 
05959600 
05959800 
05960000 



05960600 
05960650 
05960660 
05960670 
05960675 



05960705 
05960800 
05961000 
05961005 
05961199 
05961200 
05961400 
05961600 



05957500 T 
05957550 T 

05957600 T 



05960200 T 
05960400 T 



05960680 T 
05960685 T 
05960700 T 



013811 
014111 
014511 
014610 
014710 

05956500 
014710 
014713 
0148U 
O149J0 
015010 
015210 
015212 
0153*1 
015410 
0155»2 
015610 

05957200 
015810 
0160*0 

05957000 
0160J0 

05956350 
0160S0 
0162*1 
0l63 { 
0163:2 
0164J2 

05958800 
0165*1 
016910 
017012 
Ol73«2 
017412 
017510 

05959400 
0175H 
017710 

05959200 
017710 
0l8l?0 
018213 
0l86«2 
018811 

05957750 
018811 
01891 1 
019012 

05960700 
019512 
019512 
019613 
019913 
019913 
019913 
020410 
0211 '1 



wi 



XI 



Y» 
$ 



POP OMIT 
Gl«T-fWT2l»fP(UrJ-l]»DUP) AND NyMEN TM) +P( XCH) , STARTWRD > I 
Si«urJ+ll.STARTWRD-S» h»*K»sK-1* IF UT t T »«L 3 . DEND GTR A THEN GO 
IF UTrT*fH*L+l) 01 V 2], DEND > A THEN IF UT [ H*T-1 J , DEND > A THEN 
FLSf ELSE IF UT[T«.T + 13.DEND < A THEN BEGIN L»T+1I GO N END! 

IF A GFO L»*CHl»UTCT],DENO)-CQ**UTtT],DSIZE) THEN 
IF fLAtstA^N)) LEO H ThEN GO AZsAREA AVAILABLE 
ELSf IF LA LEQ SAl«»(UTrT+t].DEND-UT[T+n f DSlZE) THEN 
NJ«|,A-A»sH ELSE N:*SAl-A«aH ELSE IF (LA««A + N) GTR L THEN 
Nl«|.-A ELSE RDT»*RDT OR PiOOOOO) 
GO INUSEJ 

TMID>*IF RDT THEN "OKTEST " ELSF "BADlSK "I 
SET OMIT * NOT(DKBNODFX AND NOT DFX) 
STRFAM( 1MI0»FID»N»MID.B»BUFF)» 
BEGIN OStaLlT « , « ; SIlsLOc TMIDJ SI»*SI + D DSl«7 CHRI 

DSlsLIT "/"I Sii»Sl+ll DSI.7 CHRl 

DS:*13 LIT " NOT cREaTfD("1 Sl*«Sl+8l SKIP SBI 

IF SB THEN FLSE 

BEGIN Sp.LOc Nl DS».7 DEC* Nt*Dl> 0H"DI*7J D5»*7 FILL? 
di*«n; DSJ*5 LIT « SEfiS 1 *? S ] I « S I + 1 ; 
OS 1 = 1 t LIT w JN USE BY "> DS»*7 CHRl DSl*LlTV"J 



X J 

GO 



END 



$II*Sl+i; DS:s7 
OSJs? LlT")«."l 



CHR> 



ENDI 



FOR r> ETSPACEfR)J 
GO fX T T ; 
T NUSE I % SEARCH THE DIRECTORY TO FIND THE NAME OF THE CONFLICTING 
% FILE. SINCE USfRDISK REMAINS LOCKED. DISK ALLOCATION 
% CANNOT CHANGE! HENCE. THE DIRECTORY NEED NOT BE LOCKED. 
FORfiETSPACEfR); 
FlXARRAYfUT,R,480)> 

FOR J»bDIRECT0RYT0P+4 STEP 16 WHILE TRUE DO 
BEGIN DISKWAITC-R.ABO.JH 

FOR I « * 1 4 STEP -1 UNTIL [)0 
BEGIN E* s UTr450+2xI]; 

IF(E EOV ?il«)=N0T THEN 

BEGIN MTD**"SYSTEM "I B * «F I D* GO 1\ END; 

IF (E EQV ?14) NEC NOT THEN 
BEGIN R»*UTC30xf*9] AND 31) 

FOR Ktai STEP 1 UNTIL B DO 

IF (C««UTt30xi+9+K])NEO THEN 
IF A GEO C THEN IF A LSS 
SAl»=cC+D»*UT[30xj + 83) THEN 
BEGIN Mid:»EUCU LeQ SAD AND 
fRDT.f 18H5]))[1U7«1]| 
IF A+N GTR SA1 THEN N*SA1-A* 

fiO TO z« 



ENDI 



ENDI 



05961601 
05961800 
05962000 
05962200 
05962400 

05962600 
05962700 
05962800 
05962900 
05963000 
05963100 
05963800 
05963809 
05964000 
05964200 
05964400 
05964500 
05964600 
05964800 
05964900 
05965000 



05966100 
05966110 
05966200 
05966210 
05966220 
05966400 
05966600 
05967000 
05967200 
05967400 
05967600 
05967800 
05967900 

05968000 
05968200 
05968400 
05968600 
05968600 
05968900 
05969000 
05969JO0 
05969150 
05969200 
05969400 
05969600 



05965200 T 
05965400 T 
05965600 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



FNDI 



05969800 T 
05970000 T 



0214»0 
0214)0 
021811 
022510 
0231 * 2 

05962400 
023913 
0244'0 
0246*1 
025110 
025713 
0261«1 
0263*0 
0265U 
026511 
0267*1 
026812 
026912 
0272*0 
027213 
0274*0 

0275*2 

05964800 
0278*0 
0278*2 
0279*0 

05964200 
0279*1 
0280*0 
0283*0 
0283J0 
0283*0 
0283*0 

0283*3 
0288J0 
0292*0 
0293*2 
0295*0 
0297*0 
0298*2 

05967900 
0302*0 
0303*2 
0306*2 
0308*0 
0311*0 
0313*0 
0316*1 
0317J3 
0320*0 
0323*0 
0325*0 
032512 

05969000 
032713 

05968200 
0327*3 

05967600 



FNDJ 

7* 

$ SFT OMjT * NOT SHARFDISK 
UNLOCKTOg(USFRDISKMaSK); 

go to y* 
az» if a nfO l and la ne« h Twfn 

begin if s=o then 
$ set omit x not(sharedisk) 
s sft omit = sharfdisk 

begin if g*0 or d»0 then 

begin useroiskspecialcasec2.e.ut,j)j go to bz endi 



05970200 T 0330«0 



$ POP OMIT 



SlsIF P((G+1) DiV ?»DUP) > D THEN P(DEL»D) ELSE P* 

ur j].startwrd*=t-s» g»*d-s» kj*g+c-i; 

MOVEcC.rUT[D33»rUTt6J3)l TJ.T-S* 



END* 



FOR G'eK STEP -I UNTjL T DO UT [ G + l 3 » *UT [ G J J 
UT[T] l«A*(A-L3rTODSl7E]J 
UT[T + ni«H4(H-LA)fT00SlZE]l 
C. I*C + 1> 

K *• K + i ; 
END ELSE 

IF A=L AND LAsH THEN 

BEGIN f«*C-i; M0VE(K-T,tUTtT+n]»(UT[T3])» Kl-K-1 END 

ELSE UTtT3'a(IF AeL THEN M fLSE A )& (Q-N) [ TODSI ZE 3 t 

U[J],NUMENTl»CJ 

IF QnUrJ3,MAXSfZ THEN 

BEGtN Q«=UTrH»BK-C+l3,DSl7E; 

FOR H*=H STEP 1 UNTIL K DO 

IF P(UT[H3.DSIZF»DUP) GTR THEN Ql*P ELSE P(DEL>I 

UfJ],MAXSi7«sO; 

END* 

HlDI*!F RDT THFN "DKTeST - fLSE "BADISK »| 
S SFT OMIT * NOTCDKBNODFX AND NOT QFX) 
S SET OMiT = NOT(SHAREDISK) 
$ SET OMfT » ShARfDISK 

DiSkWAiT(R.AVS,B)J 
t POP OMIT 

I'NLOCKTOGCUSERDISKMaSK)} 

F0RgETSPACE(R)J 
CZs ENTfRFJLEJ 

GO fX!T> 
XDFlLE* 

IF fHEADFR!«DIRECTORYSFARcHf TMID»NFLAG(-TFID OR M),4)) LSS 64 THEN 

BEGIN 

type»»headeR* 

GO MSf,; 
END; 



05970300 
05970390 
05970500 

05970600 
05970800 
05971000 
05971005 
05971095 
05971200 
05971400 

05971600 
05971800 
05971801 
05972000 
05972200 

05972400 
05972600 
05972800 
05973000 
05973100 
05973200 

05973400 
05973600 

05973800 
05974000 
05974200 
05974400 
05974600 
05974800 
05975000 
05975200 

05975400 
05975404 
05975410 
05975595 
05975600 

05975601 
05975610 

05975620 
05975630 
05975640 
05975700 
05975750 
05975800 
05975850 
05975900 
05975950 



05967200 
T 0330*2 
T 0330*2 
T 033012 

05970500 
T 0334*0 
T 0334*2 
T 0336*1 
T 0337*2 
T 033712 
T 033712 
T 0339«3 

05971400 
T 0342*2 
T 0346*2 
T 0352*2 
T 0352»2 
T 0355*3 

05971200 
T 0355*3 
T 0361*1 
T 0364*0 
T 0367U 
T 036812 
T 036913 

05971000 
T 0369*3 
T 0372*0 

05973600 
T 037810 
T 0383*1 
T 0385*3 
T 0387*1 
T 0390*3 
T 0392*0 
T 0397*3 
T 0400*1 

05974400 
T 0400*1 
T 0402*2 
T 0402*2 
T 0402*2 
T 0402*2 
T 0403*3 
T 0403*3 

05975610 
T 0407*1 
T 0408*0 
T 040910 
T 0412*0 
T 0412*0 
T 0415*1 
T 0415*3 
T 0416*2 
T 0417*0 

05975800 



HA*wEADER,fFF]; 

HDR*.[MrHEAOER*HEADER INX 03) 4 30[8t38flO]2 

MlD«-- M PADlSK "J 

S*HnRr8]J I SEGMENTS PfR row 

if a*o Them 

BEGIN 

FOR I*HDRr9] STEP -1 UNTIL 1 00 

IF CLA«.HDRf I+9])#0 ThEN 

IF A GFG LA AND A LSS LA + S THEN % FOUND ROW 

IF A+N LEO LA+S THEN GO FOUND ELSE GO CONFLICT! 

TYPE*4J 

IF FALSE THEN 

BEGIN 



CONFLICT' 



TYPE*3? 

Sf.GS*A + N-LA' 



■si 



FND» 



FOUND* 



S SFT 

EN 



HFADFRUML0CK(TMID.TF|D,HEADER&HACCTF])I 
GO MSGI 

HDRf I+9J+0J 

DlSKWAiT(HEADF.R»30,HA)l 

IF (I*A-LA) GTR THFN FORgETUSERD I SK( LA» I ) ; 
IF U*LA + S-CLA*A + N)) GTR THEN FORGETUSERD I SKC LA » I ) I 
OMfT x NOT(DKBN0DFX AND NOT DFX) 

FNTFRFJLEI 
GO FIN J SI 

DJ 



n*si srr.s«oi 

FOR I*HDR[9] STEP -t UNTIL 1 DO 

IF ( A*HDRtU9J>#0 THEN 

BEGIN 

HDRf 1+93*0; 

DlSKWAlT(HEADERi30,HA); 

WORD*AJ FID«-DECW0RD» 
SET OMIT = NOTCDKBNODFX AND NOT 

FNTFRFJLEI 

SFGS*5fGS+NI 
END; 



DFX) 



FlNjSl 



MSq« 



FORgETSPACE(HEADER)! 

P(DlRFCT0RYSEARCHf-TMlD,TFlD»6),DEL)l 

TYPf»5I 



TOJ 
T3* 



STRpAM 
BEGIN 
S 

D 

n 

D 
D 

c 

G 

D 

D 



(TMiD,TFTD.SEGS»A»TyPF»BUfF)J 



0i*l0c segsi 
ds«.8fill» duloc 
tm i di Si^sj+i; 



DS*8DEC» DS*8DECi 

"■ ai ds*s fill* di*buff; 
ds*7chr; 



l*LOC SEGSI 

t*LOC SEGS« 

S*LlT",«J Si*l,0C ..,_, .. 

S*LlT"/'»; Sl*SI + il DS*7CHR* 

S*l 1 LIT" NOT XD-ED( M I 

I*CI+TYPEJ 

TO* GO TU GO T2I GO T 31 GO T4I GO T5I 

11 LlT«NOT ON DlSK H l GO EXTJ 
S*8 CHRI DS*6 LIT" SEGS "j 



05976000 


T 


0417*0 


05976050 


T 


0418 t 1 


05976100 


T 


0421*2 


05976150 


T 


042252 


05976200 


T 


042312 


05976250 


T 


0424*1 


05976300 


T 


042413 


05976350 


T 


0428*3 


05976400 


T 


043013 


05976450 


T 


0433*2 


05976500 


T 


0439»0 


05976550 


T 


0439*3 


05976600 


T 


0440*0 


05976650 


T 


0440*2 


05976700 


T 


0441 t 1 


05976750 


T 


0443*2 

05976600 


05976800 


T 


0443*2 


05976850 


T 


044513 


05976900 


T 


044611 


05976950 


T 


0446*1 


05977000 


T 


044810 


05977050 


T 


0449*1 


05977100 


T 


0452*2 


05977124 


T 


045711 


05977150 


T 


0457*1 


05977200 


T 


0458(0 


05977250 


T 


0458*2 

05976250 


05977300 


T 


045812 


05977350 


T 


046010 


05977400 


T 


046410 


05977450 


T 


0466*0 


05977500 


T 


0466*2 


05977550 


T 


0468*1 


05977600 


T 


0469*2 


05977624 


T 


047112 


05977650 


T 


0471*2 


05977700 


T 


0473*0 


05977750 


T 


0474*1 

05977450 


05977800 


T 


0474*3 


05977850 


T 


047413 


05977900 


T 


0475*2 


05977950 


T 


0477*1 


05978000 


T 


047810 


05978050 


T 


0478*0 


05978100 


T 


048010 


05978150 


T 


0480*0 


05978200 


T 


048l*0 


05978250 


T 


0482*1 


05978300 


T 


0483*2 


05978350 


T 


0484*2 


05978400 


T 


0486*1 


05978450 


T 


0486*3 


05978500 


T 


0488*1 


05978550 


T 


0490*1 



TlJ 
T?x 

T4* 

T5» 



EXT ; 



DS*6 LlT'MN USE W > GO EXT; 
n$*ii LIT«SYSTEM F!Lf"I go 
Sl*Sl+8> DS*8 CHRJ 
DS*1? LIT" NOT IN FILE"; G 



DI«-OI-ll* 

DS*6 LIT" 
TYPF*Ol> Dl-u 
DS*? LlT")*"l 



EXTJ 
GO EXT; 



05978600 T 0491*2 



SEGS«"I 

buffj 



DS*8 CHRJ DS*7 LIT" XD-EO*"* 
DS*LlT M «» DI*TYPE* GO EXT; 



end stream; 



a»t| n*sfgs; x for logging 
go fxit; 
eXitj 

tf a*o then 
bfgtn 

p*buff; 

mlogit; 
end; 



IF RDT THEN MrSLEE p ER INX 

buff»*o; if mscw neq i thfn 



end; 



0] i«i ELSE SP0UT(BUFF)> 
KILL([MSCW]); % CALLED AS IND. RUNNpR 



05978650 
05978700 
05978750 
05978800 
05978850 
05978900 
05978950 
05979000 

05979050 
05979J00 
05979310 
05979320 
05979330 
05979340 
05979350 
05979360 



05979400 T 
05979500 T 
05979600 T 



T 0492*3 
T 0494*3 
T 0495*1 
T 0497*1 
T 0497*2 
T 050010 
T 0501*2 
T 0502*0 

05978J00 
T 050211 
T 050313 
T 0504*1 
T 0504*1 
T 0505*3 
T 0506*1 
T 0507*0 
T 0508*0 

05979330 

0508*0 

051212 

0515U 

05950200 
SIZE" 0516 WORDS 



STACKfF+1) 
STACKrF*?) 
STACKfF+3) 



savf procfourf d i sk i 0( loc ! od .core t s i ze»d i sk ) ) % 

value core, size. diskix 
real lociodu 
tntegeb core. size, diskis 
begin real. iod, olaylo, fin* 



START OF SAVE 



06000000 
SEGMfNTl BASE 
06001000 
06002000 
06003000 
06004000 



IOD 

OLAYlO 

FIN 



* SET 
S SET 



OLAYlO 1= SIZE. [31111 S I Z F . C 3 * 1 ] Is 0» 

CORElsCORE'* SlZp«*SlZ|r; OlSKIsDlSKJ % 1NTEGERIZE 

if disk, [I'll then 

BEGIN X AUXILIARY MEMORY 
OMIT * NOT(AUXmEM) 
OMlT s AUXMEM 

PUNT( INVLDAUXIO); 



X645- 



t POP OMJT 



END 



ELSE BEGIN IOD :« ABSfCORE) & SI ZEt 81 381 103 

I ((SIZE INX 29) DIV 30 +?1000)[ C TF] 
« C0REt2*U*ll * 3[5146)2]) 
$ SET OMiT = NOT(SHAREDISK) 

STREAM(DISK,DI»C0RE.[CF1)I 

BEGIN SI «■ LOC DISK) DS ♦ 8 DEC ENnlX 



size 



?jx 



F.NDJX 



END 



FjNlrlF OLAYlO THEN I OD&DI SK[ CTC 3&DI SKf 8)21 ) 12 3 ELSE 
% ACTUAL DISK ADDRESS IN FINALQUE FOR OLAY I/O-S 
!OREQUEST(NABSCFIN)&037rc25»4O*8j,IOD.CLOCIODj&X 
(SlZE + i6)Ct2l42«634OLAYI0r 9l«7l U)l 

LOCIOD *■ on 
DISKIOIX 



IOD) 



T 0000 10 
ADDRESS ■ 
T 000010 
T 0000)0 
T 000010 
T OOOOtO 



00597 



06004010 
06004100 
06005000 
06006000 
06006999 
06009200 
06009300 
06009400 
06009500 

06010000 
06011000 
06012000 
06012499 
06013000 
06014000 



06015000 T 
06016000 T 



06016100 
06016200 
06017000 
06018000 
06019000 
06020000 



T 000010 
C 0003)3 
T 0006S0 
T 000613 
T 000711 
T 0007»1 
T 0007)1 
T 0008)0 
T 0008)0 

06006000 
T 0008)0 
T 0009)1 
T 0011)3 
T 001412 
T 0014)2 
T 0016)0 

060t4000 
0016*3 
0017)2 

06010000 
T 0017)2 
T 002111 
T 0021) 1 
T 0023'2 
T 002611 
T 002711 

06004000 
SIZE* 0028 WORDS 



PRTc 160) 



PROCEDURE FORGETESPDISKcSEGMENT)! VALUE SEGMENT; REAL SEGMENT! FORWARD! 06020500 T 000010 

START OF REL SEGMfNTl DISK ADDRESS « 00142 

06021000 T 000010 
START OF REL SEGMENTI DISK ADDRESS » 00142 

06022000 T OOOOlO 



Real procfdure getespdiSk;* 

BFGIN REAL TsNTl! 



FNn 



IF ESPCOUNT*0 ThFN 
BEGIN 

$TREAMCD*sTlsSPACE(2>)J 

DS*12 LjT " NO ESPDlSK*"! 

SPOUT(T); 

SLEEP(CESPcOUNT],NOT 0)J 
END! 

stream(t«-o«a*f:sptabjx*o); 
begin si*a! 

Lll IF Sc*" M " THFN BFGIN S|*Sl+U GO TO LI END! 
A*SI! Dl*A! 

L2* if sb Then 

BEGIN TALLY*TALLY+t! SKIP SB! SKIP DB! GO TO L2 END! 



END! 



TOTALLY! D$*SET! 



GETESPDlSK*((P(DUP),tCF]-ESPTAB)x8 
+PtXcHi.[30«3J)x6+P+ESPDlSKB0TT0M) 

espcount*espcount-ii 



06022100 T 000010 
06022200 T OOOpO 
06022300 T 000l»2 
06022400 T 000411 
06022500 T 0006»1 
06022600 T 0007»2 
06022700 T 000911 

06022200 
06023000 T 000911 
06024000 T 001013 
06025000 T 0011 f 

06025000 
06026000 T 001210 
06027000 T 001212 
06028000 T 001310 

06028000 
06029000 T 001410 
06030000 T 0014»2 

06024000 
06031000 T 001413 
06032000 T OO16J0 
06033000 T 0019*1 
06033100 T 002QJ2 

06022000 
SIZE* 0021 WORDS 



STACKfF+1) x S 
STACKfF+2) = T 



PROCEDURE FORGETF.SPniSKCSeGMFNT) J VALUE SEGMENT; REAL SEGMENT** 06036000 T 0000«0 

START OF REL SEGMFNTl DISK ADDRESS « 00143 
BEGIN REAL S . T J 06037000 T OOOO'O 

IF SFGMENT LSS FSPDISKBOTTOM OR 06037100 T 0000*0 

SEGMENT fiTR eSPDtSKTOP ThEN 06037200 T OOOl t 1 

BYBY("ESPD|Sk ERR0R«."#1*)J 06037300 T 0002»1 

06037300 

06037300 
Tis(Sis(T»aSEGMENT-ESpDlSKBOTTOM) DIV 6)x6-T* 06037700 T 000812 

S*S t r30«15]8.S[30»45«33+ESPTABi 06038000 T 0012U 

STREAMtT#S)J BEGIN SKIP T DBJ DS*RESET END? 06038100 T 00l5t0 

06038100 
ESPC0UNT*ESPC0UNT+1I 06038200 T 001710 

ENDIX 06039000 T 0018U 

06037000 
SIZE* 0019 WORDS 



S SET 
REAL SC 
PRT(5<|5) * SCHEDULETDS 



S SET 

save p 



STACKfF+1) = T 



OMjT = NOUDEBUGGINg) 
hFDULEIDS* % A BIT IN 



POSITION X MEANS THAT THERE IS A JOB IN THE 



06045999 T OOOOlO 
06056099 t OOOOlO 



% schedulecsheeT) with schedule-id x, 

% SELECTRUN AND CCEINISh. 
OMIT = NOT(SHAREDISK) 
ROCEDURE DISk w AIT(C0RE,SiZE»DISk)» 

VALUE CORE»SiZE»DlSK> 
REAL CORE, SIZE, DISK* 
BFGIN REAL TJ 



USED BY C0M5; 



START OF SAVE 



OlSKIO(T,(ABS( CORE )-t)*COREtl 1111 ]»SIZE»D!SK)» 
SLEEP([T]»IOMASk)) 



END I 



06056100 
06056200 
06057000 
06061500 
SEGMENTl BASE 
06062000 
06063000 
06064000 

06065000 
06066000 
06067000 



OOOOtO 
OOOOlO 
OOOOlO 
OOOOlO 



ADDRESS * 
T OOOOlO 
T OOOOlO 
T OOOOlO 



00625 



T OOOOlO 
T 000312 
T 000510 

06064000 
SIZE* 0006 WORDS 



PROCEDURE DISKSQUASHCBUFF)! 

PRT(546) » olSKSQUASH 

VALUE BUFF' RML BUFFI 

BEGIN 

REAL RCw=+0, B»+l» E*B+t» FsE+1, R«F+1» HI*R+1. LO.HIM. 
STACKfF+O) u RCW 
STACKfF+1) x B 
STACKfF+2) = E 
STACKfF+3) > F 
STACKfF+4) a R 
STACKfF+5) n HI 
STACKfF+6) 3 LO 



START OF 



06068000 T 0000:0 

REL SEGMeNTi DISK ADDRESS « 00144 

06068100 T 000010 

06068200 T 0000»0 

06068300 T OOOOlO 



STACKfF-2) a MSCW 



STACK<F+7) 
STACKfF+10 
STACK(F+11 
STACK(F+12 

STACK(F+13 
STACK(F+13 

STACKfF+14 
STACKfF+15 
STACKfF+16 
STACKfF+17 
STACK(F*20 

STACKfF+21 
STACK(F+22 
STACKfF+23 
STACKfF+24 
STACKfF+25 

STACK(F+24 
STACKfF+24 
STACKfF+25 

STACKfF+26 
STACKeF+27 
STACKfF+30 

STACKfF+31 
STACKfF+32 

STACKfF+33 
STACKfF+34 
STACKrF+35 
STACKfF+36 
STACKfF+37 
STACKfF+40 

STACKfF+41 
STACK(F*42 
STACKfF*43 



MScWat»2» 

CNT=L0+1» USE*CNT+1» T0G»USE+1» I0U«T0G+U 



« CNT 

* USE 

■ TOG 

* IOD 

REAL T«tOD+1» sum«t; 
s T 
a SUM 

REAL Ala T+1» A?*A1+1. a3-a2+1» A4s A 3+l» A5«A4+1* % ARRAY VARIABLES 
a Al 

* A2 
=: A3 
s A4 

* A5 

REAL XlsA5+l» X2*XJ+1, X3*X2+t» X4*X3+li X5«X4+1I % SCRATCH VARIABLES 

■ XI 

■ *2 

* X3 

* X4 

* X5 

REAL L0C10D*X4» HICNTaXfl, LSTcNT*><58 

* LOCIOD 
» HICNT 
= LSTCNT 

BOOLFAN C0MFLICT=X5+1» PASST Wq»CONFL I CT + 1 , EUNOTSQUASHEDsPASSTWO* 1 • 
= CONFLICT 
a PASSTWO 

■ eunotsquashed 

ftleok«eunotsouaShfd+i» sqall*fileok+ii 

* FILEOK 

* SQALL 

INTEGER ChSQALL+1. DsC-M* I«IH1» Ssf+l» EU«S+1» AV=EU+!# 

a C 
a D 

* I 

* s 

* EU 
a AV 

AVSIZE«AV+l, DISKAV«AVSJZE+1# SQSl ZE«D I SKAV+ 1 1 

* AVSIZE 

* DISKAV 

* SQSIZE 



06068350 T 000010 
06068400 T 000010 



06068500 T OOOOlO 
06068600 T OOOOlO 



06068700 T OOOOlO 



06068800 T 0000:0 

06068900 T OOOOlO 

06069000 T OOOOlO 

06069100 T 0000«0 



06069200 T OOOOlO 



STACK(F*44) 
STACK(F+45) 
STACK(F+46) 
STACK(F*47) 

STACKfF+50) 
STACKfF+51) 



ARRAY UT=SOSlZE+ir*]» MV = UT + H*J» D 1 R=MV+i f *] , EUS»D IR+1 C *3 * 
UT 
MV 
DIR 
EUS 

REAL PRTA[)r>R«EUS + l. PRTVALUE=PRTADDR*1 * 
PRTADDR 
PRTVALUE 

t SET OMfT = 
LABFL ScAN.SP 
ENDMVF. 
DEFINE 
t SET 



not sharedisk 
outerr.ck.okinusf.notok.okbounds.mvemoRe.mve. 

Ar,AlN,OK,NEXT,SQ!T»STOPSQ»STOPiT.SDXlT»OUT»FlXMV; 



$ POP 



OMJT x 
U 

OM?T 
LINK 

asjze 

LOCKED 
FACTOR 
MINSIZ 
MAXMVS 

KEYfNM 



Sharfdisk 

a AVTABLE#. 

* [3U9J#, 

* lOOOO#» 
F « lO#. 
I7F s 900#, 

ASK * rl8»l5]#J 



COMMENT 



FACTOR: 



MINSIZF* 



MAXMVSlZES 



DEFINE CELL 
STOP 
STOPCK 
MOVFAB 
TEMPOS 
SU8R0UT T NE SQ 
BEGIN 

IF (XI := 
ELSF FUS 
STRFAMCA 
N 
BFRIN 

CI * 
SI « 
A* = 



LE 

K 

UASHMES 



TH 
BE 
SQ 
LA 
10 
TH 
AV 
FO 
ON 
MI 
IN 
TI 
FA 
LI 
IN 
FO 
NO 



Mr 

Mt 
IF 

NO 
MV 



E MAXIMUM 
TWEEN TWO 
UASHED. I 

rger Than 
»000 segm 
E MINIMUM 

ailable A 

R SQUASH! 
E. BUT AS 
NSIZE. SM 

g Time pr 
ons may B 

CILITY, 

miTs The 

-USE AREA 

R SQUASH1 

TE' 

1) MAXMVS 

?) MAXMVS 
PRTADDRJ# 
PRTADDR]* 
MIPRTADO 
T 0IRCX3+ 

[I+2J.F J ! 
S> 



separation, in segments, allowed 
available areas which are to be 
n general. factor should not be made 

ThE CAPACITY OF A 20 ML SU3M0D.I.E,, 

ENTS. 

size, in segments, allowed for an 
rea to be considered as a canditatf 
ng. minsize may be made as small as 

SQUASH TIME VARIES INVERSLY WjTh 
ALLER VALUES WILL INCREASE SQUASH- 
OPORTiONALLY, MINSlZE LIMlTA- 
E OVERRIDEN BY THE LOOKAHEAD 

NUMBER OF INDIVIDUAL AREAS IN AN 
To BE AT MOST MAXMVSlZE/3 AREAS 
NG TO OCCUR, 

?ZE MUST BE LESS THAN 1024, 

TZE MUST BE A MULTIPLE OF 3. I 

. 

R] THEN GO STOPSQ#, 
4J.[4?U]#, 



P(XCH))>1 THEN X^lslF SQSlZE#0 THEN SQSIZE 
CEU-U .OSfZE* 

»»EU-l»Bl»Xt»C**X3#Cl»»0»c2»«0»CXl»0» 
OSQIseUNOTSQUaSheD, X2JsX2? "SPACE (10)); 

■CII 60 TO LOi 

■LOC A* DS:»4 LIT" EU "J DSt*2 DEC* 

ON DT»*DI-2t DSl*FlLL» DI«*A> CI*«CXJ 



06069300 T 000010 



06069400 T 0000 10 



06069500 
06069900 
06070000 
06070100 
06070200 
06070300 
06070400 
06070500 
06070600 
06070700 
06070800 
06070900 
06071000 
06071100 
06071200 
06071300 
06071400 
06071500 
06071600 
06071700 
06071800 
06071900 
06072000 
06072100 
06072200 
06072300 
06072400 
06072500 
06072600 
06072700 
06072800 
06072900 
06073000 
06073100 
06073200 
06073300 
06073400 
06073500 
06073600 
06073700 
06073800 
06073900 
06074000 
06074100 
06074200 
06074300 
06074400 
06074500 
06074600 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



000010 

ooooto 

0000*0 
000010 

ooooto 

000010 
000010 
0000*0 
0000*0 

ooooto 

000010 

ooooto 

0000*0 

ooooto 
ooooto 

0000(0 
0000(0 

ooooto 

0000*0 
0000*0 

ooooto 
ooooto 
ooooto 
ooooto 

0000(0 
0000*0 

ooooto 
ooooto 
ooooto 

0000*0 

ooooto 

0000*0 
0000*0 
0000*0 
0000*0 
0000(0 
0000*0 
0000*0 
0000*0 
0000*0 
0001*0 
OOOl to 
0004*0 

000613 
0009*0 

0011*3 
0011*3 
0012*1 
0013*2 



io» c?**ci; go to L2i ds s*4 liT*nUll"! ci**cxj 

LIS n$»*7 LIT" SQUASH"? Cl**CX! 
L?> C|:bCI+B! 

GO TO LLO; GO TO LLO* GO TO LL2! GO TO LL2J 

llo* rx:*ri; CP=CU 

R<NOSQ(DS»sLlT" "? cX«»CU CII«C2))I 

rx:»ci; GO TO LI I 

BfNOSQfJuMP OUT 2 TO L, L 1 > * DS*»2 LIT"ED"> 
JUMP OUT TO LLl ) ; 

nSl=3 LlT"!NG"* 
LL1 « GO TO FXTI 
LL?» DSJeLlT" "! CXt=CI> C I I a«C2 * 

rXSsCH GO TO Ull 

ST **R; 2 c S T « «S I -8 > ; B»sSn 

PCCXIxCI ! CT « = C1 ) J 

DS**2 LIT" C"J St:sLOC CJ 

DS*s6 DEC> CIsDN D ! S«D I-6> 0S*»5 F ILL* DI»«C! 

DS8el9 L|T" SEGMENTS AVAILABLE"! 

BCJUMP OUT TO LL3)» DS»»4 LIT" ON "! 

CXIsC? J C! **Cl! 
LL3* DSJsLlT")"* 
EXT' DS*bLiT»«."! 

ENni 

SP0UT(X2)I 

END PRINTING MESSAGES! 

SUBROUTINE SCANMFSSAGEJ 
BEGIN 

XI J=f X5:»NEUP.rFF3)-ll X?» .BUFF. [30*18]! 
EIXARRAY(EUS,A5.X5)! 
M0VE(X5.A5-1,A55; 

X5t=-1» % WILL BE GEQ ZERO AFTfR FIRST PASS ThRU SCAN 
SCAN* 

ST RE AM f AIoO»SiZ»"0»EUiIb-i,eUZI«»1»ERRTOGIbOINO*"0» 
B»*X5<0»EU«*« l 2564000000000000,CXi*0»Cl *«0, 
C2!e0»KTRJsX2)J 
BEGIN 

CI i«Ci; GO TO L2) 
IT SC<0 THEN 
AO: BEGIN TALLYJsi; NO»sTaLLY! CP*CX ENDI 

if sc»i2 then go to ao* 

DI !sLOC s i 7; 

lii if sc geq o then if sr<i? then 

BEGIN 

TALLYSaTALLY + U 

si t s si+i; 

GO TO Lll 

END! 

NO:eTALLYJ 
Si:sSi-NO! 
DSt*NO OCT! 
TALLYlsOl NO!«TALLY> 

ci i=cx; 

L2t C2'«Cl! GO TO STR! 



06074700 


T 


0014*3 


06074800 


T 


0016U 


06074900 


T 


0017*3 


06075000 


T 


001811 


06075100 


T 


0019*1 


06075200 


T 


0019J3 


06075300 


T 


0022*1 


06075400 


T 


002213 


06075500 


T 


0025JI 


06075600 


T 


002610 


06075700 


T 


0026*3 


06075800 


T 


0027*0 


06075900 


T 


002810 


06076000 


T 


0028»2 


06076100 


T 


002913 


06076200 


T 


003110 


06076300 


T 


0031*3 


06076400 


T 


0033*0 


06076500 


T 


003513 


06076600 


T 


0037*3 


06076700 


T 


0038*1 


06076800 


T 


0038*3 


06076900 


T 


0039*1 

06074300 


06077000 


T 


0039*2 


06077100 


T 


0040*3 

06073800 


06077200 


T 


0041*0 


06077300 


T 


0041*0 


06077400 


T 


0041*0 


06077500 


T 


0044*2 


06077600 


T 


0048*3 


06077700 


T 


0050*3 


06077800 


T 


0051*3 


06077900 


T 


0051*3 


06078000 


T 


0054*1 


06078100 


T 


0055*3 


06078200 


T 


0056*2 


06078300 


T 


0056*2 


06078400 


T 


0057*0 


06078500 


T 


0057*2 

06078500 


06078600 


T 


0058*1 


06078700 


T 


0059*0 


06078800 


T 


0059*1 


06078900 


T 


0060*1 


06079000 


T 


0060*1 


06079100 


T 


0060*2 


06079200 


T 


0060*3 


06079300 


T 


006110 

06078900 


06079400 


T 


0061*0 


06079500 


T 


0061*1 


06079600 


T 


006113 


06079700 


T 


0062*1 


06079800 


T 


0062*3 


06079900 


T 


0063*0 



T ALLY J =1 » DpsLOC EUI 

IF 2 SC*DC THEN * AN EU SPECIFIED 

REG IN 

CXtsCT J GO TO L3; 

IE SC GEQ THFN IE SC<1<! THEN 

BEGIN 

sjibSh,u dt»*loc eui; 

ie sc geo o then if sc<i? then 

tally**? fLSE go to ad 

SpsSi-if NO'aTALLY? 
DS»sNO OCT* TALLYlsOj 

end else go to a|»' 
end; 

NOIsTALLY* CIUA) 
CI * = A* 
L3t IF SC*" " then begin si«*si+i; GO TO L3 END! CUaCXj 

STP« Sli»KTRl C I • «C I + 8* r.O TO L5J GO TO L4; 

Las if sc*"*» then go to ext; 
cx**cj; ci *=ci* % size check 

NOfjUMP OUT TO L5)l 
CX t kCi I GO TO L3I 

if sc#"«-* then 
ah go to err; 

GO EXTJ 
L5s A« = CI J CI I = C2; % IV CHECK 
NOCJUMP OUT TO ERR); 

if sc*"-" then 

BEGIN 

Si I »S J + l) CX* ">CI f GO TO L3; 
CXI.CII CI <*C1; % SIZE CHECK 
NOcJUMP OUT TO L6)> f,0 TO L7; 
L6» TALLY'sEUU EU?* b TALLY; 

At* CI J CI **C2; * EU CHECK 

nocjump out to err); 
end; 

l7» a»=tally; % zero out a 
if sc*"*" then go to fxt; 
if sc*"." then 

PFGIN SiisSf+ll A**SH GO EXT END; 

eRr» tallyi=i; errtog»*tally; 

EXT* 

enh; 

if p then % error in input message 

BEGIN 
SPOUTERR* 

SP0UTfP(BUFF.[l5M5]-1.0UP)«M[P-l][9i9l9]>| 

forgetspacecas); 
PcXjT); 

ENp; 

if (X3«*P) geq o then % an eu range specified. 



06080000 


T 


0063(2 


06060100 


T 


0064*0 


06080200 


T 


006412 


06080300 


T 


0064*2 


06080400 


T 


0065*0 


06080500 


T 


0066*0 


06080600 


T 


0066*0 


06080700 


T 


0066*2 


06080800 


T 


0067*2 


06080900 


T 


0068*1 


06081000 


T 


0068*3 


06081100 


T 


0069*2 

06080500 


06081200 


T 


0070*0 

06080200 


06081300 


T 


0070*0 


06081400 


T 


007012 


06081500 


T 


0070*3 

06061500 


06081600 


T 


0072*0 


06081700 


T 


0073*1 


06081800 


T 


0074*0 


06081900 


T 


0074*2 


06082000 


T 


0075*3 


06082100 


T 


0076*1 


06082200 


T 


007613 


06082300 


T 


0077*0 


06082400 


T 


0077*1 


06082500 


T 


007713 


06082600 


T 


0079*0 


06082700 


T 


0079*2 


06082800 


T 


0079*2 


06082900 


T 


0080* 1 


06083000 


T 


0080*3 


06083100 


T 


0082*1 


06083200 


T 


0083*1 


06083300 


T 


0083*3 


06083400 


T 


0085*0 

06082700 


06083500 


T 


0085*0 


06083600 


T 


0085*1 


06083700 


T 


0086*0 


06083800 


T 


0086*2 

06063800 


06083900 


T 


0087*1 


06084000 


T 


0087*3 


06084100 


T 


0087*3 

06076200 


06084200 


T 


0086*0 


06084300 


T 


0088*0 


06084400 


T 


0088*2 


06084500 


T 


0068*2 


06084600 


T 


0093*0 


06084700 


T 


0093*3 


06084800 


T 


009410 

06084300 


06084900 


T 


0094*0 



B E r, I N 



ENn» 



T F (X4»sP)>Xl OR X3>Xl ThfN f,0 SPOUTERR* 
FOR ir«X3 STEP 1 UNTIL X4 DO EUStlJ»«l* 
P(DEL)» GO CKI 



X5»*P(XCH5* X SIZE OF SOuASH 

IF CXflleP) GEQ THEN IF Xft>Xj THEN GO SPOUTERR ELSE 

EUS[X«Jt = l&X5rT0DSlZF.J ELSf IF X5*0 THEN SQALL'M 

ELSE SGSl7E**X5* 
CKI IF (X?J*P)*o THEN GO SCAN* 18 NOT FINISHED YET 
END SCANNING INPUT MESSAGE; 

SUBROUTtNE fixandwrjteheader* 

BEGIN 

M[a4+9+X?.[2BI5]]I»CI 

DISKWAIT(A4.30»X2,[CF])> 

FND WRITING NEW HEADER* 

SUBROUTtNf boundaryckj 
BEGIN 

LSTCNTJeOI MtA2-J]»"-l* 

MVEMOREJ 

X3:»HTCNT»«0J STOPCKJ 

FOR H»CNT STFP -3 UNTIL DO 

IF P(MVt I]»DUP).DEND>X3 aNd P(XCH)>0 THEN 

BEMN X3:=MVTI 3.DENDI HICNT**I END* 

IF X3*0 THEN % Rf-ORDF^ING OF MV ARRAY COMPLETE 
BEGIN 

MVfLSTCNT*?] .LINK* *? 1777; 

go okbounds; 
end; 

IF MfA?-l]<0 THEN Mt A2M ] I *H I CNT ELSE MV[LSTCNT+2 3 . L I NK I »HI CNTl 
MVrLSTCNTl»HICNT]t*NABS(*P(DUP))J 
MVrHlCNT+1], [?t?6)t»HIi 
HI l«H!-f X3:«MVtHlCNT J.OS.fZr 5* 
IF X3 LEQ UTUV + U.ASlZE T H EN 
OKI BEGIN 

MVfHlCNT+21 «=0; 

GO MVEMORE? 
ENn ELSE 

BEGIN * LOOKING FOR TEMPORARY STORAGE 
FOR I»s=S-? STEP '1 UNTIL D DO 
IF X3 LEO UTtlJtASlZE THEN 

IF NOT UTtI). LOCKED ThEN % OK FOR TEMP STORAGE 
BEGIN 

MV[H!CNT*2Jl«UTri] tDFND*I[2l38l tOJ J 

go mvemore* 
end; 

END* 

if passtwo then % non-proTfcted file transfer 

BEGIN 



06085000 1 


r 0095*0 


06085100 i 


r 0095*2 


06085200 " 


r 0098« 1 


06085300 " 


r 0103*2 


06085400 ' 


r 0104*1 




06085000 


06085500 1 


r 0104*1 


06085600 1 


r oi05»o 


06085700 1 


r 0107*1 


06085800 1 


r 011113 


06085900 1 


r 0113*3 


06086000 1 


r oii5»i 




06077300 


06086100 1 


r 0115*2 


06086200 1 


r oii6*o 


06086300 1 


r oii6*o 


06086400 1 


r 0119*0 


06086500 1 


r 0120*3 




06086200 


06086600 1 


r 012110 


06086700 1 


r 0121*0 


06086800 1 


r 0121*0 


06086900 1 


r 012410 


06087000 1 


r 012410 


06087100 1 


r 0127*0 


06087200 1 


' 0128*0 


06087300 1 


r 0130*3 




06087300 


06087400 1 


r 0135*3 


06087500 1 


r 0136*2 


06087600 1 


r 0137*0 


06087700 1 


r oi40to 


06087800 1 


r 0140*2 




06087500 


06087900 1 


r 0140*2 


06088000 1 


" 0148*2 


06088100 1 


' 0150(3 


06088200 1 


r 015313 


06088300 1 


' 0156*1 


06088400 1 


r 0158*1 


06088500 1 


r 0158*3 


06088600 1 


' 0160*2 


06088700 1 


r 0l6i»0 




06088400 


06088800 1 


• 0161*0 


06088900 1 


r 016112 


06089000 1 


r 0165*3 


06089100 1 


' 016711 


06089200 1 


' 0169*0 


06089300 1 


0169*2 


06089400 1 


■ 0173*0 


06089500 1 


0173*2 




06089200 


06089600 1 


' 0174*0 




06088800 


06089700 1 


" 0174*0 


06089800 1 


' 0174*1 



DlSKWAirc-A4»30,MVtHlCNT+23.tCFl)l 

STRfAMf Al«tM[A4+MVtHlCNT+2].tFF) J]»X2I»X?I«SPACE(6))| 

BFGJN 

05»s?7 L I T« #FfLE INTEGRITY CONFLICT! "; SpiAJ 
Slt.Sl+U DSJ«7 CHR; DS«*LiT"/"; SpaSi + U 
DSJ.7 CHR* DS(sLf T W *"J 

FND? 

SPOUTfX?); CEL.L.KFY!NMASK»a7; 

SLFfP((PRTADDR INX M),P77777)i STOPCKJ 

IF CFLl. = ? THEN BEGIN CELLl *Oi 1 [ CTF J ; GO TO OK END; 

ENn Et-SF conflicti»true> 



TOr,s=o; 

OKflOUNDS' 
FNf) BOUNDARY 



AND CONFLICT CHFcKjNGI 



BOOLEAN SURROUTiNE jnuseoki 
BFGIN 

UT r 

FOR 

BFfi 



AV + 1] ,r 1 M] «=NOT 

X1 :=dirfctoryto 
in stopck; 

niSKWAlTf-A)#A 

FOR I f «14 STEP 

BFGIN STOPCKJ 

IF CCF'sD 

GO TO NOT 

IF (f EQV 

BFGIN FIL 

B«bD 

FOR 

IF ( 

IF P 

IF F 

IF N 

IF C 

IF M 
BFGI 

FIXMV: 



PA 
P + 4 



SSTWOJ TOG»*l? 

step 16 while 



CNTli 

true 



Oi 
DO 



80, 

-1 
iRr 

OKJ 
EOK 

IRr 

X2« 

C»x 

(C, 

ILF 
OT 

dir 

P<0 
DIR 
OVE 
N 
F I 
US 

MV 
IF 
MV 
IF 

BE 



xn ; 

UNTIL 



DO 



450 + P( I#pUP»+)] ) EQV Pll4)sN0T THEN 



4J# NOT THEN 

«*FALSE; % INITIATE STATUS 

(X3'«30x T >+9],r«3»5]l 

«1 STEP 1 UNTIL B DO 

DIRCX3 + 9 + X2] >#0 THEN 

DUPUHI AND P(XCH)>L0 THEN 

OK IhEN GO FIXMV ELSE % 



CHECKING 



CHECK STATUS 



SYSTfMFU.EtE»DlRt450 + P(I#DUPf*) + l]) AND 
[X3+A],[12«AJ«0 THEN % NOT SYSTEM FILE 
lRfX3+4]»DUP),[l»3] OR P(XCH).tl6>20] OR 
[X3+9J.C1 «28])s0 then % file not in use 
ABLE THEN I NOT PERMANENT 



LF.O 
El- 

r cn 

PA 

fcn 
us 

GIN 



KlsTRUE; * ELIMINATE STATUS CHECKING 
USE-(MVrCNT]lpC*DlR[X3+8][T0DS!ZE]) 

.dsize; 

T + l] »s(Xl + I)*X2rCTF]> I! HEADER INFO 

sstwo then % save loc of fids 

T + 2]l*CXl + 15HCIx2)CCTF]; 

f»o then % found all users of in-use area 

boundaRyck? 
go okjnuse; 



END J 



if usf<o then go to 

IF (cNTI*CNT+3) MOD 
BEGIN 

IF CNT«MAXMVSJZE 



NOTOKJ X DIRECTORY ERROR 

150 * o then 

THEN GO TO NOTOKJ 



06089900 
06090000 

06090100 
06090200 
06090300 
06090400 
06090500 



06091300 
06091400 
06091500 
06091600 
06091700 
06091800 
06091900 
06092000 
06092100 
06092200 
06092300 
06092400 
06092500 
06092600 
06092700 
06092800 
06092900 
06093000 
06093100 
06093200 
06093300 
06093400 
06093500 
06093600 
06093700 
06093800 
06093900 
06094000 
06094100 
06094200 
06094300 
06094400 
06094500 
06094600 



06090600 T 
06090700 T 
06090800 T 

06090900 T 

06091000 T 
06091100 T 
06091200 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



06094700 T 

06094800 T 

06094900 T 

06095000 T 



017413 
0177*2 
01821 3 

018213 
018613 
018810 
018813 

06090100 
0l89»0 
019212 
019611 

06090800 
0202»0 

06089600 
0203M 
020410 
020410 

06066700 
020411 
0205(0 
0205(0 
020913 
0213»3 
021512 
021710 
0218*0 
021913 
022310 
022312 
022510 
02261 t 
02291 1 
0230(0 
023212 
023510 
023513 
0239(2 
024113 
0245»0 
024781 
0249(2 
025010 
0250(3 
025213 
0255 d 
0258«0 
025811 
026210 
026213 
0263H 
0264(0 
0264>2 

06094300 
0264(2 
026513 
0266(0 
0268(2 



F'iXARRAY(MV.Xft»(CNT + l50))> 

m0ve(cnt,a2,x4)* 
forgetspaceca2)$ 

A2»*X4J 



fnd; 



END ELSE RO TO NEXT ELSE GO TO NEXT) 



END* 



NEXT* 



END? 



ENpJ 



NOTOK: 

tor »=o; 

OKiNUSEi 

INhSfOK.'bTOGJ 

end searching in use 



AREAS* 



SUBROUTINE MOVEANDFlX* 
BEGIN 

I» = 

WHT 
BET, 



MVF 



MrA?-n 

LF I<Pl 
IN 

piskw 

i X1«=- 
IF Pf 

Mvru 

WHILE 
BEGIN 



> STOPCKJ 
777 00 



AlTc-A4»30»fX2l«MV[I+l]>,[CFl)I * READ IN HEADER 
30; F | sP(MVrn#DUP).DEND+(B««P(XCH),ASlZE); 
MV[i+?],DENO»0,DUP) THEN C JsMVtl ♦ 1] , f 2 » ?6] ELSE 
,PEND!=(C'sMV[t+2],DfND)-B; 
(Xi *oXl + 30)<B DO 

E»«!F P((B-XD,DUP)<30 THEN P ELSE P(DEL»30); 

DISKI0fT,l-A3»E><30»Fj»F-E); 

IO0l«!0OACEx30)C8*38ilO]iEC27i42l6]| 

LOClO0:s0{ SLEEPCtT], IOMASK)! 

STREAMCAl»Cl»OE»Bl»A3-l)l 

BEGIN SI i«LOC A> DS?« 8 DEC END* 

J0RF0UEST(NABS( I0DHP357[25»40»8]»!0D# 
[L0Cl0n]&lBtl2M2»63); 

SLEFPf [L0CI0D3. IOMASK) J 

IF L0CT0D.C2b:il THEN * WRITE LOCKOUT OCCURED 

BEGIN 

UTCIF P THEN AV+1 ELSE MVCI<»2].C2tl0j ]«LOCKrDI«ll 
UTtAV+i 3. DENDI«MV[I+1], [2126)1 GO ENDMVEJ 

END1 



END. 



FIXANnWRlTFHEADERJ 

TF NOT P THEN % TEMPORARY 

BEGIN 

MV[ !+?].OEND«*Ol 

TEMPDSK'al J 

GO TO MVE» 
FNDJ 



DISK STORAGE WAS USED, 



06095100 
06095200 

06095300 
06095400 
06095500 



06095600 T 
06095700 T 
06095800 T 
06095900 T 



06096000 
06096100 
06096200 
06096300 
06096400 

06096500 
06096600 
06096700 
06096800 
06096900 
06097000 
06097100 
06097200 
06097300 
06097400 
06097500 
06098300 
06098400 
06098500 
06098600 
06098700 
06098800 

06098900 
06099000 
06099100 
06099200 
06099300 
06099400 
06099500 
06099600 



06099700 T 



06099800 
06099900 
06100000 
06100100 
06100200 
06100300 
06100400 



T 026913 
T 027510 

T 0276*2 
T 027711 
T 0278*0 

06094900 
027810 

06093500 
028011 

06092400 
028011 

06092000 
028212 

06091700 
026310 
0283*0 
028313 
028313 
028411 

06091400 
028412 
0285*0 
0285*0 
0288*3 
0290)0 
0290J0 
0293*1 
0297*2 
0302*1 
0307*2 
0309*3 
0309*3 
0313*1 
0316*3 
032010 
0322*1 
032413 

06098800 
0325*2 
0327*2 
0329*0 
0330*2 
0331*1 
033l>3 
0337*1 
0342*0 

06099300 
0342*0 

06097500 
T 0342*2 
T 0344*0 
T 0344*1 
T 0344*3 
T 0347*3 
T 035013 
T 0351*1 

06100000 



T 

T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 

T 
T 
T 
T 
T 



ENn* 

WILL 
UTrAV 

MOVFC 
C J = (S 
IF P( 

UTFU] 
EUNOT 
IF NO 

BFf.JN 



II«MVn+2],LlNK| 



06100500 T 
06100600 T 



now Reconfigure the available table 

]««HIi(UTrAV],ASTZE+UT[AV*lJ,ASiZr>r?»2Bl20]| 
S-AV»P(tUTr AV+2J]»DUP)»N0T JNX P(XCH))* 
t*S»l)-ll FOR IisC STpP -1 UNTIL DO 
UT[M,ASi7EiOUP)>USF THEN USE**P ELSE PfDED* 
JBP(0UP»L0n.DUP)4USF:[i J28:?0]&(P(XCH).NUMENT-l)[T0NUMENT]J 

souaShedisfal.se; 
t sqau. then 

if pf sqsi7f.dup)#0 and p(xch) leq use then celllm 

FLSE IF PfEUS[EU-l].DSlZE,DUP)#0 AND P(XCH) LE<3 USE 

then elsf go to fndmve* 
p(del)1 go st0psq; 



END? 

ENOMVE: 
END FIXING 



AND MOVING) 



SET OM|T = NOT SHAREDISK 
P(0#0»0»0*0»0,0»0»0»0); 
PC0»O»0»0#0»0,0,0»O»O)} 

P(0»o,o»o#o.o,o> o.o»0); 

P(0»0,0»0»0»0»0»0»0)l 

POTSK SQUASH. HUP »ME(P)])J 
SFT OMIT = NOT SHARFDISK 

SCANMFSSAGEJ 
SET OMiT = SHARFDISK 

LOrKDlRECTORYi 



POP OMjT 

SLFEP(rTOGLE]»USE«DISKMASK); 



% PRTADUR.PRTVALUE 



LOCKTOG(USERDISKMASK)) 



HALT! I STOP NORMAL STATr PROCESSING WHILF SQUASHING 
AAtaSPACEOO)) 
SFT OMfT = NOT SHAREDISK 

FtyARRAY(DTR#Al»480)» F I XARRAYr MV , A2 , l 50 ) 1 

A3«sSPACE(900); 

lOD ! *?l/*000OiOOOOOO00gi(A3-l )[CTC]I 

IF NOT SQALL THEN FOR £Ui»i STEP 1 UNTIL NEUP.EFF] DO 

IF (CELL«*CP(SQSIZE»DUP)#0 AND P(XCH) LEQ UCEU3 , [ i 120 J > ) 

THFN BFGIM P(2)J SqUASHMfSS; GO STOPlT END* 

FOR FU*M STEP 1 UNTjL NfUP.CFfJ DO % 

IF NOT {El«UrEU]),EUNP THEN % NOT A DUMMY EU 

IF FUSTFU-1] OR SQALL OR SQSIZE*0 THEN % SQUASH THIS EU 

BEr,lN 

funotsquashfd«*true; 

if not sqall then % check if squash is necessary 

IF (P(EUStEU^H,DSlZE»DUP) LE« E.M*20] AND P(XCH>*0) 
THEN BEGIN P(3)> SqUaShMESS; GO STOPlT END) 

CELL'sOSirCTFll 
Pf 0) I SQUASHMESS) 



06100700 
06100800 
06100900 
06101000 
06101100 
06101200 
06101300 
06101400 
06101500 
06101600 
06101700 
06)01800 
06101900 
06102000 



06102220 
06102500 
06102600 
06102700 
06102800 
06102900 
06103000 
06103300 
06103400 
06103500 



06103 
06103 
06)04 
06107 
06107 
06107 
06107 
06108 
O61O8 



800 
900 
000 
200 
300 
400 
900 
000 

100 



06108200 
06108300 
06108400 
06108500 
06108600 
06108700 
O61O88OO 
06108900 



06102100 T 
06102200 T 



06103600 T 
06103700 T 



06109000 T 
06109100 T 



0351U 
0353»1 

06096900 
0353(3 
0353(3 
035812 
036211 
0366(0 
037H3 
0376»2 
0377»1 
037713 
037811 
038112 
0385(1 
0366>2 
0387>1 

06101500 
0387 »1 
0387»1 

06096600 
038712 
0387»2 
039012 
039310 
039512 
0397*3 
0399*0 
039910 
0400*0 
040010 

06103500 

06103500 
040612 
040612 

06103700 
041112 
041210 
0414 1 1 
0414*1 
0422'3 
042510 
042613 
0432*0 
0435*2 

06108100 
0441*2 
044513 
0447(2 
045012 
0451(0 
0451 '3 
0452*1 
0456*0 

06108900 
045812 
046012 



P«*(I !*E.STARTWRd) MOn 30J 
AVSi7e»s30-(S:s(f AND NUMpNTMHo) MOp 30 + Sj 

FlXARRAYf UTfR.AVSlZFJ; 

OlSKAVIal DlV 30+USfROISKBOTTOM; 
S SET OMfT = NOT ShARFOISk 

D!SKWAlTf-R,AVSlZE.D!SKAV)l 
AGAJNI SUM:*USE»xO* 

FOR I S »S-3 STEP -1. UNTIL DO 

BEGIN STOPCKJ 

IF CUT[I+1J<0)«PASSTW0 THEN % NOT CHECKED THIS PaSS 
IF f fXi:xUTn],ASlZE) + (X2l»UTtI + l] f ASiZE)) GEQ SUM 
THEN IF (X3i»(((X4l»UT[I+iJ.DEND)»l)-UTtI+ll,ASlZE)" 
X5:s(UT[n,DEND"l)) LEQ FACTOR THEN IF MINSJZE LFQ X2 
THEN IF MINSIZE LEO XI THEN 

R F C T K' 

SQlTl 'lJSE««X3l AVj = i; 

SUM:=Xl+X2> % SUM OF CURRENT AVAILABLE AREAS 
HI*=X4) L0»sX5> 
END ELSE IF I#0 THEN X LOOK AHEAD TO NEXT AREA 



fnd; 



IF ((MINSIZE LFQ UTti-ll.ASlZE) AND CUX5-X1)- 
■UTci-l] f DEND-l) LEQ FACTOR)) THEN GO SO! T; 



IF USr/O THEN I! FOUND A POSSIBLE SQUASH SITUATION 
BFGIN 

if inusfok then moveandfix; 
go again; 
fnd else % time to wrap it up for thfs eu unless.,., 

IF CONFLICT THEN IF NOT PASSTWO THEN X ..CONFLICTS EXIST 
BEGIN 

passtwo!=true; 
go again; 

FND ELSE 

BEGIN % CLEAN-UP PASS AFTfR CONFLICTS RESOLVED. 
PASSTW05aCONFLlCT»*0) 
GO AGAIN; 

fnd; 



STOPSQI 



FOR IlsD STEP 1 UNTfL S DO l)T [ I] ) «AB5( P(DUP , LOD )&0r2) 21 1 ] ) J 
IF NOT EUNOTSQUASHED THEN 
$ SFT 0MjT « NOT SHAREDISK 

DlSKWAlTf R.AVSiZE »DISKAV); 

FORGETSPACF(R)5 

P(l)> SQUAShMESS; 

stopjti ir stop then go out; % stopck got us here 
end fu loop; 

OUTJ 

forgftspacecai )J foRgetspaceca?); F0RGETSPACECA3)! 

S SET OMIT = NOT ShAREDISk 
SDXlT) 

FORGETSPACF(A4)> F0RGeTSpACECA5)» 

cell««prtvalue> 

stream(as«buff.[ 15h5]-1)i s 8 « i 3 lit" end squash,*"; 



06 


109?00 


T 


046210 


06 


109300 


T 


046411 


06 


109400 


T 


0468)0 


06 


109500 


T 


047211 


06 


109600 


T 


047410 


06 


110300 


T 


047410 


06 


1)0400 


T 


0475)2 


06 


11 0500 


T 


0476)3 


06 


110600 


T 


0481 »0 


06 


110700 


T 


0482)3 


06 


M0800 


T 


0484*3 


06 


110900 


T 


0489)0 


06 


J 1000 


T 


049411 


06 


t 11 100 


T 


0498)1 


06 


111200 


T 


0500)0 


06 


11300 


T 


0500)2 


06 


111400 


T 


0502)0 


06 


111500 


T 


0503)1 


O61 


111600 


T 


050413 

06111200 


06 


11700 


T 


0507)3 


061 


11800 


T 


0511)0 


06< 


111900 


T 


0514)3 

06H0600 


06] 


112000 


T 


0517)0 


061 


112100 


T 


0517)3 


061 


12200 


T 


0518)1 


061 


112300 


T 


0521)0 


06 


112400 


T 


0521)2 

06112100 


061 


12500 


T 


0521«2 


06 


12600 


T 


0523«1 


061 


12700 


T 


0523)3 


061 


112800 


T 


0524)2 


061 


12900 


T 


0525)0 

06112600 


061 


113000 


T 


0525)0 


06 


113100 


T 


0525)2 


061 


13200 


T 


0526)3 


061 


13300 


T 


0527)1 

06113000 


06] 


13400 


T 


0527)1 


061 


13500 


T 


0534)0 


061 


113600 


T 


0534)2 


061 


14300 


T 


0534)2 


06] 


114400 


T 


0536)1 


061 


14500 


T 


0537)0 


061 


14600 


T 


0538)0 


06) 


114700 


T 


0539)3 

06108500 


061 


14800 


T 


0540)1 


061 


14900 


T 


0540)1 


06] 


15000 


T 


0542)2 


061 


15500 


T 


0542)2 


061 


15600 


T 


054212 


061 


15700 


T 


0544)0 


06l 


15800 


T 


0545)2 



SPoUT(BUFF,tl5M5]-l)I 
SFT OMIT ■ ShARFDISK 

unlockoiRfctoryj 



POP OMJT 

UNLOcKTOGfUSERDlSKMASK); 



NOpROCFSSTOfil. 
KTLLtrMScW]); 

fNo squashing; 



rNOPROCESSTOG-i; 



06115900 
06115990 
06116000 



06116010 
06H6100 

06116200 
06H6300 
06116400 



T 054912 
T 0551»3 
T 0551 S 3 

06H6000 

06116000 
T 05555 1 
T 0555U 

06116100 
T 055813 
T 0560«0 
T 0560»3 

06066200 
SIZE* 0562 WORDS 



PROCEDURE CHANGEABORTOO; VALUF XJ REAL XI FORWARD?* 

PRTC547) x CHANGFABORT 

REAL LOQKQ) 
PRTC550) s LOOKQ 

PROCEDURE SIGNOFF(VFCTOR,FILfBLOCK,PKT)J 

valuf vfctop»fileblock»pkt; 

ARRAY VFCTOR[*]»Ff UFBL,OCKt*]»l 

real pkti 
beglm array name log* 

STACKrF+1) s LOG 

INTEGER N,L. i»J.TiMEX}X 
STACKfF+2) a N 
STACKfF+3) = L 
STACKfF+4) = I 
STACKfF+S) . J 
STACKfF+6) 3 TiMfX 

integer mix; 

STACKfF+7) * MIX 

S SET OMjT s NOT STATISTICS 

Real timeax,t>a,q.esed* 

STACKfF+lO) = TTMEAX 
STACKfF+11) * T 
STACK(F+12) * A 
STACK(F+13) * Q 
STACK(F+14) = tSED 

S SET OMIT s NOT(PACKETS) 
REAL UNITNOJ 
STACK(F+15) * UNITNO 

INTEGER ARRAY PMt*J? 
STACK(F+16) * PM 

S POP OMIT 

* SET OM?T = NOTCWORKSET AND WORKSfTMON I TOR } 

RFAL DnJ 



START OF REL 



06179000 
SEGMFNTl DISK 



T 0000)0 
ADDRESS « 00163 



06179200 T 000050 



START OF REL 



06180000 
SEGMFNTl DISK 
06181000 
06182000 
06182100 
06183000 



T 0000»0 
ADDRESS • 00163 



STACK(F*17) s no 



S POP OMJT % WORKSET AND WORKSFTMON I TOR 
SUBROUTINE T|ME|T|X 

BEGIN CHANGE ABORT(0)IX 

WHILE (NT2««XCL0CK+PCRTR)) GEQ WITCHINghOUR DO 
MIDNIGHT! 

L0gCT|MfAX+2] * NT2IX 
$ SFT OMiT = NOT(STATjSTtcS) 

ST0PL0G(P1M T X.0)I 

MlX*PlMiXI P1MIX*.0I 

IDLETlMElX 

OLDIOLETIME * (LOGtTIMEX] * VECT0R[3]*X 
PR0CTIME[MIX])+0LDIDLETIME» 

PROCTiMECMlX) * -VECT0Rt3Jl* X127- 

L0GtTlMpX+t]*VECT0R[4]+l0T!MEtMlX]l 
t SET OMIT * NOT WORKSET 

LOgCTiMeX+2] * OLAYTlMEtMlXll 1710- 

* SET OMIT a W0RKSETX710- 

S SET 0M[T * NOTCWORKSET AND WORKSfTMON i TOR) 

if wksftmonitor and (Od«0) Then 
bfgin 



06184199 T 
06185000 T 



06185099 T 

06185100 T 



06185110 T 

06185111 T 

06185112 T 



06185113 
06186000 
06187000 
06188000 
06186100 

06189000 
06189099 
06190000 
06190100 
06191000 
06192000 
06193000 
06193500 
06194000 
06194890 
06194900 
06194990 
06195090 
06195095 
06195100 



OOOOJO 
0000)0 
OOOOtO 
OOOOJO 



06184000 T OOOOJO 



06184100 T OOOOtO 



OOOOtO 
OOOOtO 



OOOOJO 
OOOOtO 



06185105 T OOOOtO 



OOOOtO 
OOOOtO 
OOOOtO 

000010 
000010 
000110 
000113 
0004)0 

06188100 
000911 
0011 II 
0011M 
001313 
0015*1 
0015)3 
001710 
001911 
0021)0 
0024)0 
0024)0 
0026)1 
0026)1 
0026)1 
0028)1 



STREAMfNl t» VFCTO«tO], N2 *» VECTORnJ. 
Tl 'a ((LOfifTlMF:X3 + 0.5)/60 o t V i), 
T? : = t(LOG[TlMpX + i ]+0, 55/60 I) I V 1), 

T4 * (0LAYTlME[tMlX]+59) 01 V 60, % OLAY I/O TjME IN 
T 3 1 = C CCL0arTlMEAX*2]-VEcT0Rr5].t24l24))*0,5)/60 01 V 
0VI*0# DO t« 00 s= SPACE(10))J 

BEGIN 

S|«*LOc Nl ; OSJ=LiT" W J 

2(SII»SI+1I DSI*7CHRJ dS»»LIT" ")l 

0SS=4LlT»cPD= n ; 

osj=6ofc* ovison 



SECS 

1). 



*7l0« 



nS:*5LlT" i/o* m ; 
os«=6oec; ovisoi; 
OS* 6 1 1 T •♦ olay» w ; 
OS* 60FCJ ov* on 
0S:*6LlT" ELAPs") 

OSla60FC; DVlsDH 

DS«aLlT w * w > 

END STREAM STATEMENT; 



DI :«DI"6> 
D 1 8 *D I -6 jj 
DI* 01*6! 
DI i»Dl-6* 



DSJs5FlLL; 
DS»*5FILI> 
OS* 5FILLJ 
DSI»5FILL; 



DI »*dv; 

DI *»DV* 
DI* DVJ 
DI !»DV) 



%7\0* 



SP0UT(0D)5 

END* 

$ POP OMfT % WORKSET 



AMD WORKSfTMONlTOR 

STREAM(A*VECT0R[5],tlt?3]IB*0)»X 
BEGIN Si * loc a; 01 * LOC a; ds 



«• 8 DEC END** 



S SFT oMjT 



P(XCH)U 

* VECTORfS], 



[24124] I X 



< THEN (NT4» 99) 



S SET OMIT ■ NOTCDCLOG 



04568366 



LOgCTjMfAX] * 
UOG[T|MFAXfU 
NOT(STATlSTicS) 

NT4 * VECTORI23,C6ltO]l* 
LOGrTrMfAX+33 ♦ IF VECTOR[lJ 

+2 EUSf NT4 s 3JX 
LOGfTiMfAX + 3], [1»30]* DATE. t 1 8 J 30] ; 
L.OGfTTMFAX + A]«*USERCODF[MlX]J 

AND OATACOM) 
IF TABCNTtMiX]/0 THEN 
BEGIN Tl»CLOCK*900J 

COMPLEXSLEEPCTABCNT[MlX]sO OR Cl,OCK>T)J 



ACCTDFNTAL fNTRY AT T 



ENDJ 



t SET OMiT * NOT (DATACOM aNd NOT DCLOG) 

PRTRO|y[MlXJ,tP$F]l*0; 

S SET OMiT = NOT(PACKETS) 

UNtTNo»»PSeUDOMiX[MiX]» 
PSeUDOMjX[MiX]«»0; 
PMfO]l*LOG[TlMEX ]/60» 
PMri]l*LOGrT!MEX+l]/60j 

$ SET CMIT * NOT(WORKSET) OR OMIT 

PMr23l*0LAYTlME[MlX]/60l 



*759- 

*759« 



POP 
POP 



OMIT 
OMJT 



X759- 



USeRCODFCMJX] »* 01 

STREAM(S*CNf0[{MIX-1)xNDX]])|X 

BEGIN DS*8 LIT "0«J Sj*Sl DS*2 WDSJ ENOIS 



06195105 


T 


0028:3 


06195110 


T 


0030*0 


06195115 


T 


0032«2 


06195118 


C 


0035»2 


06195120 


T 


0037*0 


06195125 


T 


0041M 


06195130 


T 


0044>0 


06195135 


T 


0044:0 


06195140 


T 


0044J3 


06195145 


T 


0046 : 1 


06195150 


T 


0047:0 


06195155 


T 


0048 ; 1 


06195160 


T 


0049*1 


06195161 


C 


005012 


06195162 


C 


0051«2 


06195165 


T 


005283 


06195170 


T 


005313 


06195175 


T 


005510 


06195180 


T 


0055*2 

06195130 


06J95185 


T 


0055*3 


06195190 


T 


0057:0 

06195100 


06195195 


T 


0057J0 


06196000 


T 


0057*0 


06197000 


T 


0059:0 

06197000 


06198000 


T 


0060*0 


06199000 


T 


0061*2 


06199099 


T 


0064*1 


06200000 


T 


0064*1 


06201000 


T 


006513 


06?02000 


T 


0069*0 


06?02l00 


T 


0071*2 


06?03000 


T 


0075*1 


06203099 


T 


007712 


06203600 


T 


0077*2 


06203650 


T 


0079*0 


06203700 


T 


008013 


06203750 


T 


0087*2 

06203650 


06203790 


T 


0087*2 


06204000 


T 


008712 


06205009 


T 


0090*0 


06205010 


T 


009010 


06205020 


T 


0091*0 


06205030 


T 


0092*1 


06205040 


T 


0094*3 


06205049 


C 


0097*3 


06205050 


P 


0097*3 


06205051 


T 


0099*3 


06205052 


C 


009913 


06205100 


T 


009913 


06205200 


T 


oiouo 


06205300 


T 


0103*0 

06205300 



$ set OMIT 



NOT STATISTICS 

JARROwtMtX]»*PRTROW[MlXJr 
END TIMjtT; 



■ 01 



S SET OMJT s NOT(PACKFTS) 

SUBROUTlNF MfSSaGFJ 

IF UNITNOjtO OH ( VFC TOR . [ 24 I 9)#0 ) THEN 

BEGIN 

STREAM(A««CVrrTORrO] J,MiX»BI«[PMtO]],Tl»Tl«SPACEClO))» 

BEGIN DSI = 5LiT" F0R"*5I l»A JSM"S! + 1 *DSl»7CHR» 

DSl«L|T"/";Sn«SWl»DSI»7CHRlSH»LOC MfX J 

DS S «L I T"3s"JDS»s?DEC* 

A:aOi;DI »=OI-p;oS:sFlLLIDI l*A| Sp>Bi 

nSJxiO LIT "i PROCESS*"! 0St«5 DEC; *759« 

ASaOl >DI *»Dl-5»DSt»4FlL.LlDl l«A» 

DSI=iO LIT " SECS, 10. "; DSl«5 DEC; %759< 

a:*dt ;di »-oi-5idSi«4ftllioi »«a; 
notcwoRkseT) or omit 
os»«i2 lit " secs, olay« w ; dsi*5 dec; 
a s »o t ; d i »*di-5;dSi*4ftll;dii«a; 



t SET OMIT 



s pop om?t 

OSl«LlT"*"l 

end; 

spouter(t.if vector. t ?4 i 9 ] neq then 
vector. r24«9] else unitno.64); 

end; 

s pop omit 

A ♦ VECT0RC6],r33ll5]|» 
ESEDI*VECT0R[2J, [2Hli 
TJ*Q|B((Lt*VFCT0Rt63,rl8Jl5])+CiF ESED THFN N*0 ELSE 

NJ»FlLE8L0cK.[8li0])+60) DI V 25x27; 
LOG*atMtTYPEnSPACF(T.LOGAREAV)]]>* 
M[LOG |NX NOT I].t9l6j * Ojg 
S SET OMjT = NOT(PACKETS) 

PMl»[MrSPACE(5)]]»5t8i38ll0j| 
M[PM iNX NOT 1 3 . C9t 6] |«0I 



%759> 
X759- 
K759. 
*759- 



X167- 



$ POP OMIT 



I)»26*J);X 



J *■ a;* 

DO BEGIN I * I +27; X 

DISK|0( T .-( LOG INX 
SLEEP(rTJ»lOMASK);X 
J * LOG[ [+ll}X 

END UNTIL J*0 OR 1+53>Q)X 



IF VFCT0R[23,t8H0l"O Th£N L ♦ L0G[29]> 
IF(M»(L-5) MOD 25+1+7) LSS Q-3 THEN 
IF I MOD 27 ■ THENX 

BEGIN L0GH3 * LOGtr + 1] *• Ot% 
I ♦ U2 ENDlX 

$ SET OMIT = NOTCSTATISTICS) 

LOGCIH* IF VECT0R[0J LSS 

THEN IF VEcT0Rt0]»{- H C0B0L "> THEN 

ELSE IF VECT0RC0J«(- , 'F0RTRAN") THEN 

ELSE IF VFCTO«t01a(- w BASlC "> THEN 7 



06205540 
06206000 
06206100 

06206109 
06206110 
06206120 
06206130 
06206140 
06206150 
06206160 
06206170 
06206175 
06206180 
06?06l90 
06206200 
06206205 
06206209 
06206210 
06206215 
06206216 
06206220 
06206230 

06206240 
06206250 
06206260 

06206261 
06207000 
06207100 
06208000 
06209000 
06210000 
06211000 
06211099 
062H100 
06211200 
06211201 
06212000 
06213000 
06214000 
06215000 
06216000 
06217000 

06217100 
06218000 
06219000 
06220000 
06221000 

06221099 
06222000 
06222100 
06222200 
06222300 



T 010510 

T 010510 

T oioni 

06187000 

T 010910 

T 010910 

T 010910 

T 011H2 

T 011210 

T 011610 

T 0H7J3 

T 011910 

T 0U9I3 

P 012110 

T 012213 

P Ol23»3 

T 0125*2 

C 012612 

P 012612 

P 012812 

C 012912 

T 012912 

T 013010 

06206150 

T 0130U 

T 0132«1 

T 013510 

06206130 

T 013511 

T 0135U 

T 014111 

T 014213 

T 0146U 

P 015012 

T 0153U 

T 015613 

T 015613 

T 016012 

T 0164U 

T 0164U 

T 016510 

T 0166U 

T 016812 

T 017010 

T 0172*0 

06213000 

T 0174J3 

T 0178U 

T 018210 

T 0183*3 

T 018712 

06220000 

T 0188*3 

T 018813 

T 019010 

T 019211 

T 019413 



ELSC IF VF.CTOBrO]ac-"XALGOL "} THEN 9 
ELSE IF VECT0Rr0]=(-"TSP0L "> THEN 10 
ELSE IF VFCT08t0]»(-"C0B0L68") THEN 11 
ELSE 1 ELSE 0* 
LOG! I + U «• N DIV 51% 
IF(IJ«fTlMEXl*I+2)+3) LSS Q-l THFN 
IF I MOn 21 n Then* 

BEGIN LOG[fl * LOGCl + 1] *• 0»S 

I * I + 2IX 
ENDIX 

I «• (TIMEAX * I)*5I« 
IF NOT ESEO THENXIF JOB E^-ED THFN NO FPB ENTRIES 
FOR J * 5 STEP 5 UNTIL N DO* 
IF FlLEBLOCKt J-l]aO TrEN LOGtTIMFX - 1 ] **P ( DUP ) - 1 FLSF 

BEGIN IF I MOD 27 * THENX 

BEGIN LOGCM * LOGCI + U * Oi% 

I * i+2 eno;x 

IF 1+4 LEO THEN 
STRFAM(A*tFiLEBL0cK[J^SJ]»8*CL0GCl]] )IX 
BEGIN SI * A; DS «. 5 WOS ENO;X 

IF 1+4 LfQ ThEN 

IF LOGU+4] < ThENX 

BEGIN LOGU+4] * *PCDUP)+CL0CK+P (RTR ) > % 

L0GtI+3),C24il?]*PCDUP»DUP).t24U2]+TlNU 

tNTl*P(XCH},t36l6]-13.Cl8il2J|I 
TINUCNTIJ, [18I12J ♦ 01% 

FND»X 

IF L0r,[l+2].[18I30)»0 THEN 

L0GtI+2].tt8»30JI*DATE.tl8l30j|*ENTER CURR DATE 
I •• 1+5* 

fndjx 
n * logctjmex -{us', 

F0RGETSPACE(FILf8L0CK)JX 

J * o;* 

TF VECT0R[2], C 8s 103 * 1 THEN* 

BEGIN DO J ♦ J+27 UNTIL LOGIJ+U ■ Ol% 
WHILE J+27 LSS I AND I LSS Q DOX 

BEGIN LOGCJ+ll * GETESPDISKJX 
J * J+27JX 

fNqjx 

I ♦ 271% 

TIME I TIX 

L0r,r29J*5xL0G(40 3+20j 

DO BEGIN 0ISK10(T,L0G ! NX' I »26, A) I* 

A * LOGt I + Ul* 

I * I+27IX 

SLEEP(IT]»IOMASK))* 
END UNTIL A » 01 X 



ENDX 



06?22400 


T 


0197)1 


06222500 


T 


019913 


06222550 


T 


0202U 


06222600 


T 


0204«3 


06223000 


T 


020712 


06224000 


T 


021010 


06225000 


T 


0213«1 


06226000 


T 


0215J0 


06227000 


T 


0218»3 


06228000 


T 


0220(0 

06226000 


06229000 


T 


022010 


06229100 


T 


022113 


06230000 


T 


0222U 


06230100 


T 


023010 


06231000 


T 


023453 


06232000 


T 


023612 


06233000 


T 


0240J1 

06232000 


06233100 


T 


0241:2 


06234000 


T 


0242(3 


06235000 


T 


024512 

06235000 


06235100 


T 


024611 


06236000 


T 


024712 


06237000 


T 


0250(0 


06238000 


T 


0253(3 


06239000 


T 


025612 


06240000 


T 


0260(2 


06241000 


T 


0263»0 

06237000 


06241100 


T 


026310 


06241200 


T 


0265:2 


06242000 


T 


0269>3 


06243000 


T 


0270: I 

06231000 


06243100 


T 


0273U 


06244000 


T 


0275:3 


06245000 


T 


0276J3 


06246000 


T 


0277:2 


06247000 


T 


0279J0 


06248000 


T 


0283(1 


06249000 


T 


0286:0 


06250000 


T 


028811 


06251000 


T 


0289:2 

06249000 


06252000 


T 


0290SO 


06253000 


T 


0290:3 


06253500 


T 


0292(0 


06254000 


T 


029511 


06255000 


T 


0297U 


06256000 


T 


029911 


06257000 


T 


030012 


06258000 


T 


030210 

06254000 


06259000 


T 


030311 

06247000 



ELSE BEGIN 



DO BFGlN J*J*27l 

forgetespdiskca);* 

A * LOGN + 13J* 
EN|J UNTIL A » OJ* 



IF LOGFREE*0 THEN TjMEI 
BEGIN A*J*29I 



T FLSE 



L0r,[29J*3J 
T * I+6|X 
WHILE (J * 
BEGIN 



J*27) < 1 DO* 
A * A+25|X 



A * A+25|X 

STRFAM(X*tU06t J33»Y*tU06tAJ3)II. 

BEGIN SI * XI DS * 25 WOS END** 

IF TIMEX > A THEN TIMEX * TIMfX-2* 
IF TIMEAX > A THEN TjMEAX * TlMEAX-2* 



IF 



rNo?» 

N «■ (N+L) DIV 5 + 3IX 

L *■ 28** 

TlMtX+2 LSS tt AND TlMEAX+4 LSS THEN 

TIMUTf LOGSPACECL + 1 INX L0G» CN-t )x5 ) ; 

ENDJX 



?.m\% 



% SET OMIT 



$ POP OMjT 



FND 



» NOTCPACKETS) 

MESSAGE! FORGETSPACECPM) I 
IF UNjTNOjtO THEN 
f>RA!N0CUNiTN0»CVEcT0R[2],[8il0J#l> OR CPKT*0), 

C(VECTORrl]<0) OR ( VECTOR[ 2 3 , [8l t 3»3 ) ) 

&VECT0R[63[U1 ill)) 

forgetspaceclogj;* 
signoffu 



06260000 


T 


0303*1 


06260100 


T 


030313 


06261000 


T 


030510 


06262000 


T 


030513 


06263000 


T 


030713 

06260100 


06263100 


T 


030910 


06263200 


T 


031110 


06265000 


T 


031213 


06266000 


T 


031411 


06267000 


T 


031512 


06268000 


T 


031713 


06269000 


T 


0319(0 


06270000 


T 


032110 

06270000 


06271000 


T 


0321J3 


06272000 


T 


032411 


06273000 


T 


032613 

06268000 


06278000 


T 


0327*1 


06279000 


T 


032912 


06279100 


T 


0330S1 


06280000 


T 


0333*0 


06327000 


T 


033810 

06263200 


06328000 


T 


0338*0 

06260000 


06328099 


T 


0338*0 


06328100 


T 


0338*0 


06328200 


T 


0340*0 


06328300 


T 


034013 


06328400 


T 


0344*1 


06328500 


T 


0346*3 


06328501 


T 


0348*2 


06329000 


T 


0348*2 


06330000 


T 


0349*1 

06183000 


SIZE" 0350 WORDS 



STACK(F-4) 

STACK(F-l) 
STACK(F-2) 
STACK(F-3) 



STACKfF+1) 
STACK(F*2) 
STACKfF+3) 



STACKfF+4) 
STACKfF*b) 
STACK(F*6) 
STACKfF+7) 



PROCEDURE USERDISKSPECIALCASE(Q»R»UT»J) > 

VALUE Q.J) REAL R.J) INTEGER Q) ARRAY UT[*] ; 
BFGfN 

Real buft*9.N3J»z*ut»ebR f 

« BUFF 

* N 

* z 

a E 

S SET OMjT a NOTCSHAREDISK ) 
$ SFT OMiT = SHARFDTSK 

Real nfu.nt; array uaf*j i 
« nfu 

m NT 
= UA 

DFFiNF U=AVTABLE *» AVS*R #» NEUl*J«l #» NEU2»NT-t #) 
S POP QMlT 

INTFfiFR NTt»NT3,NT4.B ) 
m NTl 

* NT3 
» NT4 
s B 



START OF REL 



06350000 

SEGMfNTl DISK 

06350300 

06350600 
06351000 



LABfL LI.L2»L3.UP.PU>BD»WhY»M1.T10 1 

switch 5w*l1»l2*l3 ) 
if q*o Then go swco-i ] * 

* SET OMjT » NOTcSHAREDlSK ) 
L.1I BUFF'aRI Z>«0; UNLOCKTOG(USeROISKMASK)! 

IF N LEO RESERVEOlSKSIZE ThENX CALL OUT RESERVES 

if cz««directorysearcH( h reserve h »"disk m »6)) neq o then 

BFGIN FORGETSPACECZ); 
IF N>0 THFN 
t SET OMIT = PACKETS 

BEGIN SlRRAM(Zl«Zl«SPACE<3>)» 

DS«-?3 LIT "**RESERVE/0ISK REMOVED*") 
SP0UTfR(Z,25,(N0T LlBMSG) AND 1)) 
END? 

FORGETSPAcEfBUFF)! P(XIT)1 

end of reserve call up; 

if autounld then 

begin p(pimix); aut0unldi*p1mix:*0) 

STREAMcA«*DATF.Zt»Z«aSPACE(10)+2)J 

BEGIN DS;*23 LjT"CC UNLOAD EXPIRED TO XP") 

spaLoc aj sp.si + 3; os«a5 chRJ 

DS«=9 LIT » ■/»;£ND."J 
ENDI 

indfpendentrunmer(pc;c0ntr0lcard)#z*31 t3«43»5]»19?)l 
pimixi*p; 

IF N GEO f) THEN 

BEGIN STREAM(Z»*Z'»SPACEC10)); 

DStMS LlT"l8 AUTOUNLD RESET*"! 
SP0UTCZ)S 
END END AUTOMATIC UNLOADING) 



T 0000:0 
ADDRESS » 
T 0000:0 
T 0000)0 
T 0000:0 



00175 



06351050 T 
06351100 T 
06351104 T 



06351105 T 

06351106 T 
06351250 T 



0000:0 
0000:0 
0000:0 



0000:0 
0000:0 
0000:0 





06351500 


T 


000010 




06351800 


T 


0000:0 




06352000 


T 


0000:0 




06352490 


T 


0006:0 




06353500 


T 


0006:0 

06353500 




06353510 


T 


001 1 t o 




06353530 


T 


0011:3 




06353540 


T 


0014:2 




06353541 


T 


0015*3 




06353542 


T 


0016:2 




06353545 


T 


0016)2 




06353550 


T 


0019:3 


X523- 


06353551 


P 


0023*1 




06353552 


T 


0025:3 

06353545 


*528. 


06353555 


C 


0025:3 




06353570 


T 


0026)3 

06353540 




06353580 


T 


0026)3 




06353590 


T 


0027)2 




06353600 


T 


0030)2 




06353610 


T 


0034)0 




06353620 


T 


0037»1 




06353630 


T 


0038:0 




06353640 


T 


0039)2 

06353610 




06353650 


T 


0039)3 




06353660 


T 


0042:0 




06353670 


T 


0042*2 




06353680 


T 


0043)1 




06353690 


T 


0046)2 




06353700 


T 


0049)1 




06353710 


T 


0050)2 

06353680 



06203700 



if not N,f2»u Then 

BFGIN IF PlMlX/O THEN 
BFGIN 

NT1. * NOTERMSETfPlMlX)? % NOTE( NT1 IS LOCAL 
WHY l STREAM(JJ»JARR0W[PIMIXJ»P1MIX,N.BUFF)» 

BEGIN DSM4 LIT "#N0 USER DISK*** 

si*J) st *s i + 1 ? os*? chr* 
ds*lit "/«; si*sui; DS*7 chRj 

St*LOC P1M T X> OS*LlT »*»t 0S*2 DEO 

j:sDl> DI»aDf-2l DS(*FILLJ DI **J* DS I -L I T ,f - w * 

Sfi*LOc n; ds»*8 decj nst»7 lit* segs,*"; 

DT«*DI-15J DS5*7 FlLLJ 

end; 

SPOUTfBUFF)> 

IF AUTOOS AND NoTeRMSeT{P 1M I X ) THEN 

TERMJNATE(P1MIX&61[CTF]) ELSE 
BEGIN 

REPLY[PlMiXJf*-vWY8iV0K[36»42»6]» 
C0MPLEXSLEEPC(RfPLYCP1MIX] GTR 0) OR 

(TFRMSET(PIMIX) AND NT1))I 
AT NT] 
FND* 



X537- 



ACCIDENTAL rNTPY 



IF NT1 THEN 

IF TfRMSET(P)MIX) THEN 

BEGIN PRTROWrHlMIXJ. T7»n 

go to initiate* 

end; 



*747« 
X747- 
X747- 



X537- 
%7H7- 
*537- 



1> 



THEN 



IF NOT WHYSLEF.P(VWYXV0Kt36U2l6]) 

REGIN RUFF*SPACFf |0)> 

GO TO WHY? 
ENDJ 

END FLSE 

BFGIN 

STREAMCN#HUFF)> 

BEGIN DS:»20 LTT"#NO USER DlStOMCP - "I 

SI K»LOC N5 0S*»8 DEC* 

DS»«6 LJT" Se5S«- m ) 

I) I I«0I*14J OS'*? FILL; 

END* 

SP0UT(8UFF)J 
NT1»-0J DO SLrEP(tCL0CK3» NOT CLOCK) 

UNTiL (NTt*NTl+l)*30| 
END 

END FUSE FORGETSPACECBUFF); 

P(XtT) > 
L2J UtJjl»Fi E»«NEU»3(NTt«NEUp.NEUF)+2+(NT*l)DlV 2* P(NT)| J(*lJ 
4 SET OMJT * SHARFDISK 

NT1:»NT*NT+NTJ FORGETSPACF CUT ) i F IXARRAY(UA* NT2»NT 1 ) ; E**0| 







06353590 


06353720 


T 


005052 


06354000 


T 


005i:2 


06354100 


T 


0052:3 


06354200 


C 


005381 


06355000 


T 


0055«1 


06356000 


T 


0057:0 


06357000 


T 


0059»0 


06358000 


T 


0059S3 


06359000 


T 


0060:3 


06359500 


T 


0061 : 3 


06360000 


T 


0063J1 


06360500 


T 


0065*0 


06360505 


T 


0065<2 

06356000 


06360510 


T 


0065*3 


06360515 


C 


0067(0 


06360516 


C 


006912 


06360517 


C 


0071U 


06360520 


T 


007510 


06360530 


T 


007712 


06360540 


P 


007712 


06360542 


C 


0085*1 

06360517 


06360545 


C 


0085: 1 


06360550 


T 


008552 


06360560 


T 


0087*2 


06360570 


T 


0090*2 


06360560 


T 


0091*0 

06360560 


06360590 


T 


0091(0 


06360600 


T 


0093*0 


06360610 


T 


0095*3 


06360620 


T 


0096*1 

06360600 


06361000 


T 


0096*1 

06354100 


06361010 


T 


0096*1 


06361100 


T 


0096*3 


06361200 


T 


009713 


06361300 


T 


0100*2 


06361400 


T 


0101*0 


06361500 


T 


0102(0 


06361600 


T 


0102*2 

06361200 


06361610 


T 


0102(3 


06361700 


T 


0104(0 


06361705 


T 


0104(3 


06361710 


T 


0108*3 

06361010 


06365110 


T 


0108*3 

06354000 


06380070 


T 


0110*0 


06380100 


T 


0110(1 


06380120 


T 


0116(3 


06380140 


T 


0116(3 



S POP OMfT 

UP» IF rNT4*=E MOD 30) 
ThFN NT4»»NT3 > 

IF f NT?»*(Ql=Ur Jl AND NUMfNTM)+NT4) GTR 10?3 
OR r(Q+E*l> DI V 30+1 -E DIV 30) fiTR 34 THEN 

BD* BYBY("ODlSK IS TOO CHECKERED. .. PLEASE COMPACT 



LSS (NT3l-(NTl»«UtJ].STARTWRD> MOO 30) 



IT*", 43) I 



$ 



SET 

SET 

IF 

POP 



PU» 



L3i 



DlSKWAlTC -C f UAf NEU1 ] » *( UAf NFU2 + J ] t*SPACE( NT? ) ) + NT4 )-NT3 ) . Q+NT3, 
USFRDISKBOTTOM+NTI DIV 30) ; 

OMfT = NOTCSHAREOISK ) 

OMfT * SHARFOISK 

J*l THE* B«»UA.CCF3+NT+NT-1 > 

OMfT 
MrB + J] t »U r J]*ErTOSTARTwRD] ; 

IF fNTlSaO DIV 4) LSS AVDlFFMfN THEN NT 1 * * A VD I FFM I N » 
IF rE«*E+Q+NTD GTR AVTMAX THEN GO TO BD* 

if P(Di'P) geQ j»»j+i Then go upi e'*e-nti; jj«i i 

NT2j«(NT3J»P{MrB+J].DUP),sTARTWRD)+NT5«»P(XCH) AND NUMENTM ; 
IF PCDUP)*J THEN IF CNT?-1)DIV 30*(NT4*.MtB + J + 13 .STARTWRD)DIV 30 THEN 
M0Vr<NTl+NT? MOD 30 » UA r NEU1 1 + N T5-NT1 ,NTl *UA C NEUU 1 J-NT4 MOD 30) » 
DiSkWatT(UAlNEU11-NTI*NT3 MOD 30#NTl+NT5»USERDlSKB0TT0M+NT3 DIV 30)J 
SET OMIT « NOTCSHAREOISK) 
F0Rr,ET5PACE(UArNEU? + J]); 

if PcnuP) geQ j«=j+i Then go pu t 

SET OMJT a ShAREDISK 

MOVFfNT,rUArNT + NT]],[AVTABLE[l]]) * 
POP OMIT 
SET OMIT a NOTCSHAREOISK ) 

FORnETSPACFCUA) * 
SET OMIT * NOTCSHAREOISK ) 
PCDfL,Q&AVS[T0SjZE3 OR M.RTN) i 
PCUrNFUP.NEUFf2 + (0taJ IV P(MD) DlV 23, IF Q THEN P # [8*20] fLSE 

P.t?8«201) J 
IF UtQ + n. SPEED s 2 THEN 

BFGIN % 40-MjLL MASK CONSTRUCTION, 
QtsP I 

STREAM(S»aOtQ)> 
BEGIN 

Sp*LOC Q; 
5C4CIF SB 

Si **loc «; 

Sf4(iF SB 

END STREAM 



SKIP 28SBJ Dl»«LOC Sj SKIP 8DB * 
THFN DSiaSET ELSE SKIP DBJSKIP SB)) 

SK[P 28 SB) OI*»LOc Si DH«D1*2I 
THFN nS:sSFT FLSE SKIP DBJSKIP SB)J 

; 



SKIP 4 08)* 
SKIP 4 r)8)J 



FNQ t 



STRFAMfMSK«*OlVl=47-CJ»*C{ , 3: a J 
W«*WJ-Q 01 V P(TlO)); 

begin nnsLoc msk; skip v db* ds»«w 



MOD PCM1))+ABS(R)-U DlV P(TtO)), 

seti end* 



P(LNO,LNG»0,L.Ng#s»RTN) J 
M J x I I 03641100? % DECIMAL lOOOOOO, 
TJOU: P?3420j % DECIMAL lOOOO. 

END OF USEROISKSPECIALCASF J 



06380141 
06380150 
06380200 
06380250 
06380300 
06380350 



06380400 
06380450 
06380490 
06380520 
06380525 
06380526 
06380550 
06380600 
06380650 
06380700 
06380750 
06380800 
06380850 
06380900 
06380924 
06380950 
06381000 
06381020 
06381070 
06381071 
06381075 
06381085 
06381095 
06381250 
06381300 
06381310 
06381320 
06381330 
06381333 
06381340 
06381345 
06381350 
06381355 
06381360 
06381365 
06381380 



06381390 T 



06381395 
06381400 
06381405 

06381410 
06381450 
06381500 
06381550 



T 012412 

T 0124»2 

T 012712 

T 01291 3 

T 0132*1 

T 013613 

06380350 
06380350 

T 0146*3 

T 0154*1 

T 015513 

T 015513 

T 015513 

T 160*0 

T 0160J0 

T 0163* 1 

T 0166*1 

T 0169*0 

T 0173U 

T 017880 

T 018313 

T 0191 * 3 

T 0196J2 

T 0196«2 

T 0l98»3 

T 020l<0 

T 020110 

T 0203*2 

T 0203*2 

T 0203*2 

T 020412 

T 0204*2 

T 0206*3 

T 0212*0 

T 0212*2 

T 0214*2 

T 0215*0 

T 0215*2 

T 021613 

T 0216*3 

T 0217*3 

T 022012 

T 0221*2 

T 0224*1 

0638134b 
0224*2 

06381330 

T 0224*2 

T 022911 

T 023111 

06381405 

T 0232*3 

T 0234*1 

T 0236*0 

T 023710 

06350600 
SIZE" 0239 WORDS 



PROCEDIJRF GCTM0RE0LAYDISK(MIX)>X 



PRTC551) s r.FTMOREOLAYDTSK 

VAl.UF MyX J X 



START OF REL 



STACKfF+1) * I 

STACKfF+2) = J 

STACK(F+3) a T 

STACKfF+4) . A 

STACKfF-?) a MSCW 

STACKfF+O) , RCW 



integfr mix;* 

bfotn jntegfR l=+l»* 

Js+2.X 

T* + 3 J X 
ARRAY As+4r*]J* 
RFAL MSCWs"?} 

rfal rcw=+o;k 
label exitjx 

DFFlNF OAIOCMAXSZ * 
S SF.T OMjT x NOT(AUXMEM) 
S SFT OMjT a AUXMEM 

127*1 xdaloc size must ■ 9 initially, 

* POP OMIT 

PfO» 0, 0, 0)1 TOGLE «. TOGLE OR STACKMASKJX 
IF (T*OALOCtMlX»0],[cFJ+l)«OALOCMAXSZ THEN BEGIN 
TERMINATE (Ml X«t UCCTFl ) I 

go to e^itj end; 

IF r«DAL0cR0W[MIX].[8«l0J THEN* 

bfgin if fj + t + p(dup) - 1)*129 then j4-dal0cmaxsz » 
while m «* getspaceu* o» 3)+2)»2 do 

SLFEP([CL0CK]» not CL0CK)J 
MOVEfT, OALOCROHtMlX], J)) 
F0RGFTSPACE(l)AL0CR0W[MlX]) J 

OALOCROWCMIX] 1= (*P(DUP>) & HCTCJ & JC8I38J10JJ 
MtI-2]. [9:6] »= Mr XI 
END AIT TYPE ACTlONI* 

IF (I «- GETUSER0ISKC500 OR MeMORY))«0 THEN GO TO EXITl* 

OALOcrMlX.01 + C*P(DUP))*(T+l)tCTC]l« 

nALOC[MlX»Tl •• I>* 

OALOCTMIX, T+13 * 0}% 
EXITS OLAYMASK «■ TWO(MiX) OR OLaYMASKH! 

KlLL{rMSCW])J 
END GFT MORE OVERLAY DISK FOR A MIX INDEXIX 



X517- 



06400000 T 000010 
SE6MENTI DISK ADDRESS • 00183 

06401000 T 000010 

06402000 T 000010 

06403000 T 000010 

06404000 T 000010 

06405000 T 000010 

06406000 T OOOOtO 

06406500 T 000010 

06407000 T OOOOtO 

06408000 T OOOOtO 

06408100 T OOOOtO 

06408199 T OOOOtO 

06408299 T OOOOtO 

06408300 T OOOOtO 

06408301 T 000010 
06410000 T OOOOtO 
06411000 T 0002U 
06411010 P 0005J3 
06411030 T 0007»0 

06411000 

06412000 T 000712 

06413000 T 000910 

06414000 T 001310 

06415000 T 00l6tl 

06416000 T 00l8t2 

06417000 T 002011 

06417500 T 0021U 

06418000 T 0024»1 

06419000 T 0027t2 

06413000 

06420000 T 002712 

06421000 T 0030t2 

06422000 T 0033t2 

06423000 T 0035U 

064?4000 T 003712 

06425000 T 003911 

06426000 T 0040t0 

06403000 
SIZE" 0041 WORDS 



RFAL PROCFDURF SECURT TYCHECKC M I D »F I D * USERl D »HEADER) I 



VALUE MfOtFID.USERTDl 

REAL Mfn»F!D.USrRlDfHEADER; 

MULT I FILE ID OF FILE 
FILE 10 OF FILE T BE 
USER 



START OF REL 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



fF + 2) 
fF + 3) 
fF + 4) 
fF + 5) 
fF + 6) 

rF+n 
rF 4 io 

(F*ll 
fF + 12 
fT + U 

(F+14 



% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

BEGIN 
REA 

* TJ> 

s OKSGROW 

a COOFS 

a ROWS 

a ROW 

= DKADR 
) b ROWSZ 
) » C 
) * USER 
) a TYPE 
) * SH 



mid 
fid 

USER ID 
HEADER 

>0» <5l2 

<0 



TO BE CHECKED 
CHECKED 



IDENTIFICATION 



CORE ADDRESS OF HEADER IN 33«t5. JUST CHECK IT, 
VALUE FOR DIRECTORYSEARCH, FIND THE FILE ANO PASS 
BACK THE HEADER IN ADDITION TO SECURITY INFO. 
DISK ADDRESS OF HEADER, READ IT IN AND CHECK I T» BUT 
DON! PASS TT BACK, 



Result from securitycheck 

«0 NO LFGlTjMATE USER FOUND 

■? Tertiary user < input only) 

mi sfcondary user (input/output) 

= 7 primary user (input/oljtput/l i b maint.) 

t ?,dk sr,row,c ode s,rows»row,dkadr#rowsz»c* user. type» shi 



064 
SE8MENTI 
064 
06ft 
064 
06ft 
064 
06* 
064 
064 
064 
064 
064 
064 
064 
064 
064 
064 
064 
064 
064 



STACK(F+3) * 
STACKfF+4) * 

STACKfF+15) > 
STACKfF+6) 3 



REAL I=DKSGROW, FPBS I ZE = C oDES J 



I 
FPBSIZE 



ARRAY FHr*3»FPB*R0Wr*J f 



« FH 
FPB 



LSS 64 THEN 



06360540 



labfl found; 

labtL f * yt, no tfound» look, why* forget J 

REAL SUBROUTINE DIRSRh' 

begin 
looki if (t?!»d1rect0rysearchcmid»fid, header)) 
why! begin 

if t?«0 then ftlemessf "*n0 fil"»"on d i sk" »mi d ,f i d,0,0 , ) 
else if t2»i then begin p(del)> type»»-1* go exyti 

ELSE IF T2«? THFN F I LEMESS< "#SYSF I L"» "FRROR m , 

MID, FID, 0,0,0); 

IF AUTODS THEN TERMINnTE(PlMlXI6itCTF]> ELSE 

R r r t w 

REPLYrPlMlX]| B - f S H t»VWY&V0K[36«4?«6]iVlLr30'42«6])l 
COMPlEXSLEEP((RePlTCPIMIX] GTR 0) OR TERMSET(PIMIX))! 
ACCIDENTAL FNTRY AT 1 

ENDJ 

IF TFRMSET(PlMIX) THEN GO INITIATE; 



60000 
DISK 
60100 
60200 
6O3OO 
60400 
60500 
60600 
60700 
60800 
60900 
60950 
60960 
61100 
61200 
61300 
61400 
61500 
61600 
62000 
62100 



T 000010 
ADDRESS » 



00185 



000010 
000010 
0000*0 
000010 

000010 
000010 

000010 
000010 
0000*0 

ooooto 
000010 

000010 

000010 

000010 
OOOOlO 
000010 
OOOOlO 

000010 
ooooto 





06462105 


T 


OOOOlO 




06462110 


T 


OOOOlO 




06462120 


T 


OOOOlO 




06462200 


T 


OOOOlO 




06463000 


T 


OOOOlO 




06463100 


T 


000110 




06463200 


T 


000110 




06463210 


T 


000311 


,0) 


06463220 


T 


000313 


END 


06463225 


T 


000412 

06463225 




06463230 


T 


0013*0 




06463240 


T 


0014U 


X747- 


06463260 


C 


001711 


X747- 


06463270 


C 


001913 




06463280 


T 


0023>0 




06463300 


T 


002710 


S747- 


06463310 


C 


003413 

06463270 




06463340 


T 


003413 



IF NOT WHYSUFfPfSH) ThEN GO TO 
IF (SH*T?*RFPLYrPlMIX] f [FF1> > 
BEGIN STRF.AMCT2J); 

BEGIN S(I*T2> 

LLi 51 S «Sf *i * 
Sj i«S j + t > 

end; 



WHY * 
PSEUDOMAXT 



then % il*540- 



ir sc#"L' 

T?I»SII 



THFN GO TO LL> 



FOUND: 



t?:=p; 

FPBSlZEUBCFPB^PRTrPlMiX.SD.lBHOll 
FOR I «=0 STEP ETRLNG UNTIL FPflSjZE DO 

IF (FPRTIJ EQV MID)*N0T THEN 

IF (FPBII+U FOV ABS(FID))*NOT THEN GO FOUND* 
NAMEIDCC-T2); Mf D t»C J NAMf 1 DCC » T2 ) t 
NAMFtD(C»T?>; FTO'=C*F!Dt HI Ml * 
IF I LSS 1020 THFN 
BEGIN FPB[? HsMid; 

FPBC I+1]1*CJ 
END* 



forgetspacecsh-u* 
end else lareltablect2] :*-( *p(dup5)1 



*764- 



REPLYrPlMlXJj.Oj 
GO TO LOOK* 



F^n? 



DTRSRH »= 

fnq diRsRhj 



T?> 



IF HEADER GEQ THEN 

Sh««IF HEADER GTR 511 THEN HEADER ELSE DTRSRH 
ELSE OiSKWAIT(-(Sh!=SPACE(30))»30iHEADER.[CF]); 
FHSalOOUE&SHtCTC]) 
TFCFHT2] EOV 0)*NOT OR CABS(USERlD) EOV ABS( FH[ 2] ) )s»NOT 

OR (USERID EQV MCP)*NOT ThEN TYPE*7 ELSE* 
IF HEADFR<0 THEN GO EXYT ELSE 
IF (FH[5] EQV ?14)*N0T ThEN* 

IF (Fht6] EQV Pl4)*N0T THEN TYPE«-2 ELSE TYPE>3I* 
IF TYPF * THEN GO TO EXYT* 
IF FHC51« r 1 I 1 J T HEN 
BEGIN IF CSHl«DlRECToSYSEARCH(ABS(FH[53>»FHt6]»l9))*0 

then begin typei»o* go to exyt end* 



MrsH+4],r ii tt)i"ii 

STREAH(OATF. Ji«5)l 



BEGIN SI IbLOC DATFJ DSl*80CTj END» 



$ SET 



MtSH+3],ri?ll63J»JUNK; 
DISKWAIT(SH,[CF]»-30»SH,CFF] 5* 
OMlT a SHARFDISK 

unlockdirectoryj 



s pop omjt 

OKSGROWIsMrSH INX 
C0DESt«SPACEC30)j 
ROWSt«(MrSH INX 9] 



8]J 
AND 315-1* 



06463360 
06463380 
06463400 
06463420 
06463440 
06463460 
06463480 

06463500 
06463520 
06463540 
06463560 
06463580 
06463600 
06463620 
06463640 
06463660 
06463680 
06463700 

06463720 
06463740 

06463760 
06463780 
06463800 

06463810 
06463820 

06463840 
06463860 
06463880 
06463900 
06463910 
064639?0 
06463925 
06463930 
06463940 
06463950 
06463960 
06463970 
06463980 

06463982 
06463984 

06463986 
06463988 
06463990 
06463992 



06463994 
06463996 
06464000 
06464050 



T 003711 
P 003812 
T 004110 
T 004212 
T 004213 
T 004313 
T 004411 

06463420 
T 004412 
T 004510 
T 004712 
T 004910 
T 005013 
T 005612 
T 005911 
T 006210 
T 006213 
T 006412 
T 006611 

06463660 
T 006611 
P 006712 

06463400 
T 006913 
T 007110 
T 007112 

06463210 
T 007112 
T 0072»0 

06463100 
T 007211 
T 007710 
T 006011 
T 008610 
T 008712 
T 009013 
T 0095»2 
T 009613 
T 009910 
T 010313 
T 010510 
T 010610 
T 010910 

06463980 
T Ollltl 
T 011412 

06463984 
T 0U611 
T 011912 
T 012210 
T 012210 

06463992 

06463992 
T 012512 
T 012512 
T 012712 
T 012913 



NOTFOUNnl 
FORGET* 



for rowi.o stfp 1 until rows do 
begin if (okaor«em[sh inx 10+rowj)*0 then 
begin type ** 0; 

forgft space ( codes)* forgftspace f sh > * go 

end; 



TO EXYT* 



ROWS? 

WHILF 
BEGIN 



» = DKADR + DKSGROW; 

DKADR < ROWSZ DO 

D I S« IOC CM -COOES, 30, DKADR )* 

SUEEP{rcl»lOMASK)> 



!F(fir JAR[P1M1X.0]<0 THEN "DISK 



S 

FOR C**6 STEP 1 UNTIL 29 DO 
BEGIN iFf (USERl»NFLAG(M[CODES INX C]))EQV PU4)* 
NOT THEN GO TO NOTFOUND* 
IF (USfR EOV Pl4)* NOT THEN 
IF USER.[3*3]«0 THEN 
BEGIN 
IF (USfRID EOV ABS(USER))«N0T THFN 
BFGIN TYPE » « 

IF USER < THEN 2 ELSE 3) 
GO TO FORGET* 
END* 

END ELSE 



BEGIN 

IF PlMjX * then 

IF(ABS(JAR[P1MIX,0])EQV 

useR.[6i«2])» not o then 

"ELSE' JAR[P1MIX.1]>E8V 

M[CODES INX C+IJ. C6I421>* NOT 
THEN 
BEGIN 

TYPE ** USER, C 3 t 33 S 

GO TO forget; 
end; c:*c+i; 



end; 

end; % 30 USERS 
DKADR 5a DKADR + i; 

end; % row 



END; 



fnd; % Rows 
c,o to notfounq; 

% NO SFCURjTY BLOcK 



FILE 



typf »ts0; 
fxyt: 

IF HEADER l-SS 51? ThEN 

IF HFADER GEO THEN HEADFRl*FH 

secuRjtychfck »«TYPe* 
end SecliRitycheck; 



else forgetspace(fh); 



06464100 
06464200 
06464300 
06464400 
06464500 

06464600 
06464700 
06464800 
06464900 
06465000 
06465100 
06465200 
06465210 
06465220 
06465230 
06465300 
06465400 
06465500 
06465600 
06465700 

06465800 

06465805 
06465810 
06465820 
06465830 
06465840 
06465850 
06465860 
06465870 
06465880 
06465900 
06465910 

06465920 

06466000 

06466100 
06466200 

06466300 

06466310 
06466400 

06466500 
06466600 
06466610 
06466620 
06466700 
06466800 



013213 
013510 
013810 
013911 
0141U 

06464300 
0141»1 
014212 
014313 
014513 
014711 
014810 
0150*3 
015210 
0153*2 
0155*1 
0155*3 
015712 
0158*0 
0160*3 
0161*1 

06465400 
0161*1 

06465230 
0161*1 
0161*3 
0162*2 
0164*1 
0166*2 
Ol70«3 
0174*1 
0175*0 
0175*2 
0176*3 
0179*0 

06465870 
0180*1 

06465605 
0180*1 

06465100 
0182*2 
0183*3 

06464800 
0184*1 

06464200 
0186*2 
0187*0 

06463970 
0187*0 
018713 
0187*3 
018612 
0193*0 
0193*3 

06462000 
IZE* 0195 WORDS 



PRT(174) = 
PRTC175) * 



S SET OMIT ■ NOT(nA 

S SET OMtT * NOTCnC 
DEFINE KlUMP«*l74#i* 
COMMFNT LASTcDNUM. F 

first three 

+ 3. IN A NOK 
1JME ONF OF 
IF A HAL.T/1,0 

Rfao into TH 
used, this p 

IN ADDITION 
END COMMENT) 
iNTrGER LASTCDNUMa?i74J 
I.ASTCONUM 

FTRSTDECK=Pl75; 



*************** *XJS 



TACOM ) 

********* 

LOG AND DATACOM ) 

Pi 73 IS RESERVED FOR THE DISK ADDRESS 
IRSTDECK* AND LaSTDECK ARE STORED IN THE 
WORDS OF THE DISK SEGMENT LOCATED AT DIRECToRYTOP 

SHARED DiSk SYSTEM* THEY ARE WRITTEN OUT EACH 

them is changeo so that they will be preserved 
ad occurs^ in a shared disk system. they are 

E PRT WjTh A READ-LOCK COMMAND EACH TIME THEY ARE 
ROViDES CONTROL DECK INTERLOCKING BETWEEN SYSTFMS 
TO PASSING THE INFORMATION BETWEFN SYSTEMS. 



06499999 
06845900 
06845999 
07000000 
07000010 
07000015 
07000020 
07000025 
07000030 
07000035 
07000040 
07000045 
07000050 
07000100 



OOOOtO 
000010 
000010 
000010 
000010 

ooooto 

000010 
000010 
0000«0 
000010 
000010 
000010 
000010 
000010 



REAL 
FIRSTDECK 

REAL LA$TDECK*P]76; 
PRT(176) m LASTDECK 

DEFINE I.OCKCONTROLDE 
S SET OMIT * NOT(SH 
END#» 

UNLOCKCONTROLDFC 

$ SET OMiT x NOT(SH 

UNLOcKTOGCC 

REAL PROCFDURE NEXTC 



07000200 T 000010 
07000300 T OOOOtO 



PRT(552) • 



NEXTCDNUM 
BEGIN 



CKSsBEGIN SLEEP([TOGLE]»CDMASK)< LOCKTOGC CDMASK ) » 
AREDISKD 

KS=BEGIN 

AREDISK) 

DMASK) END*) 

DNUMCUPDATE)) VALUE UPDATE) BOOLEAN UPDATE) 

START OF REL 



07001000 
07001099 
07001200 
07001300 
07001399 
07001500 
07001600 



0000 10 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 



SEGMfNT) DISK ADDRESS » 00192 



LOCKCONTROLDECKS) 



LASTCDNUM := fLASTcDNUM MOn 9999) +1) 
STREAM(CDNUM:=0» LNUMi»LaSTCONuM) J 
BFfilN 

Sl»=LOC LNUM) DpsLOC CDNUM) DS»s8 DEC) 

END) 

NEXTCDNUM 8= P) 
IF UPDATE THEN 
BEfilN 

DlSKWAlT(KLUMP#-3»DlRECTORYTOP+3)) 

unlocktog(Cdmask); 

END) 



07001 
07001 



07001 
07001 
07001 
07001 
07001 

07001 
07001 
07001 
07001 
07001 



620 T 
640 T 



660 T 
680 T 
700 T 
720 T 
740 T 



760 
780 
800 
820 
840 



0000 
0000 



0005 
0007 
0008 
0008 
0009 

0009 
0009 
0010 
0010 
0012 



end; 



07001860 T 0016 

07001880 T 0016 

SIZE- 00 



«0 

to 

07001640 
07001640 

II 

iO 

n 
ti 
to 

07001700 

ti 

13 

10 
(2 
\2 

07001840 

10 

07001800 

to 

07001620 
19 WORDS 



procfdure startadeckcn)} valuf n; Rfal nj forward* 

PRT(553) s STARTADFCK 

PROCEDURE FNTfRcONTROLDECKfH)! VALUE HI ARRAY Hf*]l FORWARD) 

prt(554) « fntercontrolneck 

Real runumbeR** 

PRT(555) b RIJNUMBER 



07002000 T OOOOlO 
START OF REL SEGMfNTI DISK AODRESS « 00193 

07002100 T OOOOlO 
START OF REL SEGMeNTi DISK ADDRESS * 00193 



07003000 T OOOOlO 



%*****$******************************************************* 

PROCEDURE FBTABLE? 

PRT(556) = FBTABLE 

BEGIN LABEL LI 

PfO.xiTt ,L,OEL); 
L»l « 

0»" 32 ?«," 1 ???","OTS? , %"/???","-LK?», "J ??? M , "????% »????% M SCB 
H # ??? H »" ????"• w ????" •"????"»"????" ♦""????"» 

"9 ???"»«? ???», l *7???<», "????", * , R???"»"????% , '???? H »"????"|''I??? H 

M 8 #»?"»"????"» "Y»x? w » M ???? w »"Q$J?%"???? H »"???? M »"???? M » ,, H,t? w 
" ????"# "????" »"????" »"????'•»"????"♦"????"» 

P07770675 ^057 704 13* 9067 1466 16 »P651 76473 » 

» 47574656. M555445 3 ,"????%"????"» P27742620 >P25 352436 • 

H ???? w »"????•• »"???? M »"????" »"????" #"????"» 

*«M A RK A pDRESSES 

« ???? lf, M???? .f ,lt ???? M >W????W)| l» ???? fl, M???7 H t H ???l? f. t tt ????Wt lf ????M 

" .????"» * ???? H I " ????"#" ????". " ????"# «????"» 

0»0»0»0«0»0»0»0»0»0»0#0»0.0»0»0» X SPACE FOR ADDRESSES 
0»0»0»OtO>0»0? 
END! 



*89l- 


07003250 


C 


OOOOlO 


********** 


07003251 


c 


0000*0 


X891- 


07003252 


c 


OOOOlO 


X890" 


07003270 


c 


OOOOlO 


START OF REL 


SEGMENT! DISK 


ADDRESS * 00193 


X890- 


07003280 


C 


OOOOlO 


*890* 


07003290 


c 


OOOOlO 


*890» 


07003300 


c 


000110 


?"» W A???". 


07003310 


c 


000110 


*890- 


07003312 


c 


001210 


."????", 


07003320 


c 


001810 


*890- 


07003322 


c 


0028:0 


,H ???? «, 


07003330 


c 


003410 


58890- 


07003332 


c 


0044(0 


X892- 


07003340 


c 


0050S0 


X890- 


07003342 


c 


005410 


S89t» 


07003344 


c 


006010 


X890- 


07003350 


c 


0066 5 


#"????"» 


07003352 


c 


006610 


X890- 


07003354 


c 


0076J0 


%890» 


07003360 


c 


0082>0 


X890- 


07003370 


c 


009810 


X890- 


07003380 


c 


010510 

07003280 




SIZE" 0106 WORDS 



%****** ********************* *1*t*** ******** $*1t*ttt**t ****** 

RFAl PROCFRURE SETllPEBTABLFt 

PRT(557) a SFTUPFBTARLF 

BEGIN Rfau ADR* LABEL fxit; 
STACKrF+2) x ADR 

OEFINF. STORE ADORFSSs 

x i trS i ; sijbloc x; shsSi+sj 

DS:a3 CwRJ DItasDI+5 #» 

fbtarlf; 

PCrMKApR J**P(,EBTABLE) INX NOT l)]]*IOR)l 
SETuPEBTABLF**ADR»»ADR.rCFU3J 

if MfADR+Bj ] * o then 

STREAM r X»sO» TABLE J «AOR»QMARK TABLE AnDRESSl«ADR + 32. LOCATIONS: 

BEGIN 

DHsTABLE! SpsTARLEJ SII.Sl+8) 

? C 40 f S i |sS J + 4J DSJe4 CHRM)J 

XFIRST FILL ALL OF ADDReSSfS WITh ADDRESS OF ?S 
SI IsOMARKTARLEADDRESS; 

xi = sn 

SIJbLOC XJ Sl«sSl+5J J5P0INT SI AT ADDRESS OF OMARKS 
DI I*LOCaT!ONSJ 
DSj = 3 ChRJ 

si isLOcaTions; 
nS:=63 wDS; 

*NOW SFT ADDRESSFS FOR VALtD CHARS INTO EBCDIC TABLF 
SI tsTAHLE? 

dusLOcaTions; 

3fST0READDRFSS? XSToRF ADDRfSSeS FOR LP=0,1,2 

^CORRESPONDING TO BLANK.9 hOLE.8 HOLE 
S i : =X ; 

Sl»sSi + 63» SpsSl + i)! XSKiP B WORDS DOWN TABLF 
D I 1 »n 1 + 8 S *LP*3 IS INVALID 

STOREADnRESSJ »UP»4 7 HOLE 

DI»sDl+6J «LPa5 JS INVALID 

Si«=x; 

SlJ*Si + 1 j JtSKiP l CHAR DOWN TABLF 

STOREADDRFSS; *LP«6. ...78,8 HOLES TOGETHER 

DI SssDl+8J 

siuxi 

S It m S I + 1 ', 

sToreaddRess; 

DI**Dl+flJ 
SI J*X; 
SI i*Si + i ; 

stqrfaddRess; 

DI t»Dl+aOl 
SlisX; 
SI i atS i + 1 ; 
STORFADnRESSJ 
01 «»0I+8* 
SI J*X> 
SI »*Sl+i J 
STOREADnRESSJ 
2CDI «sr)T+5?)> 



XLP«8....6 HOLE 



XLP*10,,..688 HOLFS TOGETHER 
2MISS 5 WORDS. .,LP=ll,l2»13. 14.15 



XLPIM6, ... 5 HOLf 



JLP-18,,,, 5&8 HOLES TOGETHER 
XMISS 13 WORDS, ,.,LPal9-3l 



*89i* 


07003390 


C 


OOOOJO 


************ 


07003391 


c 


0000*0 


X891- 


0700339? 


c 


OOOOJO 


1890- 


07003400 


c 


OOOOtO 


START OF REL 


SEGMfNTI DISK 


ADDRESS « 


*890- 


07003410 


c 


OOOOJO 


?890- 


07003412 


c 


OOOOJO 


S890- 


07003414 


c 


OOOOJO 


S890- 


07003416 


c 


OOOOJO 


*890- 


07003420 


c 


OOOOJO 


S890- 


07003430 


c 


0001 JO 


*890- 


07003440 


c 


0003«2 


*890- 


07003450 


c 


0005»3 


=ADR*40) J 


07003462 


c 


0007J3 


*890- 


07003464 


c 


0010:3 


*890» 


07003466 


c 


0010J3 


S890- 


07003468 


c 


00HJ2 


*890- 


07003482 


c 


0013*0 


X890- 


07003484 


c 


0013J0 


1890- 


07003486 


c 


0013* 1 


*890- 


07003488 


c 


001312 


X890- 


07003490 


c 


0014J0 


X890- 


07003492 


c 


00141 1 


*890- 


07003494 


c 


0014J2 


X890- 


07003496 


c 


0014J3 


X890- 


07003498 


c 


0015J0 


*890- 


07003500 


c 


0015J0 


|890- 


07003502 


c 


0015* 1 


X890- 


07003504 


c 


0015*2 


X890- 


07003506 


c 


0017J0 


*890- 


07003508 


c 


0017 JO 


X890- 


07003510 


c 


0017*1 


X890- 


07003512 


c 


0018JO 


X890- 


07003514 


c 


0018»1 


f890- 


07003516 


c 


0019*2 


*890- 


07003518 


c 


0019*3 


*890- 


07003520 


c 


0020J0 


X890- 


07003522 


c 


0020 J 1 


*890- 


07003524 


c 


0021*2 


*890- 


07003526 


c 


002U3 


*890- 


07003528 


c 


0022*0 


X890- 


07003530 


c 


0022*1 


1890- 


07003532 


c 


0023*2 


X890- 


07003534 


c 


0023*3 


*890- 


07003536 


c 


0024*0 


X890- 


07003538 


c 


0024*1 


*890- 


07003540 


c 


0025*2 


X890- 


07003542 


c 


0025*3 


*890- 


07003544 


c 


O026J0 


X890- 


07003546 


c 


002611 


«890- 


07003548 


c 


002712 


1890- 


07003550 


c 


002713 


X890- 


07003552 


c 


0028*0 


1890- 


07003554 


c 


0028*1 


*B90- 


07003556 


c 


002912 



00197 



si tax; 

SI j»Si + j ; 

STOREADnRESSl 
DI :aDT+85 
SI tsX> 
SI i«Sl + i J 
STOHFAnpRFSSJ 
END* 

fNoj 



XLP = 3? 4 HOLF 



XL.P = 3'1 4&8 HOLES TOGETHER 



1890- 


07003558 C 


0030« 1 


*890- 


07003560 C 


0030J2 


X890- 


07003562 C 


003013 


*890- 


07003564 C 


0032>0 


*890- 


07003566 C 


003211 


S890- 


07003568 C 


003212 


X890- 


07003570 C 


003213 


1890- 


07003580 C 


0034*0 

07003464 


*890- 


07003590 C 


003411 

07003410 



SIZE* 0035 WORDS 



%*^***m^***************t*******************************************0**** 07003600 C OOOOlO 

STRFAM PROCEDURE EBCDT CCONvERTr I NTO, TABLF # PO I NTERS > * *890- 07003610 C OOOOtO 
PRTf560) . rBCOTCCONVirRT 

VALUE InTo,TaBU»POINTERS> *890- 07003615 C OOOOlO 

%*^****^*^^*******t*****************************^*****************>ti***** 07003620 C OOOOtO 

BEGIN 1890- 07003630 C 000010 

START OF SAVE SEGMENT) BASE ADDRESS * 00631 

LOCAL HP>LP,SRCEiOFST,HPPTR,LPPtR> J5890- 07003640 C OOOOlO 

»POrNT mPPTR « LPPTR TO LAST CHAR OF HP. LP |890- 07003650 C OOOOlO 

SII=L0C HP» *890- 07003660 C OOOOlO 

SllsSl+7> *890« 07003670 C OOOOIJ 

hPPTRI.SH XHIGH PART *890- 07003680 C 000012 

Sli»LOC LPS X890- 07003690 C 0000*3 

Sll»S|+7» 1890- 07003700 C OOOllO 

LPPTRi«SH SLOW PART *890- 07003710 C OOOlll 

Sjl = !NTo» S!t = Sl+8; X890- 07003720 C 000112 

D!««INTo; *890» 07003730 C 000210 

SSTART CHARACTER TRANSLATE LOOP *890- 07003740 C 0002U 

2(40f *890» 07003750 C 0002U 

DESTt«Dl* *890- 07003760 C 000213 

SKTRANSFFR LOW & HIGH PARTS *890- 07003770 C 000310 

npsHPPTRl *890- 07003780 C 0003«0 

DSibI ChR) X890- 07003790 C 000311 

D!i»LPPTR» *890- 07003800 C 000312 

0S:*1 CwRl %890- 07003810 C 000313 

SRcE*«St> XSTORE SI FOR NfXT PASS THRU LOOP *890- 07003820 C 000410 

XNOW FIND THE POINTER INTO TABLE APPROPRIATE TO LP X890* 07003830 C 0004»1 

Si SiPOIMTfRS; ?890- 07003840 C 0004*1 

LP(SI SsSI+8) » X890- 07003860 C 000412 

SllaSC! »SI NOW POINTS INTO TABLE * POINT DEPENDANT ON LP X890- 07003870 C 0005*2 

DISaDESTJ 8890- 07003880 C 000513 

SI:*SI+ W P; ISKIP SI THROUGH TABLE HP CHARS *890- 07003890 C 000610 

DSJsChR; *890- 07003900 C 0006»2 

SPbSRCf))! 1890- 07003910 C 000613 

D!«»TAB|.EI Dn»DI + 3; XPOINT TO UMRK *890- 07003920 C 000712 

END CONVERT! *890« 07003950 C 000810 

07003630 
SIZE* 0009 WORDS 



procedure: com?3;x 07004000 t 0000:0 

START OF REl SEGMENT? DISK ADDRESS « 00199 

REGlNX 07005000 T 0000»0 

Real tnbuff.x ahdRess of The input buffer. 07006000 t 0000*0 

STACKfF+l) x INBUFF 

OUTBUFF.X « « » OUTPUT BUFFER, 07006010 T 0000»0 
STACKfF+2) ; OUTBUFF 

ftrstcard,* " «• « card image of the first card 07006020 t 0000*0 

STACKfF+3) a FIRSTCAPO 

OUTPUFFOLD.X " » « LAST OUTPUT BUFFER, 07006030 T OOOOJO 
STACKfF+4) - OUTBUFFOLD 

RFSERVE.X " " 30 WDS OF CORE USED TO BUILD THE 07006040 T OOOOJO 



STACKfF+5) = RESERVF 

STACKfF+6) = T 
STACKfF+7) * Tl 
STACKfF+lO) « T? 

STACKfF+11) a R 
STACKfF+i?) ■ L 
STACKfF+13) - N 

STACKfF+14) » 

STACK(F+15) = IU 

STACKfF+16) = OU 

STACK(F+17) = FIRST 

STACKfF+20) s S 

STACKfF+?l) * 



T,T1*T?,X TEMPORARY VARIABLES. 07006050 T 000010 

R'L»N»X " " USED TO COUNT CARD IMAG 07006060 T OOOOJO 

Q»Z USUALLY INDICATES COL 1 HAS A QUESTION MARK 07006070 T 0000*0 

lU,X UNIT NUMBER OF ThE INPUT UNIT, 07006080 T 000010 

OU.* " « n ♦» OUTPUT UNIT, 07006090 T 0000*0 

FIRST,* TRUF IF THF FIRST CARD OF A DECK. 07006100 T OOOOJO 

S,X USED AS A TEMPROARY VARIABLE IN SUBROUTINE 07006140 T OOOOJO 

X AND TO HAND THE UNIT NUMBER To SUBROUTINE S 07006150 T OOOOJO 

OJX USED AS A MASK To SLEEP UNTIL DISK OPERATlO 07006160 T OOOOJO 



x are completed. 07006161 t 0000*0 

s set omtt » not(packfts) 07006169 t oooojo 

Real vfRyfirst, xtrue if the first card of the first deck 07006172 t oooojo 

STACKfF+22) a VFRYFlRST 

xin Since load control was executed, 07006174 t oooojo 

FIRSTORSFC, XIRUE JF ThE FjRST OR SEC. CARD OF NEW DECK 07006176 T OOOOJO 

STACKfF*23) a FlRSToRSEC 

PTYPE.X CONTAINS ThE RESULT OF REAL SUBROUTINE 07006180 T OOOOJO 

STACKfF+24) • PTYPE 

X PACKETCARD. SAVING SOME NEEDLESS EXTRA 07006190 T 0000*0 

X CALLS ON IT TO CHECK THE TYPE OF A CARD, 07006200 T OOOOJO 

X THE VALUE OF PTYPE lS AS FOLLOWS! 07006210 T OOOOJO 

X ■ NOT A JACKET CONTROL CARD 07006220 T OOOOJO 

X 1 « "PACKEND H CARD. fUSED BY THE 07006230 T OOOOJO 

X OPERATORS TO END A GROUP 07006240 T OOOOlO 

X OF PACKETS BEING LOADED TO 07006250 T OOOOJO 

X DfSK) 07006260 T OOOOJO 

X 3 * "PACKET" CARD. (FIRST CARD 07006270 T OOOOJO 

X Of A PACKET) 07006280 T OOOOJO 

X 5 - "END PACKETS" CARD# (USED BY 07006290 T OOOOJO 

X T H E OPERATORS TO BOTH END 07006300 T OOOOlO 

X A GROUP OF PACKETS AND 07006310 T OOOOlO 

X SIMULTANEOUSLY DISCONTINUE 07006320 T 0000»0 



STACKfF+25) <= PLUGGFD 



PLUGGED;* TRUE IF THE 



LOAD CONTROL), 
LAST "PACKET" CARDCI 



• » 



07006330 T 
07006340 T 



% 

% 

% 
% 



PTYpt*3)» was both the start of a new 

PACKET AND WAS USED TO "PLUG" THE END 
OF THE LAST PACKET WITH AN ARTIFICIAL 
"-QUESTION MARK- PACKET," CARD* 



STACKfF+26) * 

STACK(F+27) » 
STACKfF+30) a 



STACKfF+3t) 
STACKfF+32) 
STACKfF+33> 



STACK(F+34) 
STACKrF+35) 



STACKfF+36) 
STACKfF+37) 



S POP OMJT 
BOOLEAN CPONLYJ 
CDONLY 

INTpGFR A#i;» 
A 

I 

$ set omit « notcpackets) 

Real continue.diskchain, adEck; label dkj 
continue 
diskchatn 

ADFCK 

$ POP OMIT 

LABFL again. t nl .error. supfR.bomb.sk ipit.exit; 

LABEL INPUTL> 

BOOLEAN EBCDIC; REAL EBTABLEaDRJ 
EBCDIC 
EBTABLFADR 

ARRAY FPBr*]»Hr*1}!? 
FPB 



X890- 



■ H 



SUBROUTINE 
REGTN 



stop;*; 

IF S * 18 
BEGIN 



Then* 

Ready * notco «- twocs)) and ready)* 
rrrmech * not q and rrrmech or and savewordjx 

LABELTABLE[S] * PllAJX 
RDCTABLEtS] «- MULT I TABLET S) * OX 

end;* 

FPBtT+lJ* *P(DUP ) + C LOCKUP (RTR) J % 
FPB[T].[24»1?3 ♦ TlNUrSJ.[18H2]|X 
TlNU [S 1. t 18 » 12)1-0; 

END;* 

SET OMJT p PACKFTS 

SET OMtT a NQT(PACKETS) 

SUBROUTINE fORgeTONe* 
POP OMIT 

PFfilN Tl * H[9J+9j* 

FOR T? * 10 STEP 1 UNTIL T 1 DO* 

F0RGETUSERDlSKfHrT2]»-Ht8])» 



t SET OMJT a NOT(PACKETS) 



SUBROUTJNF 
REG IN 
WHILE 



forgetit; 

FORr,ETONE> 
DISKCHAIN NEQ DO 
BEGIN DlSKWAIT(-(H I NX ) , 30. DI SKCHA I N) J 
DlSKCHA|Nl»HC6].[FF]l 

forgetonej 
end; 



07006350 
07006360 
07006370 
07007000 
07007001 
07007100 



07008251 T 

07009000 T 

07009100 T 

07009200 C 



070H000 
07012000 
07013000 
07014000 
07015000 
07016000 
07017000 



07018000 T 

07019000 T 

07020000 T 

07021000 T 



07021999 
07022099 
07022100 
07022101 
07023000 
07024000 
07025000 
07026000 

07026099 
07026100 
07026200 
07026300 
07026400 
07026500 
07026600 
07026700 



OOOOJO 
0000*0 

OOOOJO 
000010 
000010 
000010 
OOOOJO 
OOOOJO 



07008000 T OOOOJO 



07008199 T OOOOJO 

07008200 T OOOOJO 



OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 



07010000 T OOOOJO 



T OOOOJO 
T OOOlJO 
T 0001J3 
T 00Q4«3 
T 0007J1 
T 0008J2 
T 0009J3 

07013000 

001013 

0013J3 

0017*0 

0019J2 

07012000 
T 0019*3 
T 0019J3 
T 0019J3 
T 002010 
T 0020JO 
T 002112 
T 002310 
T 0027J0 

07023000 
T 002711 
T 0027; 1 
T 002810 
T 0029J0 
T 003011 
T 003212 
T 0034J0 
T 0035J0 



END FORGET IT J 

$ POP OMIT 

SUBBOUTTNF ROMRTlMfJ?; 

RFGIN WHILF STOPSeTC Pt MI X ) 00 STOPMCF AISE ) { 
TF TFRMSFT(P1M1X> THEN GO BOMB» END* 

S SFT 0M|T = NOT(PACKETS) 

REAL SUBROUTINE PACKeTCARDJX THIS USED TO BE "ENDCARD" 

rfgin if Q then* 

if epcOic then 

BEGTN 

fpcdici-falsej 

Mtf*P(.EBTABLE) INX NOT 1 ) 3 . t 2 ( 1 3 ( «0» 

ENDJ 

STPEAM(X{s"PACKETS"(Y(*"CONTjNU",Z(*"END, "» 
EB«s"DATA029",INBUFF)J 
BEGIN SI * IN8UFF1* 
L« Si ♦ Sl + u if SC ■ " " THEN GO 



07026800 T 



S890- 
*890< 
*890. 
*890« 
X890. 

K890- 
*890. 



INRUFF « *SI J 
Dl«-L0C XJ 
IF 4SC*DC 
IF 2SC*DC 

ELSE 



THEN 



TALLV*3* A 
TAILYMI A "PACKFND M 
ELSE BEGIN Dl*DI-4JX 

IF 7 SCsDC THEN 

ELSE BEGIN 



svojn 

SVOm 07036351 



TO L>* 
JS890« 

OUDIflil POINT TO "PACKETS" 

then? a "packet" or "packend" card 

"packet" card 

CARD 

POINT TO "PACKETS" 
TALLYI«5 X"END PACKET" 
SI »*INBUFF>DI »«L0C YJ 
DpsDl + iMF 7SC*DC THEN TALLY(*6 
ELSE BEGIN DH*LOC ZIDH«Dl + ll 

s 1 1* inbuff; 

IF 3 SC*DC THEN TALLY»=7 
ELSF BEGIN 

Dl t»LOC EBlOM"DI + il 

SI 1*1 NBUFFI 
THEN X890 
*890 
TALLY«s4J 

«890 
END END ENDJ |890 



*890< 



S890- 
X890- 
%890» 
X890- 



IF 6 SC*DC 



end;? 

x * tallyjx 
fNdj* 

frNo E^Sf P(0)U 

ptype>=p» 

if ptype*6 then begin ptype»s3; cont i nue (*true end 

FLSf continue««false* 
if ptype*7 then ptype i sadeck j 



07026801 
07027000 
07028000 
07028100 

07028999 
07029000 
07030000 
07031000 
07031200 
07031300 
07031400 
07031500 
07031600 

07032000 
07032100 
07033000 
07034000 
07034500 
07035000 
07036000 
07036100 
07036150 
07036200 
07036210 
07036220 
07036230 
07036240 
07036250 
07036260 
07036270 
07036280 
07036290 
07036300 
07036310 
07036320 
07036330 
07036390 



07036400 T 

07037000 T 
07038000 T 

07039000 T 

07039100 T 
07039200 T 

07039300 T 
07039410 T 



07026400 
0035(2 

07026200 
0035*3 
003513 
003610 
0039(1 

07028000 
0041(2 
004112 
0042(0 
0042(1 
0042(3 
0043»0 
0043(2 
0044(1 
0048(0 

07031300 
0048(0 
0049(1 
0050(0 
0050(1 
0051(1 
0051(2 
0052(0 
0052(2 
0053(1 
0053(3 
0054(1 
005510 

0055(3 
0056(2 
0057(2 
0057(3 
0058(2 
005813 
005911 
0059(2 
0060(0 
0060(0 
0060(1 
0060(1 

07036270 

07036240 

07036220 
0060(1 

07036200 
0060(1 
0060(2 

07033000 
0060(3 

07031000 
0066(1 
006613 

07039200 
0069(2 
0070(3 



IF PTYPF s 4 THFN 

BfGIN PTYPF*»0; FBCOlC'sTRUEl 

fbtableadrsssetupfbtablfj 
end* 

PACKETCARD'sPTYPEJ 
END** 

$ POP OMTT 

$ SET oMlT a PACKETS 

REM. SUBROUTINE ADR;* 

RFC. IN IF (T? «• MtfTj * R DtV 200)4-10]) ■ THEN* 
BEGIN Hr9] ♦ Tl + H* 

HtTl+lO] * T2 * GETUSFRDISK(200)JX 

end;?; 

ADR * R MOn 200+T2I 

endjx 
subroutine input** 

PFGIN* 

IF IU < 16 THEN* 
S SFT OMfT s NO! (PACKETS) 
PFG IN 

INPUTLI T «■ WAlTfO ( P120540000000 ♦ INBUFF. 
P6000040. iU)I 

if T=?40 thfn go to inputl; 
if t#o then 

BEGIN 

P(DEL)* 

GO TO FRROR 

END* 



*890- 
X890. 
*890- 

*890. 



S POP OMTT 

S SET OMjT s PACKFTS 



fnd* 



Q * Mf INBUFF-1 3"9l% 



ELSE BFGIN WH I LEC Q **WA I T I Of P40000000+ j NRUFF + 

EBCDlCxP40000000l,FiRSTxfl + 

P4000000, |U)),f45lll DO 
IE FIRST AND CDONLY AND NOT CONTINUE THFN 

GO EXIT ELSE 
BEGIN SLEEP(tT0GLE3#STATUSMASK)l 

RRRMECH*RRRMECH AND NOT Q*TW0(IU)> 

READY*READY AND NOT 0* 

SLFEP(rREADYJ»Q)* 
ENd; 

IF EBCDIC THEN EBCDI CCONVERTC I NBUFF . 

EBTABLEADR.EBTABLEADR+40) ELSE 
IF Q * 8 # THEN 

BEGIN SI«(Tl»UNlTtIUj),tFF3l 
RETURNIOSPACE(S)! 



|890- 
*890- 

*654- 
*654> 



X890. 
«890« 



07039500 C 

07039600 c 

07039700 C 

07039800 C 

07040000 T 
07041000 T 



07041001 
07041099 
07042000 
07043000 
07044000 
07045000 
07046000 



07049000 
07050000 
07051000 
07051099 
07051100 
07051110 
07051120 
07051130 
07051140 
07051150 
07051160 
07051170 
07051180 



07059000 
07059010 
07059100 
07059110 

07059H2 
07059200 
07059300 
07059400 
07059500 
07060000 

07060100 
07060200 
07061000 
07062000 
07063000 



07047000 T 
07048000 T 



07051181 T 

07051999 T 

07057000 T 

07058000 T 



END** 



UNITCIU] * m77777t5l20»28JJ 



07065000 T 
07066000 T 



0072*3 
0073*2 
0075*2 

0076*2 

07039600 
0076*2 
0077*0 

07030000 
0077*1 
0077*1 
0077*1 
0078*0 
0081*0 
0083*1 
00861 1 

07044000 
0086*1 
0087*0 

07043000 
0066*0 
0068*0 
0088*0 
0088*3 
0068*3 
008911 
0090*1 
0091*2 
0092*3 
0093*2 
0094*0 
0094*1 
0094*3 

07051150 
0097*0 
0097*0 
0097*0 
0099*2 

07051100 
0099*2 
0101*0 
0102*3 
0105*1 
0106*3 
0106*3 
0109*0 
0111*2 
0113*0 
0114*2 

07059200 
0116*0 
0120*3 
0122*0 
0123*3 
0126*2 

07063000 
012913 
0132*0 



STREAMCQMKI*12IBCL»«1-FBCD!C#INBUFF); 
BEGIN 

SI l»INRUFF> 

rcl, of sc*""" then jump out to 

»f soph Then 

LI t BFGlN Si»«LOC QMK ! S I » »S I +7; 

ns»si chrj 

TALLYtsl ; 
SlIelNBUFF* 
2C36CIF SC»»>" THEN 

BEGIN 1NBUFF«»SU DH»INBUFF! 

nSl*LlT "■" 

fNdj 



end; 

QMK 

end; 



TF SC«">" THEN 
BEGIN |NBUFF»«Si; 
DSle Lt T «"" 

fnd; su»si + ii)) 



i«tally; 



di»«inbuff; 



Ql 

t ■ 



fnd;* 



•p or 

■ 0;% 



q; 



*890« 
1890- 
*890- 

li>; 

*890- 
*890» 
X890* 
*890- 
*890- 
X890- 
X890- 
*890- 
*890- 

1890- 
% 890- 
*890- 
*890- 

*890- 

X890- 
*890- 

*890- 



FND INPUTI % 



set up 



C0M23 - 

input variables* 

if cd0nly«*(prt[plmix,p25j>22) 

BEGIN IUJ«PRTlPlMjXiP25]; 

PRT[PlMiX»P25)«*0; % 
END FLSE 



THEN 
DISK 



BEGIN IF ClU»«F!NDlNPuT("C0NTROL"» n DECK 

o.o)) lss o then go initiate; 

IF IU GEO 32 THEN P(XI r)» 

end; 



%o.o»o»o#o,o» 

* BEEN DS-ED 

X EOJ IF PSEUDODCK 



STARTJMING(O.IU); 
FPB:sPRT[PlMiX»3l; 

s sft omit = packets 

IF N0T<JARCPIMIX»9],C2I1 J) THEN % DONT SUPPRESS MESSAGE 
FILEMFSSAQEC IN »&TlNU[lU][6*30tl8J,0, 

"CONTROL", "DECK ", 0» 0# Or OPNMESS) J 
RDCTABLECIUJ.[B|6] * PlMlXJ* 
IF IU LSS 16 THFN BEGlNX 

FPB[3],t23ll]««il XSET INPUT FLAG FOR LOG 

T * WAlTl0fP5«0000005»0»lU)X 

END* 

ELSE IF IU»23 AND REAOERA NEQ THEN 
BEGIN F0RGfTSPACF(READERA-2);X 



07066100 
07066200 
07066300 
07066350 
07066400 
07066500 
07066550 
07066600 
07066610 
07066620 
07066630 
07066635 
07066640 



07069200 
07071000 
07072000 
07072100 
07072200 
07072300 



07073000 
07073500 
07073999 
07074090 
07074100 
07074200 
07075000 
07076000 
07076010 
07077000 
07077010 



07066650 C 
07066660 C 
07066665 C 
07066670 C 

07066700 C 

07066800 C 
07066850 C 

07066900 C 
07067000 T 
07068000 T 

07069000 P 



07072400 T 
07072500 T 
07072600 T 
07072700 T 



07078000 T 
07079000 T 



07062000 
0132*0 
0134»0 
0134*0 
013411 
013610 
013612 
0137*0 
0137U 
0137*2 
013713 
013813 
013911 
013913 

07066630 
013913 
0140IJ 
014013 
0141 11 

07066660 
014210 

07066500 
014210 
0142U 

07066200 
014212 
014312 
0144U 

07059000 
014411 

07050000 
014610 
014610 
014610 
015513 
015713 
015912 

07072100 
015912 
0162*1 
016510 
016612 

07072400 
016612 
0167*2 
0169*0 
0169(0 
017013 
017311 
0175*2 
017810 
0179*1 
016H3 
0182*3 

07076000 
0183*2 
018913 



end* 



READERA «• 0}% 



ELSE IF 1U*24 ANO READERB NfQ THEN 
BFGIN F0RGfTSPACFCREADERB-2)U 

READERS * Oi% 
ENDI* 



S VOtOT 



*890- 
X167< 



firstcard «• getspace c 1 .controlc ardarea v . 1)+2u 
% set up output variables* 

IF PRTtPlMIX,P253 THEN* 

BEGIN OU •• LABELASCRATCHCT *•% 

TAPEL ABEL C "CONTROL" • "DECK " . 1 . 1 . 1 00 ) ) J X 
IF 0U<0 THEN GO INITIATE* XBEEN OS-ED 
FORGETSPACEfT)U 
FPBt3l,r23h]:*0> XSET OUTPUT FLAG FOR LOG 

ENDS 

FLSE BEGIN OUTBUFFOLD *■ 0UT8UFF *% X167- 

6ETSPACE(60i!0BUFFERAREAV»l)+2II XI 6 7- 
RESERVE ♦ GeTSPACE(30.0.1)+2>X 

H is SAVEARRAYDESC(30,DISKHEADERAREAV); X167- 
OU «• i 8; X 

INBUFF * GETSPACE(21.10BUFFERAREAV»1) + ?» «892- 
ENDK 



STARTlMiN6(5» 0U)1 

FPB»«PRT[P1MIX.3J) 
$ SFT pMlT = NOT(PACKETS) 

VEPYFIRST^i 1% 
t POP OMIT 

* BEGtN onf deck* 

agatn: outbuff * OUTBUfFOLDJ* 
L ♦ N * 0}X 
f SFT OMIT s NOT(PACKETS) 

ADECK ♦• Oj FtRSTORSEC «• 
S POP OMJT 

FIRST * D * II 
IF OU a 18 THENX 

BEGIN Hf 9] * 01% 

M0VE(20,[Ht9J],[Hti0]])l 
H[8]*?00l 
END** 

% bfgtn onf caRdx 

INL: 
S SET OMjT * NOT(PACKETS) 

IF PTYPF NeQ 3 OR VFRYFIRST THEN 
J POP OMjT 

INPUT 1 
t SET OMyT = NOT(PACKETS) 

IF FIRSTORSEC THEN* 
$ POP OMJT 

IF FIRST THEN* 
R F" r T N 
$ SFT 0M]T « NOT(PACKETS) 



% STARTJMJNG MAY HAVE MOVED IT. 



*178« 



07080000 


T 


019112 


07081000 


T 


019211 

07079000 


07082000 


T 


019211 


07083000 


T 


019412 


07084000 


T 


0196U 


07085000 


T 


019710 

07083000 


07086000 


P 


Ol97»0 


07087000 


P 


0197*0 


07088000 


T 


019911 


07089000 


T 


019911 


07090000 


T 


02001 1 


07091000 


T 


020l«0 


07091100 


T 


020410 


07093000 


T 


020513 


07093010 


T 


020612 


07094000 


T 


020910 

07090000 


07095000 


P 


020910 


07095100 


C 


021210 


07096000 


T 


021413 


07097000 


P 


021710 


07098000 


T 


022013 


07101000 


C 


0221»2 


07103000 


T 


0223*3 

07095000 


07104000 


T 


0223*3 


07104500 


T 


0224:3 


07105099 


T 


0226«1 


07105500 


T 


0226*1 


07105501 


T 


0227*0 


07106000 


T 


0227*0 


07107000 


T 


0227*0 


07108000 


T 


0227*3 


07108099 


T 


0229*0 


07108100 


P 


0229*0 


07108101 


T 


0229*3 


07109000 


T 


0229*3 


07H0000 


T 


0231*2 


07H1000 


T 


023211 


07H2000 


T 


0234*0 


07112100 


T 


0236*0 


07H3000 


T 


0237*1 

071U000 


07114000 


T 


0237*1 


07H5000 


T 


0237*1 


07U5099 


T 


023711 


07115100 


T 


0237*1 


07115101 


T 


0238*2 


07H5200 


T 


0238*2 


07H5499 


T 


0240*0 


07H5500 


T 


0240*0 


07U5501 


T 


024011 


07116000 


T 


024011 


07H7000 


T 


0241*0 


07H7099 


T 


0241*2 



S POP OMfT 
$ SFT OMiT 



PLUGGED«*VrRYFlRSTl 
= PACKFTvS 



HOVEtlO,iNBUFF»FIRSTCARO)»X 
$ SFT OMfT = NOT(PACKETS) 

IF PACKFTCARD « 5 THEN *124< 

IF 0U<16 THEN F I RST **VERYF I RST * *0 fLSe 
rO TO FXIT ELSE 
IF PTYPE*3 OR CONTINUE THEN 

BEGIN 

ADFCK;»U GO dk; 

fn d ; 



FND ELSE* THIS MUST BE ThE SECOND CARD IN 



S POP 0M|T 
$ SET OMjT 
$ SFT OMJT 
DK» 



= PACKETS 
s NOT(PACKETS) 
IF 



thfn fjrstorsfcl*0 elsex8ad sec, /first 
begin veryfirst*4* % card 

go to error** 
fndjx inv deck set-up 



$ pop omit 

$ SFT OMIT 

S POP om?t 



IF T NEQ THFN 
* NOTCPACKETS) 

IF PTYPE NEQ 3 OR VERYFIRST THEN 



go to error; 
bombtjme;x 

if ou < 16 ThLN % output to tape ( OU » 18 normally) 
begin 
s sft omit * notcpackets) 

pluggfo - veryfirst or ( packetc ard*3 ) 

OR FIRST; 
IF PLUGGED THFN 



$ POP QMlT 



S SFT OMIT 
S SET OMfT 



$ POP QMlT 



SUPfRM 
S SET OMIT 



$ POP OMJT 
$ SET OMIT 



t SET OMIT 



T*WAlTiOC!NBUFF**5000[l8l33ll53 
&C10-Q)[8»38*10J,0»OU); 

= packfts 

= not(packets) 

if veryfirst then vfhyf i rst*ptype*0 j 
if first thfn f i rst«-ptype*0* 

IF PTyPpsO THEN GO TO iNL* 

M[TNBUFF"1] * 6*1737000000000000* 
T «■ WaITI0(iNBUFF-1#0,0U); 

* notcpackets) 

if ptyPf=5 Then go to exit; 

if ptype*i Then vfRyfiRst»«true; 

go to again; 

s PACKETS 

ENDU 

IF D * THEN SLEFPttDlfNOT 0); 
■ NOTCPACKETS) 



07 


117100 


T 


024112 


07 


117101 


T 


024211 


07 


117199 


T 


024211 


07 


118000 


T 


024211 


07 


118099 


T 


0243*3 


07 


118500 


P 


0243*3 


07 


118510 


T 


0245*2 


07 


118520 


T 


0248*2 


07 


118550 


T 


0248*2 


07 


118600 


T 


0250*1 


07 


118690 


T 


0250*3 


07 


U8700 


T 


0252*0 

07H8600 


07 


119000 


T 


0252*0 

07H7000 


07« 


19001 


T 


0252*0 


07 


H9009 


T 


0252*0 


07' 


119099 


T 


0252*0 


071 


19100 


T 


0252*0 


07' 


119200 


T 


0254*0 


07< 


U9300 


T 


0255*1 


07) 


19400 


T 


0255*3 

07119200 


07) 


119401 


T 


0255*3 


071 


120000 


T 


0255*3 


07) 


120009 


T 


0256*2 


071 


20010 


T 


0256*2 


07! 


200H 


T 


0258*1 


071 


120020 


T 


0258*1 


071 


21000 


T 


0259*0 


07j 


122000 


P 


0260*0 


07] 


122010 


T 


0260*3 


071 


122999 


T 


0261*1 


071 


23500 


T 


0261*1 


071 


24000 


T 


026311 


071 


24500 


T 


0264*3 


07] 


24501 


T 


0265*0 


07j 


.25000 


T 


0265*0 


071 


25500 


T 


0266*1 


07j 


25599 


T 


0269*1 


071 


25999 


T 


0269* 1 


07J 


26000 


T 


0269*1 


071 


26500 


T 


0271*1 


07j 


27000 


T 


0273*1 


071 


27001 


T 


0274*2 


071 


27500 


T 


0274*2 


071 


28000 


T 


0276*2 


071 


29000 


T 


0278*3 


071 


29099 


T 


0278*3 


07l 


29100 


T 


0278*3 


07i 


29200 


T 


0280*1 


071 


29300 


T 


0282*1 


07i 


?930l 


T 


0285*0 


07l 


29999 


T 


0285*0 


07] 


39000 


T 


0285*0 

07122010 


071 


39500 


T 


0285*0 


071 


39509 


T 


0288*0 



IF PACKfTCARD N E Q AND NOT(Af)EcK AND PTYPE«1) THEN 
BfRIN IF NOTfPLUGGED OR FjRST) THEN* 
BFGIM STREAMfn*OUTBUFF)i BEGIN DS«-27 UlT 

"CC END. ..IN CASE Y<)U FORGOT" I DS*45t IT" " END* 

IF PTYPE s 3 AND NOT CONTINUE AND NOT ADECK THEN 
BFGJN STRFAM(FIRSTCARD»T*T*SPACEC13))1 

BEGIN DS*24L!T»»#N0 PACKEND CARD* PKT - "l SI *F I RSTC ARD J 
0S*9 WDSj DS*UIT W * W J 

ENO* 

SPOUTCT ) S 

FND8 

FND FL.SE MOVF(lO# iNBUFFiOuTBUFF) J* 
END ELSE* 
S POP OMyT 



xi?4- 



t SET OMIT 
S POP QMjT 



MOVEf 10, INBUFF'OUTBUFF) 1% 

NOT(PACKETS) 

IF VFRYFIRST THfN plugged*o*x 

IF Q THEN* 

BFGJN IF I DI V 6 * H DIV 6 THEN* 
BEGIN R «. L DIV 3U 
A * ADR;X 
DlSKlO(T#i-RESERVF,30»A)l?! 

sleepc[T],iomask);x 

Mrl-L MOD 3X10+9+RESERVEJ * NJX 
DlSKlO(T#RESERVE-i»30.Am 

sleepcet],iomask);i 

FNDX 

ELSE M t I *CL-N)X10+9*0UTBUFF] * N;X 

L * MrOuTBUFF+9] «■ NIX 

fndjx 

IF N s 12000 THFNl 

BEGIN T * SPaCE(1*)I» 

STREAM(FIRSTCARD#T)J 

BEGIN DS * 32 LITX 
$ SET OMiT * NOT(PACKETS) 

h #M0Rf THAN 12000 CARDS IN PKT - "I 
$ POP OMiT 

& set omit = Packets 

s|*firstcardjds*9wdsjds*lit "♦"j 

FNp;x 



GO TO SKlPfT* 

END I* 

IF (N «■ N+l) MOn 6 * THENX 
BEGIN R * N DIV 3-2)X 
A ♦ A|)R»X 

OUTBUFF * OUTBUFFOLDIX 
0ISKI0(D»0UTBUFF-1.60,A)J 



07139510 
071395U 
07139512 
07139513 

07139520 
07139530 
07139540 
07139550 
07139560 

07139565 
07139570 

07J39575 

07139590 

07139591 
07140000 
07140099 
07140100 
07140101 
07141000 
07142000 
07143000 
07144000 
07145000 
07146000 
07147000 
07148000 
07149000 
07150000 

07151000 
07152000 
07153000 

07154000 
07155000 
07156000 
07157000 
07157099 
07157100 
07157101 
07157999 
07159000 
07160000 

07161000 
07162000 

07163000 
07164000 
07165000 
07166000 

07167000 



T 028810 
T 0291U 
T 0292'3 
T 0294*1 

07139512 
P 0304*0 

T 0306*1 
T 0309*3 

T 031381 
T 031480 

07139540 
T 031481 
T 031582 

07139530 
T 031582 

07139512 
T 031782 

07139511 
T 031782 
T 031712 
T 031982 
T 031982 
T 032180 
T 0321*0 
T 0321*1 
T 032382 
T 032581 
T 0326*2 
T 0328*2 
T 0330*0 
T 033480 
T 033680 
T 033782 

07143000 
T 033782 
T 0342*0 
T 034482 

07142000 
T 034482 
T 0345*1 
T 034810 
T 0349*0 
T 034981 
T 034981 
T 035311 
T 0353*1 
T 035381 
T 0354*1 

07157000 
T 0354*2 
T 035680 

07155000 
T 035610 
T 035881 
T 036012 
T 036282 
T 0363*1 



FNo E-LSf: OuTrUFF ♦ outbuff+io** 

S SFT OMjT = NOTfPACKETS) 

TF FIRST THEN F I RST*PTYPE*Ojj 

IF VERYFIRST THFN VFRYFlRSTl»prYPF:«0) 



S POP OMjT 

$ SET OMJT 

S POP OMIT 

S SET OMfT 



motcpackets) 
if ptype.o then go inl* 

packfts 

IF • THEN SLFFP(tOl»NOT 0)1 

OUTBUF'F * OUTBUFFOUDU 

R + M 01 V 6xp{« 

A * ADRJX 

IF N MOD 6 # THFN 

BEGIN 

OlSKlOCT.OUTBUFF-1 »60,A)U 

SlEEPCCT],IOMASk>JX 

END** 

IF R + 2 < 200 THFN 

BEGIN HT8] * R+?j 

F0RGETUSERD?SK(A+2,R-198); 

END* 

Hr73*N-i; 

HC^3*H[6]*0| 

H[5]|c -0; 
= NOT(PACKETS) 

H[6J#.0*DlSKCHAlNCC'TF]t( IF IU<23 
C2I42I63 f 
CONTINUE THEN 

BEGIN 

H[2]l*NFXTCDNUMf 1)J 

OIS«chAINj*GfTESP0ISK{ 

OlSKWAlTCH INX 0» 30. D I SKCHA I N ) J 

STREAM{AI«HC2].B»-F!RSTCARD.INBUFF>I 

BEGIN SpsBJ DSl*8 CHR* 

0S**j5 LIT" CONTINUES PKT#"! 

St:=L0C A; Sj:=SI+4* DSt=4 CHR* DS«*LIT 

end; 



END ELSE 

begin diskchajni*o» 
$ POP omit 

fnteRcontroldeckch>> 
* set omit ■ NOT(PACKFTS) 

END* 



$ SET OMIT 



IF 



THEN 2 ELSE IU-23) 



I it j 



$ POP OMlT 

FRRORI 
S SET OMIT 



GO TO SUPER* 

T «- SPACEf 12>;X 

NOT(PACKETS) 

5TREAM(FlRSTCAR0#X*VERYFlRST#T)»S! 

BEGIN Sj-LOC X* $I*Sl+7l i F Sc»"2" 
DS-16 LIT "#INV PKT CARO * "» 
ELSE TF SC«"4» THEN* 



THEN 



07)69000 


T 


0365J1 

07164000 


07169099 


T 


036710 


07169100 


T 


036710 


07169H0 


T 


036910 


07t6920l 


T 


037l«0 


07169499 


T 


0371«0 


07169500 


T 


0371*0 


07169501 


T 


0372*1 


07169999 


T 


0372 J 1 


07171000 


T 


0372H 


07173000 


T 


0375*1 


07174000 


T 


0376*0 


07175000 


T 


037713 


07175100 


T 


037912 


07175200 


T 


036013 


07176000 


T 


0381M 


07177000 


T 


038311 


07178000 


T 


038413 

07175200 


07178100 


T 


036413 


07178200 


T 


0386*0 


07178300 


T 


038811 


07178400 


T 


0390*1 

07178200 


07179000 


T 


0390*1 


07179050 


T 


0392*0 


07179100 


T 


0394*1 


07179199 


T 


0395*3 


07179200 


T 


0395*3 


07179202 


T 


0399(2 


07179205 


T 


0401*0 


07179210 


T 


040111 


07179220 


T 


040U3 


07179230 


T 


0403*2 


07179250 


T 


0404*2 


07179260 


T 


040612 


07179270 


T 


0406*0 


07179280 


T 


0408*2 


07179290 


T 


0410*3 


07179300 


T 


0412*0 

07179270 


07179310 


T 


041211 

07179210 


07179320 


T 


0412*1 


07179321 


T 


0413*2 


07180000 


T 


0413*2 


07180009 


T 


041412 


07180010 


T 


0414*2 

07179320 


071800H 


T 


0414*2 


07181000 


T 


0414*2 


07214000 


T 


041510 


07214099 


T 


0417*1 


07214100 


T 


041711 


07214H0 


T 


0418*2 


07214120 


T 


041912 


07214130 


T 


0421*3 



$ POP OMlT 

* SFT oMlT = PACKETS 



DS*i6 LI T M #iNV DECK,PKT - "« 
ELSE DS*16 LIT m #READ FRR,PKT - " 1% 



si «- firstcard; ds * 9 wds; os * lit "*«i* 



SKJPIT: 



S SFT OMJT 
* SET OMfT 



S POP 0M|T 



BOMrJ I 
EXIT* 



ENOJI 

SPOUT(T) J 

DO BFGlN INPUT t% 

POMRTlMp; % 

packfts 

NOT(PACKETS) 

END UNTIL PACKFTCARD NEQ 0; 



if ou < 16 then?: 

BFGIN DO BFGlN T * WA I T 10 ( P340000005»P60» OU ) I % 
BOMBTIMEJ* 
END UNTIL T.t«2U]II 



endx 



WAIT I 0(P1 40000005* f»60,0U)»i 



else forgftitjx 

GO TO SUPERlI 

IF OUslS THEN F0R6ETITI* 

SLEEP(rTOGLE]»STATUSMASK); 

IF IU GEO 23 THFN UN I TCOOE [ I U-23 1 «»-0l 

S * |U; T * 3; stopjx 

S * OUJ T ♦ 8* ST0PJX 

FORGETSPACEdNBUFF)'* 

FORGETSPACECFIRSTCARD)!* 

IF OU > 16 THEN* 

BEGIN FORGFTSPACECH)IX 

FORGETSPACEfOUTBUFFOLD);* 
FORGETSPACE(RESERVF)!* 

ENDIX 



*164- 



07214140 
07214150 

07214151 
07214999 
07217000 
07218000 

07219000 
07220000 
07221000 
07221999 
07222099 
07222100 

07?22l0l 
07223000 
07?24000 
07225000 
07226000 

07227000 
07228000 

07229000 
07230000 
07231000 
07232000 
07232500 
07233000 
07234000 
07235000 
07236000 
07237000 
07238000 
07239000 
07240000 
07241000 



END C0MP3J? 



07242000 T 



T 0422*2 
T 042413 
T 0427U 
T 042781 
T 042711 
T 0428*1 

07214U0 

042812 

0429*3 

0431>0 

0432»0 

043210 

043210 

07220000 

043410 

0434 JO 

0434»3 

0437*0 

0436*0 

07224000 

0439*1 

0441*0 

07224000 

0441*0 

0445*0 

0445*2 

0448*0 

0449*2 

0452*3 

0455*0 

0458*0 

0458*3 

0459*2 

0460*1 

0461*3 

0462*2 

0463*1 

07238000 

0463*1 

07005000 
IZE» 0464 WORDS 



PROCEDURE STARTLOadN(KTR)» VALUE KTR! REAL KTRJX 
PRT(56n * STARTLOADN 



START OF REL 



STACKfF+1) 
STACKfF+2) 
STACKfF+3) 
STACK(F+4) 
STACKfF+5) 
STACKfF+6) 
STACK(F+7> 



9 HDR 
» SEGO 
9 I 
a F 

9 T 
9 C 

9 SHEAT 



BFGIN REAL HDR, SEfiO. f , f, T , C J ARRAY SHFATt*]! 



07243000 T OOOOlO 
SFGMeNTI DISK ADDRESS ■ 00215 

07244000 T 000080 



TRyagain: 



IF 



LABEL TRYAGAIN, LDCNTRl,»DISK» 
STREAM(K«.0»KTR);S 

BEGIN S| * KTRU 

LS IF SC = H " THENX 

BEGIN SI * Sl + U r,0 TO L END!* 



END!* 



DI * lOC K! 01 * 01+6* DS * 2 CHR!X 



C 

T 

IF 



PJX 

KTR, C 1 51 153-1 ; X 

(C neq "MT" and C NEO "OK' 
CC = "DK" AND CDONUY 
SPOUTCT iNx MC T-l D 5 
ELSE BEGIN C «• C ■ "MT"!* 



OR 

THEN 



chdR«*directorySearchcp(ldcntrl>iPcdisk),3)> * o then 

BEGIN 

SHEAT 8» rM[F*«TYPEDSPACEC3l,SHEETAREAV)33 & 30[ 8 » 38 1 1 0] I % 

STREAMCSlaF-i. D»*F)» % ZERO OUT THE SHEAT ENTRY 

BEGIN 

Sl»aS) DSis30 WDS? 

END> 

SEGO 8« TYPEDSPACFOO.SEGZEROAREAV)!* * 167- 

DiSKWAIT(-SegO, 30» MrHDR INX 10])J 

F.tFF] »a HDR! J! CORE ADDRESS OF HEADER IN fFF] OF PARAM. 

ShEATt7] 1= SEGO! * CORE ADRS.OF SEGMENT ZERO IN SHEAT[7] 

SHEATrO] 1= PCLDCnTRL)! 

SHEATH] :r P(DiSk)! 

SHEAT[2] ««= & LDCNTRLC00Et5845«3] 8 2t8»38«l0]l 

* [4811 IN SHEETt23 MEANS SUPRESS BOJ/EOJ MESSAGES 

SHEAT[163 8a SHFATU7] Is 9377777777777 I % TIME LIMITS 

SHEAT[193 8« c! * COMMON VALUE 

SHEATf?0] 8« 4; IK CORE ESTIMATE 



ShEAT[2U 8. 150! 



% STACK SIZE 



STREAMfA8»0 » S «» P( . SCHEDULE I DS) ) ! 
BEGIN 
S J s = S > 
47fSKlP SB! SKIP DB; TALLY8*TALLY+1! 

IF SB THEN ELSE JUMP OUT)! 
DSJaSETl A8aTALLYj 
END STREAM STaTEMfNT! 



07244100 
07245000 
07246000 
07247000 
07248000 



07251000 
07252000 
07253000 
07253100 
07254000 
07255000 
07255100 
07256000 
07256200 
07256400 
07256600 
07256800 
07257000 
07257200 

07257400 
07257600 
07257800 
07258000 
07258200 
07258400 
07258600 
07258800 
07259000 
07259200 
07259400 
07259600 
07259800 
07260000 
07260200 
07260400 
07260600 
07260600 
07261000 
07261200 



07249000 T 
07250000 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 

P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



07261400 T 



000080 
000080 
000380 
00038 l 
000383 

07248000 
000411 
0005<0 

07246000 
000581 
000583 
0007»2 
000981 

ooitu 

001181 
0019J1 
001981 

0021»2 
0022 8 
002611 
002783 
002713 
00281 1 

07256800 
002812 
003013 
003312 
003483 
003680 
0037*1 
003882 
004183 
0041 >3 
004480 
004581 
004682 
004713 
O047«3 
004910 
004910 
0049(1 
0050»i 
005183 
005211 

07260200 
005282 



LDCNTRli J t 
DISK J I » 



I »* PJ 

SHFAT[3 
ShEAT[? 
ShEAT[? 

Sheatc? 
stream; 

BEG! 
Dp* 
[)S»s 
Si :* 
1)5 1 = 
ENO 



] • T 8* 103 *« I) I! SCHEDULE NUMBER 

3] *= (CLOCK + P(RTR)) D!V 60J 

4] «» MCPJ XI 31 

5] *x HDR.rFFll X DISK ADDRESS OF FILE HEADER 

C» T); 

N 

DI+16J 

31LIT«CC EXECUTE LDCNTRL/D I SKJ COMMON."* 

LOC CJ DS««8DECJ 

fiLlT^JEND.*"' 
STREAM STATEMENT! 



MfT] l = 0; MfT + U ** 10} 

SHEATr6] t» GETfSPDISk & 1 0[ 1 8 J 33 « 15 ] » 

DjSKWAlT(T. ii, SHEATr6].[CF])> 

forcetspacE(T); 

INDEPENDENTRUNNeR(P(.SEL,ECTRUN)»F.160); 
END ELSE * IF IN DIRECTORY 

BEGIN 

ENTERSYSFILEC2)) 
GO TRYAGAINJ 
"LDCNTRL"; 
"DISK "; 
END) 



END** 



07261600 
07261800 
07262000 
07262100 
07262200 
07?62400 
07262600 
07262800 
07263000 
07263200 
07263400 
07263600 

07263700 
07263800 
07264000 
07264200 
07264400 
07265000 

07265100 
07265200 
07265300 
07265400 
07265500 
07265600 



0052 
0053 
0055 
0057 
0059 
0061 
0062 
0062 
0062 
0067 
0067 
0068 

0068 
0072 
0074 
0076 
0077 
0078 

0078 
0081 
0081 
0082 
0084 
0085 



ENDJX 



07266000 T 0085 

07267000 T 0085 

SIZE* 00 



»2 

10 

»2 

?3 

«3 

12 

»2 

52 

13 

10 

»2 

12 

07262600 

13 

• 1 

M 

»i 

JO 

»i 

07256200 

II 

10 

»3 

81 

SO 

10 

07265100 

»0 

07255000 

10 

07244000 

86 WORDS 



PROCEDURE TABlEOFCONTrMSCBuCOUNT) J* 



PRT(562) * 



STACKfF+1) 
STACKfF+2) 
STACK<F+3> 
STACKfF+4) 
STACK(F*5) 
STACKfF+6) 
STACKfF+7) 



tablfofcontfnts 

VALUE Bp COUNT; 
BFGJN REAL 
a ! 
s T 
= N 
= A 

= TUSTA 
u TU 
* BU 

$ SET OMfT 



07268000 T OOOOlO 
START OF REL SEGMfNTI OISK ADDRESS ■ 00218 



REAL B.COUNTJX 

f >T*N»Af TuSTA»TU»BUf 



STACKrF+lO) 

STACKfF+n) 
STACKfF+1?) 

STACKfF+13) 



FIRST 
START 

FINAL 
PKTCT 

$ POP 



NOT(PACKETS) 

REAL FIRST. START, FINAL, PKTCTJX 



OMIT 



S SET OMJT = 



LABEL L»EXIT,GU 
NOT(SHAREDISK) 
AI»B,[l5»l5]-i; 
TUSTA*=M[A-1] i 
L0CKC0NTR0LDECKS> 



A:=FIRSTDECK} 
S SET OMTT d NOT(PACKETS) 

FlRSTf-1 IX 
t POP OMIT 

L* I«*SPACE(1*> INX TUSTAI 
G» IF A « THEN GO TO EXIT** 
DISKWAITCI »12»A>J 
A*=M[ J+6], C CF J ; 
S SET OMiT - MOT(DATACOM AND RjE ) 
$ SET OMiT = NOT(SHAREDISK) 

N ♦ M[ I +2] J X 
t SET OMfT * NOTCPACKETS) 

JF MOT COUNT THEN* 
BFGINt 
S POP OMIT 

DlSKWAlT(-f-A»9»M[ I + lO] )j 
STREAM(N.T.TU»BU» I >* 

BEGIN SI * LOC N| SI * St+lJX 

* SET OMjT = NOT(PACKETS) 

DSJs8 LIT " PACKET "1DS««5 ChR? 
$ POP OMfT 

* SET OMiT * PACKETS 

* SET OMfT m NOT(SHAREDISK) 
S SET OMJT B ShAREDISK 

DSl*8 L?T W «J 
$ POP OMIT 
i SET OMJT ■ NOT(PACKETS) 

DSJa3 LIT " b"J 
t POP OMIT 

$ SET OMiT * NQTCRJE AND DATaCOM ) 
DS»*8 LIT " "; 



07268100 
07269000 



T OOOOJO 
T 0000*0 



07269099 T OOOOlO 
07?69i00 T OOOOlO 



07?69l0l 
07270000 
07270099 
07271900 
07272000 
07272500 



07273000 
07273099 
07273100 
07273101 
07274000 
07275000 
07276000 
07278000 
07278499 
07279000 
07281000 
07281099 
07281100 
07281200 
07281201 
07282000 
07284000 
07285000 
07285099 
07285100 
07285111 
07285999 
07286100 
07286400 
07286500 
07286501 
07286509 
07286510 
07286511 
07286599 

07286800 



OOOOf 
0000! 
00001 
OOOOt 
00041 
00061 


OOlll 
00121 
00121 
00131 
00131 
0015* 
00171 
0018* 
0021 * 
00211 
00211 
00231 
00231 
00231 
0024* 
00241 
00271 
00291 
0029* 
0029J 
0031 1 

0031 I 
0031? 
00311 
0031* 
0032* 
0032* 
00321 
00331 
0033* 
0033* 











2 

2 

7272500 

7272500 

2 

1 

1 


3 

2 





2 



t 


2 

2 






1 
1 

t 







$ SFT OMjT s 
t SET OMfT * 

8 POP OMiT 



S SFT OMjT = 



packfts 
mot(packfts) 

DI »<sDI + 40JDI IBD1 + 19IDSI. 

FNDJX 

SPOUTCI )*» 
NOTCPACKETS) 
END ELSE* 



:LIT' 



beginx operator 
if first Then 



WANTS A COUNT 
BEGINX STORE FIRST DECK 
ElRST*0; START*NJX 

fnd*x 



PKTCT*PKTCT+1> FINAL*N;X 

FORGETSPACECDJX 
ENDJX 

$ POP OMfT 

GO TO DI 
FXI T : IF NbO THEN 

REGIN STREAMcl); 
t SET OMiT s NOT(PACKETS) 

OSt.20 LIT « NO PACKETS ON DISK*"* 
S POP OMjT 
I SET OMjT s PACKETS 

SPOUTf I )t% 
I SET OMjT ■ PACKETS 
$ SFT OMiT s NOT(PACKETS) 

fnd else* chfck for count rfquest, 

if count thfnx 

begin>streamcc*pktct»s*start»x 

F*FlNAL#TW0,T2«-0,i)>X 
BEGIN DS*LIT » »J T2*DI>X 

SULOC C* Dl*LOC T 1 1 X 
ds*? dec; Sl*LOC Tu 0I*T2» 
DS*2 CHR) T2*DU D I *0 I -21 X 
DS*FILU> DI*T2J X 
DS*7 LIT " PACKET"IX 
SI*LOC Til 

IF SC*"0" THEN GO TO AO 
ELSE Sl«-Sl + 1> 
IF SC*"1" THEN! ONLY 1 DECK 
BEGIN DS*2LIT M » "J* 
Sl*LOC n Si*Sl+lll 
DS*5 CHRJX 
END ELSEX MORE THAN 1 



AQS 



LIT 



I 



BEGIN DS*3 

si*loc s* si*si+i;i 

DS*5 CHRJX 

DS*6 LIT w THRU "*% 

s i *s i +4 i ds*4 chrjx 
endjx 





07266900 


T 


003411 




07286999 


T 


003411 




07288099 


T 


003411 




07288100 


T 


003411 




07288101 


T 


0035*1 




07?89000 


T 


003511 

07285000 




07290000 


T 


003512 




07290099 


T 


003613 




07290100 


T 


003613 

07281200 




07290200 


T 


003613 




07290300 


T 


003910 




07290400 


T 


003913 




07290500 


T 


0041 tl 

07290300 




07290600 


T 


0041*1 




07290650 


T 


0043U 




07290700 


T 


0044(0 

07290200 




07290701 


T 


004410 




07291000 


T 


004410 




07292000 


T 


004412 




07293000 


T 


004511 




07293099 


T 


004612 




07293100 


T 


004612 




07293101 


T 


0049*2 




07293199 


T 


004912 




07294000 


T 


004912 




07294899 


T 


005013 




07294999 


T 


005013 




07295000 


T 


005013 

07293000 




07295010 


T 


0050*3 




07295020 


T 


0051*2 




07295030 


T 


0052«3 




07295040 


T 


005450 




07295050 


T 


0054:3 




07295060 


T 


0055*1 




07295070 


T 


0056»0 




07295080 


T 


0056*3 




07295090 


T 


0057*1 


X5U- 


07295100 


P 


0058*2 


X511- 


07295102 


C 


0058*3 


X5U- 


07295104 


C 


0059*2 




07295110 


T 


0060*0 




07295120 


T 


0060*2 




07295130 


T 


0061(0 




07295140 


T 


006112 




07295150 


T 


0061*3 

07295120 


X511- 


07295160 


P 


0062*0 




07295170 


T 


0062*3 




07295180 


T 


006311 




07295190 


T 


006312 




07295200 


T 


006412 




07295210 


T 


0065(0 



DS*LIT "*")« 



fndix 



SPOUK I )}% 
end else: FORGETSPACFd)** 



$ POP 0M|T 



Uf^LOcKCONTROLDEcKSJ 



fnd;% 



07795220 
07295230 

07295235 
07295240 

07295241 
07796000 



07797000 T 



07295160 
T 006510 

T 006512 

07295040 
T 006513 
T 006710 

07295020 
T 0068M 
T 0068U 

07296000 

07296000 
007113 

07269000 
SIZF« 0073 WORDS 



PROCEDURE REMOvrDECK(N,TUSTA)JVAlUF N#TUSTAJREAL N,TUSTAJ 
PRT(563) s REMOVFDECK 



START OF 



STACKfF + D = I 

STACKfF+2) 9 T 

STACKfF+3) x A 

STACKfF+4) ; LI 

STACK(F+1) = J 

STACKfF+5) » L? 

STACKfF+6) « V 



STACKfF+7) a L3 



RFfilN REAL I . T , A, L 1 » J* T » LP, V J % 



07298000 T OOOOlO 
REL SFGMFNTI DISK ADDRESS * 00221 

07299000 T OOOOlO 



* SET OMp a NOT(PACKFTS) 
REAL L3; 



$ POP OMfT 



label fail»conttnuej 

label l»exit,removf.u 
lockcontroldecks? 



IF (I * DIRECTORYSEARCHC'DECK «tNt5)) « THEN* 
t SET OMTT e NOT(PACKETS) 

FAII I 
S POP OMIT 

BEGIN I «- SPACE(5)J* 
STRE'AMCN. 1)1% 
$ SET OMtT c NOT(PACKETS) 

BEGIN nSJx5 LIT M PKT " i 
$ POP OMjT 

* SET OMIT = PACKFTS 

Si * LOC NJ SI ♦ Sl + U DS ♦ 5 CHRIS 

ds «■ 13 lit " not on disk*";* 
fndjx 

go to exitu 

FNOJX 

t SET OMIT s NOT(SHARFDISK) 
S SET OMiT s NOTCPACKFTS) 

L3l»Mt T+6J . CFF 31 
t POP OMJT 

l?»*m[|+6].[cf J; 

IF (A«»FIRST0ECK)«(L1.I«I.[FF3) THEN 
BEGIN 

* SET OMJT s PACKETS 

S SET OMiT * NOT(PACKETS) 

FIRSTDECK«.1F L3 NfQ THEN L3 ELSE L2J 

IF L2=0 THFN LASTDECK*IF L3 NE8 THEN L3 ELSE 0) 
$ POP 0MjT 

DISKwAlT(KLUMP»3.DlRECT0RYT0P+3); 
t SET OMiT = NOT(PACKETS) 

IF L3 NfQ THEN GO TO CONTINUE ELSE 
$ POP OMJT 

go to Remove; 

ENDJ 

J «■ i . r 33 : I5];x 



07299499 
07299500 



07303000 
07303499 
07303500 
07303501 
07304000 
07305000 
07305099 
07305100 
07305101 
07305999 
07307000 
07308000 
07309000 



0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 
0731 



1199 

1499 

1500 

1501 

2000 

3000 

4000 

4099 

4109* 

4110 

4120 

4121 

4200 

4289 

4290 

4291 

4300 

4400 



07299600 T 

07299601 T 
07300000 T 
07301000 T 



07310000 T 
07311000 T 



OOOOlO 
OOOOlO 



07315000 T 



0000* 
OOOOJ 
00001 
0000« 


00061 
00091 
00091 
0009! 
00091 

00111 
00121 
00121 
0013» 
0013» 
0013» 
00141 
00161 


0016> 
00201 


00201 
00201 
00201 
00221 
00221 
00251 
00271 
00271 
00271 
00271 
00301 
00341 
00341 
00361 
00361 
00371 
00371 
00381 


00381 











7301000 

7301000 

3 




2 

2 

3 

3 

3 

3 

3 

3 

2 

2 

7305100 

3 



7304000 







2 

2 



1 

3 

3 

3 

2 

2 

2 

1 

1 







7314000 





u 

DJSKWAIT(-J»30»A)> 

IF (V»«MrJ + 6].tcFJ)«0 THF.N 

* sft omjt = not(packfts) 

if abLi then go Rfmovf flsf bfgin forgftspacfci>> go fail 

ENDJ 

* POP OMiT 

t SFT OMIT = PACKFTS 

IF V # LI THFNX 

BFGIN A ♦ VI GO TO L END»X 

S SFT OMtT * PACKFTS 

S SFT OMfT « NOT(PACKETS) 

MrJ+6],ICFJ*TF L3#0 TmEN L3 FLSE L2I 
t POP OMfT 

DlSKWAlT( J.30.A); 

if L? ■ o then* 
begin 

* SET OMjT s PACKFTS 

S SFT OMIT ■ N0TCPACKETS) 

LASTDECK««IF L3 NE<3 ThEN L3 ELSE Al 
$ POP OMIT 

DISKWAlT(KLUMP#3,DlRECT0RYT0P+3)> 

* SET OMjT = PACKFTS 

$ SET OMIT « NOT(PACKETS) 

FND ELSE IF L3»0 THEN ELSE 

CONTINUE' 

BEGIN J*I I NX 0; 
DlSKWAlT(-J»30»L3)J 
M[ J+6],[CF ]*L2J 
OlSKWAlT(J»30#L3)J 
ENDJ 

$ POP OMjT 

rfmoves 

FORGETSPACEC i)j 
I «»DT RECTOR YSF ARC W( M DFCK "»Nt6),[CF3l 
T *■ Htl+9}l% 
FOR V «• 1 STFP 1 UNTIL T DOX 

IF MtI*V+9j#0 ThfN FORGETUSFRDlSKCMT I+V+9]#Mr I+8])> 

STREAM(N»I >** 
S SFT OMIT s NOT(PACKETS) 

BEGIN DS5s5 LIT " PKT "J 
$ POP OMIT 

* SFT OMJT ■ PACKETS 

Si «■ LOC NJ Si «■ Sl + ll DS * 5 CHS?* 
OS * 9 LIT w REMOVED*"** 

endj* 
s sft omit * packets 

FXlT» SP0UTF R (I&TUSTAr9j9l9],TUSTA»LlBMSG) 

$ sft oMfT « packets 

iunlockcontroldfcks; 



FNDJX 



07316000 
07317000 
07318000 
07318009 
07318010 
07318012 

07318013 
07318019 
07319000 
07320000 

07320999 
07321099 
07321100 
07321101 
07322000 
07324000 
07325000 
07325999 
07326099 
07326100 
07326101 
07327000 
07327999 
07329999 
07330000 

07330050 
07330100 
07330200 
07330300 
07330400 
07330500 

07330501 
07331000 
07332000 
07333000 
07343000 
07344000 
07345000 
07346000 
07346099 
07346100 
07346101 
07346999 
07348000 
07349000 
07350000 

07350099 
07351000 
07351099 
07352000 



07353000 T 



0039 
0039 
0040 
0043 
0043 
0046 

0046 
0046 
0046 
0047 

0049 
0049 
0049 
0054 
0054 
0055 
0056 
0056 
0056 
0056 
0059 
0059 
0061 
0061 
0061 

0062 
0063 
0064 
0066 
0068 
0070 

0070 
0070 
0070 
0070 

0073 
0075 
0077 
0086 
0087 
0087 
0088 
0088 
0088 
0089 
0090 



0090 
0090 
0092 
0092 



1 

1 

3 

3 

3 

3 
07318010 

3 

3 

3 

2 
07320000 

t 

1 

1 





1 



2 

2 

2 

1 

1 







7325000 

3 

1 

2 



3 



7330100 







3 







1 
1 
1 

1 

1 
1 


2 

07346100 



3 
3 

2 
2 

07 

07 

0097 JO 



352000 
352000 



07299000 
SIZE* 0099 WORDS 



P R C E 1 1 R F DFCKRFMOVFR(B)* VALUF B* REAL BIX 
PRT(564) * nECKRfMOVER 



START OF REL 



STACK(F+1) * K 

STACKfF+2) ■ N 

STACKfF+3) = F 

STACKfF+4) m U 

STACKfF+5) s D 



RFGlN REAL K,N,F;S 

INTEGER UJ LABEL ON, ERRS 
REAL OJ 

LABEL L»TRYIT,GfVEUP; 
K * B* f 151 15JMJ* 

L: STREAM(X«-l2fB>A«-0)fS 
BFGIN Si * Bi% 
Ul IF SC p " " THEN BEGIN SI*SI+1» GO TO U ENnil 

if sea"** Then begin di*loc x) di*di+6j ds*chr* 

S |*Sl-ll 8*S 1 1 GO TO E END! 

if sc s "#" Then sii»si+i* 

BL» IF SC»" m THEN BEGIN SIlaSl+ilGO To BL> END? 

Dll»L0C X* DI»*DI+1* DSJa5 LIT "#0O00"J 
4(IF SC < "0" THEN JUMP OUT TO EN» 
IF SC > "9" THEN JUMP OUT TO ENI 
SlisSi+lf TALLYibTALLY+1)J 
EN : A»«TALLYJ S|J*SI-A> di«»oi-aj ds»*a CHR) 
MS IF SC a " " THEN BEGIN S!*SI+1I GO TO N END** 

DS * CHR> B * SI i% 

F« ENDS* 

P( ,B,*. ,n»o is 

F*N,r36l6]J N, [36 J6]*"* M ; 
IF F«"*" OR F* H ." OR F« H *" THEN 
BFGIN IF Fs"s" THEN 

BEGIN IF DaO THEN D*SPACEC 30) I 
LOCKcONTROLDFCKS; 



07354000 T OOOOlO 
SEGMENT! DISK ADDRESS « 00225 

07355000 T OOOOlO 



07355100 T OOOOlO 
07355200 T 0000*0 



GIVFUPI 



TRYjTl 
* SET OMIT a NOTCSHAREDISK) 



if (n»*firstdeck)*o then 

begin fi*"* h j 

unlockcontroldecks! 



GO ON? 
END! 

DISKWAIT(-D»30»N)I 

NJ*M r D+2J* 
UNLOcKcONTROLDECKSl 



07356000 
07357000 
07356000 
07359000 
07360000 



07362000 
07363000 
07364000 
07365000 
07365500 
07366000 



07369000 
07370000 
07371000 
07371100 
07371200 
07371300 



07371700 
07371750 



07360100 T 

07360200 T 

07361000 T 

07361500 T 



07367000 T 
07368000 T 



07371400 T 

07371450 T 

07371500 T 

07371600 T 



END» 



07371800 T 

07371809 T 

07371900 T 

07371950 T 



07372000 T 



OOOOlO 
OOOOlO 
000350 
0004»2 
000413 

07360000 
000513 
000710 

07360100 
000713 
000812 

07361500 
000912 
OOHlO 
0012*1 
0013: 1 
001410 
0015»3 

07366000 
0016»3 
0017*1 

07359000 
0017*2 
001812 
0021(2 
002411 
002512 
002912 

07371300 

07371300 
003412 
003513 
0036*1 
0037»0 

07371600 
07371600 

004012 
004210 

07371500 
004210 

0043*2 

0043*2 

0045*2 

07371950 
07371950 

0049:0 



FOR U «■ STEP 1 UNTIL PSEUDOMAX DO 

if c?OROwcu]#o then 

IF f C TOTABLr CU# 21 EGV N)«NOT THEN 
IF L.ABFl-TABL.F[U + 3?]iO 
S SFT OMIT « NOT(PACKETS) 

AND LABELTABUE[U+32]#P214 AND 

PACKETACT f U]«0 



$ POP OMlT 



ON: 



then 

BEGIN 

ENDOFDECK(U.MCK-13)i 
GO ON J 

end fuse go to err; 

Rfmovfdeckcn,M[K-i]); 
if F*"*-" then go TO u 

FORGETSPACE(K)!* 

END EtSF 



FRR 



SPOUTCK iNx M[K-l J)J 
IF D#0 THEN FORfiETSPACE(D>l 



end** 



07372090 
07372100 
07372200 
07372300 
07372309 
07372310 
07372320 
07372321 
07372330 
07372400 
07372500 
07372600 
07372700 

07372800 
07372900 
07373000 
07374000 

07374100 
07374200 
07375000 



07371200 
T 0049:0 
T 0051J0 
T 005210 
T 0054»3 
T 0056 II 
T 0056U 
T 005812 
T 005912 
T 0059*2 
T 006011 
T 0060:3 
T 0063J0 
T 006352 

07372400 
T 006513 
T 0068:0 
T 0069U 
T 0070:0 

07371100 
T 007010 
T 0073*2 
T 0075«2 

07355000 
SIZE* 0076 WORDS 



STACKfF+2) s A 
STACK(F+3) a B 



STACKfF+2) = ! 



BOOLEAN PROCEDURE READF M FROMoI SK ( H, I B ) i % 

VALUE H»IB; ARRAY H[*]»IB[*]J* 

RFC, IN* 
X H[0] > ADDRESS OF BU+1 (B)K 
% Ht 1 3 » ADDRESS OF B2 + 1K 
% H[2j * DFCK NAME* 
% H[3] « RFCORDCOUNT (N)*; 
% Hf4] = NEXT CONTROL CARD (L)X 
X Ht5] a RECORDS USED IN THfS BLOCK x 10 fR)X 
% Hr7] - HT30] ARE FILE HEADER* 
RfAL A.BJiS 



START OF REL 



07376000 
SEGMFNTl DISK 
07377000 
07378000 
07379000 
07380000 
07381000 
07382000 
07383000 
07384000 
07385000 
07386000 



T 000010 

ADDRESS ■ 



00228 



S SET OMIT 



DEFINE N = Hr3]##L*Ht4:i#»R=»H[5]#JX 
INTEGER IsA; DEFINE M0M*C I DROW [ Mr B ] ]# ; 

NOT(BREAKOUT) 

B * H[Om 

IF R » THEN* 

IF CM[B-2J AND lOMASK) » THEN* 

SLEEP(CMtB-2]]»I0MASK>|« 
STREAM(B*B+R, lB)l% 

BEGIN Si ♦ B> DS ♦ 10 WDS FNDJX 



Mf IB JNX NOT 0] * 1 01 

IF (RtADEMFROMDlSK * N=L) ThENX 

L * IBC9J;* 
IF CAIsNI«*P(DUP)+i) > (Ht7]+l) THEN 
BFGIN ReADeMfR0M0ISKI«11 
STREAM(IB)» 
BEGIN 
S SFT OMIT = NOT(PACKFTS) 



X639- 



$ POP omtt 



END> 



ds«=8lit m "; sh = ib; dsi*8 wdsj diisibj 

nSl*5LlT"-END, M > DI»»0!»5l DSIaRESpT? 



END 



flse begin if 



END! 



END I 



(R ♦ *P(DUP)+lO) * 30 THENI 
BEGIN IB * £M[B-2im 
R ♦ 01 

A ♦ A DIV 3+11 

I«-H[A DIV Ht8]+10j+A MOD HC8]J 
IF l>0 THEN ?! NEXT BUFF EXISTS X639- 
D|SKlO(iB»l*B»30# 1)1* 

HrO] «■ Hum 
Hrn * &n 

ENDJX 



07388010 
07389000 
07390000 
07391000 
07392000 
07393000 
07394000 

07394500 
07395000 
07396000 
07397000 
07398000 
07398100 
07398200 
07398299 
07398300 
07398301 
07398400 
07398500 



07398600 T 



07399000 
07400000 
07400400 
07400500 
07401000 
07401900 
07402000 
07403000 
07404000 
07405000 



OOOOIO 
OOOOiO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 



07387000 T OOOOIO 
07388000 T OOOOIO 



T OOOOIO 

T OOOOIO 

T 000113 

T 000213 

T 000513 

T 000813 

T 001013 

07394000 

T 00HI2 

T 001410 

T 001513 

P 001713 

T 002H2 

T 002213 

T 002313 

T 002313 

T 002383 

T 0025J3 

T 0025J3 

T 0027U 

07398200 
002722 

07398000 

T 002712 

T 003012 

T 003213 

T 003410 

T 003513 

C 003911 

T 004010 

T 004213 

T 0044M 

T 0045»2 

07400000 

07399000 

07378000 

SIZE* 0046 WORDS 



BOOLEAN PROCFDURF PR I NTORPUNCHWA I T(Q . PNCH ) ; VALUE Q»PNCHJREAL 0»PNCHJ 

START OF REL 
PRT(565) * PRlNTORPUNCHWAjT 

FORWARpI 
PROCFDURF FNDOFDECKf R»TUSTA)>VALUF R.TUSTAI RFAL R,TUSTA; 



07405100 T 000010 
SESMFNTl DISK ADDRESS ■ 00230 

07405110 T 0000»0 



STACKfF+1) x H 



STACKfF+2) 
STACKfF+3) 



STACKfF+4) 
STACKfF+5) 
STACKfF+6) 
STACKfF+7) 



= B 
* I 



BEGIN ARRAY H[*ll% 

Real b» \i% 



s set omjt s not(packets) 

Real diskad,pbrec,t,userio> % 



START OF REL 



07406000 
SEGMFNTI DISK 
07407000 



T 000010 
ADDRESS * 00230 
T OOOOlO 



X750- 



a DISKAD 
a PBRFC 
= T 
s USERID 

S POP OMJT 



LABEL EXIT? 

if (H»=ciDRowtR])eO Then go to exit; 

LABELTABLErR+32] * Pll4> 

MULTiTABLEtR + 32] * RDC TABLET R + 32 3 * 01 

USERlD«-UNiTC0DErR + 9]J % *750«« 

UNITCODE[R+9]l«-0| 

IF NOT TUSTA.tltn THEN REMOVFDECK ( Ht 2 3 # ABS( TUSTA ) ) ELSE 

PC DIRECTOR Y SEARCH? ""DECK w .Hm»l4>.DEL); 
FOR T ♦ STEP 1 UNTIL 1 DOX 
BEGIN B «- h[ 11 *% 

IF f MrB-23 AND IOMASK) * THEN 
SLFFP(rM[B-2]3,IOMASK);i 
FNDJX 

IF CIDROW[R]bO THEN GO TO EXIT; X FIXES TIMING PROB. 
IF H.C18M5J * THEN 

F0RGETSPACf(H.[18U5J-2); 
$ SFT OMJT a NOT(PACKETS) 

IF PACKFTPBDrRl GfQ 11 THEN 
BEGIN 

PBCOUNT lr pbcount+i; 

I Is OOl R ClDTABLE[R»63r6«6»24]J 

IF (PBREC J* DIRECTORYSEARCH( M PBD M .I,5))/0 THEN 

BEGIN 

IF PACKETPAGEtR3>l THEN 

BEGIN 

PBREC »s PBREC, CCF1I 

T »« MtPBREC+63; 

DISKAD «* MrPBREC+103+2; 

DISKWAIT(-PBREC»30»DISKAD); 

IF fMrPBREC+12] EQV (-"ABORTED" ) )*NOT THEN 

STRFAM(BI«PBREC+11); 

BEGIN 

dS«88LiT»»|x0x4000 w ; DSls8LlT w 0PACKET "; 

end; 



07408000 T OOOOJO 



07408099 
07408100 



07408101 
07408500 
07A09000 
07409100 
07409200 
07409250 
07409300 



M[PBRFC + 15]«.M[PBREC + 27]*USERIDI % 
DISKWAITCPBREC.30,DISKAD)I 



X750- 



END» 



074 
074 
074 
074 
074 
074 
074 

074 
074 
074 
074 
074 
074 
074 
07<| 
074 
074 
074 
074 
074 
074 
074 
074 
074 
074 

074 
074 
074 

074 
074 
074 



0000 
0100 
1000 
2000 
3000 
4000 
5000 

5100 
6000 
7000 
7099 
7100 
7200 
7300 
7400 
7500 
7600 
7700 
7800 
7900 
8000 
8100 
8200 
8300 
8500 
8600 
8700 
8800 



T 000010 
P 000010 



T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 



8850 C 
8900 T 
9000 T 



00001 
00001 
00001 
00031 
0005J 
00081 
00101 
00121 
0015« 
00171 
0020J 
002H 
0023! 
00261 


0028: 
0030: 
00311 
00341 
00341 
0035: 
00361 
00371 
00401 
00421 
0042) 
00441 
00441 
00461 
00481 
00501 
00521 
00551 
00561 
00561 
00591 


00591 
00631 
00641 









3 

2 

3 

1 

1 

1 

3 





2 

2 

7412000 

3 

1 

3 

1 

1 

3 

1 

2 



1 
3 
1 
3 



2 




3 

3 

1 

7418600 

2 

1 

2 



$ POP OMjT 



P(D!RECTORySf ARCHC-"PBD M » I » 1 4 ) # DEL ) J 
TF AUTOPRTNT OR T*0 THEN 

P(PRlNT0RPljNCHkiATTn#0&Tr9l 39:9]), DED> 

forgetspacecpbrec)? 
end; 



end; 



EXIT! 

END** 



PSEUDO[R] » = 

cjdrowcr] !« 0; 
!fcRumjmreR»runumreR+i)>o then 

STARTADFCKdp TUSTA.tlHl 
FORGFTSPACE(H)* 



then -Ht2] else o>j 



07419100 
07419200 
07«i9300 
07419400 
07419500 



07419600 T 



07419700 
07419701 
07419800 
07420000 
07420010 
07420050 
07420100 
07421000 



07417800 
T 006412 
T 0066M 
T 006810 
T 007013 
T 007H2 

07417600 
0071 »2 

07417200 
T 007H2 
T 0072J0 
T 0072J0 
T 007313 
T 007512 
T 0079H 
T 008011 
T 008011 

07407000 
SIZE* 0083 WORDS 



STACKfF+1) 
STACKfF+2) 
STACKfF+3) 
STACKfF+4> 
STACKfF+5) 

STACKfF+6) 

STACKfF+7) 



% PSEUDOCOPY DECLARATION MOVED TO 0?3471l0 TO 

% ALLOW ACCESS \H DRAfNO 

PROCFOURE STARTAOECK(N)? VALUF N* REAL N* 

BFGTN LABEL EX I T, i» PoSS I BLE» NEXT I % 
REAL I»R»T»A#S; 



*54l- 
*541- 

START OF REL 



= I 

= R 

= T 

« A 

= S 

* SOFT) 

a H 



Rfal sdepj 

ARRAY H[*3»l 

LABEL AGAJN. START; 
START* 

if N.rim Then begin sded*abs(N)* n*o end; 

LOCKCONTROLDFCKS» 



IF RUNUMBER LfQ AND N*0 THEN GO TO EXIT? 
AGAIN* 

IF PSEUDOCOPY > 2 THENSS TOO MANY COPIES CONTROLCARD 
IF STA8T0G AND N«0 ThEN GO TO EXIT X 

else begin startog ♦ true* 

unuockcontroldecksj 



06463300 



ACCIDENTAL fNTRY AT 2 



COMPLEXSLEEP(PSEUDOCOPY $ 2 > » X 

STARTOr, * FALSE** 
rO TO STARTi* 



end?x 



FOR R ♦ STFP 1 UNTIL PSEUDOMAX DO 

if cidRow[R3 » o then go to possible** 

STREAM(S*S*SPACe(4) >* 

dsl»27 lit" all pseudo-readers in use*"* 
spout(S); 
go to fx it; X 
possible!* 

if (a?*firstdeck)«o Then go to exit; 

LABELTABLEtR + 32]UPlH> 

H*CIDR0wrRJ*rM[S*GETSPACE(94i20 i l)+2]]&94[8l38ll0ll 
MrS-2],[ 9!6 ] *■ 0* H[2I * Oi% 
L« DlSKWAlT(-S»30,A)l 
IF N#0 THEN 
BEGIN 

IF Hf2].ri?l24]#N THEN GO TO NEXTl 

if Ht*i.c?ii] then 

BEGIN 

STREAM(A»*[H[2]3# 
* SET OMiT ■ NOT(SHAREDISK) 

S)l 
S SET OMIT * PACKFTS 



07421500 
07421505 
07422000 
SEGMENTl DISK 
07423000 
07424000 



07426100 
07427500 
07427600 
07427610 
07427620 
07427625 



07428000 
07429000 
07429100 
07429200 
07429300 
07430000 
07431000 
07432000 
07432100 
07433000 
07434000 
07435000 
07436000 
07436100 
07436200 
07436300 
07436400 
07436500 
07436509 
07436520 
07436599 



P OOOOlO 
P 0000!0 
T 0000!0 
ADDRESS • 
T OOOOlO 
T OOOOlO 



00233 



07424100 T 
07425000 T 

07425500 T 
07425600 T 
07425700 T 

07426000 T 



07A27630 T 

07A27640 T 
07427645 T 
07427650 T 



0000»0 
OOOOlO 

OOOOlO 

OOOOlO 

000113 

07425700 

000413 

07426000 
07426000 

000913 

0012M 

001211 

001310 

001511 

001713 

07427625 
07427625 

002111 

002613 
002812 
003010 

07427620 
003010 
0031 10 
003413 
003712 
004112 
004213 
0043U 
004311 
004510 
004613 
005210 
005612 
005810 
005813 
005911 
0061*1 
006211 
006213 
006312 
006312 
006410 



S SFT 
$ POP 

t SFT 



OMiT = NOT(PACKETS) 

BEGIN St:*AjSji*Si + HDS»»5 LIT" PKT "J 
OMfT 

DSisS CHR>DSt«7LlT M IN USE"! 
OMtT ■ NOT(SHARF.DISK) 

nS!sL!T"*-J 

end; 



end* 

FND FUSE 



SPOUTfS)» 

cioROw[R3»ao; 
GO to fxit; 



IF HT41. T2« 1 3 OR (SDED#0 AND H[?]»SDED) 
S SET OMIT = NOT(SHAREDISK) 

THEN GO TO NEXT* 

Ht4]|B(*P(0UP))|2t2l«6l2]4SYSN0[4l46l2]l 

DlSKWAlT(S#30#A)> 
$ SFT OMTT m NOT (PATACOM AND RJE) 

H[0] «- S+32JX 

HtU * S + 64»* 

T *■ tHC 30 J 3 ; DISKlO(T,l-HCO],30,HC10])»X 

IF Ht 71 LSS 3 ThFN H[623»*I0MaSK ELSE 

BEGIN TlBfHt62]]l IF hC83*1 THEN 

niSK!0(T.l-HrUf30»H[!in ELSE 

DlSK!OCTM - H[l]i30fH[jO] + m 

END! 

Ti»GFTSPACE(l3»20,0)+4» 
S SFT OMIT ■ NOT(BRFAKOUT) 

M[T INX 10] le Hlbii 
* SFT OMp s NOT(PACKEIS) 

T,t24i6]*H[6].C2*6JI 
S POP OMIT 

HT 33 «* H[43 »<= Hf5] (s H[6] t* 01 

MtT"ft],[9:6] «- on 

LABELTABLEtR+323*-?14j XLET IT BE MOVED 
!*REAt)FMFROHoiSK(H»tMrT3]410r8l38UO])| 

imoepfndentrunnfR(P(.controlcahd).t& 
$ set omit a n0tcdatac0m and rje ) 

(R*32)t2142t63»l92)» 
PSEUOOCOPY * PSFUDOCOPY + 1 1 % 

IF (RUNUMBER*RUNUMBER-l) LEQ OR N*0 THEN GO TO FXITJ 
GO TO AGAjNj 
NFXTtIF (AS=H[63,rcF])*0 ThEN GO TO It 

if n*o then 

BEGIN 

streaM(n,s>; 
s sft omit ■ packets 
$ set omit s notcpackets) 

BEGIN Sl*LOC Ml S I «■ S I *4I DS*6 LIT" PKT #"J 
$ POP OMIT 

DS:*4 ChRID5»»13 LIT" NOT ON D!SK*"J 

endi 

SPOUT(S)} 



07436609 
07436610 
07436611 
07436700 
07436799 
07437000 
07437100 

07437?00 
07437300 
07437400 
07437500 

07437600 

07437800 
07437899 
07438000 
07438100 
07438200 
07438250 
07441000 
07442000 
07444000 
07445000 
07445100 
07445200 
07445300 
07445400 

07446000 
07446010 
07446100 
07446149 
07446150 
07446151 
07446200 
07447000 
07448000 
07448500 
07449000 
07449099 
07449200 
07449500 
07450000 
07450200 
07451000 
07452000 
07452100 
07452200 
07452299 
07452309 
07452310 
07452311 
07452400 
07452500 



07452600 T 



006410 
006410 

006512 
006512 
006710 
006710 
0067«2 

07436610 
006713 
006910 
0070U 
0070*3 

07436400 
007013 

07436100 
007013 
007312 
007312 
007511 
007813 
008010 

008010 
0081(3 
008312 
008710 
008913 
0092U 
009511 
009813 

07445100 
009613 
OlOllO 
1 1 1 
010311 
010311 
010513 
010513 
OUOIO 
011311 
0115U 
011812 
011911 
011911 
012111 
012212 
012610 
012612 
012910 
012913 
013011 
013111 
013H1 
0131U 
013213 
013213 
013510 

07452310 
013511 



FND ELSE FORrETsPaCECS)! 
ClDROWtR] * OU 

FXITI unlockcontroldfcksj 



END** 



07*52700 T 



07453000 
07455000 



07456000 T 



0136t2 

07452100 
013713 
013910 

07455000 

07455000 
014212 

07423000 
SIZF* 0144 WORDS 



PROCEDURE RUNThEDECKCBJJVaUUF B* REAL &l% 07457000 T OOOOjO 

START OF REL SEGMFNTl DISK ADDRESS * 00238 
PRTC566) * RUNTHFDFCK 

REGlN RFAL \»Ji% 07458000 T 0000*0 
STACK(F+1) = I 
STACKfF+2) * J 

STREAMCSl=0JB.Al*tl3)} 07461000 T OOOOlO 

rfgin si 4. bi% to Real in i 07461100 t 000210 

L* IF SCx w * ThEN BEGIN Sl»sSj + ll GO TO L FNDJ 07461120 T 0002*1 

07461120 

IF SC*"#" ThEN 07461140 T 0003*1 

BEGIN 07461160 T 000313 

UP SI iwSl + ii IF SC* n ,f THEN GO TO LU 07461180 T 000313 

DSl«8 LIT"00000000»M 07461200 T 000413 

4(IF SC< W M THEN JUMP OUT* 07461220 T 000610 

IF Sc>"9" THEN JUMP OUT; 07461240 T 000711 

S I «*S I + 1 * TALLY**TALLY+1)> 07461260 T 000811 

S«*TALtY; SIJ«SI-S> DI>»DI-SJ OSl*S CHRJ 07461280 T 000910 

TALLYJsU 07461300 T 001013 

GO TO FX> 07461320 T OOll 10 

DS:«4 LiT"0000"JDS»*4 CHRl TALLY IpI ; GO TO EX* 07461330 T 0011U 

END* 07461340 T 001213 

07461160 

SI * Si + \l% 07461400 T 001213 

IF Sc < "9* THEN IF SC > w 0" THEN GO TO TWO; 07461500 T 001310 

SI «• Si - if DS «. OCTfX 07461510 T 0014*1 

GO TO EX;X 07461520 T 00l4«3 

TWO* SI * Si - il OS ♦ 2 OCT! 07461530 T 00l5»0 

EXIS:*TALLY| 07461540 T 001512 

END! 07461550 T 001513 

07461100 

J,ssP » 07461560 T 0016*0 

B«*B.M5M5]-i; 07461570 T 001612 

If J THEN 07461600 T 00181 1 

BEGIN 07461700 T 001812 

F0RGETSPACF(B)> 07461800 T 00l9*0 

STARTADECKf 1)1 07461900 T 001913 

END ELSE 07462000 T 002012 

07461700 

"EG1N 07462100 T 002012 

IF I GTR PSEUDOMAXl THEN I I »NABS(RUNUMBeR ) ELSE 07462200 T 002110 

BEGIN 07462250 T 002311 

RUNUMBERJ*!* 07462300 T 002313 

FOR J»»0 STEP 1 UNTIL PSfUDOMAX DO 07462400 T 0024*2 

RUNUMBER»*RUNUMBER-(ClDROWrJ]*0)J 07462500 T 002610 

END! 07462600 T 0030*1 

07462250 

5TRCAM(Xll«l-!,tlllltX2l > RUNUMBER,tl»l)»!l«ABSf!) t B)l 07463000 T 0030*1 

BEGIN Cfl»cl+Xll GO Lll DSlalOLlT" WILL USE "IGO L2J 07464000 T 0033*1 

Ll« CI«*CI+X2» GO L2* DS *«L 1 T"-" i L2I 07464100 T 003610 

SlJeLOC UDSI*2 DECJ 07465000 T 003711 

DS ♦ 13 LIT « PSEUDO-RDRS*"} 07466000 T 003713 

ENDIX 07467000 T 003913 

07464000 

SPOUTCB INX MtB-U); 07468100 T 0040*0 

IF RUNUMBER GTR THEN STARTADECKCO ) I 07469000 T 0043*0 

ENDI 07472500 T 0045*0 



ENDI* 



07462100 
07473000 T 0045*0 

07458000 
SIZE* 0046 WORDS 



PROCEDURE EXTERNALEND(B)! VALUf Bl REAL BJ 07473100 T OOOOlO 

START OF REL SEGMENT* DISK ADDRESS • 00240 
PRT(567) a rXTFWNALEND 

BEGIN REAL Uj LABEL EXjTl 07474000 T OOOOlO 
STACKfF+1) x U 

U * UNlTlN(TiNU,B)J 07475000 T OOOOlO 

B * B,[i5ll5]-l| 07476000 T 000210 

IF 3? < U AND U $ PSEUDOMAXT THEN 07477000 T 0003*3 

IF LABELTABLFrU] > THEN 07478000 T 0005*2 

$ SET OMJT = NOT(PACKETS) 07478099 T 000710 

IF LABELTABLETU] NEQ P214 AND PACKETACT[ U-323-0 THEN 07478100 T 000710 

s POP OMJT 07478101 T 001013 

IF ClDR0W[U-32] * ThEN 07478500 T 001013 

BEGIN 07479000 T 0012*3 

END0F0ECKCU-32»MtB-l] )l 07479100 T 001311 

FORGETSPACE(B); 07480000 T 0016*0 

GO TO EX IT* 07481000 T 0016*3 

END? 07482000 T 0017*1 

07479000 

SPOUTCB INX MtB-13>l 07483000 T 001711 

EXfT*ENDJ 07484000 T 0020*1 

07474000 
SIZE" 0021 WORDS 



PROCEDURE CMANGF-PRTORlTYCBUFF.MiX}! VALUE BUFF»MIX; REAL BUFF»MlX; 

START OF REL 
PRT(570) s CHANGFPRfORlTY 

BEGIN INTEGER PRIORITY; REAL B* 

STACKfF + D a PRjORfTY 

STACKfF+2) u B 

$ SET 0MfT s MOT(PACKETS) 

DFFINE UNjTNO = PSEU[)OMlXrMIX]#j 

$ POP OMJT 

BUFF «- (fB*BUFF),tl5«l5]--l)*MrP(0UP)-l][9l9l9]l 

STREAM(PRI0RITYIB)> 

BFGJN SI*B> 

Nj if sc» M «-» then go to x; 

tf sc<-0" then begin si+si+i; go to nj end; b*sij 

Kt if sci ,, o M then if Sc<"9* then 

BFGJN TALLY*TALLY+1 \ Si*Sl + H GO TO K END; 

si*bi oi*loc priority; b*tallyj DS*B OCTl c.0 TO Zl 
xi di*loc priority; skip db; os*d set; 

Zt 

end stream; 

TF (PRlORlTY*P) 1 THFN 
IF PRY0Rr«lX]>0 THENX 

if jaR[Mjx.*]*o then 

BEGlN JAR[MiX,?],[CFl* PRYOR C M I X J *■ P(PRlORjTY* 

IF PRI0RITY?3?766 THFN 327*6 ELSE PRIORITY* OUP) & P[CTF]; 
STREAMf J* JART MjX. •], MIX, PRIORITY* BUFF) I 
BEGIN DS*lO LIT " PRlORiTY» w ; 

si*loc priority; buff«-di; ds*6 dec; di*di-6; 

ds*5 fill; dubuff; di*di+6» ds«.lit»»»»; 

si*j; susi+i; ds*7 chr; si*si+i; ds^i-it*/*; ds*7 chr; 

DS*LIT" = "; SULOC MIX; DS*2DEC; DS.-LIT"*"; 

DI*D I-3I ds«.fill; 
end fnd; 



07485000 T 000010 
SFGMpNTl DISK ADDRESS ■ 00241 

07486000 T 000010 



FND 



spouterc buff, unit no,] ); 
changepRJORity; 



07486499 
07^86500 
07486501 
07487000 
07488000 
07489000 
07490000 
07491000 

07492000 
07493000 

07494000 
07A95000 
07496000 
07A97000 

07498000 
07501000 
07502000 
07503000 
07503500 
07504000 
07505000 
07506000 
07507000 
07508000 
07509000 
07509500 
07510000 



07511000 
07512000 



000010 
000010 
OOOOtO 
000010 
0005»0 
000611 
0006«2 
0007U 

07491000 
0008»2 
000912 

07493000 
001011 

00ll»3 
001212 
001212 

07489000 
0012*3 
001313 
001511 
001613 
0019U 

0023»3 
002512 
002710 
002810 
002911 
0031 »0 
003212 
003310 

07505000 
07503000 
T 0033U 
T 0034»3 

07486000 
IZE» 0036 WORDS 



STACKfF+D 
STACKfF+2) 
STACKfF*3) 
STACKfF*4) 
STACKfF+5) 



R 

S 

T 

Tl 

T2 



PROCEDURE ENTFRCONTROLDFCKfH)J VALUF Hi ARRAY Hf*]* 
BEGIN RfAL R»S»T»Tl,T?; 



START OF REL 



07541000 

SEGMfNT; DISK 

07542000 



T OOOOJO 
ADDRESS « 
T OOOOJO 



00243 



STACKfF+6) « I 



% FOR SCRATCHDIR OELETF 

% CHANGE LASTCONUM ON DISK 



intfger m 

i set omit = not(packets) 

label more! 
s pop omjt 

T*"0FCK "*H[4)tH47llJI 
Sl*NEXTCDNUM(0)J 

PISKWATT(KLUMP,3»DIRECT0KYT0P+3)J 
S SET OMJT « NOT(PACKETS) 
MORE» 
S POP OMIT 

H f J 1*00012000 36000301; 
S SET OMJT s NOTCPACKETS) 

T?*Hr63.fFF]l H[6],[FF]*Ti; 
$ POP OMIT 

STREAM(DATFtB»rHr3]]); 

BEGIN SI*LOC DATEJDS*8 OCT I D I *D 1-8 J DS*2 L lT"+7"> END J 

HT4J Js 0& 
* SET OMIT = NOT SHAREDISK 
15U2J44J4]J 
Hrl]«-fXCL0cK + P(RTR))HHr3][6«30tl83; 
Hr2]«*S. , *Pl4«,Pl2[6l4?t6]&Srl2l24l24]&P37f36«42t6j; 
Til»FUF(T,S»H.tCF3-l)» 
S SFT OMIT * NOTCPACKETS} 
IF T? KfO THFN 

begin diskwaitc-ch inx 0), 30. t2)j 

f0rgftfspdisk(t2)j 

s*h[2]j go to more* 
end; 

$ POP 0MfT 

Ht2]*LASTCDNUM| 

IF ElRSTDFCK«0 THEN FlRSTnEcK»eTl ELSE 
B V C T N 
S SET OMfT c ShAREOISK 

lockdirectory; 



S POP OMIT 

DI$KWATTC-( I»"SPACE(30)),' 
Mt!+6J.[CF]i»Ti; 
DlSKWAlTf I»-30,LASTnECK)| 

FORGETSPACE( I )l 
£ SET OMjT » SHARFDISK 

unlockdiRectoryj 



S POP OMIT 



•30»LASTDECK)J 



07543000 


T 


OOOOJO 


07543099 


T 


OOOOJO 


07543100 


T 


OOOOJO 


07543101 


T 


OOOOJO 


07545000 


T 


OOOOJO 


07547000 


T 


000312 


07547100 


T 


0004J3 


07547499 


T 


0006«2 


07547500 


T 


0006J2 


07547501 


T 


000612 


07548000 


T 


000612 


07548099 


T 


0007J3 


07548100 


T 


OO07J3 


07548101 


T 


001111 


07549000 


T 


0011 Jl 


07549100 


T 


0012J2 

07549100 


07550000 


T 


0014J0 


07550003 


T 


0014J3 


07550010 


T 


0014J3 


07550100 


T 


0016* 1 


07557000 


T 


00191 1 


07559000 


T 


002410 


07559099 


T 


0027J0 


07559100 


T 


0027J0 


07559H0 


T 


0027J3 


07559120 


T 


0030J2 


07559180 


T 


0031 Jl 


07559190 


T 


0035J0 

07559110 


07559191 


T 


0035J0 


07559500 


T 


0035J0 


07560000 


T 


00361 1 


07561000 


T 


0038J1 


07561990 


T 


0038 J 3 


07562000 


T 


0038J3 

07562000 
07562000 


07562010 


T 


0045«1 


07564000 


T 


0045J1 


07565000 


T 


004910 


07566000 


T 


0051J3 


07567000 


T 


0053J1 


07567990 


T 


005410 


07568000 


T 


005410 

07568000 
07568000 


07568010 


T 


0057J2 



end; 

USTDECKlsTl J 
D|SKWA!TCKLuMP.-3,DlRECT0RYT0P+3)J 

unlocktog(comask); 



07569000 T 



IF RUNUMBER 6TR THEN 
FND ENTrRcONTROLDErKJ 



STARTADECKCO); 



07570000 
07571000 
07572000 

07573000 
07575000 



005712 

07561000 
T 005/ I 2 
T 0058J1 
T 006011 

07572000 
T 006313 
T 0065»3 

07542000 
SIZE* 0068 WORDS 



BOOLEAN PROCEDURE MTX I Nf I » U# BUFF )» * 

REAL UtBUrF* INTEGER I > % 
BFGIN L.ABEL EXlT,x*X 

U * UNIT JNCTfNU, BUFF); 

BUFF * BUFF, fl'J* 153-1 J 

IF U > 15 THEIMX 

begin;streamcbuff); ds * a lit »inv kbd m ;x 

GO TO EXIT;?; 
END ELSE I «■ TWO(U)> 

STHEAM(A*TINUtU]iBUFF)*» 

BFGIN Sl+LOC A; SI*SI+5J DS*LlT" "; DS*3 CHR!* 
DS ♦ LIT " "J A ♦ Dl>* 

endjx 

P(rBUFF3,«-)»* 

IF LABELTABLEIU] = 0H4 OK LABELTABLE C U3 * P2H THEN* 

BEGIN 

STREAM(SAVl«((I AND SAVEWORD) NEQ 0). BUFF)I 
BEGIN 

ds*moltT»not ready**; 

SAVCnP-DlMJ DS J *8L IT" (SAVED )«•")* 

end; 
go to exit; 

END** 

IF LABELTABLEtU] < THEN* 

BFGINJSTREAMtBUFF)» DS * 7 LIT "IN USE*"** 
E.NO* 

ELSE GO TO X;* 
EXIT8MTXJN *• TRUE |X 
XIENDU 



START OF REL 



08000000 
SEGMENT! DISK 

08001000 

08002000 

08003000 

08004000 

08005000 

08006000 

08007000 

08008000 

08009000 
08010000 
08011000 
08012000 



T 0000*0 
ADDRESS « 



00246 



T 000010 

T 000010 

T OOOOiO 

T 0002*1 

T 0004*1 

T 0005«0 

T 0007 * 3 

T 0008*1 

08006000 

T 0010*1 

T 00UI3 

T 0013*0 

T 0013»3 

08010000 
08013000 T 0014*0 
08014000 T 001412 
08015000 T 001613 
08015100 T 0017U 
08015200 T 001911 
08015300 T 001911 
08015400 T 0020*3 
08015500 T 0023*0 

08015200 
08016000 T 0023*1 
08017000 T 0023*3 

08015000 
08018000 T 0023*3 
08019000 T 0024*3 
08020000 T 0027*2 

08019000 
08021000 T 0027*2 
080?2000 T 0027:2 
08023000 T 0028*1 

08002000 
SIZE* 0029 WORDS 



PROCEDURE TAPEPURGE(BUFF)I VALUE BUFF; REAL BUFF** 
PRTC571) k TAPFPURfiF 



STACKfF+1) 3 I 

STACKfF+2) = U 

STACKfF+3) a R 

STACKfF+4) = T 

STACKfF+5) = TEST 

STACK(F»1) 8 WHAT 



bfgim label f x i t j x 
Real i.u;* 



real r»t; 



boolean test; 

REAL WHAT * BbFFlt 

IF MTX!N(I»U,WHAT) THEN GO TO EXIT;* 
STREAMCBlsBUFF#T*[T] ); 
BEGIN Si !=Bj Si |sSI+6j 

ie sc«"-" then 

BEGIN SllaSl+lt 

5CIF SC*"*" THEN JUMP OUTI 

TALLY»«TALLY+l»Sil«51+I)l 
BlsTALLY? Sli-Sl-B; DS«»B OCT I 

Dt*Di»a; ds*liT "+*; 

END? 

END* 

LARELTABLETU] ♦ "PHI 

IF (R*WAITl0(P5o00OOO0O,P177#Un#O THEN 

if R#ei20 Then xeRRor other than write lock 

BEGlNISTRCAM{U*T|NU[U3»BUFF)l 

BEGIN DS*14 LIT "#CANNOT PURGE "I 
Sj*LOC U; Sl*Si+5J DS*3CHR) 
DS«.LiT"«-»J 

ENO? 

LARELTABLE[U3*P214» 
GO TO EXiTl 

END ELSE SNO WRITE RlNfi 



08024000 T OOOOJO 

START OF REL SEGMeNTI DISK ADDRESS * 00247 

08025000 T 0000*0 

08026000 T 0000*0 



080?7000 T OOOOtO 



*725- 



L IT "WRITE LOCK»"H 



BEGIN? STRfAMCBUfF)! DS ♦ 11 

labeltablecuj * ^114* 
go to ex i tix 

endjx 



IF NOT T,tl { l] THEN IF TaO THEN 

BEGIN Tl«PRNTABLE[U],r30ll8]l TeST»s TRUE END; 

IF T,[l«n*0 AND T«0 THEN BEGIN 

STREAM(BUFF)* DS*17 LIT "NOT PG-EDC PRN*0 )*"; 
LABELTABLErU]* ?l4; GO EXIT END; T*ABSCT); 

STREAM(A«*T#BUFF); 

BEGIN DT ♦ Of ♦ 3; DS * 8 LlT " LABEL "I 
6(DS*? LIT "OX"); 
24fDS«-2 LIT "0"); DS*2 LIT "**»; 
DI * DI-21; Si ♦ LOC A; DS * 5 DECU 



X725- 



X725- 
X725- 
*725- 



08027100 T 
08028000 T 



08029000 
08029015 
08029020 
08029025 
08029030 
08029035 
08029040 
08029045 
08029046 
08029050 



08029100 
08030000 
08030100 
08030200 
08030300 
08030310 
08030320 
08030330 



08034000 
08035000 
08035100 
08036000 
08037000 



08029055 T 



08030400 T 
08030500 T 
08030600 T 

08031000 T 
08031100 T 
08032000 T 
08033000 T 

08033980 P 
08033990 T 

08033992 C 

08033993 C 

08033994 C 



0000:0 
0000>0 



0000* 
0003« 
0004 > 
0004* 
0005* 
0005J 
0006; 
0007; 
0008* 
00091 


0009* 


0009* 
0011* 
0013* 
0014* 
0016* 
0018* 
0019* 
00191 


0020* 
0021* 
0023* 


00231 
0026* 
0027* 
0028* 


0028* 
0030* 


0033* 
0035* 
0039* 


0042* 
00431 
0044* 
0045* 
0047* 




1 
1 
3 

1 

2 

3 

2 

3 

2 

8029030 

2 

8029020 

3 

1 

2 

3 

2 

2 

1 

3 

8030300 



1 



8030200 



1 
2 


8031000 


1 

8033990 



3 

1 

8033992 





2 

2 





END* X 

RRRMFCH * I OR RRRMECh?* 
MULTiTABLEtU] * 0»X 

P(WAlT!0(M200000000,0»U).DEL)*X 

R * WAITIOCBUFF INX Pi 20500000001 #P?000000» U ) ORX 
WAlTlO(BUFF INX lO, ?2000000»U ) I % 

if MOD3ios then ?A i 

DO UNTIL P(WAITI0(BUFF INX 034000001 2* P50, U ) )=P 1 XAl 
FLSr (it 



08038000 T 



BF6TN 

end; 



P(WA!T!0CP4200000000,0,U)»DEL)JX 
SLEEP ([TOGLE]* ST ATUSMaSK)* 
RRRMFCH ♦ RRRMECH AND NOT \t% 
READY «• READY AND NOT \i% 
IF R * THEN BEGjNX 
LABELTABLEtU] * 01141% 
IF TEST THEN BEGfN STRfAMC B*T .BUFF ) I 



%M 



DS*lO LtT"PG-ED{PRn«»* S|*LOC B» „_.. „... 

END % PRINT PRN WITH PLAIN PGMT 



*708- 
DS*5 DEO DS»? L I T" )«.» ;*708« 

X708- 



TLSE BEGIN STREAMf A I »T , B I -pRNTABLEf U] . [ 30« 1 8 ] ,BUFF ) I 
BEGIN DS»alOLlTtfpG-ED(PRN« w l 
Si i.LOC A; DS:«5 DEC? 
DSi«5LTT",HAS "i 

Sji-LOC B; DS»*5 DEC ; DS l«2L I T" ) •»> 
END* 



end; 



PRNTABLEtUl, [30H8] * T| 



FXITI SPO(iT(NABS(BUFF fNX MtBUFF-!l))H 
END FLSr BEGIN* 



LABELTABLErU] «■ P214;X 
FORGETSPACFCBUFFm 



end;% 



fnoj* 



08039000 
08041000 
08042000 
08043000 
08044000 
08044500 
08044600 
08044700 
08045000 
08046000 
08047000 
08048000 
08049000 
08050000 
08051000 
08051004 
08051005 



08051010 
08051020 
08051030 
08051040 
08051050 
08051060 

08051065 
08051070 

08052000 
08053000 

08054000 
08055000 
08056000 



08057000 T 



004713 

08035000 
004810 
00491 1 
005012 
005210 
005313 
005611 
005710 
00591? 
006011 
00661? 
006810 
00691? 
O07P0 
0072U 
007312 
0075U 
007713 

08051004 

08051000 
007810 
0082>0 
008312 
0084(0 
008510 
008610 

06051020 
00861] 
008813 

08051010 
006813 
0092<0 

06049000 
00921? 

0093U 
009412 

08053000 
009412 

08025000 
SJ7F- 0095 WORDS 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
C 
C 



PROCEDURE P,?MFnATEfB»nT); VALUE b.dt; real b»dtj forwardi 



PRT(572) » 



GIMEDATE 

PROCEDURE 



rfwinoandlockcwhaT); value wham real what;* 



PRTC573) « RFWINDANDLOCK 

STACKfF-1) * BUFF 

STACKfF+1) * U 

STACKfF+2) u I 



BF6JN RFAL RUFF'WWAT , U J % 



INTEGER II X 

LABEL EXITI% 

IF MTXJNCI .U.BUFF) THEN GO TO EXjTlX 

RRRMFCH * RRRMECH OR I II 

LABELTABLECU] * -M4I* 

MULTiTABLECU] + 0;% 

P(WAlTlO(P4200000000»0»U)»DEL)l« 

SLEEP([TOGLE]#STATUSMASK)l 

RRRMFCH * RRRMECH AND NOT I I % 

RFAOY * READY AND NOT \i% 

LABELTABLEtU] * ^214;* 

STREAM(BUFF)J DS ♦ 5 LIT "RW/L*"** 



XRH 08070000 T 000010 

START OF REL SEGMENTl DISK ADDRESS ■ 00251 

08079000 T 000010 

START OF REL SEGMENT! DISK ADDRESS * 00251 

08030000 T 000010 



08081000 T 000010 



EXIT! 

end;?; 



SP0UT(BUFF INX MfBUFF'll)! 



08082000 


T 


0000<0 


08083000 


T 


000010 


08084000 


T 


0002»2 


08085000 


T 


000313 


08086000 


T 


0005U 


08087000 


T 


000612 


08088000 


T 


000810 


08089000 


T 


000912 


08090000 


T 


001110 


08091000 


T 


001212 


08092000 


T 


001313 


08093000 


T 


00l5«3 


08094000 


T 


0018(3 

08080000 


SIZE* 0020 WORDS 



xxxxu 

X* 
X* 
X* 
X* 
X* 
X* 
%* 
X* 
%+ 

X* 
X* 
X* 

%* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 

%* 

X* 
X* 
X* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 

%* 

X* 
X* 
X* 
X* 

X* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 

%* 

X* 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* + * + ** + ** + *** + **+***.** + + + + + *. + + + * + * + 4t + + *4 + + * + + * + + + + * + + + + m 

PRlNTDlRECTORY 



purposes this procedure handles the po» ex» lf» lc and is 

MESSAGES, ALL MfSSAGFS ARE FORMS OF THE PD MESSAGF 
FXCEPT FOR CERTAIN DIFFERENCES, THE PD MESSAGE WILL 
LIST THE NAMES OF THE DESIRED FILES AS WELL AS 
CERTAIN PIECES OF INFORMATION IF REQUESTED. 

SYNTAX! THE FORMAT oF ALL THE KEYIN MESSAGES WUH THE 
EXCEPTION OF THE L.F MESSAGE IS AS FOLLOWS! 

<MESSAGE> <FILE SpEClFlER> <OPT I ON-L I ST> 

<MFSSAGE> II* PD / EX / LC / L.S 

<FILE SPECJFIER> !!« <F1LENAME> / <FILENAME> "/» 

<FILENAME> 

<OPTlON"LlST> !!= <FMPTY> / <OPTlON> / <OPTlON> » 
<OPTlON-LjST> 

<OPTTON> :is RfcS / LAST / DATE / SAVE / SIZE / 
CREATOR / SECURITY / ALL 

<FILENAME> Us TFROM 1 TO 7 CHARACTERS OPTIONALLY 
ENCLOSED IN QUOTES] / ■ 

THE SYNTAX FOR THE LF MESSAGE ISI 

LF <USFRID> <OPTlON-LlST> 

SEMANTICS! THE EX. Lf» LC, AND LS MESSAGES ARE JUST 
MODIFIED FORMS OF THE PD MESSAGE. THE EX MESSAGE IS 
THE SAME AS A PD EXCEPT THAT ONLY THE EXPIRED FILES 
ARE LISTED. THE LF IS THE SAME AS A PD«/« EXCEPT 
THAT ONLY THE FILES BELONGING TO THE SPECIFIED USER 
ARE LISTED, THE LC MESSAGE IS THE SAME AS A "PD 
<FlLE SPECIFIER> CREATOR". THE LS MESSAGE IS THE 
SAME AS M PD <FILE SPECIFIER> SECUR I TY, CREATOR" . 

THE OPTIONS SPECIFY WHAT ADDITIONAL INFORMATION 
IS TO BE LISTED BESIDES THE DEFAULT INFORMATION, IF 
AN UNRECOGNIZABLE WORD IS ENCOUNTERED IN THE OPTION 
LIST* IT IS IGNORfD, THE AVAILABLE OPTIONS ARE! 

RECS - NUMBER OF RECORDS IN THE FILE, (SPECIAL LOGIC 
IS INCORPORATED TO THE LIST ThE CORRECT NUMBER 
FOR BACKUP FILES), 

LAST - LAST ACCESS DATE. 

DATE - CREATION DATE. 



xxxxxxxx 

*x 
*x 
*x 
*x 
*x 
*x 
*% 
*% 
*% 
*% 
*% 
*x 
*x 
*x 
*x 
*x 
*x 
+ x 
*x 
*x 
*% 
*% 
*x 
*x 
*x 
*% 
*% 
*% 
*% 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 
*x 

♦X 

*x 

*x 
*x 
*x 
*x 
*x 

♦ X 

*x 
*x 



08095050 
08095100 
08095150 
08095200 
08095250 
08095300 
08095350 
08095400 
08095450 
08095500 
08095550 
08095600 
08095650 
08095700 
08095750 
08095800 
08095850 
08095900 
08095950 
08096000 
08096050 
08096100 
08096150 
08096200 
08096250 
08096300 
08096350 
08096400 
08096450 
08096500 
08096550 
08096600 
08096650 
08096700 
08096750 
08096800 
08096850 
08096900 
08096950 
08097000 
08097050 
08097100 
08097150 
08097200 
08097250 
08097300 
08097350 
08097400 
08097450 
08097500 
08097550 
08097600 
08097650 
08097700 
08097750 
08097800 
08097850 



C 
P 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
p 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
p 
c 
p 
c 
p 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



000010 
000010 
000010 
000010 
000010 
000010 
0000*0 
OOOOlO 
000010 
000010 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
0000 to 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 



%* SAVE - SAVE FACTOR, *% 08097900 C 0000*0 

%* *% 08097950 C OOOOJO 

%* Sj7f - SfZE OF THF FIL-F IN SEGMENTS, *% 08098000 P OOOOJO 

%* *% 08098050 C OOOOJO 

** CREATOR - PRlVILFGFD USFRCODE ASSOCAlTED WITH FILE. *% 08098100 P 0000«0 

%* (FOR BACKUP FILES THE LABEL OF THE PRINT FILE *% 08098150 C OOOOlO 

** AnD THE NAME OF THE PROGRAM CREATING THE BACKUP *% 08098200 p OOOOJO 

%* IS ALSO LISTED). *% 08098250 C OOOOJO 

** *% 08098300 P OOOOJO 

X* SECURITY - ACCESS PRIVILEGES OF THE FILE* I.E., *% 08098350 C OOOOJO 

%* LOCKED, UNLOCKED* PUBLIC PRIVATE, FREE. *% 08098400 P OOOOJO 

** *% 08098450 C OOOOJO 

%#+*+*****+**+*****++**+**+*++*+***+*+***+**+**+*+*+++***+++**+++++++++% 08098500 P OOOOJO 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 08098550 P OOOOJO 

PROCEOURF PRlNTDIRFCTORYf BUFF, CODE); *152- 08098600 C OOOOJO 

START OF REL SFGMeNTJ DISK ADDRESS « 00252 
PRT(574) 8 PRiNTDlRFCTORY 

VALUE BUFF.CODEJ *152- 08098650 C OOOOJO 

REAL BUFF,C0DEJ 1152- 08098700 C OOOOJO 

BEGIN M52- 08098750 C OOOOJO 

S152- 08098800 C OOOOJO 

INTEGFR X152- 08098850 C OOOOJO 



It % NORMALLY CONTAINS OPTjON NUMBER. *152- 08098900 C OOOOJO 

X JUNK, X152- 08098950 C OOOOJO 

*152- 08099250 C OOOOJO 

S152- 08099300 P OOOOJO 

% MfID OF DESIRED FILE OR -1 IF "a", *152- 08099350 C OOOOJO 

8! FID OF DESIRED FILE OR -1 IF "*", X152- 08099400 P OOOOJO 

?! ADDRESS OF DISK HEADER, *152- 08099450 C OOOOJO 

X MFID OF LAST FILE FOUND BY SEEKNAM, X152- 08099500 P OOOOlO 

% FID OF LAST FILE FOUND BY SEEKNAM, *152- 08099550 P OOOOJO 

% WORK VARIABLE USED BY SEEKNAM TO SAVE INFO, 1152- 08099600 C OOOOJO 

* NORMALLY USED To SAVE DEST, INDEX, X152- 08099650 C OOOOJO 

I! BIT MASK FOR OPTIONS SELECTED. IJ52- 08099700 P OOOOJO 



STACKfF+1) * I 
STACKfF+2) a J 

STACK(F+3) * MFID 
STACKfF+4) = FID 
STACKfF+5) = C 
STACKfF+6) = D 
STACKfF+7) s E 
STACKfF+lO) = N 
STACKfF+11) s T 

STACKfF+12) » INFO 

LABFLRFC, % ADDRESS OF LABEL RECORD FOR PBD C IF LC ). *152- 08099750 P OOOOJO 

STACKfF+13) « LABELRFC 

STA, % ORIGINATING STATION. TU/BUFF IN r 9 1 93 FIELD, X152- 08099775 C OOOOJO 

STACKfF*14) = STA 

USERtD, % USERlD IF LF. 1152- 08099800 P OOOOJO 

STACKfF+15) = USERlD 

XJ % JUNK. *152« 08099850 C OOOOJO 

STACKfF+16) * X 

X152- 08099900 P OOOOJO 
ARRAY X152- 08099950 C OOOOlO 

HDRr*3» % DESCRIPTOR TO DISK HEADER. *152- 08100000 C OOOOJO 

STACK(F+17) b HDR 

XLST[*]:% SOME DAY WE MAY ALLOW EXCEPTION LIST, *152« 08100050 C OOOOJO 



Rfal 
MFtn. 


FID, 


c. 


D, 


F, 


N. 


T, 


INFO, 



STACK(F+20) » XLST 



STACKfF+21) ■ 
STACKfF+?2) « 



boolean 
pbdtog. % true 
pbdtog 

foundaf i lf * 
foundafjlf 



IF SFLECTFn 
X TRUE JF WF 



file is a pbd. 

listfd out at least one file, 



LABEL EXIT, DROPOUT* DUMMY, OPT IONS J 

DEFlNr NUMOPTS ■ 7*1 

DEFINF 

TUANDBUF 

STATUANDBUF 



DEFINF PO ■ (CODE * 0)#, 

FX a (CODE * D*> 

LC = (CODE = ?)*» 

LF s (CODE * 3)*» 

LS » (CODE * 4)#J 



* r9J9]#, % TU/BUFF STORED IN r9»9j FIELD. 
STA,TUANDBUF#J % TU/BUFF OF ORIGINATING STATION, 



DEFINE 

primarvuser * 
savffactor « 
lastaccessoate * 
creationdate b 

GUARDFILEMFID s 

GUARDFILEFID s 

PBDTUANDBUF = 

PBDTU x 

PBDBUF = 

EOFpOINTER s 

SEGSPERROW * 

NOOFROWS ■ 

HEADERADDRESS ■ 

%******************** 

SUBROUTINE GETREADYJ 
% .......... ........ 



HDRI2]#, 

HDR[3],[2»lO]#, 

HDR[33.ti2H8]#» 

HDR[3],t30:l8]#, 

HDRC5]#, 

HDR[6]#, 

HDRt6].[39»9]#, 

HDR[6] ,r39l«]*» 

HDRC6], U4U]#, 

HDR[7]#, 

HDRC8]#» 

HDR[9],U3l5Jt» 

HDR.tCF]#J 

S U B R U T 



% PRIV, USER CODE, 

* SAVE FACTOR, 

% LAST ACCESS DATE. 

% CREATION DATE, 

X MFID OF GUARD FILE. 

?! FID OF GUARD FILE, 

% RJE TU/BUFF FOR PBD, 

% RJE TU NUMBER FOR PBD, 

% RJE BUF NUMBER FOR PBD. 

% EOF POINTER. 

X SEG. PER ROW, 

% NO, OF ROWS DECLARED. 

% CORE ADDRESS OF HEAOER, 



X152- 
X152- 
X152- 

X152- 

X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
XI 52- 
X152- 
X152- 
X152- 
X15Z- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
Xl52- 
X152- 
X152- 
X152- 
X152- 
X152- 



BEGIN 

STA 5* Mr(BUFF 1= C T 5 sfiUFF ) . t 1 5 11 5] -1) 

SFT OM|T m NOT(DATACOM) 

INFO !s I f LC OR LF OR LS)[42«475l] & 
END OF GETREADYJ 



SUBROUTINE GFTFILESPECIFIERI 



BEGIN 

NaMftD(MFID»T)J X 
IF LF THEN USERID 
IF MFID * "«■«■ 
MFID :* - 1 ; 

nameid(fid»T); 

IF FID * "/ » 
BEGIN 

NAMEID(FID»T); 
NAMEID(N,T>; X 

END 



GET NEXT ITEM, 



I N E S ************************** 

X152- 
X152- 
X152- 

•111 X152- 

X152- 

LS[A3»47J1]< X152- 

XI 52- 



X152- 
X152- 
1152- 
X152- 
1152- 
FOR LF. X152- 
1152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 



GET MfID (OR USERCODE IF "LF") 
«= MFID; % FIRST THING IS USERID 
" OR LF THEN 



THEN X GET FID 



08100100 
08-100150 
08100200 



08100300 
08100350 
08100500 
08100510 
08100520 
08100530 
08100550 
O81OO6OO 
08100650 
08100700 
08100750 
08100800 
08100850 
08100900 
08100950 
08101000 
08101050 
08101100 
08101 1 10 
O81OU2O 
08101130 
08101150 
08101200 
08101250 
08101300 
08101350 
08101400 
08101450 
08101500 
08101520 
08101540 
08101650 
08101700 

08101750 
08101800 
08101850 
08101900 
08101950 
08102000 
08102050 
08102100 
08102150 
08102200 
08102250 
08102300 
08102350 
08102400 



000050 
000050 
000010 



08100250 C 000050 



ELSF % NO FID SPECIFIED IMPLIfS FID OF "s" 



X152* 



C 000050 

C 000050 

C OOOOJO 

C 000050 

C 000050 

c ooooso 

C 000050 

C 000050 

C 000050 

C 000050 

c 000010 

C 000050 

C 000010 

C 000050 

C 0000(0 

P 000050 

P OOOOtO 

P 000050 

C 000050 

C 000050 

C 000050 

C 000050 

P 000010 

C 000050 

C 000050 

C 000010 

C 000050 

C 000150 

C 000150 

C 000150 

C 0005 5 

c 000550 

C 001053 

08101500 

C 001150 

C 001150 

C ooipo 

c 0011 10 

C 001150 

P 001250 

C 001410 

P 001553 

C 001751 

P 001851 

C 001950 

C 001952 

C 002052 

C 002152 

08102250 



08102450 C 002152 



BEGIN 

N Is FID* 

FID Is -1 ? 
F.NPJ 

IF FID. [6163 s LEFTARROW OR LF THEN % NO FID SPECIFIED 
FID :* - II 

END OF gftfilesf-fcifier; 



SUBROUTINE PROCESSOPTl ONL I ST 1 

"DO * ACCUMULATE OPTIONS 



BEGIN 

while n / M * 
begin 

FOR I Js -l STEP 1 UNTIL (NUMOPTS - 2) DO 

DUMMYll IF P(, OPTIONS. l»+#LOD> * N THEN % MATCHES AN OPTION WORD 

BFGIN X152- 

INFO «s INFO OR TWOf 1 + 1 )* X SET BIT CORRESPONDING TO OPT 



X152" 
1152* 
X152- 
X152- 

X152- 
X152- 
X152- 

X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 



dRopoutj 



GO TO DROPOUT! 

END 

ELSE % CHECK FOR "ALL" 

IF N ■ "ALL - THEN % SET ALL OPTION WORD BITS, 
INfO I* NOT 0; 

NAMEID(N,T); % GFT NEXT OPTION WORD, 

IF N a % " THEN NAMfID(N»T)> % SKIP OVER COMMA, 
END) 



GO TO EXITJ 



OPTIONS 111 



EXITJ 
END 



"RFCS " 
-LAST 
"DATF " 
"SI ZF " 
"SECURIT" 
"CREATOR" 
"SAVF n 



% 
% 
% 
% 
% 
% 
% 



OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 



C INFO, [47 J 1 

1 (INFO, [46ll 

2 UNF0,[45ll 

3 ( INFO, [44:1 

4 (lNF0,[43tl 

5 ( INFO, [4211 

6 (INFO, [41 tl 



OF PR0CESS0PT10NLIST; 



SUBROUTINE GETSET* 

BEGIN 

IF EX OR INFO * OR (Pi) AND USERID * 
HOR l« IOQUE & SPACEOO) CCTC 3* 
END OF GETSETl 



0) THEN % WE WILL NEED 



BOOLEAN SUBROUTINE WEGOTAFILEJ 

BEGIN 

SrEKNAM(MFlO#FIO»C»0»E»N»XLST)l % FIND 
WrGOTAFlLE 5" C J* 0* % c. IS ADDRESS OF 

ENn of wfgotafile* 



A FILE. 
DISK HEADER. 



1152- 
X152- 

X152- 
X152- 
X152- 
X152- 
X152- 
JS152- 
X152- 

X152- 
1152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 

X152- 

X152- 

X152- 

X152- 

HDR. 

X152- 

X152- 

X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 



08 


102500 


C 


002112 


08 


102550 


C 


0024*0 


08 


102600 


C 


002413 


08 


102650 


C 


0025J3 

08102500 


08 


102700 


c 


0025*3 


08 


102750 


c 


002810 


08 


102800 


c 


0029:2 

08101900 


08 


102850 


c 


002913 


08 


102900 


c 


002913 


08 


102950 


c 


003080 


08' 


103000 


P 


0030(0 


08 


103050 


c 


003010 


08 


103100 


p 


0031 * 1 


081 


L03150 


c 


0031U 


08 


103200 


P 


003513 


08 


103250 


c 


003712 


08i 


103300 


p 


0038*0 


08< 


103350 


c 


0040*1 


08< 


103400 


p 


0042*0 

08103250 


08< 


103450 


p 


004210 


081 


03500 


p 


004210 


081 


103550 


c 


004311 


081 


[03600 


p 


0047:0 


081 


03650 


p 


0047*0 


08' 


103700 


p 


0048:0 


08] 


[03750 


c 


0050U 

08103100 


081 


103800 


p 


005210 


081 


103850 


c 


005212 


081 


03900 


p 


0052:2 


08] 


103950 


c 


0054:0 


08] 


104000 


p 


0055:0 


081 


104050 


c 


0056»0 


08l 


104100 


p 


005710 


081 


04150 


c 


0058(0 


081 


04200 


p 


005910 


08] 


04250 


c 


006010 


08) 


04300 


p 


006010 

08103000 


08j 


04350 


c 


0060U 


08] 


04400 


c 


0060U 


081 


104450 


c 


006110 


081 


104500 


c 


0061:0 


08] 


04550 


c 


0061 10 


061 


04600 


c 


006413 


08] 


04650 


c 


006811 

08104500 


081 


04700 


c 


0068:2 


081 


04750 


c 


006812 


081 


04800 


c 


006910 


081 


104850 


c 


006910 


081 


04900 


c 


006910 


081 


04950 


c 


007112 


081 


05000 


p 


007212 



BOOLEAN SUBROUTINE WEWANTTHl Sf I If I 

BEGIN 

p R DTOG !* fCn EQV "PRO " > * NOT OR (D EQV "PUD 
x NOT 0); 

if hfadeRaddress * o thfn * wf need the header. 

D?SKWAIT(-HFADERA0DRESS,30,c)I * READ HEADER, 
IF LF THEN % CHFCK TO SfE IF WE WANT THIS FILE, 

wewantthisfjle ** PRIMARYUSfR » USERID 
ei.se 

if ex then 

R E G I N 

STREAMf At*CALCULATEPURGE(-SAVEFACTOR)»X*a[XD> 
BEGIN 

Si ) = LOC A? DS :s 8 OCT) 
END) 



") 



X152- 
X152- 
*152- 
X152- 
X152- 
X152- 
X152- 
JS152- 
X152- 
X152- 
*152- 
X152" 
X152- 
1152- 
X152- 
X152- 
*152- 



WEWANTTHISFJLE ** X > LASTACCESSDATEI % TRUE IF FILE EXPIRED 
END X152- 

ELSE X152* 

IF PD AND USERID t THEN % NEED TO CHECK SECURITY, *152- 

WEWANTTHTSFlLE )a SfCUR? TYCHECK f D. F» USERl D. HEAOERADdRESS )*0 



flSe 
wewantthisfjle j* true* 
end of wewantthlsfilej 



% 

% 



X152- 
X152- 
«|52- 

X152- 
X152- 
X152- 
X152- 
XI 52- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 

X152- 
X152- 

X152- 
X152- 
U52- 

BEGfN X152- 

STREAM(A*mIF PRDTOG THEN FOFPOINTERxS ELSE EOFPOI NTER+1 I T 5 1 1152- 

X152- 

BEGIN X152- 

DS )* 9 LIT "RECORDS! "J 1152- 

SI I* LOC A) X152- 

ns »* 8 dec) i convfRt number of records to dec xi52- 

A »■ Oil I SAVE OFF DI BEFORE ZERO SUPPRESSING, X152- 

DI «« DI - 8; X152- 



SUBROUTTNE PUT I NF I LENAME) 

BEGIN 

STRFAMCA»*0 » D» t* BUFF)) % SET UP FILE NAME, 
BEGIN 

Si *s LOC DS 

DS :« LIT " n i 

2 ( Sj :r Si ♦ l; DS := 7 CHR) DS )» LIT "/")) 

di «« ni - t j 

OS la ? LIT » «| % NEED 2 SPACES TO ALLOW FOR ARROW. 
A I* DI? 

END) 

T )* P) % SAVE OFF DEST, INDEX. 
END OF PUTINFILENAME) 



SUBROUTINE DORECS) 



08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

08 
08 

08 
08 
08 
08 
08 
08 

08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

08 
08 

08 
08 
06 
08 
08 
08 
08 
08 
08 
08 
08 
08 



08104850 
05050 C 0072)3 
05100 c 0072)3 
05150 C 007310 
05200 C 0073)0 
05250 C 0073«0 
05300 C 0075)1 
05350 C 0076*3 
05400 C 0078*1 
05450 C 0081)0 
05500 C 0081)3 
05550 C 008g)3 
05600 C 0083)2 
05650 C 0086*3 
05700 C 0087«1 
05750 C 0089*3 
05800 C 0089)3 
05850 C 0090U 

08105750 
05900 C 0090)2 
05950 c 0092' 1 

08105650 
06000 C 0092)1 
06020 C 0092« 1 
06040 C 0094)2 
06060 C 0098»1 
06080 C 0099)0 
06100 C 0100)0 

08105200 

0100)1 

0100)1 

0101)0 

0101)0 

0101 )0 

0102)3 

0102)3 

0103)0 

0103*2 

0105*0 

0105*1 

0105)3 

0106)0 

08106400 
06800 C 010611 
06850 C 0106)3 

08106300 
06900 C 0107)0 
06950 C 0107)0 
07000 P 0107)0 
07050 C 0107)0 
07100 C 0107)0 
07150 C 0111)1 
07200 C 0111)1 
07250 C OIUU 
07300 C 0112)3 
07350 c 0113)0 
07400 C 0113)1 
07450 C 0113)2 



06150 

06200 

06250 

06300 

06350 

06400 C 

06450 C 

06500 

06550 

06600 

06650 

06700 

06750 



END* 



«* 7 fill; 



T Is Pj J! SAVE DESTINATION ADoRfSS, 
END OF DORECS; 

SURROtlTiNF DODATFORLAST; 



BFG|N 

STRFAM(XI«rX]); 
BEGIN 

SI :* XI 

ns i== 8 DFCJ * CONVfRT date to decimal. 

end; 

GTMEnATECrX] # rCF]»-X)j % CONVERT JULIAN DATE TO 6 DIGITS, 
STRFAMf A««(I*n » X, T); 
BEGIN 

u ns i* to lit m accfsseo« '*; JUMP OUT TO Ll); 
DS I" 9 lit "created' "» 
Li : 

Si »» LOc X> 

Si «* si + 2; 

3 c ds is ? chR; ds » s lit "/")» 

DI »* 01 - 11 * ERASE THE EXTRA SLASHt 
A !* Di; % SAVE DFST. INDFX, 

end; 

t la pj % save destination address, 
END OF dodateorlast; 



SUBROUTINE DOSIZe; 



BEGIN 
NT? 
NT1 
FOR 



Is NOOFROWSl % NO. OF ROWS DECLARED, 
Is 01 % NUMBER Of ROWS PROCESSED, 
J l» 1 STEP i UNTIL NT? DO % CHECK 



"SEGMENTS* M > 



if HDRrj+93 * o then nti 

STRFAM(At«NTlxSEG5PERR0W I 
BEGIN 

DS I* 10 LIT 

SI l*= LOC A) 

ns :b 8 dec; 

A *= ON 

is n i - 8 ; 
.*■ 7 fill; 



Is NTI 



+ U 



TO SEE IF ROW EXISTS, 
% BUMP UP COUNT, 



D1 
DS 

fnd; 



t 

END 



I s 

OF 



p; % save 
dosize; 



DESTINATION ADDRESS, 



SUBROUTINE DOSECURITY) 



X152- 
X152- 

X152- 
X152- 

X152- 
X152- 
X152* 
X152- 
X152" 
U152- 
X152- 
X152* 
*152- 
*152- 

X152- 
X152- 
X152- 
X152- 
*152- 
X152* 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 

X152- 
X152* 

X152- 
X152- 
X152* 
X152- 
X152- 
X152* 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152" 

X152- 
X152- 

X152- 
X152- 
X152- 



08107500 C 011313 



08107550 c 



08107600 
08107650 

08107700 
08107750 
08107800 
08107850 
08107900 
08107950 
08108000 
08108050 
08108100 
08108150 

08108200 
08108250 
08108300 
08108350 
08108400 
08108450 
08J08500 
08108550 
08108600 
08t08650 
08108700 
08108750 

08108800 
08108850 

08108900 
08108950 
08109000 
08109050 
08109100 
08109150 
08109200 
08109250 
08109300 
08109350 
08109400 
08109450 
08109500 
08109550 
08109600 
08109650 
08109700 

08109750 
08109600 

08109850 
08109900 
08109950 



C 
C 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 

c 
c 

p 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 

c 
c 
c 



0H4S0 

08107200 
0114U 
0H4I3 

08107050 
0115J0 
0115*0 
011510 
0115»0 
011510 
011510 
011513 
011513 
011610 
011611 

08106000 
011612 
011811 
0120J1 
0120J1 
0123«0 
0124S2 
012412 
012413 
0125J0 
0126U 
0126*2 
0l26«3 

08108300 
012710 
0127J2 

08107850 
012713 
0127J3 
012810 
0128J0 
012810 
012912 
0130 J 1 
013110 
0136J2 
0138*2 
013812 
014010 
014011 
014012 
014013 
014110 
014111 

08109350 
014112 
014210 

06109050 
014211 
014211 
014310 



BEGTN 

j := if prtmaRyusfR * o then o % free file 

ELSE I-F GliAROFIUEMrln s "?" THEN % UNLOCK OR PUBLIC 
IF GUARDFILFFID s »'?" THEN 1 % UNLOCKED 

E LSE 2 % PUBI I C 
ELSE IF GUARDFILEMFID < THEN^3 % PRIVATE 

ELSE ft| % LOCKED 
STRFAM(J : AS*GUARDFlLEMFiO» B I «GUARDF I LEF 1 D . T)! 
BEGIN 

PS la 10 LIT "SECURtTYt "! 
n :* CI + J! 
GO TO FREE? 
GO TO UNLOK! 
GO TO PUBLIC* 
GO TO PRIVATE) 
LOCKI PS I« 6 LIT "LOCKED"! GO TO E X I T » 
PRlVATFtpS Is ?2 LIT "PRIVATE (SECURED WITH "! 
SI Is LOC A! 

7 ( Si i« Si + 1J DS I* 7 CHR* OS I* LIT "/")? 
PI is PI - H 
PS is LIT ")"» 
GO TO EXIT! 
PUBLIC' PS Is 6 LIT "PUBLIC"! GO TO EXIT! 
UNLOKi PS ?« 8 LIT "uNLOcKfD"! GO TO EXIT! 
FREE* PS »s 4 LIT "F«EF"! 
EXIT! J Is RI! 
END » 

T Is PI % SAVE DESTINATION APpRESS, 
END OF DOSECURlTY! 



SUBROUTINE DOcREATOR! 
BEGIN 

sset omit » packets 
sset omit s notcpackets) 

IF JlsfPBDTOG AND CE,r4?:6] * D) THEN % REEL J OF PBD 
SPOP OMIT 

BEGIN 

IF LABELREC ■■ THEN LABELREC Is SPACEC30)! 
DlSKWAJT(-LABELREC.30,HDRr 10] +2)! 
ENp! 

STREAM(J I Bl* PRlMARYUSER^O, CI»PRIMaRYUSER» 

RJE Is pbdtuanobuf#o, tu»»pbdtu. BUFI-PBDBUF. 
DlsLABELREC INX 12, T)> 
BEGIN 

PS Is 9 LIT "CREATOR! "! 

B ( PS Is A LIT "NONE"! JUMP OUT TO 1,2 )! 
Si I* LOC C! 
SI Is Si + 1 ; 
OS := 7 CHR! 
L?» 

J ( DS I* ? LIT " C"! 
SI I* D! 

2 f SI I* Si + l! pS is 7 CHR! DS I* L. I T "/")! 



X152- 


081 


10000 


P 


014310 


*152- 


081 


10050 


C 


014310 


%152- 


08i 


10100 


C 


014413 


X152- 


081 


10150 


C 


014611 


*152- 


08i 


lO?00 


c 


0148J2 


*152- 


081 


10250 


c 


014911 


*i52- 


081 


10300 


c 


015H2 


X152- 


08i 


10350 


c 


015213 


X152- 


08i 


10400 


c 


015510 


*152- 


081 


10450 


c 


015510 


*152- 


081 


10500 


c 


015612 


X152- 


08} 


10550 


c 


015710 


*152- 


081 


10600 


c 


015711 


X152- 


08l 


10650 


c 


015712 


X152- 


08l 


10700 


c 


0157«3 


*152- 


081 


10750 


c 


015810 


X152- 


08l 


10800 


c 


0159H 


X152- 


08l 


10850 


c 


0162H 


X152- 


081 


10900 


c 


016212 


X152- 


081 


10950 


c 


016410 


X152- 


081 


11000 


P 


016411 


X152- 


081 


11050 


c 


016413 


H152- 


081 


11100 


c 


0165*0 


X152- 


081 


11150 


c 


016611 


U52- 


081 


11200 


c 


016713 


*152" 


08) 


11250 


c 


016812 


*l52- 


08i 


11300 


c 


016813 

08H0400 


*152* 


08i 


11350 


c 


016910 


X152- 


081 


11400 


c 


016912 

08110000 


X152- 


081 


11450 


c 


016913 


K152- 


081 


11500 


c 


016913 


*152- 


08l 


11550 


c 


017010 


K152- 


081 


11600 


c 


017010 


1152- 


081 


11650 


c 


017010 


X152- 


081 


11800 


c 


017010 


K152- 


081 


11850 


c 


017010 


*152- 


08i 


11900 


c 


017211 


X152- 


081 


11950 


c 


0172U 


1152- 


08) 


12000 


p 


017213 


*152» 


081 


12050 


c 


0176U 


1152- 


081 


12100 


c 


017812 

081U950 


X152- 


081 


12150 


c 


017812 


X152- 


081 


12175 


c 


018013 


*152* 


08i 


12200 


c 


0184M 


X152- 


08) 


12250 


c 


018512 


1152- 


08i 


12300 


c 


018512 


*152- 


08i 


12350 


c 


018710 


X152- 


081 


12400 


c 


018910 


%152- 


081 


12450 


c 


018911 


«152- 


081 


12500 


c 


0189*2 


X152- 


081 


12550 


c 


016913 


X152- 


081 


12600 


c 


016913 


*152- 


08] 


12650 


c 


019013 


K152- 


081 


12700 


c 


019110 



01 »* DI - 1) DS is 4 LIT " OF "I 

2 C SI »= Si + i« DS s* 7 CHR> DS ( = LjT "/")( 
ni (* PI - if 

RJF (DS := 2 LIT " [*; SI ** TUJ 

DS «s 2 DEC' DS s= LIT V"; DS i* 2 DEC* 

ds «= Lit ••]••)» 

DS (s LIT ")")| 
J :* DT ; 

end; 

T :s p; )t SAVE DESTINATION ADDRESS, 

end of docRfator; 



SUBROUTINE DOSAVFF ACTOR? 

BEGIN 

STREAMCA (* 5AVFFACT0R I T)l 
BEGIN 

DS :s 6 LIT "SAVf! »; 

SI :« I.Oc a; 

DS t» 3 DEO 

A := DM 

DI :■ DI - 3* 

DS is 2 fill; 
END* 

T ( = P; X SAVE DESTINATION ADDRESS. 
FNn OF DOSAVFFACTOR; 



subroutine dooptions; 

BEGIN 

FOR I Is STEP 1 
IF CTWOCI) AND 
BEGIN 

CASE I OF 
BEGIN 

dorecsj % case 
begin % case 1 
x i* lastaccessdatej 
oodateorlast* 
end of CASF t; 



UNTIL CNUMOPTS " 1) DO % SEE IF OPTION RfT 

info # o then xoption selected. 



- "RECS" 

- W LAST M 



BEGIN % CASE 

x »= cReationdaTfj 
dodateorlast» 

END OF CASE 2f 

DOSlZEf % CASE 

DOSECURlTY; % CASE 

DOCREATORJ X CASE 

DOSAVEEACTORS % CASE 
END OF CASES! 



2 - •♦date" 



3 - "SIZE" 

4 - "SECURITY" 

5 - "CREATOR" 

6 - "SAVF" 



STREAMfl J T)( 1! PUT COMMA AFTER LAST OPTION. 



X152- 
X152- 
X152- 
X152- 
X152* 
X152- 
X152- 
XJ52" 
X152- 

X152- 
*152- 

X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
X152- 
1152- 
1152- 
X152- 

X152- 
X152- 

X152" 

X152- 

U52- 

X152- 

SET. 

X152- 

X152- 

X152* 

X152- 

X152- 

X152- 

X152- 

X152- 

X152- 

X152- 
X152- 
X152- 
X152- 

X152- 
X152- 
X152- 
X152- 
X152- 

X152- 



06] 


12750 


C 


019212 


081 


12800 


c 


019312 


08l 


12820 


c 


0l95»0 


081 


12840 


c 


0l95«l 


08i 


12860 


c 


0196»2 


081 


12880 


c 


019712 


081 


12890 


c 


0198IJ 


081 


12900 


c 


019910 


081 


12950 


c 


0199(1 

06H2250 


081 


13000 


P 


019912 


08i 


13050 


c 


0200(0 

081J1600 


081 


13100 


c 


0200(1 


081 


13150 


c 


0200(1 


081 


13200 


c 


0201(0 


081 


13250 


c 


0201(0 


081 


13300 


c 


0201(0 


081 


13350 


c 


0203(0 


081 


13400 


c 


0203(0 


081 


13450 


c 


0204(0 


081 


13500 


c 


0204(1 


081 


13550 


c 


0204(2 


081 


13600 


c 


0204(3 


08l 


13650 


c 


0205(0 


081 


13700 


c 


0205(1 

08H3350 


081 


13750 


c 


0205(2 


081 


13800 


c 


0206(0 

08U3250 


081 


13850 


c 


0206(1 


081 


13900 


c 


0206(1 


081 


13950 


c 


0207(0 


08j 


14000 


P 


0207(0 


081 


14050 


c 


0207(0 


081 


14100 


c 


021K1 


081 


14150 


c 


0213(0 


061 


14200 


c 


0213(2 


081 


1*210 


c 


0213(3 


081 


14250 


c 


0214U 


081 


14290 


c 


0215(2 


081 


14300 


c 


0215(2 


081 


14310 


c 


0217(0 


081 


14320 


c 


0218(0 

08H4290 


081 


14340 


c 


0218(2 


081 


14350 


c 


0218(2 


081 


14360 


c 


0220(0 


08l 


14370 


c 


0221(0 

08H4340 


08i 


14400 


c 


0221(2 


081 


14450 


c 


022312 


081 


14500 


c 


0225(2 


081 


14550 


c 


0227(2 


081 


14600 


c 


0229(2 

08U4210 


08114650 


c 


0233(3 



% 



BEGIN 

OS i= 2 LIT '♦, '•; 

I is DM 

END* 

T !» PI 

end of loop to procfSs options; 
end of dooptions; 

SUBROuTlKE MAKETHFMESSAGEJ 

BEGIN 

IF FOUNOAFILE THEN % WE NpED A BUFFER. 

BUFF <* SPACE(30)> 
PUTlNFlLENAMf; 
DOOPTJONSI 
STRFAMCT); % PUT IN THE LFFT ARROW, 

BFGIN 

ni i= Dl -2; 

ds is lit leftakrow; 

END> 

end of makfthemessage; 
subroutine complain; 

BEGIN 

STRFAMCBUFF); 

DS »* 8 LIT M NULL 

SPOUTCBUFF I NX STa); 
END OF COMPLAIN! 

SUBROUTINE FORGETf VERYTH I NG * 
BEGIN 

if hfaoeraddress * then forgetspace (headeraddre ss) ; 
if labelrfc * then forgetspaceclabelreo; 
end of forgeteveRything; 



"j % original input is at buff + 1, 



X152- 
X152- 

*152- 

U52- 

X152- 
X152- 

X152- 

*152- 
X152- 
X152- 
*152- 
X152- 
15152- 
X152- 
X152- 
M52- 
1152- 
X152- 
*152- 
X152* 

X152- 

X 1 52- 
*152- 
X152- 
X152- 
1152- 
1152- 
X152- 
X152- 

X152- 
X152- 
*152- 
X152- 
SK J. 52- 
K152* 
X152- 



%******************** START OF 

getready; 
geTfilfspectfifn; 
processoptionlist; 
getset; 

while wegotafile do 
if wfwantthisfile then 

BEGIN 

makeThemessage* 

SPOUTfBUFF INX STA)l 
FOUNDAFILE ** TRUE? 

END* 

IF not foundafile Then complain; 



C D F *********************** 

*152- 
Xt52- 
I152- 
X152- 
*152- 
*152- 

M52- 
X152- 
«15Z* 

X152- 
X152- 

*152- 



08 
08 
08 
08 

08 
08 

08 

08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

08 

08 
08 
08 
08 
08 
08 
08 
08 

08 
08 
08 
08 
08 
08 
08 

08 
08 
08 
08 
08 
06 
08 
08 
08 
08 
08 
08 



4700 C 

4750 C 

4800 C 

4850 C 



4900 
4950 



5050 
5100 
5150 
5200 
5250 
5300 
5350 
5400 
5450 
5500 
5550 
5600 
5650 



5750 
5800 
5850 
5900 
5950 
6000 
6050 
6100 



6500 
6550 
6600 
6650 
6700 
6750 
6800 
6850 
6900 
6950 
7000 
7050 



5000 P 



5700 C 



6150 C 
6200 C 
6250 C 
6300 C 
6350 C 
6400 C 
6450 C 



08n7i00 P 



0235JO 
023550 

023512 

0235«3 

081 
0236*0 
0236»2 

081 
0237*0 

081 
023711 
023711 
023810 
0238*0 
0238J0 
0238*1 
024110 
024210 
024310 
024313 
024313 
024410 
024412 

081 
024413 

081 
024510 
024510 
024510 
0245*0 
0245*0 
0245*3 
0247*1 
0249*0 

081 
0249*1 
0249*1 
0250*0 
0250*0 
0250*0 
0253*2 
025512 

081 
0255*3 
0255*3 
0262*0 
0263»0 
0264*0 
0265*0 
0266*2 
0268*0 
026812 
0270*0 
0271*3 
027212 

081 
0273*0 



14700 

14150 
14000 



15500 
15200 



15900 



16300 



16850 



FORfiETFVERYTHiNG) 

end op printdjRectory; 






08U7150 
08n7?00 



C 0275«0 
P 027610 

08098750 
SIZE* 0277 WORDS 



STACKfF+1) 
STACKrF*?) 
STACKfF+3) 
STACKfF+4) 

STACKfF+5) 

STACKfF+O) 

STACKfF-4) 



= T 
a IOD 
■ LINK 
s U 

* A 

s RCW 



» SET OMIT = NOTCDCSPO AND DATACOM ) 
PROCEDURE CONTiNUfTYBlTJI 

BEGIN RFAL T,TOD,L!NK»UJX 



START OF REL 



08135999 

08171000 

SEGMENT) DISK 

08172000 



T OOOOlO 
T OOOOJO 

ADDRESS m 00262 
T 000010 



ARRAY A[*]> 

Real rcw»+oj« 

ARRAY R«-4[*JI DEFINE FlBeA#) 
ChEC«STACKSPaCE)X 

U *(LINK * NFLAgCMCUOD ♦ NFLAGf Mt T*PRT [ PI M I X, 9 ] ] ) INXX 
P(O-LNG.XCH)) INX NOT ] ) ) , f 1 2 J 63 I X 

if u > 3? then 

BEGIN A * M[Tj; 

IF READEMFR0MDlSK(CIDR0W[U-321f A) THEN 

MtTJ ♦ AU[27>07li]&0[2l47U] FUSE 
MCT3 ♦ Rl GO TO RETURN) 

end; 

MtlOD INX NOT l]*FLAG(LlNK)| F!B*M[T"3 J»- 

MtFlB[H3|NX l7]*rMtFTBt5],tf r F]]]&I0Dt3l3$30 3&Ot20l?O»l]; 
»FiBC5]*P(DUPpL0D»0.1«CFX.ADD)I 
IF FlBtl4J.tKFJsFl8IUJ.CCF] THEN XX BUFFER FULL, 
PBI0(T»FIB[14]) 
ELSE 
RFGIN; STREAM(A*FTBCl4].tCF]. B*F I 8f 14 ] , f FF ] ) ; 
BEGIN SUA; DS-18 WDS END) 



F IBf 14 ] . CFF 3-F I Br 1 4 J . IFF J -18) 



END) 



GO RfTURN 
END ONTINUTTYBITJ 



08172500 T OOOOlO 
08173000 T OOOOlO 



XP 


08173100 


T 


OOOOlO 


XWF 


08i 73200 


T 


OOOOlO 

08173200 


X 


08174000 


T 


000512 




08175000 


T 


000810 




08175100 


T 


001213 




08175200 


T 


001312 




08175300 


T 


001512 




08175400 


T 


001712 




08175500 


T 


002113 




08175600 


T 


002412 

08175200 


XP 


08176000 


T 


002412 


1]) 


08177000 


T 


002910 


XP 


08177100 


T 


003412 


XP 


08177200 


T 


003710 


XP 


08178000 


T 


003911 


XP 


081 79000 


T 


004112 


XP 


08179600 


T 


004H3 


XP 


08179700 


T 


004413 

08179700 


XP 


08179800 


T 


004512 


XP 


08J79900 


T 


004813 

08179600 


XP 


08180000 


T 


004813 


XP 


08181000 


T 


004911 

08172000 




SIZE* 0050 WORDS 



STACK(F+2) « U 

STACKfF+3) = V 

STACKfF+4) a I 

STACKfF+5) = J 

STACKfF+6) a Ji 

STACKfF+7) = J2 
STACKfF+lO) s S 

STACKfF+11) * A 
STACKfF+12) a HDR 
STACKfF+lO) = SEGO 
STACKfF+5) = F 

STACKfF+135 = P8T 
STACKfF+14) s PBD 
STACKfF+15) = PUD 

STACKfF4-16) a D 
STACKfF+161 s SHEAT 



BOOLEAN PROCFDURE PR I NTORPuNChWA I TC Q # PNCH ) J VALUE Q.PNCHlREAL Q.PNCHJ 08255000 T OOOOlO 

START OF REL SEGMfNTj DISK ADDRESS ■ 0026ft 

X 08255050 T 000010 

J! THIS PROCEDURE IS RESPONSIBLE FOR STARTING PRNPBT/DlSK. IT CHECKS 08255055 T 000010 

J! FOR I/O UNITS AS RFQUlRED AND» tF AVAILABLE* GRABS THEM, The 08?55060 T 000010 

% PARAMETERS ARE» 08255065 T 000010 

X Q <-l6 LOGICAL UNIT NUMBER FOR OUTPUT, TAPES AND DISK ARE 08255070 T OOOOlO 

X SEARCHED To FIND A FILE TO PRINT, THIS IS USED ONLY 08255075 T OOOOlO 

% WHEN AUTOPRINT IS SET OR FOR RJE, 08255080 T OOOOlO 

X >"16» <0 LOGICAL UNIT NUMBER OF A BACK-UP TAPE, CHECK FOR AN 08?55085 T OOOOlO 

X AVAILABLE OUTPUT UNIT, 08255090 T OOOOlO 

X >0 FID OF A DISK FILE, CHECK FOR OUTPUT UNIT, 08255095 T OOOOlO 

X PNCH.M7811 ON FOR PUNCH BACK-UP, 08255100 T OOOOlO 

X T39J8] NUMBER OF COPIES FROM PB MESSAGE. 08255105 T OOOOlO 

% r SI 1 63 IF TAPE, NUMBER OF FILE TO PRINT (FROM PB), 08?55ll0 T OOOOlO 

X IF DISK, *0 IF ENTIRE PACKET SHOULD BE PRjNTFD. *1 IF 08?55ll5 T OOOOlO 

X NOT. 08?55120 T OOOOlO 

X f 30! 1 3 ON IF »0 WAS USED IN PB MSG, 08255122 T OOOOlO 

X C9»9] RJE TU/BUFF, 08255125 T OOOOlO 

X r?»l] ON IF CALLED FROM PR1NTBACKUP. I.E. A PB MESSAGE, 08255130 T OOOOlO 

X C 1 * 1 J ON IF CALLED FROM PRNPBT/DISK, 08255135 T OOOOlO 

X 08255140 T OOOOlO 

BEGIN INTEGER U» V» I i J» Jl » J2> 51 08955200 T OOOOlO 



RFAL A,HDR,SEGO*S,F=J> 08255400 T OOOOlO 



REAL PBT.PBD.PUDI 08255500 T OOOOlO 



ARRAY Dt*].SHE.AT«Dt*]J 08255600 T OOOOlO 



X 



LABEL TRYAGAIN. PRNPBT.DISKI 08255700 T OOOOlO 

LABEL F0UN0#FIREITUP»0UIT> X7J7- 08255800 P OOOOlO 

DEFINE MFID * (IF V*22 THEN PUD ELSE PBD)#J 08255900 T OOOOlO 

DFFINF STACURR « STAT I ON [STA , [ 44 t 4 ] . STA , [ 39 I 4 H #) 08256000 T OOOOlO 

* SET OMJT s SHAREDISK 08256190 T OOOOlO 

DEFINE SIXTY » 60#| 08?56200 T OOOOlO 

S SET OMjT * NOT SHAREDISK 08256210 T OOOOlO 

S SET OMjT * NOT RJE 08256390 T OOOOlO 

08256420 T OOOOlO 

SUBROUTINE LABFLTHEPR INTER* 08256430 T OOOOlO 

BEGIN LABELTABLEtV]l«Q&P2lt1 *43i5]; 08256440 T OOOllO 

MULTlTABLErV]l»IF V*22 THEN PUD ELSE PBDJ 08256450 T 000311 

ENDJ 08256460 T 000612 

08256440 

08256470 T 000613 



ppT :* "PpT "l PUn i« "PUD "I PBD »* "PBD ") 

$ SFT OMIT a NOT(DATACOM AND RJE ) 

IF Q>fM5) THEN XXX Pfi GIVEN* LOOK FOR UP, 
BFGIN 
i SFT oMfT = NOTfDATACOM AND RjE ) 

IF PMCH THEN IF UBELTABLE[Vtc22]*0 THEN V»«0 ELSp ELSE 
IF LABELTABLE[V*20]#0 ThEN 
IF LABELTA8LEtV*2i]#0 THEN V»0) 

IF V/O THEN X WE HAVE AN OUTPUT UNIT 

IF 0>O THEN X BACK-UP DISK 

BEGIN U:si8! 

LABELTHEPRlNTERJ X TO HOLD IT DURING DISK I/O-S, 
IF AUTOPRINT X CHECK IF A PRNPBT WAS STARTED) 
S SET OMjT a NOT RJE X IF SO, START THIS ONLY FOR PB, 

THFN 

IF ( A:=DTRECT0RYSEARCH(MFlD»Qtl9))#0 THEN 
BEGIN IF M[A*4].[6*1] THEN* NOT FIRST TIME. 
BEr I N 
S SET OMIT s NOT SHAREDISk 

P(PNCH,[2*1])) X SEE 08259625 
END ELSE X FIRST TIME, MARK IT. 

BEGIN M[A + 4),r6M]t«lS 

DlSKWAITCA.tCFJ»-30,A.tFF]); 
Pf 1)1 

FND' 



i SET OMIT a ShARfOISK 



FORGETSPACE(A)? 
UNLOCKDIRECTORYI 



8 POP OMIT 



if p Then else go quit; 
end else go quit; 

go fireitup; 
end else x q<0# pb mt 

begin rrrmech*two(u*abs(q)) or rrrmech) 

LABELTABLEfU] * 

PBT*TINUtVj[6l30ll8J**2lIlU3l5]l 
MULTjTABLEtV] * PBT; 
LABELTABLEfV] ♦ PBT*TlNUtU]t6J30:i8]& 

^ltl'131511 
GO FIREITUP) 
END 



X7 J 7- 

%7\7- 
%7\7> 
%7\7- 
5K7 1 7- 
%717< 
%7\7> 
%7\7> 
%7\7< 



ELSE GO QUIT? 



M » 0» NO OUTPUT UNIT 



E^D) 



BFGIN V«»ABS(0)J X LP COR PUNCH) GIVEN. LOOK FOR FILE. 
IF PBCOUNT#0 THFN X TRY FOR DISK 

BEGIN D**t M[SPACE (90 )]H90[ 8*38*10]) 
* SET OMIT » ShARfDISK 

lockdirectoRyj 



08?56500 
08256699 

08257000 

08257100 

08257199 

08257500 

08257600 

08?58000 

08258200 

08258400 

08258600 

08258700 

08258800 

08258990 

08259200 

08259225 

08259250 

08259275 

08259300 

08259375 

08259400 



08259810 
08259820 
08259830 
08259840 
08259850 
08259860 
08259870 
08259880 



08259425 T 
08259450 T 
08259475 T 
08259500 T 

08259525 T 
08259550 T 
08259575 T 



08259600 T 

08259625 T 

08259650 T 

08259700 T 

08259800 P 



08260000 T 
08260250 T 

08260500 T 
08267000 T 
08267500 T 
08267990 T 
08268000 T 



000613 
001213 

001213 

001313 

001411 

0014M 

0022»0 

0024*0 

0027H 
0028*0 
002911 
003012 
0032(0 
0032)0 
0032*0 
0032*3 
0037»2 
004010 
004012 
0040*2 
0041*1 

08259275 
0041*1 
0045*0 
0047*2 
0047*3 

08259425 
0047*3 
0048*2 
0048*2 

08259575 

08259575 
0052*0 
0052*0 
0052*2 

08259250 
0052*2 
0054*0 

08258600 
0054*0 
0057*0 
0057*2 
0060*2 
0061*3 
0063*3 
0065)1 
006513 

08259810 
0065*3 
0065*3 

08257100 
0065)3 
006613 
0067)2 
0071)3 
0071)3 

08268000 



$ POP OMIT 

a: «mf id; 

Jl»*(A.r6ll8] ♦ a, [24124]) MOD MODULUS; 
FOR J2J.0 STfP 1 UNTIL (MODULUS-!) DO 
BEGIN 
$ SFT OMJT = NOT SHAREDISK 

Jt.SCRAMBLEf Jl#J2); 

DO BEGIN DISKWAlT(-(0 JNX 30 ) , S J XTY, J ) ; 
FOR H»30 STEP 3 UNTIL 87 DO 
IF (Dtf] EQV A) * NOT THEN 
IF DEI+ll.ICFJ-1 THEN 

BEGIN DlSK'WAlTC-D.tCF3»-30.0[I + 2 3,rCFJ)l 
IF Df4 J . [ 1 13] * OR OC*3,t6lU 
$ SET OMIT * N0T(RJF AND DATaCOM ) 
$ SET OMIT = NOT(PACKETS) 

OR LABELTABLETIF V*20 THEN 21 FLSf 
IF V»2l THEN 20 ELSE 223,[6t?4] 
■Dt 1+13, 161243 



$ POP OMIT 



« SET OMIT * NOT SHAREDISK 



* SET PMJT s NOT SHAREDISK 



OH C0C4J.C 16120] OR Dt 9 ] , [ \ I 26 ] )#0 

then 

ELSE 

BEGIN D[4],C6I1]I«1I 

PBC0UNTI*PBC0UNT-1» 

OISKWAIT(0,rCF]»-30»DtI+2].tCF])l 

UU16J 
0«»Dn + l3J 

go found; 



fnd end; 



* SET PMJT « NOT SHAREDISK 

END UNTIL (j:»D[323,tFF3)«0; 

8 SET OMiT = NOT SHAREDISK 

FND* 

FOUNDl FORGETSPACF(D)' 

* SFT OMjT » SHARFDISK 

unlockdiRecTory; 



$ POP OMiT 



END SEARCHING FOR DISK? 



end; 



* 



IF WE HAVE BOTH AN INPUT FILE AND AN OUTPUT UNIT, 
FIRE UP PRNPeT/DTSK. 

if u*o and v*o then 

BEGIN 
* SET OMIT s NOT(DATACOM AND RjE ) 
LABELTHEPRINTER; 
FJRfJTUPI 



08268010 
08268500 
08268600 
08268700 
08268750 
08268790 
08268900 
08268950 
08269000 
08269100 
08269200 
08269300 
08269400 
08269499 
08269509 
08269510 
08269520 
08269530 
08269531 
08269600 
08269650 
08269690 
08269750 
08269800 
08269900 
08270000 
08270040 
08270100 
08270200 
08270300 
08270350 



08270390 
08270450 

08270490 
08270550 

08270600 
08270640 
08270650 



08270660 
08270700 



08270740 
08270745 
08270750 
08270800 
08270819 
08271000 
08271750 



08270725 T 



08268000 
007811 
007811 
008110 
008313 
008810 
008810 
008810 
0095«0 
009711 
009910 
010013 
010311 
010H2 
010911 
010911 
010911 
0112U 
011412 
011610 
011610 
011912 
012011 
012011 
012013 
012313 
012SJ0 
0128U 
012811 
012911 
013013 
013H1 

08269800 

08269300 
0133>2 
013312 

08268950 
013610 
013610 

08268750 
013612 
013712 
0137«2 

08270650 

08270650 
0141 10 
014110 

08267500 
014110 

08260500 
014110 
0141»0 
014110 
014213 
014311 
0143H 
014410 



S SFT OMyT 

tryagaini 



Al«V4Ut38i*3l5JiPNCHt?l I30ll7]l 
NOT RJF 

if pnch.ii'u then pca) else 

BEGIN 



IF 



(HOR«*DIREC 
BEGIN 
SHFAT )• [ 

M[F-?],[9I 
MOVE(30»F- 
SFGO t = TY 
McSEGO-2], 
DISKWAITC- 
F.tFF] )■ 
SHEATr7] t 
SHFAT[0] j 
SHFATtl) I 
SHEATf?] ) 



ToRYSEARCHCP(PRNPBT)»P(DlSK)»3)) * THFN 



SHEAT[ 16] 
SHFATT19] 
SHEAT[20] 
SHEATr2l] 



MrFJsT 

6] \9 

l.F)) 

pfdspa 
caReam 

SfGO. 
HDRl X 

a SfGO 

«= PfPR 
* P(OI 
= & 

(PNC 
!s SHE 
I* A> 

i* 4; 

la 150 



YPEDSP 
0} MtH 

CE(30» 
I XF 3 I 
30, MC 

CORE 
» % C 
NPBT)) 

Sk)I 
PRNPBT 

XPRIOR 
H.t2*l 
ATt 173 



; 



ACE(31»SHEETAREAV)J]R30rSlZE] J 
DR INX NOT Ij.f9l6]tv0l 

SEGZEROAREAV)!! *167« 

* 0|* J5167' 

HDR INX 10JJJ 

ADDRESS OF HEADER 

ORE ADDRESS OF SEGMENT ZERO 



C0DEE5U5I33 & 2t 81381 10] & 

ITY«0» EXECUTE CODE 
]*0)[4)47)1J) % SET IF NOT "PB" 
l» P377777777777) % TIME LIMITS 

% COMMON VALUE 

J! CORE ESTIMATE 

* STACK SIZE 



STREAM(A»*Oi SJsPf, SCHEDULE IDS)) J 

BEGIN 

Sji=s; 

47CSKIP SB* SKIP DB) TALL* I "TALLY + 1 1 

IF SB THEN ELSE JUMP OUT)) 
DSJaSET; A*»TaLLY; 
END STRFAM STATEMENT) 



SCHEDULE 
DIV 601 



NUMBER 



S SET OMjT ■ 



X131- 
ADDRESS OF FILE HEADER 



I »= p; 

SHEAT[33.t8MO] Is J) % 
SHEAT[23] I* (CLOCK + P(RTR)) 
SHEAT[24] l n MCP) 
NOT(DATACOM AND Rje) 

SHFATr?5] t s HDR.rFF]) % DISK 
STREAM(A, I j«j *»spacecii>); 

BEGIN 

DI ««Dl + 16l 

0Sl»30LIT M CC EXECUTE PRNPRT/D I SKI COMMON*") 

Sl«»LOC A» dsi.sdec; 

DSt=6LlT"JFND.«-"J 

END STREAM STATEMENT) 

Mr 1 3 » a oj Mti + i Ji*io; 

SHEAT[6] is GETESPDlSK & lOf IB I 331 153 f 

DlSKWAlTfl* 11, SHEATr.6j.rCF3)* 

FORGETSPACE(I)) 

INDEPENDENTrUnNER(P(.SELECTRUN)»F»160)) 

P(l)) 

END ELSE X IF IN DIRECTORY 

BEGIN 



08272000 


T 


0144)0 


08272240 


T 


014613 


08273250 


T 


014613 


08273500 


T 


0148)1 


08273600 


T 


015010 


08273750 


T 


015010 


08274000 


T 


0152U 


08?74250 


P 


015213 


08274260 


T 


015710 


08274500 


T 


016313 


08?75500 


P 


016513 


08275600 


C 


016810 


08275750 


T 


017H1 


08276000 


T 


0174)0 


08276050 


T 


017511 


08276100 


T 


0176)2 


08276150 


T 


017713 


08276200 


T 


0179)0 


08276203 


T 


0181)3 


08276205 


T 


0181)3 


08276210 


T 


018411 


08276220 


T 


0186)2 


08276230 


T 


0187)3 


08276240 


T 


0189(0 


08276250 


T 


0190)1 


08276260 


T 


0190)1 


08276270 


T 


019112 


08276280 


T 


019112 


08276290 


T 


0191 13 


08276300 


T 


0192)3 


08276310 


T 


0194)1 


08276320 


T 


0194)3 

08276270 


08276330 


T 


0195)0 


08276340 


T 


Ol95>0 


08276350 


T 


0195)2 


08276360 


T 


0198)0 


08276365 


C 


0200)1 


08276370 


T 


0202)1 


08?76400 


T 


0202H 


08276410 


T 


0204)0 


08276420 


T 


0207)0 


08276430 


T 


020710 


08276440 


T 


020711 


08276450 


T 


0211U 


08276460 


T 


021113 


08276470 


T 


0212)3 

08276420 


08276480 


T 


0213)0 


08276490 


T 


021612 


08276500 


T 


0218)2 


08276510 


T 


0220)2 


08276520 


T 


0221)1 


08276530 


T 


0222)2 


08276540 


T 


022213 

08274000 


08276550 


T 


0222)3 



PRNPBT 1 1 : 
OjSKI I I 



fntf.rsysfilfoj; 

f,0 TRYAGAIN; 
"PRNPBT "j 

"DISK *; 

FNDI 



FNDi 



FNO 



PRlNTORPUNCHWAIT'sP' 
TLSF 



QUlTI IF V NfG THEN 
$ SFT OMjT ■ NOTCRJF AND DATACOM ) 

LABELTABLFtV]»«MULTlTABLE[V]l: 
FND PRlNTWATTJX 



.0; 



08276560 
08276570 
08276580 
08276590 
08276600 



08?77000 T 

08277500 T 
08278000 T 



08279000 
08280000 
08280009 
08280030 
08281000 



T 0225«0 

T 0225*3 

T 0226U 

T 022810 

T 0229«0 

08276550 
0229J0 

08273500 
0229J0 
0229J2 

08270800 
T 0229J2 
T 022912 
T 023013 
T 023013 
T 0233*2 

08255200 
SIZE' 0234 WORDS 



PRT(575) « 



STACKfT+l) 
STACKfF+2) 
STACKrF+3) 
STACKfF*4> 
STACK(F+5) 
STACKrF.l) 



PRlNTBA 
% 
% 
% 
% 
% 
% 
% 
% 

m U 

■ I 

. COPY 
a MS 
. STA 
ar B 



PROrFDURF PRINTBACKUP(BUFF)J VALUE BUFFJ RFAL BUFF» 
CKUP 



XP 
START OF REL 



08282000 T OOOOlO 
SEGMFNTJ DISK ADDRESS * 00272 



This procedure handles thf pb message, making the necessary chfcks 
and thfn calling prl ntorpunchwa i t, the syntax of the message i si 
<pb msg> *t« pb<input filf><pb specs> 
<input filf> it* <tape unlt> / <dis« file number> 

<PB SPECS> :t= <PB ElEMFNT> / <PB ELEMENT><PB SPECS> / <EMPTY> 
<PB FLFMENT> lis p / b< N UmBER OF COP!ES> / #<STARTING FILE NUMBER> 

BEGIN REAL U, I , COPY, MS, STa » B«BUFFI 



SFT oMfT s NOT (DATACOM AND DCSpo) 

LABEL 0K,BA0»SPIT; 
SFT OMIT b NOT (DATACOM AND DCSPO) 

STREAMfPCPYlal* NUMfiUl, N»si» CPYIb-OI B**BUFF)I 

BEGIN &I+B* DI*L0C Hi 

l» if sc« M " then begin si*si+ii go to l end; 



*p 
XP 



if sc<"0" then begin ds*s lit«+oooo*; ds*3 chr end elsf*p 

BEGIN B:ssSi; 

4MF Sc<«0« THEN JUMP OUT; TALLY*TALl.Y* 1 1 S|*SI+1); 
si:»b; B«=TALLY> D I I *DI +5* D I * *D i -b; 

ds*b chr; xp 

end; 

lls if sc=" " then begin siibsimi go to ll end; 

if sc* M « M then begin dh=loc cpy; go to cnt end; 

if sc» M *" then 

BEGIN DM=L0C NUMB; 

cnt: siiaSi + i; b»bSu if scb» •» Then go to cnt;tallyi»oi 
3cif sc < w 0" then jump out; 
if sc > *9» then jump out; 
tallyibtally+i; si:»si + d; 

SpaB; B»«T A LLY; DStsB OCT; 

go to ll; 
end; 

IF SC= n P M THEN 

BEGIN TALUlwO; PcPYIbTaILYI Sll«Sl+lJ 

5f if scbalPha Then if sc< w o* then sp»si + i elsf 

jump out else jump out); 
go to ll; 
end; 

fnd; 

COPYiBfcOPYtaPUfNOT C^PY ■ NOT 0) [ 31 1 47 I 1 J ; 



08282100 
08282110 
08282120 
08282140 
08282150 
08282160 
08282170 
08282180 
08283000 



08783400 
08784000 
08284450 
08785000 
08286000 
08287000 



08789000 
08789500 
08290000 
08290500 
08291000 



08291075 
08291100 
0829H25 
08291150 
08291175 
08291200 
08291225 
08291250 
08291275 

08291300 
08291325 
08291350 
08291375 
08791400 
08291425 



08788000 T 



08291025 T 
08291050 T 



08291450 T 
08291460 T 



OOOOlO 
OOOOlO 
000010 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 



OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
000312 
000410 

08287000 
000510 

08288000 
000710 
000711 
000911 
001012 
001 1 10 

08289000 
001 1 I 

08291025 
0012(0 

08291050 
0013(0 
001312 
001313 
OOlSU 
001612 
00l7>2 
0016M 
001911 
0019:2 

08291100 
001912 
002010 
002013 

002212 
002410 
002411 

08291325 
0024U 

08266000 
002412 



% 
% 

% 



% 
% 

% 

% 
% 



OKI 



BAD* 



RACK DP TAPF. CHECK THF LABEL THEN CALL PR I NTORPUNCHWA I T. 

if (in«P) < o then 

BEGIN COPYi«COPY*fPf XCH>-1 >C32U0|8]I 
IF NOT MTXiN(!.U,B) THEN 

IF (STAIsMULTlTABLECU3i*"PBTMCP " OR STA) AND 
MULTTTABLF[U]#"PUTMCP " THEN 
BEGIN STREAMfBUFFJl OSI*l9 U IT" NOT A BACKUP TaPE*"I 

60 TO SPIT J 
END 



FLSF 

IF PRlNTORPUNCnWAlT(-U, STA&COPy r 30l 31 1 1 7] OR 
(iO TO OK fLSf BEGIN MSIa«ll GO TO BAO END 

elsf go to spit; 



M) THEN 



END? 



RACK UP DISK, SET FIRST REFL NUMBER. JF COPIES OR REEL NUMBER 
GIVEN, DIAL IN «P" BIT. ELSE LEAVE IT OFF TO PRINT ENTIRE 
THlNfi. CHECK FOR THE FILE* THEN CALL PR INTORPUNCHW AI T . 

STRFAM(IlsP» UI«tU])I 
BEGIN Sn.LOC II DIJ*DI+5; 
DS:«3 DEC? 

end; 



T !■?•! I 

IF (COPY OR I>.[CF3*0 THEN P(DEL) 
C0PY««C0PY&P(XCH)[39U7tl )l 

BUFF»sBUFF.tl5«15]-ll 

if ( i !»dirfct0rysearchc"prd 
if ch=directorysearchc m pud 
elsf sta«»sta or u 

PC Mf 1+1 ] 3 ; 

forgetspacfcd; 

IF P. 12*1] THEN BEGIN MSl s 2l 



ELSE 



"»U*5)>*0 
"tU.5))«0 



THEN 

then 



GO TO BAD 



GO TO BAD ENDI 



PBC0UNT»*1> 
STA&COPY t30* 31 * 173 



or m) then 



pcdup) then tjnucu] else u. 



IF PBCOUNT LSS 1 THFN 
IF PRjNTORPUNCHWAlTfU, 

forgftspace(buff) 

flse: 

PFGIN MS l«l I 

STRFAM(MS» X**MS<0. USsjF 

buffisbuff.ccfJ); 

BEGIN D5»s8 LIT" NULL PB"» 

si««loc uj cP*ci+x; 

Si JxSi+51 DSI*3 chri 
sii»si + i ; ds**4 chri 

BUFF»«DII Dl • vDl -41 DSl.3 FILL* DH*8UFFI 

DSt = 2 Ll Tw *C w * 

CI » »C I +MS j GO To LOI GO TO Lll 

DS«s 6 LIT"JN USE") GO TO L* 

DSIpU LIT M NO OUTPUT UNIT"; GO 

DSI«11 LIT"NOT ON DISK"! 



GO 
GO 



TO 
TO 



dk; 

ll; 



dk» 

LL I 



08291470 
08291475 
08291480 
08291500 
08291750 
08292000 
08292500 
08293000 
08?93500 
08294000 
08294500 



08296160 
08296170 
08296180 
08296190 
08296200 
08296225 
08296250 
08296275 
08296300 



08296 
08296 
08296 
08296 
08296 
08296 
08297 
08297 
08297 
08297 



325 
350 
375 

400 
600 
800 
000 
200 
300 
400 



Lll 

LOl 



to l; 



08297600 
08298000 
08298200 
08298400 
08298600 
08298800 
08299000 
08299200 
08?99400 
08299600 
08299800 
08300000 
08300200 
08300400 
08300600 
08300800 
08301000 



08295000 T 
08295200 T 
08295600 T 

08295800 T 
08296000 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0027 
0027 
0027 
0027 
0028 
0031 
0032 
0035 
0036 
0040 
0044 

0044 
0044 
0047 

0049 
0049 

0049 
0049 
0049 
0049 
0049 
0049 
0050 
0051 
0051 

0051 
0052 
O055 
0057 
0059 
0061 
0064 
0065 
0067 
0068 

0073 
0075 
0077 
0078 
0078 
0080 
0083 
0084 
0065 
0066 
0087 
0087 
0086 
0089 
0090 
0091 
0093 











*2 
12 

*2 
*2 
«2 

«1 
:3 
M 
12 
13 
10 

8293500 
10 
SO 

»1 

08295600 

*2 

*2 

8291750 
'2 
«2 
:2 
*2 
*2 
*2 
12 
:0 

«1 

08296250 

12 

»2 

10 

!1 

10 

11 

JO 
'3 

'1 

10 

08297400 

10 

10 

«2 

>1 

'3 

SO 

II 
'1 

»2 
»2 
'1 
>3 
13 
»1 
«l 
(2 
13 



L I DS*s 2 LIT")*"; 
FNDI 

SPlTI SPOUTCBUFF 

s sft om|t = not (qatacom ann dcspo) 

fndj 



END OF PR KFY80ARD MESSAGF HANDLER? 



08301200 
08301400 

08301600 
08301650 
08301800 
08302000 



08302500 T 



T 0095»2 
T 0096«0 

08299200 
T 0096S1 
T 0096U 
T 0096U 
T 0097J2 

08298600 
0097J2 

08283000 
SIZF* 0098 WORDS 



save procfoure initialize? forward; 



PRT(576) * ?NI T I ALIZF 

RFAL ArTOATE-INlTfALlZEl 
PRT(576) c ACTDATE 

SAVE Rfal procfoure corendi 



FORWARD' 



prt(577) * corend 

Real wfekdayscorend* 
prt(577) * weekday 

procedure timeout (8)) value b; real bix 



PRT(600) s TIMEOUT 

STACKfF+1) s M 

STACKfF+2) m H 

STACKfF+3) - C 



BFOIN INTEGFR M#H,C?j; 



C *XCIOCK/3600I« 
M ♦ c MOD 60?* 

h * c div ton 

STREAMtH»M»B);« 

BFGIN DS * 9 LIT " TIME fS »t% 
Si * LOC HI DS * 2 DEC? DS 
DS * LIT "♦«* 

end??; 



08303000 T OOOOlO 
START OF SAVE SEGMENT? BASE ADDRESS ■ 00640 

08303100 T OOOOlO 

08303200 T 0000*0 
START OF SAVE SEGMENT? BASE ADDRESS ■ 00640 

08303300 T 0000*0 

08305000 T OOOOJQ 
START OF REL SEGMENT? DISK ADDRESS • 00276 

08306000 T 0000*0 



* 2 DEO* 



SPOUTCB INX MEM0RYCB-13); 



FNDII 



08307000 
08308000 
08309000 
08310000 
08311000 
08312000 
08313000 
08314000 



08315000 T 
08316000 T 



T OOOOlO 
T 000210 
T 0003*1 
T 0004*2 
T 000583 
T 000711 
T 000810 
T 0008«2 

08311000 
000813 
0011*3 

08306000 
SIZE* 0013 WORDS 



PROCEDURE GfMEOATE(B»DT)l VALUE B»DTI REAL B.DTI 



STACKfF+1) 
STACKcF+2) 
5TACK(F+3) 
STACKfF+4) 
STACKfF+5) 



XX PARAMETER USE iSi 

%% rsoutput area for message or date 
s*dtsO rfconvfrt actdate, weekday then 
xx dt>0 spout time msg only 
%% dt<0 convert mmddyy using 

BEGIN REAL M pD» Y . NC V» NMG J 



START OF REL 



spout time msg 
dt (actdate^weekday not changed) 



= M 
s D 
= Y 
s NCV 
s NMG 



08317000 
SEGMFNTl DISK 
08317100 
08317200 
08317300 
08317400 
08317500 
08318000 



T OOOOtO 
ADDRESS 



00?77 



ONI 



nocnvi 

NOMSG« 



real subroutine dayi 
becin;stream(mix*o»y*o»z*o)i 

begin di*loc xi ds*24 li t"000«-0x1 , l y2g2v3d3t4 a4 
si*loc xi si*sum| s!»si+m| 
di*loc ml di+di+6j ds*2 chri 
end; 



5> M ; 



END 



DAY*P> 
DAY! 



LABEL DAYS! 

LABEL ONJlX 

IF NOT (NC v *f DT>0)) 

BEGIN 

STREAM(DATE*IF fNMG' 

BEGIN Sf «> LOC 
DS«-2 OCTI 

E^DIX 



THFN X NOT PRlNT ONLY 

DT.tlUJ) THEN DT ELSE DATE»R*[Y])I 
DATE! Si * SJ+3IX 
Dl*DI-16l DS*3 OCTI 



I F y MOD A « ANn Y * THEN* 

begin if d * 60 then* 

begin m*2i go on endi 

if d > 60 Then d *d-i»x 

ENDIX 
FOR M*1 STEP 1 UNTIL 11 DO 

if day^o Then go on; 

M*M-J I 

D*D-DAY| 

IF M<2 THEN Pf Y-l »M*1 1 ) ELSE PCY»MM)I 

P(?6#x,2,-M0»IDV,D»+»XCH»P(DUP),t36ll0],+»+#7fRDV»5#lSN)l 

IS P( .DAYS**, LOd)| 

M*M+1 I 

END ELSE P(WEEKDAY); 

stream? m* tm j, nmg » ncv. mo y*c actdate 3 .b .date »0w*t weekday]) i 
begin nmgfjump out to nomsg)* 
si*loc m; si*si-16; 

NCV(Sl*SI+2l JUMP OUT TO NOCNV)! 

DS«-WDSI SI*SI-6I 

DI*BI DS*9 L!T H DATE IS "I DS*6 CHRl 

DS*5 LIT"DAY. "I B*DH NCV(JUMP OUT TO NULCV)! 

Si*MI NMG(Dl*BI JUMP OUT TO NULMS)) 



08318100 
08318200 
08318300 
08318400 
08318500 
08318600 



08318900 
08319000 
08319700 
08319900 
08320000 
08321000 
08322000 
08323000 



08329000 
08330000 
08331000 
08332000 
08332100 
08332200 
08332300 
08332400 
08332500 

08333000 
08334000 
08334100 
08334300 
08334500 
08334700 
08334900 
08335000 



08318700 T 
08318800 T 



08324000 T 
08325000 T 
08326000 T 

08327000 T 
08328000 T 



000010 
0000(0 
OOOOtO 
000010 
000010 
OOOOtO 



000010 
000110 
0002(3 
0006 U 
000712 
000811 

08318300 
000812 
000813 

08318200 
000910 
000910 
OOlOtl 
001t»3 
0012U 
001513 
0016U 
001710 

08321000 
001711 
001912 
0020(3 

08326000 
002212 
0025(0 

08325000 
0025(0 
0026(0 
003011 
0031(2 
0033*3 
003810 
0042(2 
0043»3 
0045(0 

08319900 
004513 
0048(0 
0049(1 
004913 
005H1 
0051(3 
005313 
0056(1 



nulmSi 

NULrV! 



0XIT» 



Dl*MDYl 

DS*4 DEO DS*2 DEC* DS*2 DEC? 

NMQ(JUMP OUT TO OXJT)! DI*B> 

SUMDY* SI*SI+?J 

OS*? CHR» 2(DS*LIT "/"I DS*2 CHR>» 

DSl»2 L iT"-f - * SnsLOC DATE* 

S 1 1 « S i + 3 ; DS»*5 CHRJ DS»*2 LlT")* w J 

Si i*B; 

3(DI «• Bi DS * F ILL J Si * SI+3J B ♦SDll 



END? 



DAYS: '• t 

FNDJ* 



if duo then 

IF NOT NMG THEN SPOUTfB I NX MEMORY[ B*l ] ) I 
PfXiT) * 

" mow," tufs","wf[)nes",« thurs"," fri"f m saturn, 
" sun m ; 



08335200 


T 


0058«0 


08335400 


T 


0058M 


08335600 


T 


0059J0 


08335800 


T 


006012 


08336000 


T 


0061 10 


08336500 


T 


006212 


08337000 


T 


0063U 


08337500 


T 


006411 


08338000 


T 


006412 


08339000 


T 


0066(0 

08334000 


08339500 


T 


006611 


08340000 


T 


006710 


08340100 


T 


007112 


08340200 


T 


0071 »3 


08340300 


T 


0078J0 


08341000 


T 


007910 

08318000 



SIZE* 0080 HOROS 



DEFINE nATEOUTfDATfOUTl)»GlME:DATE(OATEOUH»0)#> XCHANGE DATE 
PROCEDURE SETDATErB'JFF); VALUE BUFF» REAL BUFF»X 



PRT(601) 9 SETDATE 



& SPOUT IT 
START OF REL 



08342000 

08343000 

SEGMENT! DISK 



T 0000)0 
T 000010 

ADDRESS ■ 00280 



STACK(F+1) 
STACKfF+2) 
STACKfF+3) 
STACKrF + 1 ) 
STACKfF+4) 
STACKfF+2) 



DY 

MN 
YR 

D 
B 
T 



RFGJN REAL DY,MN»YRJ INTEGER D«DYI REAL B»T*MNi 



REAL SUBROUTINF C« 
BEOIN?STReAM(C*-0«B*[B] )» 

BEGIN* 



L» 



KJ 



SI 
IF 



IF 



* RJ Sj * S I +51 

sc < M o w then* 

BEGIN IF SC m « 
Sj ♦ Sl+ll 

fnd»* 



SI 



so* 

•» then go 
go to l;x 



TO X;x 



sc * "o* Then* 

BEGIN TALLY * TALLY+1JX 

Si * sun go to k 



end;* 



DI 
SI 

si 

XJEND?* 
C*P) 



8> 8 * S I f Si * LOC B> DS - 
B' B * TALLYI DI * LOC CJX 
SI-BJ DS •- B OCTJX 



WDSJX 



end c; 

B ♦ BUFFI* 

MN«-CJ DY«-C* YR*C 

BUFF •■ BUFF.r l5l 1S3«11X 

TF MN > AND MN < 12 AND* 

DY > AND DY * 31 AND* 
YR > THEN* 
BEGIN?STREAMfM*MN-l » X..0 , Y*0, Z*0 ) I 

BEGIN DI*L0C XJ DS-24 L I T"000*OX 1 , 1 Y2G2V3D3T4A4 5>"J 
Sl*L0c X| Sl«S I4.MI Sj*Sl+Mj 
DI*LOc M; DI*DI+6| DS*2 CHRl 
END) 



dy*p+dy; 

IF YR MOD 4 c AND MN 
YR MOO 400 c 

DY ♦ DY + 1U 
D * YR MOD 100 x JOOO+DYJX 
STREAM(D#A*CDATF])J* 

BEGIN Si * LOC D) DS * 



> 2 ANDCYR 

0) then* 



MOD 100 * OR* 



8 DEC END** 



ChANGEOATeCBUFF)** 
END FLSE SP0UT(BUFF 



INX MEMORYEBUFF -13)1 



END!* 



08344000 T 0000)0 



08344100 
08344200 
08345000 
08346000 
08347000 
08348000 
08349000 
08350000 



08359000 
O836OOOO 
O836IOOO 
08362000 
08363000 
08364000 
08365000 
08365100 
08365200 
08365300 
08365400 

08366000 
08367000 
08368000 
08369000 
08370000 
08371000 
08372000 



08351000 T 

08352000 T 

08353000 T 

08354000 T 

08355000 T 

08356000 T 

08357000 T 

08358000 T 

08358100 T 



08373000 T 
08374000 T 

08375000 T 



0000)0 
000110 
0002M 
0002U 
000310 
000312 
000411 
000413 

08348000 
000413 
0005)1 
0005)2 

08352000 
0006)0 
000710 
0007)3 
0008)3 

08345000 
0009)0 
0009)1 

08344200 
0009)2 
0011)3 
0017)2 
0019)1 
0021)0 
0023)0 
0024)0 
0026)3 
0030)1 
003U2 
0032)1 

08365100 
0032)2 
0033)2 
0037)0 
0038)3 
004012 
0042)3 
0043)3 

08372000 
0044)2 
004511 

08365000 
0048)3 

08344000 



SIZES 0049 WORDS 



PROCEDURF CHANGEDATE(BUFF); VALUE BUFF* REAL BUFFJX 08376000 T OOOOlO 

START OF REL SEGMfNTi DISK ADDRESS * 00282 

BFGIN REAL B,C,D,TI« 08V7000 T OOOOlO 
STACKfF+D * B 
STACKfF+p) s C 
STACKfF+3) c D 
STACKfF+4) a T 

SLEEpcrTo&LE].HolDMASx)J 08378000 T 000010 

LOCKTOG(H0L,OmASk)> 08379000 T 000212 

08379000 

B * SPACE(30)?X 08380000 T 0006»0 

DISKWAITC-B.-30,DIRECT0RYT0P)J 08381000 T 000811 

D»* M[B+1]S* 08381100 T OOlOlO 

M[B+13 ♦ DATEIX 08383000 T 001210 

MtB + l81l»XCL0CK| 08383100 T 001410 

DlSKiO(T.B"l»-30tDlREcTORYTOP)l 08384000 T 00l6«0 

IF BUFF*0 THEN 08384100 T 001811 

BEGIN* 08384200 T 00l9l0 

DATEOUT (BUFF)JX 08385000 T 001912 

C is TYPEDSPACEf 5, MA I NTBUFF ARE AV ) J X X167- 08385100 P 002012 

M r c ]le M[C+2Jl* OIX 08385200 T 002213 

Mr C + 33 » » Oi% 08385300 T 002610 

STREAMCDATE#At*C+l)* BEGIN SM«LOC DATE* DSJsS OCT! ENDJX 08385400 T 002810 

08385400 

LlNKUP(l7,Cm 08385500 T 003011 

ENDJX 08385600 T 0031H 

08384200 

SLEEP([T],IOMASK)*l 08386000 T 003H1 

forge:tspacecb)jx 08387000 t 003213 

UNLOCKTOGf HOLDMASk)' 08388000 T 003312 

08388000 
ENDIX 08389000 T 0037«0 

08377000 
SIZE* 0038 WORDS 



PRT(60?) = SFTTlME 

STACKrF-1) = B 
STACK(F+1) = T 

STACKfF+2) = I 
STACKfF+3) = R 



PRTC171) * CLOCK 
PRTC171) * CLCK 



procedure: sftimecbuff)* valuf buff* real buffi* 
bfgin real babuff,tj!k 

Rfal i »r;x 



08390000 T 000010 
START OF REL SEGMFNTl DISK ADDRESS * 00284 

08391000 T 000010 



label exjtj* 

Rfal clock*xclock;x 

INTEGER CLCKbCLOCKJU 

T «- -JlX 
STREAHCB»T*[T])r* 

BEGIM Si * BjX 

L» IF SC ■ " " THENX 

BEGIN SI «■ Sl + U f,0 TO L ENDU 

IF SC < "O" THEN GO TO XJX 
Kt IF SC * "0" THENX 

BEGIN SI * Sl + U TALLY * TALLY+1IX 
GO TO K ENDIX 

B «. tally* si * si-b; ds *■ b octix 

X t X 

FNDJ* 

BUFF * BUFF,ri5U53-il* 

IF T > AND T DIV 100 < 24 AND T MOD 100 < 60 THFNX 

BEGIN R :* TyPEDSPACE(5»MAINTBUFFAREAV>;« *167' 
McR + 2]«b XCLOCKJJ! 
CLCK»s fT DlV lOO x 60 + T MOD l00)x3600IX 

clock •■ (clock or p77) + ji* 
timeout (BUff)*x 

MtR]» s M[R+3J** 0}% 

STREAM(DATE,Al«R+l)lX 

BEGIN Sissl.oc DATE) DS»=8 OCT J ENDIX 

LlNKUP(l7»R)JX 
GO TO EX I Til 



ENDIX 

SP0UT(BUFF INX MEMORY r BUFF-13 ) I 
FXITIX 

ENDIX 



08392000 T 000010 



08393000 T 0000*0 
08394000 T 0000*0 

08395000 T 000010 



08396000 
08397000 
08398000 
08399000 
08400000 

08401000 
08402000 
08403000 
08404000 

08405000 
08406000 
08407000 

08408000 
08409000 
08410000 
08410100 
08410200 
08411000 
08412000 
08412100 
08412200 
08412300 

08412400 
08413000 
08414000 

08415000 
08416000 
08417000 



T 000013 

T 000H3 

T 000213 

T 000310 

T 000312 

08400000 

T 000410 

T 000413 

T 0005*1 

T 0005*3 

08403000 

T 000610 

T 0007*1 

T 0007*1 

08398000 

T 0007*2 

T 0009*1 

P 001310 

T 00J5I3 

T 0017*3 

T 0021*0 

T 0022*3 

T 0023*2 

T 002613 

T 002811 

08412300 
T 0029*0 

T 0030*0 
T 0032*0 

08410000 
T 0032*0 
T 0035*0 
T 0035*0 

08391000 
IZE» 0036 WORDS 



RFAl PROCTOURE rORMESS(BUFFfHl)» VALUE BUFF,H1> REAL BUFF 
PRT(603) s pORMfSS 



STACKrF+?) , B 

STACKfF+3) = H 

STACKrF+4) « U 

STACKfF+5) s Ml 

STACKfF+6) * I 



BFGTN REAL RfH»U»Ml J 



INTEGER II 

LABEL AGAIN. EXlT»AWAYJ 

Ml •■MFRUFF.r 15H53-2]* 
STREAMf BUFF« ); 
RFGIN SKaBUFFI 

L-i if Sc*" - then begin sji-si + i* go to l end; 



HI * 08418000 T 0000*0 

START OF REL SEGMFNT; DISK ADDRESS « 00286 

O84185OO T 000010 



08/M8700 T 000010 



1 



BUFFlaSl » 



FNDJ 



A G A I N I 



BUFFl-PI 
UI»FORMESSi»UNjTlN(TTNU.BUFF)J 

if u<3i Then begin slfeputoglei.statusmask); 

IF LABELTABLFCU) < THEN* 

BFGIN STREAMf A«sTfNU(UJ»8»sB»sSPACE(5))> 

BEGIN St * ioc a; Si * Si + 5; ds «• 
0S*«24LlT» IN USE(T0 BE READIED)*"; 

FNQJ3! 

SAVEWORo »« SAVEWORD AND NOT TWO(U); 
SPOUT(B); 

if hi Then go away else go to exit; 



3 ChR>* 



end; 



LABFLTA8LErU]:«*jl4*HltlM7U]l 
MULTlTABLErU] * Oil 
I «■ TW0(U)JSS 

if hi then b**not o else 

BEGIN Bt*N0T I* h»*I **01 

IF U*?3 THEN Ht*P(,READERA); 
IF Us?4 THFN H»*P(,READERB)1 
IF H#0 THEN 

BEGIN UNlTC00F[U«23]?*-0) 
IF C*H),rCF]#0 THFN 
BEGIN F0RGETSPACE(*H"2)> 

MrHl«»o; 

END! 



ENf)l 



END» 



READY «• READY AND B OR \i% 
RRRMECH * RRRMECh AND B OR JlX 

SAVEW0RD * SAVEWORO AND H OR MX 

END* 



EXIT! 



IF NOT HI THEN 



08419000 


T 


ooooto 


08419100 


T 


0000*0 


08419200 


T 


000410 


08419300 


T 


0005*0 


08419400 


T 


0005U 

08419400 


08419500 


T 


0006U 


08419600 


T 


000612 

08419300 


08419700 


T 


000613 


08420000 


T 


0007»1 


08421000 


T 


000912 


08422000 


T 


0012U 


08424000 


T 


001 3 1 t 


08425000 


T 


00l7»0 


08426000 


T 


00l7»3 


08437000 


T 


0021 *0 

08425000 


08427100 


T 


0021*1 


08428000 


T 


0023*1 


08429000 


T 


002412 


08429500 


T 


0025*3 

08424000 


08430000 


T 


0025«3 


08431000 


T 


002810 


08432000 


T 


0029»1 


08433000 


T 


003012 


08434000 


T 


0032*1 


08434100 


T 


0035(0 


08434200 


T 


0037*0 


08434300 


T 


003910 


08434400 


T 


003913 


08434500 


T 


004211 


08434600 


T 


0043*3 


08434700 


T 


004513 


08434800 


T 


004711 

08434600 


084 34900 


T 


0047*1 

08434400 


08434950 


T 


0047U 

08434000 


08435000 


T 


004711 


08436000 


T 


004910 


08437000 


T 


005013 


08437050 


T 


0052*2 

08421000 


08437100 


T 


0052*2 



BEGIN If U GTR 31 THFN 

RE GIN STREAM(BUrF,B«sB»=SPACFf5))J 
BEGIN 0S5st« LIT'MNV KBD RY*; 
SlJaBlJFF; 0S*»3 CHRJ 
DSsaL T T-* M J 

end; 



AWAY? 



FNDS 



SPOUKB jNX Ml ) < 



ENDI 



stream(Okjso,buff: >; 

BEGIN SI I cBUFFf 

3CIF SCs M " THEN JUMP OUT? 

IF SCe ,, »" THEN JUMP OUT? 

IF SC*"«-" THEN JUMP OUT TO 13; 

Si i»Sf + l )l 
Li J IF SC»" " THFN 
L2» RFGTN SpsSI + i; GO TO Ll END* 



L3« 

FNni 



IF SC*". H 
BUFFJsSj; 
IF SC*"*" 

ok : =t ally; 



THFN GO TO L2* 

thfn Tally » «n 



BUFFJsP; 

IF P THEN GO 

FORMfSS:s-U 



AGAIN 



IlsSPACEf 30)5 
DiSKWAlT(-I,3O,f)iRECT0RYT0P-SYSNO) J 

mci+?9]:3Saveword; 

DjSKWAiTf I, 30, DIRECTORY TOP-SYSNO); 

forgetspacec i); 

ENO> 



*146« 
X146« 

ri46- 

55146- 
S146- 



08437150 
08437200 
08437?50 
08437300 
08437350 
08437400 



08437450 T 
08437500 T 



08437550 
08437600 
08437650 
08437700 
08437750 
08437800 
08437850 
08437900 

08437950 
08438000 
08438050 
08438100 
08438150 



08438200 T 

08438250 T 

08438300 T 

08438350 T 



08438400 
08438410 
08438420 
08/138430 
0843844O 
08438500 



T 0053*0 

T 0054*1 

T 005713 

T 005911 

T 0059*3 
T 006011 

08437250 
006012 

0062*1 

08437200 
T 0062*1 
T 006312 
T 0063*3 
T 0065*0 
T 0066*0 
T 0067*0 
T 0067*2 
T 0068*0 

08437900 

T 006812 
T 0069*1 
T 006912 
T 0070*1 
T 0070*2 

08437600 

0070*3 

0071*1 

0072*0 

0073*0 

08437150 
C 0073*0 
C 0075*1 
C 0077*1 
C 0079J1 
C 0081*0 
T 0081*3 

08418500 
SIZE* 0083 WORDS 



PROCFDURE SUSTATUSf A.DDIJ»B); VALUE A#DDD,B* REAL A»B* ARRAY DDDr*]* 08438900 T OOOOlO 

START OF REL SEGMFNT* DISK ADDRESS • 00289 
PRT(604J * SUSTATUS 

FORWARD* 08438910 T OOOOlO 

PROCEDURE OUTPIJTLABEL(B)* VALUE B* REAL B*X 08/139000 T 0000*0 

START OF REL SEGMFNTi DISK ADDRESS a 00289 
PRTC605) = OUTPUTLABEL 

BEGIN RFAL BU«B»U.T»AJf O844OOOO T OOOOlO 

STACKfF-1) a BU 
STACKrF+1) s U 
STACKfF+2) - T 
STACKfF+3) 3 A 



STACKfF*4) * G 

STACKfF+5) * 

STACKtF+6) « TUSTA 

STACKfF+7) = TEMP 



REAL G,Q*% 08441000 T OOOOlO 

REAL TUSTA»TEMP; 08441050 T OOOOlO 

BOOLEAN SCHTOG; 08441100 T OOOOlO 



STACKfF+10) = SCRTOG 

labfl fxitjs 08442000 t oooolo 

subroutine doit** 08443000 t oooolo 

begin; stream(A»T|NU[U3»b>ix 08444000 t 000110 

BEGIN Si «■ lOC Al Si * Sl+5* DS * LIT" « I % 08445000 T 000212 

DS * 3 CHR? DS * LIT " "* A «■ DI END** 08446000 T 0003»2 

08445000 

A «■ P* T ♦ LABELTABLEtU3JX 08447000 T 0004*3 

IE U LSS 16 THEN TEMP I sPRNT ABLE t U ] . C 30 I 1 8] J 08447100 T 0006 » 1 

IE TsO THEN 08448000 T 0009*0 

STREAM(B*«TeMP#vi«(U LSS 16)»A)* 08448050 T 0009*3 

BEGIN SIJbLoC VjSll*Sl+7l 08448100 T 0012*0 

if sc nfg m o h then begin si**loc b*ds**5dec end* 08448110 t 001212 

08448110 
DS«*9LIT" SCRATCH*-" END 08448150 T 0013*2 

08448100 

ELSE IE T * 0114 OR T s P214 THEN* 08449000 T 00l5*0 

BEGIN 08450000 T 0017*2 

STRFAM(SAV*a((TWOf U) AND SAVEWORD) NEQ 0).A)l 08450100 T 0018*0 

BEGIN 08450200 T 0020*2 

dS|s10lIT«N0T READY*"* 08450300 T 0020*2 

SAVCDI :*DI*1* DS*»8LIT w (SAVED>* ,, >* 08450400 T 0022*0 

END 08450500 T 0024*1 

08450200 
END 08450600 T 0024*1 

08450000 
ELSE IF ABS(T)*P314 THEN 08451000 T 0024*2 

STREAM(BI*TEMP»VlscU LSS 16)#A)* 08451100 T 0026*0 

BEGIN Sl**L0C V* Si*»Sl+7» 08451200 T 0028*1 

IF SC NEQ "0" THEN BEGIN SI«»LOC B*DS**5DEC END* 08451210 T 0028*3 

08451210 
OSia.li LIT " UNLABELED*"* 08452000 T 0029*3 

END 08452100 T 0031*2 

08451200 

ELSE BEGIN** 08453000 T 0031*2 

STREAM(Kl»T<0* TEMP, Vl*U<16» A)* 08454000 T 003211 

BEGIN V(SU«LOC TeMP* dS»*5 DEC* DS»»LlT" ")* 08454500 T 0035*0 

CH*CI+K| GO TO LAB* 08455000 T 0036*3 



nSjs6 LIT"IN USE"J GO 
LAB* dS»*7 LlT"LABELED"* 

L» nS:=LiT" m ; kibdh 
end* 



TO L> 



A * Pit 

IF (NT1 ♦ RDcrABLECU],[8l6J> * THFNX 
IF JARROW[NTl ] * THENX 

BEGIN; STREA M( J*J ARROW tNTl]:NTl, A); X 

BEGIN oS «• 3 LIT "BY "J Si ♦ JIX 
S? * Si + i; OS «■ 7 CHRi% 
OS * LIT »/»| Si *• Si + UI 
OS «- 7 CHR; DS ♦ LIT """I* 
Sl*LOC NTi; DS*2DEC» 
DS * LIT "J"; J * DUX 

DI*DI-3J ds*fill; 
fndjx 

A + Pl% 

ENn elsf else 

IF T<0 A ND (U=23 OR U*24) THEN 
BEGIN 
STREAM(S«*0 « A)J 

BEGIN 

DS**22LIT"BY AUTO LOAD CONTROL* n J 
S laD-T ; 

END* 



AS=P| 

END FLSF 

U GEO 20 AND It LE^ 22 THFN 
LABELTABLE[U3.[1 :5]aP21 THEN 
BEGIN STREAM(SJ»OtAj; 
BEGIN 

nS»*13 LIT 
DS:*13 LIT 
S « =0 I J 
END* 



IF 

IF 



"BY SCHEDULED 
"PRNPBT/DISKS 



AJaP; 



END* 



STREAM(S*-0:K*MULT I TABLET U3 » T, R*RDC TABLE [ U J . 

r 1 4 1 103»D*RdCTABLE[UJ , t24ll7].C*R0CTABLFtU].X 

CM«7]»A>> BEGIN SI * LOC K;X 

2CSI * SI + 1; DS * 1 CHRJ OS «• LIT » " ) I * 

DS * 3 DECI DS * LIT " "IX 

DS * 5 DEC; DS * LIT " " \ X 

os * 2 dec ; ds * lit "* M ;x 
end; 



A«-P$ 

IF U>32 ThfN IF CID«OW[U 
STRFAM(DK*ClDTABLEtU 



-32]#o then 

-32«2]»A) J 



08455500 


T 


003712 


08456000 


T 


003813 


08457000 


T 


004010 


08458000 


T 


004013 

08454500 


08459000 


T 


004110 


08460000 


T 


004H2 


08461000 


T 


004312 


08462000 


T 


004510 


08463000 


T 


004711 


08464000 


T 


0048M 


08465000 


T 


004813 


08466000 


T 


004912 


08467000 


T 


005011 


08468000 


T 


005013 


08468500 


T 


005112 


08469000 


T 


0052*0 

08463000 


08470000 


T 


0052*1 


08471000 


T 


0052*3 

06462000 


08471010 


T 


0053*1 


08471020 


T 


0056*2 


08471030 


T 


0057*0 


08471040 


T 


0058J 1 


08471050 


T 


005811 


08471060 


T 


0061*1 


08471070 


T 


0061*2 

08471040 


08471080 


T 


006113 


08471090 


T 


0062*1 

08471020 


08471100 


T 


0062*1 


0847U05 


T 


006412 


08471110 


T 


0066*2 


08471120 


T 


0068*1 


08471130 


T 


0068>1 


08471140 


T 


0070*1 


08471150 


T 


0072* 1 


08471160 


T 


0072*2 

08471120 


08471170 


T 


0072*3 


08471180 


T 


0073*1 

08471U0 


08472000 


T 


0073*1 


08473000 


T 


0075*0 


08474000 


T 


0077*0 


08475000 


T 


0078»2 


08476000 


T 


0080*0 


08477000 


T 


0080*3 


08478000 


T 


0081 *2 


08478500 


T 


0062*1 


08478600 


T 


0082*2 

08474000 


08478700 


T 


0062*3 


08478800 


T 


0083*1 


08478900 


T 


0086*0 



S SET OMIT = NOTCPATKETS) 
S POP 0«tT 

s set omit = packets 



REG IN 
D I «■ I - 1 •' 

DS**5 LIT M »PKT »* 



SI*L0C dk; SI*SI+1> 
nS*7 cmR? 

fNd* 



END? 



SPOUTCB tnx tusta); 
b * o;i 

EHDt% 

TUSTA*MtB.C15l l5]»2]; 

IF CU * UNiTlN(TlNU.R))< PSEUDOMAXT THEN 
RFGIN R * B,[lbl 151-ljX 

JF CU OR 15-19 ThEN SUSTATUSCB INX TUSTA»0#U) else 

GO TO EXlTjX 
FHOi% 

S SET OMIT s ShAREOISK 

scrtog ♦• u = pseudomaxt + l* 
s pop omit 
* set o^it = notcsharedisk) 

streaM(A4.o:b);* 

BEGIN SI * Bt% 

L: [F SC * M " THEN* 

BEGIN Si «■ SI + U GO TO L END1X 



Dl «- LOC A; DI * 01+6; OS * ? chRjx 
END** 

Q «• P* B + R.tl5H53-UX 
FOR U * STEP 1 UNTfL PSEUDOMAXT DO 
TF Tf NUfU J . C 3 : 12] * Q THEN? 

IF CG * l.ABELTARLE[U])#0 AND fi^ll* AND G*^214 
AND NOT SCRTOG OR G«0 AND SCRTOG THEN 
BEGIN IF B » ThEN B ♦ SPACEC10);* 

doit;* 

FNDU 

IE B * ThENSK 

BEGIN>STREAMCQ»R)IX 

BEGIN DS * 6 LIT « NULL "t% 

si «• loc q; si * si+6; ds * 2 chr;* 

DS «■ 7 LIT " TABLE*-"** 
END** 



SPOUTCB INX TUSTA)* 



08479000 
08479100 

08479109 
08479110 
08479H1 
08479199 
08479300 
08479400 
08479500 



END** 

exit* end;* 



08480000 
08481000 
08482000 

08482050 
08483000 
08484000 
08484500 
08485000 
08486000 
08487000 

08487099 
08487100 
08487101 
08487199 
08488000 
08489000 
08490000 
08491000 

08492000 
08493000 

08494000 
08495000 
08496000 
08497000 
08497100 
08498000 
08499000 
08500000 

08501000 
08502000 
08503000 
08504000 
08505000 
08506000 

08507000 
08508000 



08479600 T 



T 
T 

T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 

T 

T 



08509000 T 



0088»3 
0088(3 
0089>0 
008910 
0090*0 
0090*0 
0090*0 
009012 
0090*3 

08479000 
0091 »0 

08453000 
009110 
009213 
0093«2 

08444000 
009313 
009812 
010013 
0103(0 
010612 
OlOBJO 
0108S2 

08484000 
0108»2 
0l08«2 
01 10 1 1 
0110*1 

onou 

011112 
0111*3 

0112*1 

08491000 
0112*3 
0113*2 

08489000 
0113*3 
0116*0 
0117*0 
0118*2 
0122*0 
012413 
0128*3 
0130*0 

08498000 
0132*1 
0133*0 
0134*2 
0135*2 
0136*1 
0137*2 

08503000 
0137*3 
013912 

08502000 
0139*2 

08440000 



SiZF« OHO WORDS 



PROCEDURE 



TIMEUSEDCB* X)J 



PRT(606) a TlMFUSED 



STACKfF+1) 
STACKfF+2) 
STACKfF+3) 
STACK(F+fl) 
STACKfF+5) 
STACKfF+6) 
STACKcF+7) 



T 

H 

M 

S 

CPT 

!OT 

ET 



VALUE 
REA|, 

begtn 



b, x; 

INTEGFR T» 



H» M, S, CPT» IOT» ET 



08525000 T 0000»0 

START OF REL SEGMfNTI DISK ADDRESS • 00294 

08526000 T 000080 

08527000 T 0000»0 

08528000 T 000080 



t SFT OM?T a NOT(PACKETS) 

DFFINE DNlTNO * PSFUnOM I X [ X J * t 
S POP OH IT 

RFAl, SUBROUTINE CONVfRTJMe; 
BEGIN S ♦ T-60x(T ♦ T DI V 60); 
M ♦ T-60x(H ♦ T D| V 60)8 
STREAM(R*0« A«-[h])* 
BEGIN DI+L0C R; DT*DI+2J SI*A; 3(DS*2 DEO END 



FN0 5 



CONVFRTiME ♦ POLISH 



$ SFT 



S 
$ 



POP 
SET 



T ♦ JARfX 
OMfT e NfWL 
IF X»P2MI 
OMIT 

OMIT s N0T( 

T ♦ T + CL0 

T * T/60J 

T * JAR[X 

WHILE T<0 

T «• T/60; 

T * ((CLO 

FT •• CONV 

STREAMf J* 

BEGIN DS* 

Si*S 

Sl*L 

Dl*X 

3(DS 

X*DI 

DS*5 

3(DS 

X*DI 

DS»3 

3(DS 

Dl*D 

ENDJ 



,31+PROCTlMFtXl* 

OGGING 

X OR X=P1MIX THEN 

NEWLOGGING) 
CK+P(RTR)J 

CPT ♦ CONVERTIME? 
»41+I0TIMECX]| 

do t * t+clock+P(Rtr); 
iot * convertimfj 

0K+P(RTR))/60)-NF0[(X-l)xNDX+2],riU7]l 
FRTlMEJ 

jaRR0wcx),x,t*[CPt3»b); 
10 lit w time FOR "J S I *- J I si*si+i» DS<-7 
I ♦ t * DS*LlT "/"I oS*7 CHRJ DS*LlT"*»l 
OC X; DS*2 DEC? X*DM D I *D 1-2 * DS*FILL> 
; DS*8 L I T » fSt CP«"J SI*TJ Si»Sl4>2I 
-LI T «8«j DS*2 CHR)I 

i di*di*9> ds*8 fill; di*x; 

LIT "» iO*"8 Sl*Sl+2> 

♦ LIT ••««{ ds*2 CHR)J 

j di*di-9» ds»8 fill* di*xj 

LjT " IN"; Sf*Si + 2J 

♦ LIT "8"; DS*2 CHR); DS»LlT 
I*I0» DS^8 FILL 



CHRJ 



"♦"I 



END? 



SPOUTERtB INX MEMORY rB* 1 1 «UN1 TNO. i ) I 

COMMENT MESSAGE PRESENTLY 72 CHARACTERS LONG* 



08528499 


T 


000080 


08528500 


T 


OOOOiO 


08528501 


T 


000010 


08529000 


T 


000050 


08530000 


T 


0001 »0 


08531000 


T 


000313 


08532000 


T 


0006«2 


08533000 


T 


000783 

08533000 


08533100 


T 


000912 


08533200 


T 


000912 

08530000 


08533400 


T 


0010:0 


08533499 


T 


00H50 


08533500 


T 


001410 


08533501 


T 


00l5'3 


08533599 


T 


0015* 3 


08533700 


T 


001583 


08534000 


T 


0018(0 


08535000 


T 


002082 


08536000 


T 


002283 


08537000 


T 


002611 


08538000 


T 


002912 


08538500 


T 


003480 


08540000 


T 


003582 


08540100 


T 


003781 


08540200 


T 


003982 


08540300 


T 


0041 fO 


08541000 


T 


0042«l 


08542000 


T 


004411 


08543000 


T 


004512 


08544000 


T 


004682 


08544100 


T 


004783 


08544200 


T 


004910 


08544300 


T 


005010 


08544400 


T 


005180 


08544500 


T 


00528 3 


08544600 


T 


005381 

08540100 


08544700 


T 


0053*2 


08544800 


T 


005683 


08545000 


T 


005683 

06528000 


SIZE- 0057 WORDS 



PRT(607) = ANVIL 

STACKfF-1 ) = B 

STACKfF+1) ■ U 

STACKfF+2) > ZZ 



RFAU PROCFDURE ANVIL(IL»Z)J VALUE tL.Z* RFAL \L*H% 08546000 T 0000*0 

START OF REL SEGMFNT* DISK ADDRESS * 00296 

RFSIN RFAL R*Z.Us + HX 08547000 T 0000*0 

RFAL 7Z* 08547050 T OOOOlO 

LABEL FXi T J 08547100 T 0000*0 

Z7*=Z» 08547200 T 0000*0 

NAMEinfU.ZZ)! 08547300 T 000i»l 

NAME iDfU* ZZ ) I 08547400 T 0002*1 

IF U*"/ " THEN 08547500 T 0003*1 

BFGIN UtsZ.U5:15i; C,0 EXIT END ELSE 08547600 T 000410 

08547600 

IF CU «• UNITJNCTINU.B)) < PSEUDOMAXT THEN 08548000 T 0008*0 

BEGIN* 08549000 T 001053 

IF LABELTABLEfU] = PH4 OR L ABELT ABLEC U] * P214 ThEN* 08550000 T 0011*1 

BEGIN 08551000 T 001312 

5TREAM(AI»TINUCUjiSAVl»((TW0(U) AND SAVEWORD) * ) • 08551100 T 0014*0 

Xl»Z.rl5»l5]-m 08551200 T 00l6*2 

BEGIM 08551300 T 001810 

Sp*L0C A* SU=SI*5; DSJ-3CHR* 08552000 T 00l8*0 

DSt*HL|T" NOT READY*'M 08553000 T 00l8»3 

SAVCDI l«Dl-ll DS»*8LIT"CSAVED)*")J 0855AOO0 T 002012 

END* 08554100 T 0022*3 

08551300 
U + PSEUDOMAXT + H 08555000 T 002350 

END ELSf 08556000 T 0024*1 

08551000 

IF LABELTABLprU] < THENX 08557000 T 0024U 

BEf.lN>STREAM(A*TTNU[U].X*Z.rl5ll5]*l)l» 08558000 T 0025*3 

BEGIN SI * LOC A) Si * SI+5JX 08559000 T 0028*2 

DS «• 3 CHRJ DS «• 8 LIT » IN USE*"** 08560000 T 0029*0 

END** 08561000 T 0030*2 

08559000 
U * PSEUDOMAXT + 1> 08562000 T 0030*3 

END** 08563000 T 0032*0 

08558000 
IF U < PSEUDOMAXT THEN 08564000 T 0032*0 

LABELTABLErU] * -(IF IL THEN *P(DUP) ELSE ?3l4)«« 08565000 T 0032*3 

EXIT* END* END* 08566000 T 0036*2 

08549000 

08547000 

SIZE" 0037 WORDS 



STACKfF+O) * Rcw 

STACKfF-2) = MSCW 

STACKrF + D r I 

STACK(F+2) = J 

STACK(F*3) s L 



PROCEDURE LOGOUTfA)J VALUE A; RfAL A* 
BEGIN R(rAL RCWb + O; 

"eal mscw=-2J 

INTfGFR IsRcW+iJ 



START OF 



REA|, JsJ + l. L = J + 1> 



* L MUST BE LAST DECLARATION 



08568000 T 000050 

REL SEGMfNTl DISK ADDRFSS a 00?98 

08568100 T OOOOJO 

08568125 T 0000:0 

08568150 T OOOOJO 

08568200 T 000050 



LABFL FXlTf 

P(0,0tSPACE(335))> X INITIALIZES L 

IF f J5=DIRECT0RYSEARCH("SYSTEM "."LOG ",4))»0 THEN 

BEGfN; 

STRFAM(L)> 

BFGIN DSS.10 LIT «-N|jLL LOg*" ENQI 



END) 



GO TO FXlTf 



IF l.OGFRFF fiTR THEN SLEfP( t LOgFREE 3 # -0 ) ; 
LOGFREFS»ABS(LOGFREE)J 
SET OMIT * NOT(SHAREDISK) 
MOVf(30»J I NX 0»L>» 

MtL+103 * 6ETUSERDlSK(-(MrL+8]*M[L+8l+10))l 
DO PFGIN 

nySKWAlT f-L-31 .300, MC J+10]+l )> 
niSKWAjT ( L+3l#300»M[L+l0)+i ); 
END UNTIL ( I*I + l0)>M[J + 83; 



logfRff ♦ MfJ+iOi; 
ji*j inx o: 
M[j]t=MrJ+2]«*M[J+3]t»o; 

M[J+l]«=M[J+8]x6J 
MtJ + <Ul**DISKLOG"i 
M[ J + 515M; 

diskwait( j.30.l0gfree); 
sft omit = n0tc5harf0isk) 
logfRff«-nabs(LOgfRee)# 
p<dt rfc torysearch( -"system "."log 



GET XTRA TEN 
TO MAKE COPY 
SIMPLER 



IF hOLDFREF*0 THEN 
LOCKTOpf HOLDMASK) 5 



"»1«>.DEL)J 



SLEEP CrTOGLE]» HOLDMASK); 



DlSKWATT(-J,-30»DlRECT0RYT0P); 
I * »f M r J + ?0],[8ll0] + l ) MOD 1000; 
MtJ + 20]»s(*PCDUP))&l C8I38; 10]; 

DlSKWAlT(J,-30,piRFCT0RYT0P); 
UNLOCKTOG(HOLDMASK); 

STRFAMfJ«.[ACTDATF]»D*tl3); 

BEGIN SI IbQJDSisB DEC ; D I » =D I "7 I S I » *JJ 

si*si+2; ds*4 chR; 

ENl); 

foRgetspace(J); 

MtL + 4]l«(*P(DUP))80[Hii3i5]4i[iii47ll]tO[12t44l43l 



I 
I 
I 

i 

i 



08568300 


T 


000010 


08568600 


T 


000050 


08568700 


T 


0002:1 


08568800 


T 


0004:2 


08568900 


T 


0005:0 


08569000 


T 


000513 

08569000 


08569100 


T 


000752 


08569200 


T 


001050 

08568800 


08569300 


T 


001050 


08569400 


T 


0013:0 


08569499 


T 


001450 


08569600 


T 


001450 


08569700 


T 


001650 


08569800 


T 


002252 


08569900 


T 


0022«2 


08569910 


T 


002611 


08569920 


T 


0029«3 

06569800 


08570000 


T 


003311 


08570300 


T 


003511 


08570400 


T 


003612 


08570500 


T 


004152 


08570600 


T 


004551 


08570700 


T 


004751 


08570800 


T 


0049:1 


08570849 


r 


005052 


08570870 


T 


005052 


08570880 


T 


005152 


08571000 


T 


005351 


08571100 


T 


005652 

08571100 


08571200 


T 


0060»0 


08571300 


T 


006153 


08571400 


T 


0065S1 


08571500 


T 


006852 


08571600 


T 


007050 

08571600 


08571800 


T 


007352 


08571900 


T 


007452 


08572000 


T 


0075«2 


08572300 


T 


007610 

08571900 


08572400 


T 


007651 


08572500 


T 


007750 






MCL+1 1*XCU0CK>P(RTR)S 
STRfAM(DATF.A*0»B«-L+1 ); 

regin si*- loc datfidi*loc a;ds*8 oct;si*loc aj 

Si«-St+'>>DI*BJDI*DI + 1*OS*-3 ChR; ENDi 



ENTrRUSFRFlLEC-I»"SYSLOG "»L-1)I 
STR|rAM(! ,1)1 

BEGtN OSls?i LtT"**** new LOG FflF 
nS«»7 CHRJOS:=8 LiT'VSySLOr*" 
END) 



is w >sji=loc iisii«si+ij 



FXlT« 

SPOUT(L); 
IF A THFN 

fno> 



KiLLf fMSCHDl 



08572510 T 

08572520 T 

08572530 T 

08572540 T 

08572600 T 

08572700 T 

08572800 T 

08572900 T 

08573000 T 

08573100 T 

08573200 T 

08573300 T 

08573400 T 



00821 1 
0084:3 

008612 
0087t2 

08572530 
006813 
009l?0 
0092*0 
0095»2 
0097:0 

08572800 
0097»1 
0097U 
0098J2 
OlOOlO 

08568100 
SIZF* 0105 WORDS 



PROCEDURE SAVETHEUNfT(B)* VALUf B* REAL B*% 08575000 T 0000:0 

PRT<6,0, . SAVETHFUMT St » RT "' ^ ^"^ ' DI,K » M " M " °° 3 ° 2 

BFGIN REAL A»R, T , U, I . M l * 08576000 T 0000:0 

STACKfF-1) x A 
STACKfF+1) s T 
STACKfF+2) a U 
STACKrF+3) n I 
STACKfF**) = Ml 

LABEL AGAIN, EXIT? 

Ml««M[B f [15H5J-?]! 

STREAMCBDI 

BEGIN SIIbBI 

L? IF SC* W " THEN BFGIN SllsSl+lf GO TO L END* 

B* =S T ; 

FNDJ 

RssPj 
AGATN: TJsSPACE(lO); 

IF (U»sUNiTiN(TtNU»A)) qTR 31 ThfN 

STREAM(A.T); 

BEGIN DSlalO L I T w f NV K80 SV> 

Sl^A* DS»a3 CHRi 

DSlsLIT"*."; 
FND ELSf 

BEGIN I «- TWOCU);* 

SLfeP([T0gLf3»S1ATUSMASK); 
IF LABELJABLECU] * THEN* 

BEGIN LABELTABLEtlU * 01141* 

MULTlTABLE[U]*RDCTABLECU]«-0; 
RRRMECH * RRRMECH OR \t% 
READY «■ READY OR 11% 
SaVEWORd :* SAVEWORD OR IJ 
I «• " "I* 

end* 

else begin saveword «■ saveword or i;* 

I * " TO BE M »X 

fNdix 

STREAM ( A *TlNUtU]» I»T)J* 

BEGIN DS * LIT " "12 

st «■ loc a; si «• si+51 ds ♦ 3 chrjx 

Sf * SI+2J DS * 6 CHR»X 
DS + 7 LIT " SAVED«-"IX 



fndjx 



ENDIX 



SPOUT(T INX Ml)j 

STREAM(OKt=0,A»)» 
BEGIN SlJsA; 

3fIF Sc«" » THEN JUMP OUT* 

IF SC*%» THEN JUMP OUT! 

IF SO"*" THEN JUMP OUT TO L3* 



08576100 


T 


0000:0 


08577000 


T 


OOOOiO 


08577100 


T 


0003*2 


08577200 


T 


0004»2 


08577300 


T 


0004i3 

08577300 


08577400 


T 


0005:3 


08577500 


T 


0006:0 

08577200 


08577600 


T 


0006U 


08577700 


T 


0006S3 


08578000 


T 


0009«0 


08578100 


T 


0011M 


08578200 


T 


0012:3 


08578300 


T 


OOHU 


08578400 


T 


0014:3 


08578500 


T 


0015M 

08578200 


08579000 


T 


0015:2 


08580000 


T 


0017J1 


08581000 


T 


0018:3 


08582000 


T 


001913 


08582100 


T 


002112 


08583000 


T 


0023:3 


08584000 


T 


0025:0 


08584100 


T 


0026 :i 


08585000 


T 


0027»2 


08586000 


T 


0028! 1 

08582000 


08587000 


T 


0028:1 


08588000 


T 


0031 * 1 


08589000 


T 


0032t0 

08587000 


08590000 


T 


003210 


08591000 


T 


0033*2 


08592000 


T 


0034(0 


08593000 


T 


0034*3 


08594000 


T 


0035*1 


08595000 


T 


0036*2 

08591000 


08596000 


T 


0036»3 

08579000 


08597000 


T 


0036*3 


08597050 


T 


0038:2 


08597100 


T 


003913 


08597150 


T 


0040*0 


08597200 


T 


004111 


08597250 


T 


0042*1 



Sli«Si+l)| 

Ll : IF Scs" " THFN 

L2 1 BEGIN SpsSI + U G TO Ll END* 

jr sc»"#" thfn go to l.2* 

IF sc*" + " thfn tal.ly»*ij 
L3» okistauly; 

fnd* 



end** 



A »*P> 

IF P THEN GO AGAIN; 

Ti=*SPACEC30)j 

niSKWAlT(-T»30»nlRECT0RYT0P-SYSN0); 

MfT+?9] 1»SAVfWORD; 

niSKWAlTC T,30,[)IRECTORYTOP-SYSNO)l 

FORGFTSPACE(T)J 





08597300 


T 


0043S 1 




08597350 


T 


004313 




08597400 


T 


0044* 1 

08597400 




08597450 


T 


004413 




08597500 


T 


0045*2 




08597550 


T 


0045*3 




08597600 


T 


0046:2 




08597650 


T 


0046*3 

08597100 




08597700 


T 


0047*0 




08597750 


T 


004712 


1146- 


08597800 


C 


004811 


K146- 


08597810 


C 


0050*2 


*146- 


08597820 


C 


0052*2 


*146» 


08597830 


c 


0054*2 


X146- 


08597840 


c 


0056*1 




08598000 


T 


0057*0 

08576000 



SIZF» 0059 WORDS 



BOOLEAN PROCEDURE WHYSLEEPC MASK ) ; VaLUE MASK? REAL MASK? 08599000 T 000Q50 

START OF REL SEGMeNTJ DISK ADDRESS ■ 00304 

BEGIN 08600000 T 000050 

REAL A. Bi 08601000 T 0000:0 
STACKfF+2) x A 
STACKfF+3) * B 

IF RFPLYtPlMlXjaVWY THEN 08602000 T 0000»0 

BfGlN 08603000 T 0001*3 

BjaSPACECKEYMSGSZ); 08604000 T 000251 

D|SKWAlTf-B»KE YMSGSZ»MESSAGETABLE(2].r22«?6j) J 08604100 T 000581 

STREAMf8»MASK»Tj*O»0l=O,D»=O.A«»A»=SPACE(ft))J 08605000 T 000851 

BFGIN 08606000 T 0012*1 

Sp*LOC MASK; 08607000 T 001211 

8(IF SC* N 0" THEN GO TO NEXT? 08608000 T 001252 

IF Sc*VWY THEN 08609000 T 0013*2 

BEGIN 08610000 T 001450 

0I«*A» DS«=3LIT" nS") A»«Di; GO TO NEXT; 08611000 T 001410 

FND1 08612000 T 001552 

08610000 

TJsSiJ DI«*L0C 0; Dl5aD!+7l DSl«CHR5 08613000 T 001552 

SjJsLOC 05 OpctOC D} D I : *D I +6 J DSl*2DECJ 08614000 T 00l6»2 

Si 5aB5 08615000 T 0017*2 

R« S I laS I «6 I D I » »0 I -2 I 08616000 T 00l7»3 

IF SC* W * W THEN % END OF FIRST PART OF TABLE 08617000 T 001851 

BEGIN 08617500 T 001813 

SjSsTJ GO TO NEXT; 08618000 T 001853 

END; 08618500 T 001951 

08617500 

if 2Sc neQ dc then go to r; 086j9ooo t 0019; 1 

Sl»*Sl-65 DIS*AJ DS5.LIT" «| DS»*2ChR> A *«Dl ; SIlsTl 08619500 T 002010 

NEVTJ Sit«St+i>) 086?0000 T 00215 3 

DI5=A5 DS»*LlT"* M ; 08620500 T 0022H 

END STREAM STATEMENT; 08621000 T 002350 

06606000 

SpOUTCA)? 08621500 T 002351 

F0RGFTSPACECBJ5 08621600 T 002452 

END * IF "WY" 08622000 T 002551 

06603000 

ELSE HHYSLEEP5«TRUE) 08622500 T 002551 

END PROCEDURE WhYSLEEP* 08623000 T 0026S2 

08600000 
SIZE* 0027 WORDS 



PROCEDURE CHANGeOPTtONCBUFF»RS) JX 



PRTC6U) * CHANGFOPTION 



START OF REL 



STACKfF + D 
STACKfF+2) 
STACKfF+3) 
STACKrF+4) 
STACKfF+5) 
STACK(F+6) 



9 
T 

OP 

BU 
MA 
OP 



BEGIN 



S 

SK 

TER 



VALUE BUFF.RSJREAL BlJFF»RS*% 
RFAL B.T,OP.BUS»MASK,OpTER» 



08624000 T OOOOJO 

SEGMENT! DISK ADDRESS « 00305 

08625000 T 0000:0 

08626000 T 0000*0 



SLEEPC[TOGLEJ»H0LDMASK); 
LOCKTOG(HOLDMASK); 

BUS 4- BUFF . T 151 15l-l» B * 5PACEC30):J! 
niSKlO(T»l-B»-30.D!RFCTORYTOP-SYSNO)> 
OPTER «■ SPACE(OPTIONSZ); 

DlSKWAiTC-0PTER»0PTl0NsZ»MrSSAGETABLE[0],t22«?6]); 
STRFAM(BUFF»T*0,OPTER»R-roP]m 
REG I NX 

L0» Si+BUFF* 
LI* IF SO" * THFN BEGIN SI*SI + 1J GO TO LI I ENDI 



*535- 
*535« 



T» 



L2 ELSE 
LO ELSE TALLY. 



L?* 



L3* 



if sc< m o w then 
if sc/"*" Then 

BEGIN TaLLy*OJ T*TALLYJ DI*L0C 

8fTF Sc=" " THEN JUMP OUT FLSF 
IF SCs"*" THEN JUMP OUT ELSE 
IF Sc*"0« THEN JUMP OUT ELSE DS*ChR); 

8UFF*Sn S|*OPTER* 

63(DI«-L0C T* 

IF 8 SCsDC THFN JUMP OUT TO 
IF SO*"*" THEN JUMP OUT TO 

GO TO L3* 

IF SC a "«-" THEN GO TO L0» 

END ELSE 

TALLY*48 ELSE 
BEGIN DI«-L0C Ti SI«-SI + l* 
IF SC<"0" THFN BFGIN Sl-SI-i; DS-1 OCT; END 

FLSE BFGIN Sj*SI-i; DS*2 OCT) END! 

TALLY*47l TCTALLy*TALLY+63)J 

end; 
totally; si*lqc tj di*R; ds*wdsj 



•TAL 



%5 
*5 
*5 
*5 

*5 
*5 
X5 
«5 
%5 
LY + 
*5 
*5 
%5 



35- 
35- 
35- 
35- 
35- 
35- 
35- 
35- 
35- 

1); 

35- 
35- 
35- 



X535- 
X535- 
*535- 

1535- 

*535- 

X535- 

1535- 



FND>* 



IF 0P<47 THEN 

begin;streaM(a * if Rs then " RESET" else " SfT".S 

0*OPTfR INX OP, OP ♦ 47-0P,BUS)»X 

BEGIN DS «■ LIT " " I S I * LOC QPJ DS * 2 DCCf X 

DS * LiT « "| Si * 01% 

8CIF Sc*0 THEN JUMP OUT TO L» D5*ChR)»* 
L» SI *■ LOC A; Si * SU2) DS * 6 chrji 

DS * LiT"*")* 



08627000 T 
08628000 T 



08629000 
08630000 
08631000 
08631100 
08632000 
08633000 
08634000 
08635000 

08636000 
08637000 
08638000 
08639000 
08640000 
08641000 
08642000 
08643000 
08644000 
08645000 
08646000 
08647000 
08648000 



08658000 
08659000 
08660000 
08661000 
08662000 
06663000 
08664000 
06665000 



T 
T 

T 
T 
T 

T 
P 
P 

P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



08649000 P 
08650000 P 
08651000 P 

06652000 P 

08653000 P 
08654000 P 

08655000 P 
08657000 T 



0000:0 
0003*0 

08626000 
0006*2 
0010*2 
0013*1 
0016*1 
0019*1 
0020*3 
0020*3 
002H0 

08635000 
0022*0 
0022*2 
0023*0 
002313 
0025J1 
0026*2 
0028*1 
002813 
0029*1 
0030J2 
0032*1 
0032*2 
0033*1 

08638000 
0033*2 
00 34J0 
0034*2 

08651000 
0035*2 

08652000 
0036*1 
0037*2 

08650000 
0037*2 
0038*2 

08633000 
003813 
0039*2 
0042 8 
004410 
0045*0 
0045*3 
004712 
0048*1 



ENDJX 

MASK*TWO(OP){X 
MtBUS-l],[9i9]l«0l 

SPOUKBUS I NX HfBUS-1]); 
SLFFPf rT).lOMASK)| 

MrB1*OPTlON*TF RS THFN OPTfON AND NOT 
nTSKWAlT(B#-30,DIRECT0RYT0P-SYSN0)J 

forgftspacecopteR);* 

FORr,fTSPACF(B);» 

unuocktogcholdmask); 



MASK ELSE OPTION OR MASKl 



FND}* 



08666000 T 

08667000 T 

08667100 T 

08668000 T 



08669000 
08670000 
08671000 
08673000 
08674000 
08676000 
08677000 



08678000 T 



004813 

08661000 
004910 
0050*1 
005312 

08659000 
005312 
0056>2 
0058)0 
0061H 
006413 
006512 
006611 

08677000 
006913 

08626000 
SIZE* 0072 WORDS 



PRT(6l2) ■ TYPOP 

STACKfF+1) m VASE 

STACKfF+2) a TUSTA 

STACK<F+3) 3 N 

STACKfF*4> . X 

STACKfF+5) a OPTpR 



PROrFDURE TYPOP(KTR,PO); VALUE KTR.POl REAL KTR,POl 
PEGtN REAL VASE, TUSTA. N#X,0PTERJ 



08679000 T 000010 
START OF REL SEGMENT! DISK ADDRESS * 00306 

08680000 T 000010 



LABEL INCR; 
REAL SUBROUTINE SETTi 
BEGIN 

STREAMCOPTicrOPTl0N]!0PTFR»N»NBS»»47-N,VASE)J 
BFGIN 

Dj » = m+4 J 

Si*0PTER»NCSt*St+8)I!F SC»"«- W THFN GO TO EX I Tl X 

B(IF Sr< M 0" THEN DS*ChR ELSE DS«-1 LIT' 1 ")IDS*2 LIT" "I* 

SjJsOPT} SKIP NbS S8» 

if S8 then tally<*i else 

begin oss S 3 lit»not w ; tally**?; end; 



EXIT! 



PS«-5 LIT" SET* M >X 

Dl» = VASE> SijbLOC NBSj DSIbLIT" w ; DSl«2 DEC; DSl.LlT" *; 

OPTi.TALLY* 



FNDI 



SETT*PJ 

f.no sftt; 



SLEEPaTOr.LEJ.HOLDMASK)? 
LOCKTOG(HOLDMASK)} 

TUSTA' sM[(VASE" s KTR.rl5U5]-l)-l]J 
OPTER * SPACE(OPTiONSZ)&OPTIONSZ[8l38«lO]; 
DISKWAITC-0PTER»0PTI0NSZ»MFSSAGETABLE[0].[22«26])* 
IF PO THEN 
RFGIN 

STREA M (BUrF»=KTR» T: = % OPTER* Dl*tN])l 



RFGlN SI*RUFF>63( if SCs" " ThE^ 
IF SC GEO *0» THEN GO TO L41 
DT*LOC t; 

8nF sc*" " then jump out to li else 

IF SCs"*" THEN JUMP OUT TO Ll ELSE 
IF SC>»0- THEN JUMP OUT TO Ll ELSE 
DS*l ChR)« Lis 
TALLY*OI BUFF*SIJ SWOPTER; 
63(DI*L0C TMF 8 SCi^DC THEN 

BEGIN IF Sc«** w THEN 
BEGIN TALLY*48; 



S|»S|+1 fuse jump out to L)IL» 



JUMP OUT TO L3 END 



ELSE TALLY*TALLY+1 
END ELSE JUMP OUT TO L2); 



TALLY*481GQ TO L3JL21 



IF SC="* W THEN BEGIN SI *BUFF* 63( I F SC< w O« THEN SI*SI+1 
ELSE JUMP OUT TO Ln)l L41 Dj-LOC Tl Sl*Sl+ll 

if sc<"0* Then begin si*si-n ds*i oct end else 



08680500 
08681000 
08681100 
08681200 
08681300 
08682000 
08683000 
08684000 
08684500 
08685000 
08685500 



08689900 
08690000 
08690020 
08690080 
08690090 
08690100 
08690110 
08690120 
08690130 
08690140 
08690150 
08690160 
08690170 
08690180 
08690190 
08690200 
08690210 



08686000 T 

08686500 T 

08687000 T 

08688000 T 

08689000 T 

08689100 T 

08689H0 C 

08689200 T 

08689300 T 



08690220 T 
08690230 T 

08690240 t 
08690250 T 
08690260 T 



000010 
000010 
000l«0 
OOOltO 
000312 
000312 
000313 
000513 
000811 
0009(0 
00l0»0 

08685500 
OOll 10 
001210 

001313 
001410 

08681300 
00141 1 
001412 

08681100 
001413 
001413 
001713 

08689300 
0021U 
002413 
002912 
003212 
003213 
0033U 
003413 
003710 

003713 
0038)0 

003912 
004013 
004210 
004212 
0043M 
00441 1 
0044U 

08690210 
004512 
004513 

08690200 
0047«2 
004910 
005013 



BEGIN SI*SI-t» OS*? OCT END* 
TALIY*47J TCTALLY«-TALLY + 63)J 

ENnJ 

L3» TOTALLY* Sl«-LOC T» OI*D* OS* WDS* 

fnd* 

if n lss opter.t^slo] then p(sett,ded* 
spoutfvasf; 1nx tusta)* 

END FUSE 

BFGJN 

STRFAMfKTRt )) 

begin si»*ktr» 

IF SC="S M thfn TaLLY*M else 

IF Sc» n R M THEN TaLLY**2 ELSE TALLYt«3> 

KTRJ.TALLYJ 

END* 

XSeP) N«=-l* 
INCR! NI«N+1J 

IF (fKTRJaSETT) AND X ) * THEN 
BEGIN SPOUTfVASE INX TuSTA); 

VASE1*SPACE(3); 

GO TO INCR* 
END> 

if ktr.o then 
if x?i3 then 

REGIN STREAM(Xi«X«l, VaSE)I 

BEGIN 0Sl»i2 LIT" ALL OTHERS "J 
X(DS:=4 LIT«N0T ")* 
DS:»ft LIT h SeT* m ; 
END) 

SPOUTfVASE INX TUSTA)J 
FND ELSF FORGETSPaCF(VaSE) 

FLSF GO TO INCR' 
END> 

rORf,FT5PACECOPTER)l* 

unlocktogcholdmask); 

ENDU 



08690270 T 



06690280 
08690290 

08690300 
08690310 

08690400 
08690600 
08690800 

08691000 
08691200 
08691400 
08691600 
08691800 
08692000 
08692200 

08692400 
08692600 
08692800 
08693000 
08693200 
08693400 
08693600 

08693800 
08694000 
06694200 
08694400 
08694600 
08694800 
08695000 

08695200 
08695400 

08695600 
06695800 

08696000 
08696100 



T 

T 

T 

T 

T 
T 

T 

T 
T 
T 

T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 
T 

T 

T 

T 

T 
T 

T 

T 



08697000 T 



SIZF 



08690260 
0052»0 

08690270 
00521? 
005313 

08690240 
005313 
0054«3 

08690110 
005510 
005811 
006010 

08690090 
006010 
006012 
006112 
006113 
006213 
006410 
006411 

08691400 
0064>2 
0066(0 

0067*1 
006912 
0071 13 
0074»0 
0074*2 

06693000 
0074*2 
0075*1 
0076*2 
0078*2 
0080*1 
0081*3 
0082*2 

08694400 
0082*3 
0084*2 

08694200 
0085*1 
0085*3 

08691000 
0085*3 
0086*2 

08696100 
0090*0 

06680000 
* 0091 WORDS 



S SET OMfT » NOT(DlSKtOG) 08697099 T OOOOlO 

* THF FOLLOWING THREE DEFINES MUST fACM BE CHANGED IF THE 08699000 T OOOOlO 
% DISK ROW SfZE OF PBD AND PUD FILES IS TO BE CHANGED. 08699050 T OOOOlO 

DEFJNF PBDROWSZ = 086991.00 T 000080 

300# * *732" 08699150 P OOOOJO 

* PBDRO w SZ IS THE DISK R0* Sl?E» IN SEGMENTS* OF PBD AND 08699200 T OOOOlO 
% PUD FILES. PBDROWSZ MUST BE A MULTIPLE OF THREE* 08699250 T OOOOlO 

»PBORECS * 08699300 T OOOOlO 

100* % *73?- 08699350 P 0000:0 

% PBDRECS*PR0R0WSZ/3 l NO. OF LOGICAL RECORDS PER ROW, 08699400 T OOOOlO 

»PRDTOTRFCS = 08699450 T OOOOlO 

?000# % 1732- 08699500 P OOOOlO 

l* PBDT0TRECS*PBDRECS*20 l NO. OF TOTAL RECORDS PER BACK-UP FlLE, 08699550 T OOOOlO 

PROCEDURE PBlOf ALPHA, POINTER)* VALUE ALPHAl REAL ALPHA » POI NTER* XP 08700000 T OOOOlO 

START OF REL SEGMENTl DISK ADDRESS ■ 00312 

* 08700900 T OOOOlO 

* this procedure handles io for The creation of back-up files! for 08700910 t 000010 

* DiSk» IT OBTAINS NEW ROWS AND NEW FILES AS NECESSARY, IF IT RUNS 08700920 T OOOOlO 
% OUT OF FILES, HE ADER t 51 . r H » 1 3 !S SET AND THE JOB TERMINATED* LEAVING 08700930 T OOOOlO 

* one block for the label and ds message. O8700940 t 000010 



% 



STACKfF+l) » HEADER 

STACKrF-2) 5 T 

STACKfF+2) s IOD 

STACKfF+3) a H 

STACKfF44) a S 



STACKfF+2) a I 



i.abfL ok; 

POINTER. tFFl-POINTER INX 72? 

IF (HEADERS-POINTER. [3M53)#0 THEN %%%%PB ON DISK %%%%% 

BFGIN 

HEADFR I* CMrC*HEADER)]JI 

IF HFADER[7] GEQ PBDT0TRECS-2 THFN % CHECK FOR NEW FILE 
BEGIN 
S SET OM?T 9 PACKFTS 

IF HEA0ERC6J.r4?l6]»~9" THEN 
$ POP OMIT OMTT 

IF HFADER[73 GEO PBDTOTRfCS THEN P(XIT) ELSE 

IF HEADERt5].t4li) THEN GO TO OK ELSE 

BEGIN STREAM(Fl»PRTrPlMlX»3) INX MtM[ALPHA-3l INX 

rl3Ul]» HI«HI*NARSCSPACE(12)))'" 
BEGIN SilsF? Si I-Sl4.ll 

DSl824 LIT"T00 MANY BACKUP RECS ON " > 
DSl*7 CHR; DSt*LlT"/"; SllaSl+il DSi*7 C 
0St*2 L fT« I *♦• | 

END? 

HEADERt5],C4ini = i; 
GO TO OK* 
END? 

IF HFADERC7] GEQ PBnTOTRECS THEN % GET A NEW FILE 



08700950 T OOOOlO 



% ALPHA IS ADDRESS OF TOP I/O DESCRIPTOR, <0 MEANS READ %P 08701000 T OOOOlO 

% POINTfR IS FIBIU) %P 08702000 T OOOOlO 

RFGtN NAME HEADER! KP 08703000 T OOOOlO 



REAL T*-?,!OD#H»S; 08704000 T OOOOlO 



INTfGER lalODJ 





08704100 


T 


OOOOlO 




08704500 


T 


OOOOlO 


%p 


08705000 


T 


OOOOlO 


%p 


08706000 


T 


000311 




08707000 


T 


000510 




08707500 


T 


000512 




08708000 


T 


000710 




08708200 


T 


0009:0 




08708400 


T 


000912 




08709000 


T 


000912 




08709200 


T 


00H12 




08709400 


T 


001112 




08709500 


T 


0014U 


43. 


08709600 


T 


001712 




08709800 


T 


002112 




08710000 


T 


002513 




06710200 


T 


002611 


HRJ 


08710400 


T 


002912 




08710600 


T 


0030*3 




087J0800 


T 


003111 

08710000 




08711000 


T 


003112 




087U200 


T 


003411 




087H400 


T 


003413 

08709600 




08711600 


T 


003413 



BEGIN 

IF I««HFA0FR[5j,r3»U THF.N HEADER [5 ] . [ 3 « U ( 

H-SPACEf30)l S*M[HEAOER TNX NOT QJI 

DtSKWAlT(-H»30#S); 

MrH+73*HFADER[7]J 

M[H+53.r2>lJ*OI 

0ISKWAIT(H,30»S); 

M[H+7]*MrH+9]*0l 

M0VE(20,H+9»H*10); 

MCH+53*(*P(DUP)) OR HI 

HFA0ER[5J.r3:l] :=I i XSeT 

HFADERI73 (* 01 

HEADERC33 (» XCLOCK + P(RTR)> 

STREAM(0NE««1» H I *t HEADER! 6 J 3 ) t 

BEGIN Si»=lOC ONf» 0Sl«8 ADD* 

Dll*Dl+?4; ?0(0Sl»8 LlT"0")J 
FNDI 



iO| 



CP BK UP TOG 



S SET OMIT = 



PACKET 
F 



tH+n*P8DR0wSZ OIV 3} 
EADER[9]*MCH+9]*i; 

FADERtlOJ*MfH+10J*GETUSE«DTSK(-(PBDROHSZ+l))l 
[HEADER I NX NOT 0] (* EUFCCIF I THEN "PUD 

ELSE *PBD ")»HEADER[63»H-1)» 

ORGETSPACE(H)! 

s 

IUEMESSAGF(f IF T THEN »'PUd " ELSE 

"PBO ")&HEADFR[6][24t6l24]» 
"OUT " &HEADERt63[30l30»18]» 
# M " » * . » 
(PBDREL OR OPNMESS))! 



END? 
FNO ELSE 



OK: 



IF HFADERC73 MOD PBDRECSsO THEN XQET NEW ROW 
BEGIN H1»SPACEC30)I S»»M[HEADER ! NX NOT Oil 

DJSKWMT(-h»30»S)I 
HFADER[9+HFADERt9]**P(DUP)*l]* 

GETUSERD!SK(-(PBDROWSZ+i ))) 
M[H + 9 + HEADERr9])«.HEADER[9 + HEADERr9j]l 
MtH+9]*HEADER[9]j 

VirH+73*HEADER[7) + PBDROWSZ DIV 31 
0lSKWAlT(Ht30»S)j 

forgetspacech)* 

END! 



STREAM(A*UHFADER[HEADERt9]+9)+(HEADFRt73 MOD 
PBnREcS)x3»D*P0lNTER.tCE3-l)l 
BEGIN S|*LOc A) DS*8 DEC ENDI 



HEADERt73*(*P(DUP))+i; 
IOD«-Pni330l00a77777j 

END ELSE XX ON TAPE XX 

!OD«-P?i32050000000Q&MCPOINTER INX NOT 11 [ 3t 14141 1 

lOREQUrST(MrALPHA]»POINTER INX I OD&ALPHA [ 24 J 11 1 3 . 





08711800 


T 


0036J1 




08712000 


T 


0036(3 




08712100 


T 


004210 




08712H0 


T 


0046(2 




08712120 


T 


0046*0 




08712130 


T 


005013 




08712140 


T 


005410 




08712150 


T 


0055(1 




08712160 


T 


005910 




08712170 


T 


0061«2 




08712200 


T 


006411 




08712500 


T 


0067(0 




08713000 


T 


0066(2 




08713250 


T 


007012 




08713500 


T 


0072(0 




0871 3750 


T 


0072*2 




08714000 


T 


0074(2 

08713500 




08714110 


T 


0074*3 




08714120 


T 


0077(1 




08714130 


T 


0080(2 




08714140 


T 


008511 




08714150 


T 


008810 




08714170 


T 


0091(2 




08714199 


T 


0092(1 




08714300 


T 


0092U 




08714310 


T 


0094»0 




08714320 


T 


009610 




08714330 


T 


009810 




08714340 


T 


0099«1 




08714400 


T 


0101(1 

08711800 




08714500 


T 


010K1 

08708200 




08715000 


T 


OlOHt 




08715100 


T 


0109(0 




08715200 


T 


0114(0 




08716000 


T 


0H5I2 




08716010 


T 


0118(3 




08716100 


T 


0121»0 




08716110 


T 


012611 




08716200 


T 


0129(0 




08716300 


T 


0132(3 




08716500 


T 


0134(0 




08716600 


T 


0134(3 

08715100 




08716800 


T 


0134(3 




08717000 


T 


0134(3 




08718000 


T 


0138(1 


XP 


08720000 


T 


0141(2 

08720000 


XP 


08721000 


T 


0142(1 




08722000 


T 


0144(2 


XP 


08723000 


T 


0145*1 

06707000 


XP 


08724000 


T 


0l45d 


XP 


08726000 


T 


0150( 1 



MCPOINTER I NX NOT 1])J 
MrHMOD 1NX MrT]*0t2»l?6l73*0[19ll9in AND 

if h lss th(?n 
bfgin tfrminatecpimix)) 
teRmtnalmessagech); 

FND1 



NOT MJ 



EN[) PRTO 



%p 


08727000 T 


0153*1 


%p 


08728000 T 


015511 




08728500 T 


016013 




08728600 T 


0161 : 2 




087?8700 T 


016213 




08728800 T 


016312 

08728600 


%p 


08729000 T 


016312 

08703000 



SIZE* 0165 WORDS 



PROCEDURE T!MPRFL,AXER(KTR,TYPEtMIX)IX 



PRT(6i3) s 



STACKtF+1) 
STACK(F*2> 
STACKfF+3) 
STACKfF+4) 
STACK(F+5) 
STACKfF+6) 



timfreLaxfr 

VALUF 

RFAt 

BFGTN 
s BUFF 
a PRT 
a I OT 
s T 



08730000 T 0000*0 
START OF REL SEGMENT* DISK ADDRESS ■ 00316 



KTR,TYPE»MIXJX 
KTR,TYPE»MIXj* 
INTEGER BUFF»PRT»I0T»T»P1»I1I* 



Pi 
II 



LABEL SPITJS 
DEFINE VCT * 29#, % CHANGE TjME LIMITS 
VXT x 30#, % EXTEND TIME LIMITS 
VTL = 31#J % PRINT TIME LjMjTS 
COMMENT: THIS ROUTINE SHOULD BE BLAMED ON WWF4JS 
$ SET OMfT ■ NOTCPACKF.TS) 

DEFINE UNyTNO * PSEUnOM I X [M I X ] * > 
$ POP OMfT 

RUFF * KTR,C15I15]-1|X 

IF TYPE NfQ VTL THEN BEGIN* 

STREAM( rOT*0,PRT*6»CODE*Ol KTR)IX 

BEGIN Si*KTR| |F SC«« w THEN BEGIN LI * Sl*Sj+l»* 
IF SC«" » THEN GO Li* END* 

IF SC* M * W THEN BEGIN Sl*Sl+1l GO L5* END? 



*534« 



*534- 



L5» 



L2» 



IF SC«"#" THFN GO L2J IF SC<"0 M THEN GO EXIT** 

KTR*SI I L3« TALLY*TALLY+1I Sl*Sj+l» 

IF Sc*"0" THFN GO L3i Sl*KTRl CODE*TALLY) 

DI*LOC PRT; DS*C0DE OCT* TALLY*0IJ! 

IF SC«" " THEN BEGIN L4I Sl*Sl+ll« 

IF SC*" - THFN GO L4 END; IF SC«»." THEN GO L2** 



IF SC*"*" 
SWSl + ll 
IF SC* W * 



THEN TALLYMI GO EXlTJI 

IF SC*« - THEN BEGIN L6t S I «- S I + 1 f % 

THEN GO L6 END ; KTR»Slf % 



IF SC*"*" THEN BEGIN TALLY*! J GO EXIT END** 

IF SC«"«- M THFN BEGIN TALLY*1* GO EXIT* END; 

IF SC<"0 M THFN GO EXIT; L7* TAWY*T ALLY+1 ; t 
Sl*Si+lj TF SC*«0« THEN GO L7J DI* LOC I0T;« 

suktr; code*tally; ds«.code oct; tally*i>* 

EXIT! CODE*TALLYlX 

END strfam;* 

IF NOT P THEN GO SP1T;X 

PRT ♦ PX3600; tOT * Px3600;X 

if typf*vxt then begin 
if prt#o Then begin* 

pRocttMf.[Mjx] «■ *P(dup)-prt;x 

JARrMfX,33 ♦ *P(DUP)+PRT»X 

fnd;x 



S534- 



08731000 T 
08732000 T 
08733000 T 



08734000 
08734010 
08734020 
08734030 
08734100 
08734499 
08734500 
08734501 
08735000 
08736000 
08737000 
08738000 
08739000 



08740000 
08741000 
08742000 
08743000 
08744000 
087*5000 



08750000 
08751000 
08752000 
08753000 
08754000 

08755000 
08756000 
08757000 
08758000 
08759000 
08760000 
08761000 



08739500 C 



08746000 T 

08747000 T 

08748000 T 

08749000 T 

08749500 C 



0000*0 
0000*0 
0000»0 



000010 
000010 
000010 

oooo«o 

OOOOJO 
000010 

ooooto 
ooooto 

OOOOJO 
0003J1 
0004J2 
000611 
0007J1 

08738000 
0008J0 

08739500 
000910 
001012 
0011*1 
001212 
0013*2 
0014* 1 

08744000 
0015*3 
0016*3 
0017*3 

08747000 
0018*3 

08749000 
00191 3 

08749500 
0020(3 
0021*3 
0023*0 
0024*1 
0024*2 

08738000 
002413 
0025*1 
0027*1 
0028*2 
002913 
003113 
0034*1 

08758000 



JF IOT/O ThF.M BEGIN* 

IOTlMEfMlX] «■ *P(DUP)-lOTJX 

JAR[MiX,41 * *PCDUP)+IOT»* 

END END ELSE BEGINS 



if prt#o then begin* 

PROCTfMFtMlx] * *P(DUP)+JARtMIX.3]*PRTI* 
JAH[MjX,3] * PRT*X 
END?* 

if ioT»to Then begin* 

IOTlMrtMlX] ♦• *P(DUP).+JARtMlX,4]-IOTI 
JARfM?X,4] + IOTJ* 

END end; 



STREAM(TEST*Oi X*JARROWtMlX)#MlXtZ*PRT#0^ I*jOT#0»« 

KJxTYPEsVXT,Tl*TlwSPACFC10)); 
BEGIN DS*LIT » "» Z(f>S«-4 LjT "PRT "* TALLV*U* 

I(0S*4 LlT"AND " ) ) t I(DS*4 LIT M I OT "J TALLY*1)*X 

os*6 lit "fstimate"; Z(kds*lit "S">);* 

0S*8L!T» ChANGEO-J K<DI*DI-7I DS*8L lT"EXTENDED" ) * « 
DS*5LIT» FOR"? S I «-X * Sl*Sl + ll DS*7CHR* Si»SI+1II 
pS«.LlT»/ w « DS*7CHR; DS*-LIT"*"; Sl*L0C ZJ* 
Sl*Si-8; DS*?DEC> OS*LlTw*"; TEST*TALLYI 

pi-dt-3j ds*fillj 
fnd stream;* 



IF P THEN SPOUTfRcT 

forgftspace(T); 



INX M[BUFF-13»UNITN0»1) ELSE 



END* 



jOT * PRT * -0;* 

IF P(JAR[MJX»3]»DUP)b*377777777777 ThfN PCOEDELSE* 
Pi ♦ fPRT * P DIV 3600)-60xCPRT * PRT DIV 60);* 
IF P(JAR[MlX,4]»DUP)*P377777777777 THEN P(DEL) ELSE* 
H * MOT * P DIV 3600)-60x( JOT ♦ j OT DIV 60)J* 
STRFAMfX*JARROWCMiX], M I X f PRT # P 1 » I 0T# 1 1 » BUFF ) J 

BEGIN DS*J7LIT" TjME LiMJTs FOR"; S I •- X ; Sl*Sl+i; DS*7CHRl* 
DS*LlT"/"; Si4.Sf + U DS*7CHRl DS*L I T "«" J Sl*LOC MIX) 

ns*2DEc; m i x-p i j di*di-?; ds«-fill; di+mix; 

DSMOllT" ARf« PRT="; IF SO" + " THEN 

BEGIN Sl*Sl+l6; DS*8LlT"N0 LIMIT" END ELSE BEGIN* 



DS.-8DEC! D5*LIT"i"l DS*2DEC; 8UFF*DI! 
DS«-7FILLJ DI*BUFF END; DS*6lIT"; I0T»") 



DI»DI-11 I* 
IF SC»"+" 



THEN 



DS*10LlT"NO LIMIT.*" ELSE BEGIN DS*8DEC) DS*L I T"i "I * 
DS*2DEC) DS*2LlT« t *"j DI«-D1»13) DS*7FILL END; 



end stream;* 

SPIT»* 

SPOUTER(BUFF 

end timerelaxer; 



INX M[BUFF-n#UNlTNO#l); 



08762000 T 
08763000 T 
08764000 T 
08765000 T 



08766000 T 
08767000 T 
08768000 T 
08769000 T 

08770000 T 

08771000 T 

08772000 T 

08773000 T 



08774000 
08775000 
08776000 
08777000 
08778000 
08779000 
08780000 
08781000 
08782000 
08782500 
08783000 



08786000 
08787000 
08788000 
08789000 
08790000 
08791000 
08792000 
08793000 
08793500 
08794000 
08795000 



08784000 T 
08784100 T 
08785000 T 



08795500 T 
08796000 T 

08796500 T 
08797000 T 

08797500 T 

08798000 T 
08798500 T 
08799000 T 



0034*1 
003512 
0037«2 
004010 

08762000 

08757000 
004210 
0043U 
0046*2 
0048*1 

08766000 
0048*1 
004912 
0052*3 
0054*2 

08770000 

08765000 
0054*2 
0057*2 
0060*3 
0062*3 
0066*1 
0069*2 
0073*0 
0075*0 
0076*2 
0077*3 
0078*1 

08776000 
0078*2 
0082*1 
0063*2 

08736000 

0083*2 
0085*0 

0067*2 
0092*2 
0095*0 
0101 *2 
0104*0 
0107*1 
0109*0 
0110*1 
0112*1 

08795000 
0114*0 
0115)2 

08795000 
0117*2 
0120*0 

08796500 
0121*1 

08792000 
0121*2 
0121*2 
012413 

08733000 



SjZE» 0126 WORDS 



PROCFDUPE f.HANGFFACTOR(BUFF»Tr)j VALUE BUFF»TF) REAL BUFF; BOOLFAN TFI 

START OF REL 
PRT(6l4) a CHANGFFACTOR 

BEGIN RFAL FACTOR»p,T| jNTfgFR TFMP s T> 

STACKfF+1) « FACTOR 

STACKfF+2) = B 

STACK(F*3) = T 

STACKfF+3) . TEMP 

UBFL TYPF0UT,FXIT> 

BUFF «- <<B*BUFF).rl5M5]-i)4MrP(DUP)-lJt9i9i9jI 

IF TF THEN GO TYPfOUTJ 

StRFAM(ANS*0:B)5 

RFGIN Sj*B; Dl«-LOC BJ 0S*8LiT w OOO0OOO0 w > DJ*DI«2> 

l» if sc * " " then begin si*sj + ii f,o to l end; 
if sc < "o" then go To li* 

IF SC > "9" THEN GO To 1,1 J 

Sl»Si+t J 

IF SC < "0" THEN GO To 0NECHR; 

IF SC < "9" 

THFN BEGIN SI -SI -t * DI-DI-PJ DS*2 CHR; FND 

ELSE ONECHR: BEGIN SI*SIMJ 01*01-1* DS*1 CHR; fND; 

if Sc • •'," then go to 12 elsf go to L3; 

L|l IF Sc * "." THEN GO To ERROR! 
U?: S i «.s i + 1 s 

if sc < "0" then go to error; 
if sc > "9" then go to error; 
ns*CMR» 

if Sc * "0" then if Sc < "9» then ds*chr; 
L3« IF Sc » " " then go convert; 

IF SC * "*" THEN GO CONVERT; 
ERRORIOI*LOC ANS; SKIP 1 DB} OS* 10 SET; GO TO E^lTS; 
CONVERT? Sl*LOC BI SI*Si+4; Dl*LOC ANS; DS*4 OCT; 
FXlTSl 

END STRFAM; 

Pr .factor,*); 

IF factor < THEN go to FXIT; 

C0RE.[AM4] ♦ factor; 

sleep (rTOGLE]#HOLDM ask); locktogcholdmaskj; 

B «• SPACE(30)i 
0tSKWAIT(-B.-30,DiRECT0rYT0P-SYSN0); 

MrB+9] «- core; 

DtSKWA jT(B#-30»DIRECT0RyT0P-SySN0); 

foRgetspacecb)> 
unlocktogcholdmask)* 



08800000 T 000010 
SFGMfNT; DISK ADDRESS * 00323 

08801000 T OOOOtO 



% CHANGE FACTOR 



SflfcTion; 

TYPEOUT; 

STREAM(I*(FACT0R#-C0RE.[4M4]3 Dl V 100, FR*(TEMP*FACTOR MOD 
MX*(TemP-C0RE.[Cf3x64xfACT0R/100),US*C0RE.CFF1x64, 

s set omft » not workset 

noselfct*wksetnoselect, 

$ POP OMfT 



100). 
1749. 
*749« 
X749« 

JS749- 



08802000 


T 


0000«0 


08802500 


T 


OOOOJO 


08803000 


T 


0005H 


08804000 


T 


0006(1 


08805000 


T 


000712 


08806000 


T 


000912 

08806000 


08807000 


T 


0010J2 


08808000 


T 


oonu 


08809000 


T 


001210 


08810000 


T 


0012M 


08810500 


T 


0013»0 


088H000 


T 


0013«1 

08811000 


08812000 


T 


0014U 

08812000 


08813000 


T 


00151 1 


08814000 


T 


0016J2 


08815000 


T 


001711 


08816000 


T 


0017J2 


08817000 


T 


0018*1 


08818000 


T 


001910 


08819000 


T 


0019U 


08820000 


T 


002012 


08821000 


T 


002111 


08822000 


T 


002210 


08823000 


T 


002310 


08824000 


T 


002410 


08825000 


T 


002410 

08805000 


088?6000 


T 


0024J 1 


08828000 


T 


002413 


08829000 


T 


0026>0 


08830000 


T 


002713 

08830000 


08831000 


T 


003213 


08832000 


T 


003510 


08833000 


T 


003711 


08834000 


T 


003911 


08835000 


T 


004111 


08836000 


T 


0042*0 

06836000 


08816500 


T 


0045J2 


08837000 


T 


004613 


08838000 


T 


0046*3 


08839000 


P 


005010 


08839499 


C 


005410 


08839500 


C 


005410 


08839501 


c 


005510 



BUFF); X749- 

BFfilN nS*9 LfT"FACTOR s "1 

Si*LOC H D$ + ? OEC* I ♦ 1 i DI*DI-?I nS*F!LLJ DJ«-U 

DS*Lir , .*J nS*2 DEC) 
DS*13 L?T"t MAX CORE » "I DS*7 DFCI 

I*DH Di*Dl-7> DS*6 FILU DI*IJ 
nS*7LlTw»US!NG "J l)S*7 DEO I*DU Dl*DI-7l DS«-6 FiLLJ*749- 

D i : * i ; X749- 

S SET OMIT = NOT WORKSfT *749- 

MOSELfCTCOStslft LjT M , WKSETNOSElFCT" ) I *749- 

$ POP OMIT *749- 

DS;aL,lT w *"l X749* 
END STRFAMJ 

(T X t 1 * SpOUTf RUFF>* 
END CHANGFFACTORI 



08839600 
08840000 
08841000 
08842000 
08843000 
08844000 
08845000 
08845500 
08845999 
08846000 
08846001 
08846010 
08847000 



08848000 T 
08849000 T 



C 005510 
T 005512 
T 0057»0 

T 005812 
T 005911 
T 006112 
P 006212 
C 006413 
C 006510 
P 006510 
C 006713 
C 006713 
T 006811 

08840000 

006812 

006913 

06801000 
SIZE* 0070 WORDS 



PROCEDURE" SHFETnlDnLER(BUFF,TYPF»Sin>; VALUE BUFF # TYPE . SI D J 
PRTf6i5) * SHEETOIODLER 



START OF REL 



08850000 T OOOOJO 
SEGMfNTi DISK ADDRESS ■ 00326 



REAL, BUFF, TYPE, SID; 
COMMENT TYPE « A» PS -- CHANGE PRIORITY OF JOB IN SCHEDULE 

* 81 XS — EXECUTE JOB IN SCHEDULE (FORCE SELECTION) 

« 7* ES — ELIMINATE JOB FROM SCHEDULE (FORCE SELECTION. 

THEN "DS") 

* 5» TS -- TYPf OUT SCHEDULE! 
BEGIN RrAL I 0D> T» PR I OR I TY I 

STACK(F+1) s iod 
STACKfF+2) ■ T 
STACKfF+3) a PRIORITY 

integer lfvel,nfxtlink#thtsljnk,lastltnk; 

STACKrF+4) = LEVEL 

STACK(F+5) a NEXTLINK 

STACK(F+6) * THISLINK 

STACKfF+7) a LASTLINK 

integer fs»em.eh; define et * eh#» 

STACKfF+10) a ES 
STACK(F + m * EM 
STACK(F+12) » EH 

$ SET OMIT * N0T(DATAC0M ) 

BOOLEAN LASTPASSEDiATLEASTONFj 
STACKfFil3) * LASTPASSED 
STACKfF+14) = ATLEASTONr 

ARRAY S[*].DLNK[*JI 
STACKfF+15) a S 
STACKfF+16) * DLNK 

* SET OMIT a NOT(PACKETS) 

OFF I ME UNiTNO - Sr ?3 ] , [? • 6 ] #! X ORIGINATING UNI T 
S POP OMIT 

LABEL C0NTlNUF»Cl»READIN»GNX,TSfTSl»TS2» 

XSFS,ESLL,PS,P5i»PS?,SPjT,EXlTI 
SuBROUTjNf 6FTNFXT; % RfAdS IN NEXT JOB SHEET ENTRY 
BFGIN 
CONTINUE* LASTLINK * THfSLlNKI 

IF (THISLINK*NEXTLINK) * THEN GO To READ1NJ 
C 1 t IF CLEVEL*LEVEL+D > MIXMAX THEN 

BEGIN LASTPASSED «. TRUEl GO TO GNX END* 

LASTLINK * NEXTLINK * 0* 

IF (THlSLlNK*SHEET[LEVEL],rcF] J * THEN GO TO CH 
RFAD1N: DISK! OC lOD»«(S I NX 0-1) » 30» TH J SL1 NK ) I 

SLEEPcri0D],IOMASK)J 

NEXTLINK * S[29]J 

IF SrOJ,[36l6]«»U THEN GO CONT I NUE* XPASS LM ENTRY 
GNXl 

END gftnext; 

SLEFPrrTOr,LE],SHEFTMASK)> LOCKTOG ( SHEETMA SK) I 

S :« rM[TYPEDSPACEC3l,SHEFTAREAV)n & 30fSIZE3IX *167< 

LfVEL * -1* LASTPASSED ♦ FALSF* 

IF BUFF^O THEN 
BUFF * C(T*BUFF),tl5ll5]-l>&MrP<DUP)-lH9t9l9JJ 
I SFT OMIT = NOTCDATACOM ) 



08850100 
08850200 
08850300 
08850400 
08850500 
08850600 
08851000 



000010 
OOOOtO 
000010 
000010 
OOOOtO 
000010 
000010 



08852000 T OOOOlO 



08852500 


T 


OOOOtO 


08852599 


T 


OOOOtO 


08853000 


T 


OOOOtO 


08854000 


T 


OOOOtO 


08854499 


T 


OOOOtO 


08854500 


T 


OOOOlO 


08854501 


T 


OOOOtO 


08855000 


T 


OOOOlO 


08856000 


T 


OOOOlO 


08858000 


T 


OOOOlO 


08859000 


T 


OOOllO 


08860000 


T 


OOOllO 


08860500 


T 


000lt3 


08861000 


T 


000312 


08862000 


T 


0005H 

08862000 


08863000 


T 


000710 


08864000 


T 


000811 


08865000 


T 


001013 


08866000 


T 


001313 


08867000 


T 


001511 


08868000 


T 


0016H 


08869000 


T 


001811 


08870000 


T 


001811 

08859000 


08880000 


T 


001812 

08880000 


08881000 


P 


002/12 


08882000 


T 


003111 


08882050 


T 


003310 


08882500 


T 


003313 


08882599 


T 


003813 



IF TYPE>5 THFN GO TS( If TYPE GTR 6 ThEN GO XSESJ GO PSI 
TS: ATl.FASTONE * FALSE* 

TS|: gfTnfxt; if lastpassed 

IF SID NFQ 63 THEN BEGIN 



THEN GO TO TS2J 

TF S[3] a [8ll0) NEO 



SID THEN GO TSj END ELSE 



IF ATLFASTO 

ET»((CLOC 

FS * ET M 

STRFAM(TU4-S 

RTl«5[?3].t 

(S[?3,SSYSJ 

J«-Sr*3» IO«-S 

BFGIN S 

D 

D 

D 

RT(nS*6 LIT 

DS*i LIT »/ 

D 

3 

D 
S 

FND STR 



NE TH 
K + Pf R 
OD 60 
[23], 
914] 
OBF ■ 
t 33 . t 
I*LOC 
S*LH 
S*»7C 
S»«LJ 
" FR 
"I SI 
S*7 L 
CDS * 
I*ESI 
I *LOC 
FAM; 



EN BUFF.CCF]*SPACE(12) J 

TR))/60)-St?3].f24l24]l 

( FT •■ FT 01 V 60J EM * fT MOD 60; EH * FT DlV 601 

t9U3»BUF»S[23],tl4l4]i 

NEQ O^C«=LFVEL»JU=(S[0] LSS 0) OR 

LI8MA1NC0DE)»J2«*SI273» 
8U03»FH»rM#ES»A*S[20]x64»BUFF)l % 

CI DS*6 DEC* Dl*0I-6l DS*5 FILL; DI*BUFFJ D I *01 +61 
"l"l Si*J; Sl*Si + ll DSi-7 CHRJ DS*LiTV"; Si»Sl«il 
HR» Jl(D5l«LiT H "ISI«»L0C J? ( S U «S I + 1 ; DS i = 7ChR ) I 
T"*»;Si :*LOC ID>DSJa2 DEC; 
OM "I Sl*LOc TU; DS*2 DEC; % 
♦ IOC BUFI DS*2 dec; ); % 
IT" IN FOR"; SI+LOC EH» 

Lir"tf{ ns*2 dfo; es*di; di*di-9; ds*8 fill; 

DS.-8 LlT«» NEEDS "; 

A; DS*5 dec; DS*LtT"*»j neoi-6; DS«-4 fill; 



sp0utfr(buff» if sld#63 then unitno else 0.1); 
tf s t nfo 63 then begin type»«5ig0 exit end; 

atleastone+truf; 

Go To TSJ ; 
TS?: IF ATLEASTONE THEN GO To EXIT; 

IF SID NEO 63 THEN TYPE(«5 ELSE* 

STRFAMf BUFF)! DS «• 15 LIT " NULL SCHEDULE*";* 

SPOUTCBUFF); GO TO EXIT; 

x$fs» gfTnext; 

if lastpassed then bfgln if buff#0 then spout(buff); 

go to exit; end; 

if sr3].r8»iO]#sio then go to xses; 

$ SFT om t T ■ MOTcDATACOM ) 

Sr2J.[l»2]i»flF TYPEsS THEN 2 ELSE 3)1 % 7«ES>8*XS 
DfSKIOC IOD»S INX 0"1 . 30. Th I SL I NK ) i SLEEPC II OD ) » I 0MASK ) ; 

go to spit; 

PS: STREAM(PRlORlTYlT); 
BEGIN si*ti 
n: if sc«"*" then go to x; 

if sc<"0" Then begin sj>si + ij go to n; end; wsi; 

Kt if sc^"O w then if Sc<"9* then 

RFGIN TALLY*TALLY+i; Sl*Sl+i; GO TO K END; 

si*t; di*loc priority; totally; ds*t oct; go to z; 
x» di*loc priority; skip db; ds*ii set; 

Zi 

end stream; 

if (PRioRtty*p)<o then begin spoutcbuff); go to exit end; 



XWF 



08883000 T 
08884000 T 
08885000 T 
08885500 T 



08886000 
08886300 
08886600 
08887000 
08887001 
08887010 
08887100 
08888000 
08889000 
08890000 
08890010 
08890100 
08890200 
08891000 
08892000 
08893000 
08899000 
08900000 



08902000 
08903000 
08904000 
08904050 
08905000 
08906000 
08910000 
08911000 
089H050 



0891 
0891 
0891 
0891 
0891 
0891 
0891 
0891 
0891 



2000 
2099 
3000 
5000 
5100 
6000 
7000 
8000 
9000 



08922000 
08923000 
08924000 
08925000 



08901000 T 
08901500 T 



08920000 T 
08921000 T 



08926000 T 



003813 
004113 
0042»2 
004510 

08885500 
004811 
0052»1 
0055»! 
006011 
006212 
0065U 
006712 
007111 
007213 
007413 
0077;0 
007810 
008010 
008H1 
0082(3 
008413 
0086(1 
0087(3 

08888000 
0088(0 
0092(0 

08901500 
0094>2 
0095(1 
0095(3 
0096(3 
0098(3 
0102(2 
0104J1 
Ol 05(0 
0108(1 

08911000 
0108(3 
0110(3 
0110(3 
0115(1 
0119(2 
0120(0 
0121(1 
0121(2 
0122(1 

08919000 
0123(2 
0124(2 

08921000 
0125(1 
0126(3 
0127(2 
012712 

08917000 
0127(3 

08926000 



psi: gftnfxt; if lastpassfd thfn bfgin spout<buff)* go to exit end* 
if Sr3i,r*U0]#siD Then go to psj ; 

* nFLlNK AND RFUNK THIS ShEET FNTRY 

Di.NK := rMrTYPFDSpACEt3l»SHEETAREAV)3] X 30[SlZE]*X K ] 67- 

IF NFXTLINK ■ THEN SHfETC LEVEL! . [FF J ♦ LASTLINK* 

IF LASTLINK m THEN BEGIN SHEET t LEVFU . t CF] ♦ NEXTLINKJGO PS? END) 

D?SK|0(lOD»-(DLNK INx 0-1 ) ♦ 30, LASTL I NK ) * SLEEP( t I 00 ] » I OMASK ) * 
DLNKr?9] * nextlink; 

DtSKJOC l0D» + f DLNK INX 0-1 ) . 30 , LASTL I NK ) I SLEEPC CI 00 ] , I OMASK ) J 
PS?: Sr?3.rCF] ♦ IF (S[18]4.pRJ0RITY) > 32767 THEN 32767 ELSE PRIORITY! 
LfVFL * IF PRIORITY > MfXMAX THEN MlXMAX ELSE PRIORITY* 
IF SHEETrLEVFLl.tCF] * THEN 
BFGIN DlSKIOMOD#-(DLNK INX 0-1). 30, SHEETCLEVELl.tFF])* 

SLEFPCr 1003 » IOMASK)! 

DLNKT29J «• THISLINKJ 

0ISKI0(I0D»+(DLNK INX 0-i),30,SHEETtLEVEL3.tFF]); 

SLFFPCtlODJ.IOMASK)! 
ENO FLSE SHEEULEVEL] * ThISLjNK; 



08927000 T 



SELECTION TO PRINT MESSAGE* 
SLFFP(t I0D]# IOMASK); 



SHEFTrLEVFLJ.tFF) * THISLlNKJ 

Sr29] «■ Of Sr 31 * ABS(Sr3])* % TO GET 

DfSKlOC lOo#+fS INX 0-1 ),30#THISLINK)* 

foRgftspacecplnk); 

SPjTt IF BUFF#0 THFN 
S SET OMH s NOT(PACKETS) 
IF UNITNO GEO 32 THEN 
BFGIN 

M0VFf9,BUFF + l»BUFF); SPOUTERC BUFF » UN I TN0» 64 ) * 
END ELSE 

S POP QMiT 

foRgftspacecbuff); 

FXyTI UNLOcKTOG(SHFFTMASK) J 
FORGFTSPACFCS)* 

IF TYPE** then begin keyboardcounter «• keyboardcounter-ij 

selection; 

kevpoardcounter * ke ybo ardcounter+ 1 j 

END* 
END ShEfTOIDDLERJ 



08928000 
08929000 
08930000 
08931000 
08932000 

08933000 
08934000 
08935000 
08936000 
08937000 
08938000 
08939000 
08940000 
08941000 
08942000 
08943000 
08944000 

08944500 
08945000 
08946000 
08947000 
08947100 
08947199 
08947200 
08947300 
08947400 
08947500 

08947501 
08947600 
08997000 

08998000 
08998200 
08998400 
08998600 
08998800 



08999000 T 



0131*0 

08927000 
0134*2 
0136*2 
0136*2 
014011 
0143*2 

08932000 
0147*1 
0151»3 
0153*0 
0157*1 
0162*1 
016510 
016612 
017013 
017211 
0173*2 
0177*0 
017812 

08939000 
0181*1 
0183*1 
0186*1 
0190*2 
0191 » Z 
019211 
0192*1 
0l94«l 
0194*3 
019813 

08947300 
0198*3 
019813 
020010 

08997000 
0203*2 
0204*2 
0207*0 
0208J 1 
0209*2 

08998200 
0209*2 

08851000 
SIZF* 0210 WORDS 



T 
T 
P 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 

T 
T 
T 

T 
T 



PRT(616) s 



S SET OMiT 

S SFT OMtT 

PROCEDURE WH 

WHATiNTRNSlC 

S SET OMIT 
t SET OMjT 
S SET OMJT 

PROCEDUPE TN 



= NOTCDCSPO AND DaTaCOM ) 
s NOT(DlSKLOG) 
AT? NTRNSIC(BUFF)} 



VALUF BUFFJ REAL BUFFI 



FORWARD} 

START 



OF REL 



a NOT(AUXMEM) 

* NOT MONITOR 

= NOT AUXMEM 

TRINSIC TABLE BUtLDFRfFH)} 



value fhj Real fhi 



START OF REL 



STACKfF+l) 
STACKrF+2) 
STACKfF+3) 
STACK(F*4) 
STACK(F*5) 



BEGIN 
* WHF 
REAL 

3 DISKADDR 

a J 

* imtloc 

a T17SIZE 

a MAXINT 

$ SET o 
P(0» 0» 
IF (T 

$ SFT 
DISKw 
MAXIN 
T17S T 
FORGF 
TNTRm 

(Ma 
DISKW 
MtlNT 
FOR T 

IN 

DISKw 
INTRN 
Mt I NT 
DISKA 
INTRN 
FOR T 

S SET 
INTSi 

J SET 
TtsSP 
STREA 
BEGIN 



N CA 
DISK 



LLED WITH FH* C-l)» TRANSFER TO AUXMEM ONLY 
ADDR» + i»T» + 2MNTL0C« + 3»Tl7SlZE« + a»MAXiNTss45> 



08999999 

09299999 

09400000 

SEGMENTI DISK 

09400099 
09410100 
09433590 
09500000 
SEGMfNTl DISK 
09500500 
09500510 
09501000 



MIT 

0. 

:=FH 

MIT 

AITC 

T t 

7F » 

TSPA 

SCSs 

XIMT 

AjT( 

RNSC 

t a 

TRNS 

(PC 
AlTf 

sen 

LOO 
DDR J 

scr2 

MIT 

ZE»* 
MfT 
ACEC 
Mf Si 

S f t « 
63(1 
4(S 
IF T 
3(IF 
Si*T 



■ N0T( 
# 0) J 
.[FFJ) 
= NOTC 
-T> 30 
= MfT] 

s mtt 

CECT)> 

r mt int 

+117SI 
-( INTR 
INX N 
1 STEP 
C[T]J* 

XCH) I 
-( INTL 
7] :s 
1 ]»sO& 
■0*i[4 
] l»*P( 

stf.p 

s NOT( 
(INTRN 
s NOT( 
15)1 W 
sT» [) »» 



AUXMEM) 

*0 THEN Tt*sPACE(30)> 

AUXMEM) 

, DISKADDR5«M[FH INX 10]); 

+ i; i number of intrinsics 

INX in.[»MO] + ll % INTR,#17 



+ 1 
SIZE+1WD.F0R 



DI5K.ADDR. 



'AREAV.1)+2]]R 

'ABLE + INT. #17 



IOT 0] «* 01 MAXINT t* MAXINT -II 
' 1 UNTIL MAXINT DO 

<NABSC(P(*P(oUP)»DUP),[BliO]+lNTSlZE) & 
NX + DiSKaDdR)[6I21«27J)J 

.0C»»lNTL0C+MAXlNT+2).(Tl7SlZE-l)»lNTRNSC[l7],r6«27])» 

(*P(DUP))&INTLOCfCTC]» X MARK PRESENT 
.(Tl7SlZE-l)rCTFi; % DUMMY MARKER FOR DUMP/ANALYZE 
U47»n> 

DUP) OR DiSKAODRl 

1 UNTIL 20 00 INTRNSC[T]t=*P(DUP) or diskador; 

AUXMEM) 

SCC03 + 3 ) DfV 4; 

PACKETS) 

HATINTRNSIC(T)) 

3)1 



S> DI»«DT**» * CMRJT IN M[3],[H1] 

f $cs". M then jump out; sii»si*i)j si«si; 

I»*S1+1> IF SC» H ." THEN JUMP 0UT)l 

oggle then else s t j.s; sp«si + u 
sc<«o* then jump out; tallyi«tally+ii Sii«si*n; 

ALLY! SpsSi-S; DMsDI-SJ dsus chrj 



FNDI 



forgfTspacect); 

POP OMiT 

FNO tNTRlNSTf TABLE BUILDER* 



09501500 
09504570 
09505000 
09505100 
09505500 
09505600 
09505700 
09505750 
09506000 
09506100 
09506500 
09507000 
09507500 
09508000 
09508500 
09508600 
09508700 
09508800 
09509000 
09509500 
09510000 
09510500 
09534500 
09534999 
09535000 
09535100 
09535200 
09535300 
09535400 
09535500 
09535600 
09535700 
09535800 
09535900 



T OOOOtO 
T 0000(0 
T 000010 
ADDRESS * 00333 



OOOOtO 
0000 »0 
OOOOJO 
OOOO'O 



ADDRESS ■ 
T OOOO'O 
T OOOOtO 
T 0000«0 



00333 



T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



09536000 T 

09536001 T 
09537000 T 



OOOOtO 
0000»0 
0001 { 1 
000513 
000513 
000910 
0011 » o 
001410 

0014 » 3 

001610 
0020(0 
002211 
002610 
002710 
002911 
0034 si 
003812 
004012 
004312 
0045<1 
004711 
0052(1 
0052U 
005411 
0054U 
0057U 
005811 
005811 
0058(3 
006013 
0062*2 
0063>2 
0065»2 
0067*1 

09535200 
0067(2 
006811 
0068(1 

09500500 



SjZE« 0069 WORDS 



PROCEDURE CHANGEINTRINSICFILF(BUFF)! VALUF BUFF; REAL BUFF** 

START OF REL 

REGJN RFAL A»B»lOD»|»J»K»Ll 
STACKfF+1) « A 
STACKfF+2) s B 
STACKfF+3) a !OD 
STACKfF*4) * I 
STACKrF+5) s J 
STACKfF+6) a K 
STACKfF+7) a L 

REAL FH.T.TT; LABEL FX I T * W I THOUT ; 
STACKfF+lO) = FH 
ST*CK(F*11) * T 
STACKcF+12) * IT 

Real sj7e*j#diskaddr=t,locstt>Wi*j; 

STACKfF+4) x SlZF 
STACKrF^n.) = DlSKADDR 
STACKfF+12) b LOC 
STACKfF+5) * WI 

BOOLEAN SUBROUTINE N^LLMIX** 

BEGIN POllSHU)!* 

if intsize^o then begin intsize «■ o*s 

FOR 1*1 STEP 1 UNTIL MIXMAX DO* 

IF JARROWt I J#0 THEN* 

IF NOT (JARCI»9).SVSJ0BF) THEN % NOT "SYSTEM" JOB 

BEGIN PCDEL. 0)} I «• MlXMAX* END?* 

IF NOT P(DUP) ThEN TNTSJZE * CINTRNSCC0J+3) DIV 4*X 

end;* 

nullmjx * polish;* 

END NULLMlXjX 

SUBROUTINE fORgfT«£MJ* 

BEGIN SLEEP([TOGLE]»STOREMASK)l LOCKTOG(STOREMASK)! 

WHILE (K * M[Lj>,rCF]#0 D0« 
BFGIN IF K>0 THEN* 

IF K.C3I 1?]=P700 THEN* 
F0RGFTSPACF(L + 2)U 

L .- K.rCFUX 
FNDU 

unlocktog(storemask); 

4 set omit = not(auxmem) 

forgftspaceclntrnsc inx 0); intrnsoo 
end forgetem;* 

define error a 6-0 to ex| t#s x 

SLEEP* rTOfiLFJ* FReEMaSk)' INTFReE * FALSE** 

T * BUFF** 

NAMEID(A,T)I NAMElDrB,T)l NAME 1 DC B, T) J * 

if (fhi*dtrfctoRysearch(a»b»i7)>*o then errori 

IF (J*MrFM+4].f 36»6J)#0 THEN 

IF J/DCINTYPE AND J#TSSINTYPE THEN 
RFGIN % DONT ALLOW CI ON KNOWN NON* I NTR I NS I CS FILE 



09600000 

SEGMENT? DISK 

09601000 



T 0000*0 
ADDRESS ■ 
T 0000«0 



00336 



09602000 T OOOOJO 



09602100 T 0000*0 



09603000 


T 


000010 


09604000 


T 


0001*0 


09605000 


T 


0001 11 


09606000 


T 


0003 J 1 


09607000 


T 


0004J0 


09608000 


T 


000550 


09611000 


T 


0007*1 

09611000 


09612000 


T 


0011 » 1 


09613000 


T 


0014*1 

09605000 


09614000 


T 


0014*1 


09615000 


T 


0014*2 

09604000 


09616000 


T 


0014*3 


09617000 


T 


0015*0 

09617000 


09618000 


T 


0020*0 


09619000 


T 


0023J0 


09620000 


T 


0023*3 


09621000 


T 


0025*2 


09622000 


T 


0027*1 


09623000 


T 


0028*2 

09619000 


09624000 


T 


002910 

09624000 


09624010 


T 


0032*2 


09624100 


T 


003212 


09625000 


T 


0034*0 

09617000 


09626000 


T 


003510 


09630000 


T 


0035*0 


09631000 


T 


0040*3 


09632000 


T 


0041*2 


09633000 


T 


0044*2 


09633100 


T 


0047*1 


09633200 


T 


0050*1 


09633300 


T 


0052*2 



STREAM(AfB»NTll«BUFF,rl5ll5]»l)l 
RFGIN OS*s?LlT"# "J St »=LOC A» 

SliaS! + i; [)Sjs7ChRJ DSl«LlT M / M J 

siissi + i; os.*x7 chr; 

DSI»?4 LIT" NOT AN iNTRiNSlCS FILE*"* 
FNDJ 

FORGFTSPACE(FH)» 

F0RGfTSPACEC0IRfCT0RYSEARCH(A,B»16))I 

ERRORJ 



END* 



07427630 



ACCIDENTAL 



S SFT 



IF NOT NULLMIX THEN cOMPLEXSLEEP( NULLM I X ) ; 
r NTRY AT NULlMjX 

IF INTRNSC^O THEN 
OMfT = SHARFOISK 

if mcpfRef«o Then 

LOCKTOG(MCPMASk)) 



forgftem» 
slfep([t0gle3»mcpmask)> 



$ POP OMIT 

ti*spacec30) j 
oksfgzerowrite««true; 

DlSKWAlT(-T»»30»0); 

I »=T+13+5xSYSN0l 

IF (lTl»D!RrCT0RYSEARCH(Ht!l»M[!+13tl6))#0 THEN 

FORGETSPACEUT)? 

Mr i ]*«aj 

Mf I+lllrBl 

niSKWAjT(T»-30,0); 

OKSEGZEROWRJTE IsFALSEJ 
S SET OMIT = ShAREDISK 

UNLOCKTOGf mcpmask); 



*204- 



X204- 



$ POP OMIT 

* set omit = not(auxmem) 
forgetspace(T); 

lNTRlNSICTABLE8UlLDER(FH,tCF])J 
FORGETSPACE(FH)l 
WHATlNTRNSlCCBUFF.t 15*1 5] ) 
STREAMfBS,BUFF.r 15* 151-1 )» 
EXITJ SP0UT(BUFF,ri5:t5]-l>lX 

intfree * true;* 
end changing intrinsic files on user disk with many precautions** 



DS*s8 LlT" NEW 



"I 



09633400 
09633500 
09633600 
09633700 
09633800 
09633900 

09634000 
09634100 
09634200 
09634300 



09636000 
09636999 
09637000 
09638000 

09638001 
09639000 
09639001 
09640000 
09641000 
09642000 
09643000 
09644000 
09645000 
09646000 
09646001 
09646999 
09647000 

09647001 
09647999 
09648800 
09657000 
09658000 
09659000 
09670000 
09676000 
09677000 
09679000 



0053 
0055 
0056 
0057 
0057 
0060 

0061 
0061 
0063 
0065 



09635000 T 0065 



T 0072 

T 0075 

T 0075 

T 0078 



0081 
0081 
0084 
0084 
0086 
0088 
0093 
0094 
0095 
0097 
0099 
OlOO 
0100 

0103 
0103 
0103 
0104 
0105 
0106 
0107 
0110 
0113 
0114 



SIZE* 01 





1 





2 

3 

9633500 



3 

2 



9633300 







1 
09638000 
3 
3 

3 
2 
3 


1 
3 
3 

1 



09647000 

2 

2 

2 

1 

2 

1 

2 

3 



3 
09601000 
16 WORDS 



PROCFDURE CHANGFMCP(BUFF)! VALUE BUFFI KEAt BUFFI 



BFGIM 



START OF REl 



STACKfF+1) 
STACKfF+2) 
STACKfF+3) 
STACKtF+4) 
STACKfF+5) 



REA|, A»P»T»7»BASEJ 



A 
B 
T 
Z 
BASE 



09679100 

SEGMFNTI DISK 

09679200 

09679300 



labfl fxit; 
t:*puff; 

NAMfIDCA,T>J NAMEI0(B,T)> NAMEID(B»T)> 
S SET OMIT * SHARFDISK 

IF MCPF«FE=0 THEN SLEEPC[TOgLE]»MCPMASK)| 
LOCKTOG(MCPMASK)! 

$ POP OMfT 

Z»«SPACE(30); 

oksfgzerowrite«»true» 

DlSKWAlT(-7,-3O»0)J 

basf«*z+io+?xsysno; 

IF rA FQV M[BASEl 3/N0T OR 

(B F8V MrBASF + UJ^NOT THEN 
PEGlN 

IF (T«*0IRFCT0RYSfARcH(A.B»17))*0 THEN 

BEGIN* 

STREAMS A l*rA],Ti»BUFF.M 51 151-1)1 
BEGIN OS : = 1 3 LIT M #NO MCP FILE " I S I I «A J Sj » sS I + \ > 
DSl*7 CHR;oStsLIT H / ,, JSl JsSl + i?DS»s7 CHR; 

os«-ltT"«."; 

end; 



*204- 




forgetspacect); 

F0RGFTSPACE(DIRfCT0RYSEARCH(A.B.16))| 

go to exit; 



end; 



IF MrRASE+21-2*MCPBASE THEN 

FORGETSPACFCDlRECTORYSeARCH(M[BASE]»MrBASE+13il6))J 
MrBASE] *«AI 
M[BASF+1 ] lsB> 
MrBASE+2]l*M[T+l0]; 
$ SET OMIT * NOT(AUXMEM) 
FORGETSPACECT); 
END; 



09680101 
09680200 
096802?9 
09680300 
09680400 
09680500 
09680600 
09680700 
09680800 
09680900 
09681000 
09681100 
09681200 
09681250 
09681300 



09681505 
09681510 
09681515 
09681520 
09681525 
09681530 
09681535 



09681600 
09681650 
09681700 
09681800 
09681900 
09681909 
09682000 
09682100 



T OOOOJO 
ADDRESS « 
T 000010 
T 000010 



00340 



09679400 T 
09679800 T 
09679900 T 

09679999 T 

09680000 T 
09680100 T 



09681400 T 
09681500 T 



09681540 T 
09681545 T 
09681550 T 
09681555 T 



0000 
0000 
0002 
0005 
0005 
0008 

0011 
0011 
0014 
0014 
0016 
0018 
0021 
0024 
0024 
0026 
0027 
0029 
0031 
0033 
0033 

0033 
0036 

0036 
0040 
0040 
0042 
0043 
0044 
0046 

0047 
0047 
0049 

0050 

0050 
0052 
0056 
0058 
0060 
0063 
0063 
0064 









1 

9680100 

3 

3 



3 

2 

3 





2 

3 

1 

1 

3 



2 

9681100 

3 



9680900 



1 

3 

3 

3 

3 

3 

9681520 



3 

2 



9681510 



2 

3 

1 

1 

2 

2 

1 

9680700 



STRfAM(AI«C Al »T»«BUFF,r 15H51-1 ) I 

BEGfN DS!«18 LfT " NEXT McP WILL BE " * S J I «A J S I 1 «S I ♦ 1 J 
nS«*7 CHRlDStsLtWlSi SaST + l!DStB7 CHR* 

ns*LiT«*»j 

END} 

Mr3]«-NABS(*P(DUP))J X SF.T FLAG FOR WM 
FXlT* 

OlSKWATT(Z»-3O,0)» 
OKSFGZFROWRJTE t=FALSFI 
S SFT OMIT = NOT(NOT ShARfDISK) 

unlocktOg(Mcpmask); 



s 



X204- 



POP QMlT 
FORr,ETSPACFCZ)> 
SP0UTfBUFF.rt5ll5]-t )l 
FND CHANGING OF THE ^CP> 



09682200 
09682300 
09682400 
09682450 
09682500 

09682550 
09682600 
09682610 
09682611 
09682619 
09682620 

09682621 
09682700 
09682800 
09683100 



T 0064*1 
T 0066» 1 
T 0069J1 

T 0070*2 
T 0071*0 

09682300 
T 0071*1 
T 0073*1 
T 0073*1 
C 0074*3 
T 0075*2 
T 0075*2 

09682620 
T 0079*0 
T 0079*0 
T 0079*3 
T 0082*0 

09679200 
SIZF» 0084 WORDS 



boolean procedure: systtmftLfca.b)* value a.bj real a#bjx 

BEGtN 



LABEL 

LABEL 

LABEL 
$ SET OMIT a M 

DEFINE 

IF (B 

P 

( 

( 

ELSE I 



I SK. LOG • TRUTh* D I R» SYS. HEM. DECK • MASK. TEST I 

DMPI 

majnt; 

OTCSTA 
T*P(T 
EOV P( 
(((A E 
(A FOV 
(A FGV 
F (B E 



$ SET OMjT a ShAReDI 






S POP OM 
S SET OM 



IT 



IT * 
ELSE 



TISTICS) 
RUTH)#>X 

disk))*t Then* 
qv p(ojr))«t> or 

P(LOG))sT) OR 
PCDMP))«T)) 

ov P(log))=t Then* 

P(((A EQV P(SYS))«T) % 
SK 

R ((A EOV P(MA|NTn«T>« 
R ((A EQV P(REM))»T)J 



$ SET OMfT = 
ELSE 



DISK 

LOG 

TRUTH 

DIR 

SYS 

REM 

DECK 

MASK 

test 

DMP 

maint 

SET OM 
ENDJ* 



OT(SHAREDISK) 
F (A EQV P(DECK))»T THEN* 
f((B AND P(MASK)) EQV P( TEST ) ) *T ) % 
OT(STATlSTicS) 
(0)1% 
P(RTN);X 

DISK »J* 

l o r " » % 

1777777777777777}% 

HTRCTRY"!* 

SYSTEM M J* 

REMOTE "J* 

DECK "t% 

77000000007777t% 

l2000000003n4;S 

DMPaREA'MX 

MAINT ")* 

OT(STATlSTlcS) 



3' 



N( 



09700000 T 0000 
START OF REL SEGMENTl DISK ADDRESS 

09701000 T 0000 

09701500 T 0000 

09701550 T 0000 

09701599 T 0000 

09702000 T 0000 

09703000 T 0000 

09704000 T 0001 

09704100 T 0003 

09704500 T 0004 

09705000 T 0006 

09706000 T 0008 

09706049 T 0009 

09706050 T 0009 

09706100 T 0011 

09706101 T 0012 
09706150 T 0012 
09706199 T 0012 
09707000 T 0012 
09708000 T 0014 
09708099 T 0016 
09709000 T 0016 
09710000 T 0017 
09711000 T 0017 
09712000 T 0019 
09713000 T 0020 
09715000 T 0021 
09716000 T 0022 
09717000 T 0023 
09718000 T 0024 
09719000 T 0025 
09720000 T 0026 
09720500 T 0027 
09720650 T 0028 
09720699 T 0029 
09721000 T 0029 

SIZE" 00 



00343 



10 
a 
10 
JO 
JO 
JO 
10 
JO 
J2 
«1 
13 

JO 

«0 

J3 

S3 

JO 

J2 

J2 

J3 

J3 

J2 

J3 

:3 

5 2 

.'3 

10 

10 

JO 

:0 

JO 

JO 

10 

JO 

JO 

JO 

JO 

JO 

09701000 

30 WORDS 



* SFT OMIT * NOT(DERUGGINg) 
$ SET OMjT a NOT(WORKSeT)! 

PROCEDURE WKSETVALUESf KTRX); VALUE KTRX; REAL KTRXJ 

PRT(6i7) * wKSETVALUES 

BEGIN 

% ROUTINE for handling KEYiN WORkSET requests, 

RFAL 

BUFF, 
STACKfF+1) = BUFF 

CYCLfTOG* 
STACKfF+2) » CYCLETOG 

FRRORTOR» 
STACKfF+3) = ERRORTOG 

INS, 
STACKfF+«> 3 INS 

INSTRUCT, 
STACKfF+5) a INSTRUCT 

KTR, 
STACKfF + 6) « KTR 

* SET OMIT * NOTfWORKSETMONITOR) OR OMIT 
MONTOG, 

STACK(F+7> a MONTOG 

S POP OMIT % WORKSETMONITOR 

N, 
STACK(F+10) * N 

NAM, 

STACK(F+in * nam 

nfxtnamf. 
stack(f+12) ■ nextname 

OLAYTOG, 
STACK(F+13) = OLAYTOG 

STARTING, 
STACKfF+14) • STARTING 

TOLTOG, 
STACKfF+15) * TOLTOG 

USETOG, 
STACKfF4-l6) = USfTOg 

VALU, 
STACKfF+l7) « VALU 

ZZSTAS 
STACKfF+20) 9 ZZSTA 



STACK(F+21) * NAMS 



ARRAY NAMSt*)« 



LABEL NU» NEW, SKAN, SKP, FRRORl 



DEFINE 

OLAYfNDX 

PRIORINOX 

ETiM F INoX 

CORElNDX 

SAVETNDX 



s 1*, % CODE FOR "OLAY RATIO" 

b ?#, X CODE FOR "PRIORITY", 

- 3#» % COoE FOR "ELAPSED TlMf", 

s 4#, * CODE FOR "CORE USAGE" 

s 5#, * CODE FOR "SAVE CORE USAGE" 



09999999 T OOOOJO 

12200000 T OOOOtO 

12200500 T OOOOJO 

12201000 T OOOOJO 

START OF REL SEGMFNTl DISK ADDRESS « 00344 

12201500 T OOOOJO 

12202000 T OOOOJO 

12202500 T OOOOJO 

12203000 T OOOOJO 

12203500 T OOOOJO 

12204000 T OOOOJO 

12204500 T OOOOJO 

12205000 T OOOOJO 

12205500 T OOOOJO 

12206000 T OOOOJO 

12206500 T OOOOJO 

12207000 T OOOOJO 

12207500 T OOOOJO 

12208000 T 000080 

12208500 T OOOOJO 

12209000 T OOOOJO 

12209500 T OOOOJO 

12210000 T OOOOJO 

12210500 T OOOOJO 

12211000 T OOOOJO 

12211500 T 0000:0 

12212000 T OOOOJO 

12212500 T OOOOJO 

12213000 T OOOOJO 

12213500 T OOOOJO 

12214000 T OOOOJO 

12214500 T OOOOJO 

12215000 T OOOOJO 

12215500 T OOOOJO 

12216000 T OOOOJO 

12216500 T 000010 

12217000 T OOOOJO 

12217500 T OOOOJO 

12218000 T OOOOJO 



jnfosize 



s 5#J * NUMBER Or ENTRIES FOR EACH MIX 



nFF?NF PRTNTDTGTT * * OUTPUT ROUTINE FOR STREAM STATEMENT 
DV«=Pi; 0S:»5DFCJ DllsDV* DSL4FILLJ 

D|!«DV; Sl««DVJ 5CIF SC» M " ThEN SII«SI+1 ELSE DS»»CHR)> 
DS*»l.lT"F"#i 

BUFF «s KTRX.M5M5]! % KEYlN BUFFER LOCATION 

KTR | B KTRX.[i5»33]» * LOCATION OF REQUEST IN KEYlN BUFFER 

ZZSTfl ** 4 M[BUFF"23[9I9|9]1 % REMOTE STATION 

SKANJ % SCAN INPUT BUFFER FOR REVEST ANALYSIS 

STREAMfNAM 1*0. VALU»«C"»1)» L0CN»»O» NEXTNAME l« ,, *» 
TOG«»0» fOLTOg'^Op Tt=0» KTR)> 
BFGIN 
S? J*KTR; fiO TO L2; 



LOl 

Li: 
L2: 



st j«ktk; go to li\ 

63CTF SC»ALPhA THEN S.I-Sl+1 E^SE JUMP OUT TO L2)> 

St lsSt + 1 I 

ENn 



63CfF SC S AL.PH 
Sf l«5! + l J 

IF SC""»" THF 
IF SC=" " THF 

• - ro_H M T i i a. 



IF SC«%' 
IF SC*"'" 
BFGIN 
TALLYti 

fndj 



ENn of Record 

IGNORE BLANKS 
COMMA IS OPTIONAL 
SET "EQUAL" TOGGLE 

U EQLTOGl»TALLYI GO TO Lli 



N GO TO 

thfn go to 

then go to 
then 



L3; % 

Lit % 

Ll; * 
% 



L3« 



IF SC*ALPHA THEN E^SF GO TO XXO; % NO OTHER SPECIAL CHR.ALLOWFf) 

% TRFAT STRING AS NUMF.RfC ONLY IF PRECEEDED BY "■" 

EQLTOGCIF SC GEO "0" THFN IF SC LEQ "9" THEN JUMP OUT TO L*>» 

T0G(DI«»L0C NEXTNAMEl JUMP OUT TO LL1)» % USE "NEXTNAME" 2ND. PASS 

Pil-LOC NAMJ I USE "NAM" ON FIRST PASS 

GO LLI* LLO. gO LOJ XXOi qO TO XXI T; LLI I % BRANCH POINT 

Dt'»01+5; * NAME STORED IN LAST 3 ChRS. 

IF SC""*" THEN % END OF RfC0Rd»D0NT MOVE SI 

REGIN 

nS«s3LlT"00*."> GO TO XX IT; 

FNDJ 



L4» 



XXlT» 



T t = S I I DSlrCHRJ 

2riF scsAlpha then ds.bchr else 

TOGf SI t»T| JUMP OUT TO XXf T) I * 

T A LLY:xiJ TOGJ=TALLY; X 

GO TO llO; 

% NUMERICS CONVERTED AT "L4" 

locnisSp si t«s i*i* tallYibO; eqltogi«tally; 

7fIF SC GEO "0" THEN IF Sc LEQ "9" THENI 

IF TOGGLE then else jump out; si»*si + i; tally«*tally4-ih 
St i«locni t««tallyj di»bLoc valu; dsi»t oct; go to lloj 

LOCNJ«Sp 

END STREAM STATEMENT) 



DSJsLlT* ")J 

BRANCH OUT ON 2ND, PASS 

SET SECOND PASS TOGGLE 



TALLY«*1> 



nextnamf «» Pi 


% 


KTR i« PI 


% 


valu »» p; 


% 


NAM Is p; 


% 



value of next item in request 
address of next item in keyin bufffr 
numeric value of request cm if none 
request item 



GIVEN) 



12218500 
12219000 
12219500 
12220000 
12220500 
12221000 
12221500 
12222000 
12222500 
12223000 
12223500 
12224000 
12224500 
12225000 
12225500 
12226000 
12226500 
12227000 
12227500 
12228000 
12228500 
12229000 
12229500 
12230000 
12230500 
12231000 

12231500 
12232000 
12232500 
12233000 
12233500 
12234000 
12234500 
12235000 
12235500 
12236000 
12236500 

12237000 
12237500 
12238000 
12238500 
12239000 
12239500 
12240000 
12240500 
12241000 
12241500 
12242000 
12242500 

12243000 
12243500 
12244000 
12244500 
12245000 



T 
T 
T 
T 
T 
T 

r 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0005 
0006 
0009 
0009 
0009 
0009 
0011 
0012 
0012 
0013 
0015 
0015 
0016 
0017 
0017 
0018 
0018 
0019 

0019 
0020 
0020 
0022 
0023 
0024 
0024 
0025 
0025 
0025 
0026 

0026 
0027 
0029 
0030 
0031 
0031 
0031 
0032 
0033 
0035 
0037 
0037 

0037 
0037 
0038 
0038 
0039 



















2 

3 

3 

3 

3 

3 

1 

3 

3 

1 

1 

2 

1 



3 

1 

1 



2230000 







1 

3 



3 



2 
2 
2 

2235500 

2 





2 



1 
1 
2 
3 
2 


1 

2226000 

2 

2 



2 




if nam«««." then % null input, treat as "list" request 
bfgin 
NU» USETOG is toltog J* OLAYTOG Is cycletog r= u 
GO TO NEW? 
ENO 

ELSE IF USfTOG ■ 3 ThEN % SETTjNr, NEW OPTIONS 
BfGIN 

IF (N»a:(IE (NAMs M OLA" AND VALU*C-l>) THEN OLAYINDX ELSE 
IF NAMs^PRl" THEN priorind* ELSE 
IF NAM*"TIM" THEN ETIMEINDX ELSE 
IF NAM«"COR w THEN CORElNDX ELSE 

IF NAM*"SAV M THEN SAVETNDX ELSE 0)) NEQ THEN 
INSTRUCT :< 8 INSTRUCTI8UU01 & N[4»44i4J 
FLSE GO TO SKPJ % MAY NOT RE PART OF "USE" COMMAND 
ENO % IF USETOG ■ 3 

ELSE 
SKP: IF (NAM="ON " OR NAMs"OFF w ) THEN 
BfGIN 

STARTING ta J + (NAM*"OFF")J 
GO TO NUI 
ENO 

ELSE IF NAMs«»USF" THEN I! SfTTING NEW VALUES 
BFGIN 

INSTRUCT Is 01 
USETOG «* 3; 

END 

ELSE IF NAM»*OPT" THEN USETOg »« 1 % LISTING OPTIONS 
ELSE IF NAMs"TOL" THEN IK TOLERANCE FOR OPTIONS 

BFGIN 

TOLTOG :« II 

if valu gfQ o then 

BEGIN 

if valu gtr too Then go to errori 
wksftolfRance » s valu x 0,011 

END> 

END 

ELSE IF NAM * "OLA* THEN 
BfGIN 
0|,AYTOG »* II 

if valu ceo o then 

BFGIN 

WKSETMaXOLAY :■ VALU/100J 

FND* 

END 

ELSE TF NAM«»CYC" THEN % CYCLE TlME 
BfGIN 

CYCLETOG »* II 
IF VALU GE« THEN % SETTING NEW VALUE 



12245500 


T 


0039 


12 


12246000 


T 


0039 


12 


12246500 


T 


0040 


11 


12247000 


T 


0040 


13 


12247500 


T 


0043 


10 


1224B000 


T 


0043 


12 

12246500 


12248500 


T 


0043 


«2 


12249000 


T 


0044 


13 


122A9500 


T 


0045 


11 


12250000 


T 


0048 


»2 


12250500 


T 


0050 


12 


12251000 


T 


0052 


12 


12251500 


T 


0054 


12 


12252000 


T 


0057 


13 


12252500 


T 


0059 


13 


12253000 


T 


0061 


10 
12249000 


12253500 


T 


0061 


10 


12254000 


T 


0061 


to 


12254500 


T 


0068 


'3 


12255000 


T 


0069 


'1 


12255500 


T 


0071 


10 


12256000 


T 


0074 


10 
12254500 


12256500 


T 


0074 


\o 


12257000 


T 


0075 


'I 


12257500 


T 


0075 


13 


12258000 


T 


0076 


12 


12258500 


T 


007T 


n 

12257000 


12259000 


T 


0077 


11 


12259500 


T 


0080 


2 


12260000 


T 


0083 


3 


12260500 


T 


0084 


11 


12261000 


T 


0085) 





12261500 


T 


0085 


3 


12262000 


T 


00861 


1 


12262500 


T 


0087. 


2 


12263000 


T 


00891 


1 
12261500 


12263500 


T 


0089 


1 
12260000 


12264000 


T 


0089 


n 


12264500 


T 


0092) 


3 


12265000 


T 


0093) 


1 


12265500 


T 


00941 





12266000 


T 


00941 


3 


12266500 


T 


0095! 


1 


12267000 


T 


00971 



2266000 


12267500 


T 


0097! 



2264500 


12268000 


T 


00971 





12268500 


T 


00991 


3 


12269000 


T 


OlOOJ 


1 


12269500 


T 


01011 






BFGIN 
N£W» , r WKSfTCYCUETiME»0 THFN % NO PREVIOUS VALUE 
BEGIN 
STFtRST «= O; STMrXT > = 0; 

if wksftinstrucTso then % stT default options 

BEGIN 

WKSfTINSTRUcT i» prioRjndx & 

OUAYINDX [40I44»4] I 

COREINOX [36U4S4] & 

ETlMEINDXt32:44l4) & 

SAVFINDX C28 1 44 1 4 3 f 
END! 

IF wksftolerance*o THEN WKSETOLERANCE l» 0.10» 
if wksfimaxouy=o Then wksetmaxolay i* o,40» 

end; % if no previous value 

IF STARTING NEQ THfN % "WK ON" OR "WK OFF" 
BEGIN 
IF STARTING * 2 THEN % "OFF" 

WKSETCYCLETlME »* NABS(WKSETCYCLETlME3 ELSE 
BEGIN X "0N M 
WKSETCYCLETlME:* 

(IF WKSETcYCLETlMEsO THEN 20x64 ELSE 

abscwksetcycLftime)); 
endi % if starting « 1 

STARTING is 01 

END; % IF STARTING rJR 

IF VALU GFQ THEN WkSf TC YCLET I ME I* VALU*64> 

IF WKSETCYCLETlME LEO o Then WKSeTNOSELECT IsO; I! tell sflectrun 

ENDJ % IF VALU GEO 

END % IF NAM*"CYC" 

S SET OMIT ■ NOT(WORKSETMONITOR) OR OMIT 
ELSE IF NAM="MON M THEN 
Br GIN' 

IE CVALU LSS 0) OR (VALU F,TR l) THEN r,0 TO ERROR! 
WkSfTMONITOR :=VALUJ monTog»*i; 

END 

$ POP OMIT % WORKSFTMONITOR 
ELSE GO TO ERROR; 

IF NaM NEQ "*" THEN 

IE NFXTNAME NeQ "*" THEN 
GO TO SKAN» 

TF FALSF THFN 
FRROR: 

ERR0RT0g»s1» 

IF USETOG THFN 

begin 

IF USET0G.3 THFN % NfW OPTIONS SET 



12270000 
12270500 
12271000 
12271500 
12272000 
12272500 
12273000 
12273500 
12274000 
12274500 
12275000 
12275500 



12276000 T 
12276500 T 
12277000 T 



12277500 
12278000 
12278500 
12279000 
12279500 
12280000 
12280500 
12281000 
12281500 



12282000 T 

12282500 T 

12283000 T 

12283500 T 

12284000 T 



12285000 
12285500 
12286000 
12286500 
12287000 
12287500 

12288000 
12288500 
12289000 
12289500 
12290000 
12290500 
12291000 
12291500 
12292000 
12292500 
12293000 
12293500 
12294000 
12294500 



0101 
0102 
0103 
0103 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 

0114 
0117 
0120 

0120 
0120 
0121 
0122 
0124 
0128 
0128 
0131 
0132 

0132 
0133 

0133 
0136 
0140 



12284500 T 0140 



0140 
0140 
0141 
0142 
0144 
0147 

0147 
0147 
0147 
0147 
0148 
0149 
0150 
0150 
0150 
0151 
0151 
0151 
0152 
0152 



3 
1 
1 
3 
3 
3 

1 









2 

2272500 

2 

1 



2271000 



3 

1 



1 



2 

1 

2 

2279500 

2 

I 

2278000 

1 

1 

I 

2270000 

t 

2268500 

1 

1 

2 



2 

3 

2286000 

3 

3 

3 

3 

2 

3 

1 

1 

2 



3 

3 



2 



TF INSTRUCT NEQ THfN % NfW INSTRUCTIONS OBTAINED 

BEGIN 

WHILE ( INSTRUCT. [44:43*0) 00 iNSTRUeTl»lNSTRUcT,[4l40]l 

WKSfTiNSTRUcT u INSTRUCT; 

END* 



instruct 
nams : = 

NAM'SrO]! 
N«=f-1 ); 
WhILF (I 

BEGIN 
INSTR 
NAMSr 
(IF I 

IF 

IF 

TF 

IE 

"UMK 
NAMS[ 

end; 



tm WKSETlNSTRUcTj 
rMrBUFF INX ?0]]&?0[8i36: 10 J I % USE PART OF KEYIN BUFFER 

=o; 

NS I* INSTRUCT, r4/»l43) GTR 00 

UCT »b INSTRUCT, t4l40]t 
NjcN + n is 
NS«1 THEN "OLAY " 
"PRJORTY" 

"Time " 

"CORE 
"SAVCOR " 
NOWN") & 1 r 5* 47 I 1 3 ; 



NS = 2 
NS«3 
NS = 4 
NS»5 



THEN 
THEN 
THEN 
THEN 



ELSE 
ELSE 
ELSE 
ELSE 
ELSE 



end; * if usetog 



streaM<cyclet 

CYC I 

frro 
olay 
tolt 

$ SET OMfT * NO 

MONT 

S POP OMTT % WO 

USET 

BFGTN 

0SJ*4LlT" 

ERRORTOGf D 

V 

D 

* SET OMIT a NO 

MONTOGfDSl 

£ POP OMlT % WO 

CYCLFTOGCD 

S 

OLAYTOG(DS 

s 

TOLTOG(DS» 

S 

USETOGCSI I 

Lit I 

S 

D 

D| * »0 I - 1 * 

END STREAM 



0G» NEC, :*( WKSFTcYCLFTlME.rit 13 )» 
*(ABS(WKSeTCYcLfTIMf)/64+0,5) OT V 1. 
RTOG» VALUTOGt*cVALU GE« 0), NAMi VALU. 
T0g» OLA?*fWKSETMAXOLAYX100+0,5) 01 V 1, 
0G» T0LI»(WKSeT0LERaNCE x 100+O,5) DIV 1» 
TcWORKSeTMONiTOR) OR OMIT 

OGf mon:*wksetmonitoR» 

rksetmonitor 

oq» nmi«nams inx o» dv»*o, buff»*buff-i ); 



wki"; 

Sl«7LlT" ERRORS? SM»L0C NAM; SI C«S! 4-5 1 DS»»3ChR> 

alutogcds»»lit"» ,, j sm»loc valu* DS»s8dEC» 

V « = 0I > DI'aDI-8; DS5»7FILLJ Dp=DV); DS:=LlT" ") ; 

T(WORKSeTMONITOR) or omit 

s4LlT"M0N«wj SII'LOC M0N; PRINTDIGITJI 

RKSfTMONlTOR 

SJ*6LlT»»CYCLE = ,, > NEGfDS«*LIT M - w ); 

IlmLOC CYCJ PRINTDIGIT); 

*=5LlT"0LAY* M ; 

I**LOC OLA; PRINTDIGIT)! 

=4LIT"T0L="; 

I IwUOC TOL; PRINTDIGIT); 

=nm; DSI»9LIT"0PTI0NSI H ; 

f sc*"o w then jump out; 

iibSi + u /(if Sc* w n then sh«si + i else ds**chR); 

si«lit"."j go to Lt ); 

nsisLiT"**; 

STATEMENT; 



12295000 T 

12295500 T 

12296000 T 

12296500 T 

12297000 T 



12297500 
12298000 
12298500 
12299000 
12299500 
12300000 
12300500 
12301000 
12301500 
12302000 
12302500 
12303000 
12303500 
12304000 
12304500 
12305000 



12306000 
12306500 
12307000 
12307500 
12308000 
12308500 
12309000 
12309500 
12310000 
12310500 
12311000 
12311500 
12312000 
12312500 
1.2313000 
12313500 
12314000 
12314500 
12315000 
12315500 
12316000 
12316500 
12317000 
12317500 
12318000 
12318500 
12319000 
12319500 
12320000 



12305500 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



SP0UT(fBUFF-l ) INX ( O&ZZST A [ 9 I 9 I 9 ] ) ) » 



12320500 T 
12321000 T 



0153*1 
015412 

0155«0 

0160:0 

0161*1 

12295500 
0161M 
0162M 
0l65«0 
0166« i 
0167M 
0169:2 
0169*2 
0171M 
0172:3 
017413 
0176:3 
0178:3 
0180»3 
0182U 
0184<2 
0186:1 

12300000 
0193:0 

12294000 
0193:0 
0194:2 
0196:3 
0198U 
0200(2 
0202:3 
0202U 
0204:0 
0204:0 
0206:2 
020612 
0207«1 
0209:3 
0211*1 
0213*1 
0213*1 
0218:3 
0218(3 
022112 
0225:3 
0227*1 
023112 
0232? 3 
023710 
0239U 
024011 
024211 
0243*1 
024410 

12310500 
0244*1 
0244M 



NaMSI«[MCNaMi«SPACE(30)]1 & 30C8I38M01I 
ntSKWAlTr-NAM»30»DlRFCT0RYT0P+l)| 
NAMSrNJ»ftxSYSNO + A]«*K»IKSFTcYCLFTlMEJ 

N A MSrN+l ]»»wksfTtnstruct; 

N fl MSrN+2 ]««WKSfTOUERaNCEJ 

namstn+3 ]»*wksftmaxolay; 

DjSKWAIK NAM #30.0! RFC TORYTOP+DI 
FORGFTSPACFCNAM)! 
FND PROCEDURE HKSFTRf*»UeSTS> 



X143- 
SS 1 ^ 3- 

*143- 
1143- 
H43- 
X143- 
1143- 
1143- 



12321100 
12321110 
12321120 
12321130 
12321140 
12321150 
12321160 
12321170 
12321500 



C 024752 
C 025H3 
C 0253* 3 
C 025613 
C 0258J3 
C 026013 
C 0262«3 
C 0264»2 
T 026511 

12201500 
S|ZE« 0267 WORDS 



PROCFDURF ^ORKSfT(N) ? VALUE N; REAL N» 

* -2; 



BEGIN 

REAL MSCW 
STACKfF-2) a MSCW 

REAL 

DEVIATION, 
STACKfF+1) = DEVIATION 

INS, 
STACK(E+2> * INS 

INSTRUCT. 
STACKfF+3) * INSTRUCT 

LINK, 
STACK(F+4) . LINK 

LOC, 
STACK(F+5) » LOC 

MAXMtX* 
STACK(F+6) 3 MAXMJX 

MAXOI.AY. 
STACK(F+7) = MAXOLAY 

MAXVaLUF» 
STACK(F+lO) = MftXVALUE 

MIX. 
STACKfF4ll) « Mix 

NJOBS* 
STACKfF+12) = NJOBS 

ptjmf. 

STACKfF+13) * PTlME 

totalptimf, 
STACK(F*t<n b totalptimf 

01. AY, 
STACK(F+15) * OLAY 

TOTALOLAV, 
STACKfF+16) a TOTALOLAY 

starting 

STACKfF+17) » STARTING 

STOPMTX, 
STACK(F+20> = STOPMIX 

SIZE, 
STACK(F+21) s SIZE 

Tl. 
STACKfF+22) * Tl 

T?, 
STACK(F+23) * T2 

totalolaycorf. 

STACK(F+24) a TOTALOLAYcORF 

totai.savecoRf. 
stackff+25) =» totalsavecorf 

totalsystemcore. 

STACKfF+26) * TOTAlSYSTfMCORE 

VALUj 
STACKfF+27) = VALU 

ARRAY J0BINF0[*]> 
STACKfF+30) * JORINFO 

ARRAY RUNNlNnt*]; 



12350000 T 0000*0 

12350500 T 000010 

START OF REL SEGMENT* DISK ADDRESS » 00353 

12351000 T OOOOJO 

12351500 T 0000*0 

12352000 T OOOOJO 

12352500 T 0000*0 

12353000 T 0000*0 

12353500 T 0000*0 

12354000 T 000010 

12354500 T 000010 

12355000 T 0000*0 

12355500 T 0000*0 

12356000 T OOOOJO 

12356500 T 0000*0 

12357000 T 0000*0 

12357500 T 0000*0 

12358000 T 0000*0 

12358500 T 0000*0 

12359000 T 0000*0 

12359500 T 0000*0 

12360000 T 0000*0 

12360500 T 0000*0 

12361000 T 0000*0 

12361500 T 0000*0 

12362000 T 0000*0 

12362500 T 0000*0 

12363000 T 0000*0 

12363500 T 0000*0 

12364000 T OOOOtO 

12364500 T 000010 

12365000 T 0000*0 



STACKfF*3l) s RUNNING 



DEFINE 

OLAYfNDX 

PRlORJNDX 

ETIMFINDX 

CORnNnX 

SAVElNDX 

TNF0ST7F 



= 1*. % CODE FOR "OLAY RATIO" 

s 2#. X CODE FOR "PRIORITY", 

s 3#» * CODE FOR "ELAPSED TIME". 

» 4#, X COnE FOR "CORE USAGE" 

a 5*. X CODE FOR "SAVE CORE USAGE" 

s 5*; % NUMBER OF ENTRIES FOR EACH MIX 



DEFINE iNFOtlNFOWlNFO?] = JOB I NFOT I NFOl x I NFOSl ZE+I NF02-1 ]* > 
LABEL START. LOOP. FINISHED? 

COMMFNT 

THE "INSTRUCTIONS" ARE STORED IN THE GLOBAL VARIABLE 

"WKSFTJNSTRUCT", USING FIELOS FOUR BITS IN LENGTH. 

THE FIRST "INSTRUCTION" WILL BE |N THE (44141 FIELD. THE 

SECOND "INSTRUCTION" It III BE IN THE (40(4] FIELD. AN SO FORTh. 

THESf "INSTRUCTIONS" ARE ThE NUMERICAL VALUES CORRESPONDING TO 

CODES DFFINED ABOVE, 



AS AN 

wkseti 

wkseti 

REMArN 
INSTAN 
MIX. F 

PERIOD 
PERIOD 
WITHIN 
FOR TH 
IN ThT 
PERIOD 
SELECT 
END OF 



EXAMP 

NSTRU 

NSTRU 

DER 

CE. T 

INDIN 

OF T 

OF T 

ABOU 

E NEX 

S MAN 

OF T 

ED FO 

COMM 



LE OF 

CT.ta 

CT t [4 

e the 

HIS R 
G THE 
IME. 
IME W 
T 101 
T "IN 
NFR. 
IME. 
R "ST 
ENTJ 



HOW 
454] 
014] 

WKSE 
0"TIN 

JOB 
NEXT, 
HICH 

OF T 
STRUC 
THE J 
AND W 
QPPIN 



these "i 

CONTAtNF 
CONTAiNE 
TinSTrUC 
E WOUlD 
WHICH HA 
ALL JOB 
IS WITHI 
HE MAXIM 
TlON", T 
OB WHICH 
HICH HAS 
G". 



NSTRUC 
D A VA 
D A VA 

t word 

FIRST 

d been 

s WHIC 

n The 

UM VAL 

HAT IS 

HAS B 

THF H 



TIONS" ARE USED, SUPPOSE THAT 

LUE OF 3. 

LUE OF 2, ANO THE 

WERE ZERO. IN THIS 
EXAMINE ALL JOBS IN THE 

RUNNING FOR THE LONGEST 
H HAVE BEEN RUNNING FOR A 
"WKSETOLERANCE" (NORMALLY 
UE FOUND ABOVE) ARE EXAMINED 
, THE PRIORITY, 



EEN RUNNING FOR 
IGHEST PRIORITY 



THE LONGEST 
WILL BE 



SUBROUTINE CoRESEARCH* 
BFGIN 

maxmjx :* o; 

% SFARCH THE LINKS TO DfTfRMINE CORE USAGE 
IF NOT STOREDY THE N SLFfP C C TOftLE J » STOREM ASK ) ) 
LOC »* 01 % START AT LOW END OF MEMORY 

TOTALSYSTpMCORE «= TOTALOLAYCORE «« TOTALSAVECORE ** Oi 
WhILF rSl2E J »(LlNK ! »MrL0C] ).ICF] -LOC) GEO DO 
BEGIN 

TOTALSYSTEMCORE *« ToTALSYSTEMCORE * SIZE? 
IF NOT LINK. ttH3 THEN % IN-USE AREA 
BEGIN 

IE (MIXlaLINK.r9»6l) GTR MAXMlX THEN MAXMIX (* HJXI 
IF L I NK . (?« 1 J THEN % SAVE AREA 
BEGIN 

TOTALSAVECORE I* TOTALSAVECORE + SIZE* 
iNFOrMlX.SAVEINDX] (« I NFO[ M I X , SAVE I NDX J - SlZEl 
% NOTE! JOBS SHOULD BE STOPPED IN INVERSE RELATION 
S5 AMOUNT Op SAVE CORE USED 



TO 



12365500 

12366000 

12366500 

12367000 

12367500 

12368000 

12368500 

12369000 

12369500 

12370000 

12370500 

12371000 

12371500 

12372000 

12372500 

12373000 

12373500 

12374000 

12374500 

12375000 

12375500 

12376000 

12376500 

12377000 

12377500 

12378000 

12378500 

12379000 

12379500 

12380000 

12380500 

12381000 

12381500 

12382000 

12382500 

12383000 

12383500 

12384000 

12384500 

12385000 

12385500 

12386000 

12386500 

12387000 

12387500 

12388000 

12388500 

12389000 

12389500 

12390000 

12390500 

12391000 

12391500 

12392000 

12392500 

12393000 



T 
T 
T 
T 
T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



000010 
000010 
000010 
0000(0 
0000*0 
0000(0 
000010 
0000(0 
0000(0 
000010 

ooooto 

0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
000010 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 

ooooto 

0000:0 
0001(0 
0001(0 
0001(3 
000lt3 
000413 
0005(2 
0007(1 
OOliU 
0011(1 
001212 
0013(2 
0014(0 
0017(0 
0017(3 
0018(1 
001912 
0024(2 
0024(2 



END 

FLSf 

BEGIN 

TOTALOLAYCORE «= TOT ALOLAYCORE ♦ SIZE* 

iNFOrMjXiCOREINDX] «= I NFO [ M 1 X , CORfJ NDX ] 

ENDJ 



123.93500 T 



+ size ? 



ENnj % IF IN-USE ARFA 

LOC :« L I N K . [ C F 3 S % NEXT 
FNDJ % WHILF STATEMENT 



Link 



JF 



FOR MIX :« 1 STEP 1 UNTfL MAXMIX DO 
IF RUNNING[MIXJ THEN 

IF PRYORTMIXJ LSS THEN Si CHECK AGAIN (LOSS OF CNTRL. ABOVE) 
BEGIN 
RUNNINGTMIX] : = OJ 

NJoes i* njobs - i; 

END! 

* DONT USE JOBS WhICh ARE TERMINATING OR JUST STARTING 
IF NJOBS LSS ? THEN p,0 TO FINISHED* 
FNO SUBROUTINE CORESeaRch; 



CCL,OCK + P(RTR)-WKSETSWlTCHTIME) t.SS 960 THEN 

BFGIN 

% ALLOW 15 SECONDS AFTER THE LAST "BOJ" OR "EOJ" 

% BEFORE TESTING THE OVfRLAY RATE 

WKSFTCLOCK!s(*P(DUP)) + 960} 

go to finished; 

FND> 



RUNNfNG J; 
J0BINF0 •< 



TMtTl «s:SPACE(MIXMAX*1 ) 3 3 & 

fMiXMAX+l)t8»38»iO]l 
rM[T?l8SPAC£cf MiX M AX+t )x I NFOS I 2E ) 3 3 

(fMlXMAX + l)xlNF0SlZE)[8:38U03J 



STARTJ 



STREA M (Ft:sTl-l,S?ll=MixMAX+l»F2t*T2-l. 

SZ? »» CMlXMAX+l)xINFOSlZF» T1.T2); 
BFGIN % ZERO OUT THE ARRAYS 
S T t«F2; OS«*SZ? WdSj SH*F1> DI t»T 1 i DST 

end; 



SZ 1 WDS; 



NJOBS l« TOTaLPTjMe J* TOTaLOLAY I* MAXOLAY t« 0; 
FOR MlXlal STEP 1 UNTIL MIxMaX DO 

IF JARROWTMIX] NEO THEN * RUNNING JOB 

IF NOT( JAR[MIX.9J.[3M ]) THEN * NOT ALREADY STOPPED 
IF (PRY0R[MIX3 GEO. 0) AND ( REPLYt MI X3»0) THEN 
BEGIN 

IF NOTf jAR[MIX,9],SySJ0RF) THEN SNOT "SYSTEM JOB 
BFGIN 

RUNNjNG[MlX] != j; 
NJOBS J* NJOBS ♦ 1 ; % COUNT THE NUMBER OF JOBS 



12394000 
12394500 
12395000 
12395500 
12396000 



12398000 
12398500 
12399000 
12399500 
12400000 
12400500 
12401000 



12403000 
12403500 
12404000 
12404500 
12405000 
12405500 
12406000 
12406500 

12407000 
12407500 
12408000 
12408500 
12409000 
12409500 
12410000 
12410500 
12411000 
12411500 
12412000 
12412500 



1241 
1241 
1241 
1241 
1241 
1241 
1241 
1241 
1241 
1241 



3000 
3500 
4000 
4500 
5000 
5500 
6000 
6500 
7000 
7500 



12396500 T 

12397000 T 
12397500 T 



12401500 T 
12402000 T 
12402500 T 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



002412 

12391000 
002412 
002412 
002510 
002611 
003111 

12394500 
0031U 

12389500 
0031U 
003212 

12388000 
0033(0 
003410 
003412 
003610 
003612 
0037(3 
003910 

12399500 
004111 
004H1 
0042(2 

12384500 
0042»3 
0042(3 
0051 * 1 
0051»3 
005l»3 
0051(3 
0053(3 
0054(1 

12404000 
0054(1 
0057(2 
0059(2 
0063(1 
0065(3 
0065(3 
0065(3 
0065(3 
0068(1 
0070(1 
0070(1 
0072(0 

12411500 
0072(1 
007412 
0076(0 
0077(0 
0079(1 
008210 
0082(2 
0084(1 
0084(3 
0086(0 



END* 



12418000 T 0087 



S SFT OMfT 



iNFOrMfX.ETiMElNDXli- 

NABSfCLOCK+P(RTR)-NFOr(M!X-i)xN 
PTIME ts JAN£MIX>3] + PROCTIMETMI 
= Mr wi.nftfi t nr, OR Omit 



POP 
SFT 



OMIT 
OMIT 



NFWLOGGING OR OMIT 
TF (PlMlXsMlX OH P2MIX»MIX) 



DX + 2].L1U7]x60)* 
XJJ 



then 



= NOT(NEWLOGGING) OR OMtT 
PTIME «» PTiMe+CLOCK+P(RTR)* 
IF (INF0[MlX»0L.AYtNDX]Js 

OLAYTtMe[Mjx]/PTIME) gtr maxolay then 
IF RUNNiNGrMlX] THEN 

MAX0LAY:*iNF0rMlX#0UYINDX]; % FIND MAX. VALUE 
INF0rM[X>PR!0RiNDX] *» PRYOR[ M I X ] . [ CF I I 
TOTALOLAY Is TOTALOLAY + OLAYTlMEtMjX] J 
TOTALPTlME*= TOTALPTIME + PTIME* 
ENDS % MIX LOOP* 



mix«-wksftnosflect; X5?5- 

^/KSETNOSELECT:s((OLAY»*T0TaLOLAY/TOTALPTiME) GEO (WKSETMAX0LAYX.85))* 

if mix and not wksetnoselec t then selection* % see if anything can go 
i note* wksetnosflect is a flag to procedure selectrun to 
% prevent entering additional jobs into the mix 

if (olay gtr wksetmaxola y ) or (maxolay gtr ( wksetmaxolayxa ) ) then 
% suspend something if the total olay rate fxceeds ma*, value 
% specified^ or any individual rate exceeds 4 times the max, 
% rate specified. 

if njobs gtr 1 then % more than one job is running 

begin 

coresearchj % search memory to determine core usage 

% now determine which job to stop based on the priority of 

% thf instructions in "wkset i nstruct" 

stopmjx * s - 1 * 

INSTRUCT Is WKSETlNSTRUcT; 
STARTING t= TRUE* 



LOOP' 



IF 



f jNS:siNSTRUcT,[44:/|] ) NEC THEN % MORE INSTRUCTIONS 
RFGIN 

INSTRUCT is & INSTRUcTt8j/»U0]; % SHIFT RIGHT FOR NXT.INSTR, 
MAXVALUE is (IF STARTING TmEN 1-33000) ELSE I NFO[ STOPMi X# I NS 3 ) * 
STARTING Is FALSE* 
% FIRST* FjNo THE MAXIMUM VALUE 
FOR MlXSsl STEP 1 UNTIL MAXMIX DO 
IF RUNNlNGtMIXj TrEN 

IF (VALU Is iNFOfMlX, INS J 3 GTR MAXVALUE THEN 

BEGIN 

MAXVALUE ts VALU* 

STOPMlX is mix; 

END* 



Z NEXT* FIND THE VALUES WITHIN THE WORK SET TOLERANCE 



12418500 
12419000 
12419500 
12419599 
12419600 
12419601 
12419699 
12420000 
12420500 
12421000 
12421500 
12422000 
12422500 
12423000 
12423500 
12424000 

12424500 
12424700 
12425000 
12425200 
12425500 
12426000 
12426500 
12427000 
12427500 
12428000 
12428500 
12429000 
12429500 
12430000 
12430500 
12431000 
12431500 
12432000 
12432500 
12433000 
12433500 
12434000 
12434500 
12435000 
12435500 
12436000 
12436500 
12437000 
12437500 
12438000 
12438500 
12439000 
12439500 
12440000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
C 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



12440500 T 
12441000 T 
12441500 T 



0087 
0089 
0094 
0096 
0096 
0096 
0096 
0098 
0100 
0102 
0104 
0105 
0106 
0111 
0113 
0114 

0116 
0116 
0118 
0121 
0126 
0126 
0126 
0129 
0129 
0129 
0129 
0130 
0131 
0132 
0132 
0132 
0133 
0134 
0134 
0134 
0134 
0134 
0136 
0137 
0138 
0142 
0143 
0143 
0147 
0147 
0151 
0151 
0152 
0153 

0155 
0155 
0155 



1 
2416500 

1 

1 


1 
1 




1 
1 
1 
1 
1 

3 

1 

2 

2415500 

3 

3 

1 

3 

2 

2 

2 

1 

1 

t 

1 

2 













3 

3 

3 

3 

2 



3 

2 

3 

3 



2 



2 

1 



2438500 

1 

I 

1 



FOR Mix:ai STFP 1 UNTIL MAXMjX DO 

if mjx nf« stopmjx t h fn 
if running[m1x3 thf.n 

BEGIN 

DEVIATION u fMAXVALUE-lNFOrMjX. INS3)/MAXVAUUE» 

if abscdevtatton) gtR wksetolerance then 

BEGIN 

RUNNiNfirMlXJ J*OJ 
NJOBS «« NjOpS -1 i 
END? 



END> 

IF NJOBS GTR 1 THEN GO TO 
FNDJ * IF THERE were more 



loop; 
instructions 



IF STOPMIX GTR THEN % SOMETHING SHOULD BE STOPPED 
BEGIN 

IF NOTERMSET(STOPMIX5 THEN % JOB IS NOT TERMINATING 
BEGIN 

prtrowrstopmix3.[psf3!=?j % mark it stopped 

wksetswiTchtiMf»sclock+pcrtR); 

wksftstopjobsuwksetstopjobs OR TWO(STOPMIX)* % MARK AUTO*ST 

WKSfTNOSELECTJsTRuEI K138- 

JARrSTOPMiX,9j.t3ll]l»ll % MARK IT STOPPED 

STQuE[STNeXT]»«SToPMIXJ % PUT IT IN THE STQUE 

STNEXT 1= (STNeXT + 1), [44141* % CIRCULAR QUEUE. 16 ENTRJFS 

ENDI % IF WE ARE STOPPING THE JOB 

FND> % IF SOMETHING SHOULD BE STOPPED 



SFT OMjT n N 
IF WKSFTM 
IF STO 
FOR ST 
IF JAR 
IF PRT 
IF INF 
BEGIN 
STRFAM 
VI «s»M 
V?J*ST 

V3ls"R 
V4t*( I 

V5:s"P 
V6J=IN 
V7t«"T 
V8ts(A 
V9l« w C 
V 10 : * I 
VU l«" 
V12t*A 
V13 t« 
VH t« 
DV!*0. 
»*T1 I 



ot(worksetmomtor) or omit 

onjtor Then 

pmix gtr then 

p m i x » * j step 1 until mlxmax do 

ROwrSToPMixj ne« o Then 

rowtstopmiX] nfQ o Then 

OrSTOPMlX»OLAY|NDXJ GTR THEN 

( 

IX*", 

0PMiX» 

AT*", 

NF0rST0PMlX,0LAYiN0X]xiOO+O,5) DIV 1» 

Rj»", 

F0CST0PMIX,PRI0RINDX3. 

jM»", 

BS(lNFOtST0PMlX»ETlMFlNDX])/64+ 0,5) DIV 1. 

OR*", 

NF0[ST0PMIX,C0REINDXJ, 

SAVs", 

BSt iNFOtSTOPMlX.SAVElNDXJ), 

"TOT*". 

(TOTALOLAY/TOTALPTlMExlOO+0,5) DIV 1* 

*SPACE(15))J 



12442000 
12442500 
12443000 
12443500 
12444000 
12444500 
12445000 
12445500 
12446000 
12446500 



12447500 
12448000 

12448500 
12449000 
12449500 
12451000 

12451500 
12452000 
12452500 
12453000 
12453100 
12453500 
12454000 
12454500 
12455000 



12456000 
12456500 
12457000 
12457500 
12458000 
12458500 
12459000 
12459500 
12460000 
12460500 
12461000 
12461500 
12462000 
12462500 
12463000 
12463500 
12464000 
12464500 
12465000 
12465500 
12466000 
12466500 
12467000 
12467500 
12468000 



0155 
0156 
0156 
0157 
0158 
0161 
0163 
0163 
0164 
0166 



12447000 T 0166 



0168 
0169 

0169 
0169 
0170 
0170 
0172 
0172 
0175 
0177 
0179 
0182 
0185 
0187 
0190 



12455500 T 0l90 



0190 
0190 
0191 
0193 
0195 
0196 
0197 
0200 
0201 
0201 
0201 
0201 
0202 
0205 
0205 
0207 
0208 
0211 

0212 
0214 
0214 
0216 
0216 
0219 
0219 



II 

to 

»3 
(3 
11 
13 
10 
12 
13 

to 

12445000 

10 

12443500 

II 

»2 

12434500 

12 

12 

II 

13 

»1 
13 

tl 
10 
12 

10 
10 

to 

13 

12451500 

13 

12449500 

13 

13 

13 

10 

to 
to 

52 
12 

?0 

II 
12 
t3 
10 
12 
t3 
13 
10 
J3 
10 

to 
tl 

12 
13 

10 
II 



•DVJ DSlsLlT' 



BEGIN 

SI IsLOC VI J DSl-LfT" "J 

7(SilaSl+4| DS:«4cHRJ DS8*5DEC* 

nvisDi; dijbdi-5; ds8=4fillj dm 

DSteL,IT ,, «- , M 
END STREAM) 

SPOUTf Tl ) ; 

fndj 

$ POP oMjT % WORKSETMONITOR 

end 

FLSE 
Fl.SE 

IF WKSFTSTOPJOPS GTR THEN 
IF fOLAY LSS (WKSETMAXOLAY/2)) THEN % START SOMETHING 
REG IN 

STNfXTJMF stnext = o 7HFN stquemax ELSE STNEXTM* 
STOPMlX:*STOUF[STNEXT]; 
STQUECSThFXTJloO? 

TF fSTOPMiX RTR 0) AND CSTOPMJX UE» MJXMaX) THEN 
IF JARROwrSTOPMlX] NF8 THEN 
RFC. IN 

IF STOPSET(STOPMIX) THFN X NOT YeT STOPPED 
BEGIN 

PRTROWfSTOPMjX],[PSF]:sO; 

WKSFTST0PJ0PS: = WKSETST0PJ0RS AND NOT ( TWOf ST OPM I X ) ) ) 
JA«rSTOPMlX»93. C3l 1 J l-OI 
END ELSE 

BEGIN 

RFPLYtSTOPMiXJS'VOK; % WAKf IT UP 

STREAM( JteJARROWCSTOPMiXJf STOPMlX, 

d?»tii = spach:(iO)); 

REGlN 

SlJsJ} DS«*9 LjT H AUTO-OK W J 

?(Sp*Sl + U DS«*7 ChR« DS:»LIT "/"JJ 

DM«DI-1J DSJ«LlT-s"; S|! = L0C STOPMlXt 

DSJs? DFC; OSlsLlT"*"? HI l«DI-3| DSl«FlLLl 

END STREAM STATEMENT? 

SP0UTFRCT1 »PSEUDOMlXrSTOPMiX].l); 

fnd> 



fNdj 

FND) 
FINISHED: 

IF JORINFO N£0 
IF RUNNING NpQ 

wksftRunning : = 

KlLLcTMSCW]); 
END> 



*142- 
X142- 
1142- 
*142- 
X142- 
1142- 
*142- 
Jl«2» 
M42- 
*142- 
*142- 
XI 42- 
X142- 
*142- 
X142- 
X142- 

il«2« 

1142- 
X142- 
1142- 
1142- 
JS142- 
*142- 
1142- 
X142- 
1142- 
X142- 

X525- 
X142- 

X142- 

JS142- 



THEN EORGFTSPACF(JOBINFO INX 0)J 
THEN FORGfTSPACf^RUNNING INX 0); 

: o; % Ready for nfxt cycle 



12468500 
12469000 
12469500 
12470000 
12470500 
12471000 

12471500 
12472000 

12472500 
12473000 

12473010 
12473020 
12473030 
12473040 
12473050 
12473060 
12473070 
12473080 
12473090 
12473100 
12473110 
12473120 
12473130 
12473140 
12473150 
12473160 
12473170 

12473180 
12473190 
12473200 
12473210 
12473220 
12473230 
12473240 
12473250 
12473260 
12473270 

12473280 
12473290 



12473300 C 
12473310 C 



12473500 
12474000 
12474500 
12475000 
12475500 
12476000 
12476500 



T 0221»3 
T 022113 
T 0222J2 
T 0223:2 
T 0225: 1 
T 0225:3 

12468500 
T 0226J0 
T 022711 

12459500 
T 0229:2 
P 022982 

12429000 
C 0229:2 
C 022912 
C 0238:0 
C 0239:2 
C 0241 12 
C 0242:0 
C 0248:0 
C 024913 
C 025i:3 
C 025312 
C 025510 
C 025512 
C 025780 
C 025712 
C 026010 
C 026213 
C 026513 

12473130 
C 0265J3 
C 0266 U 
C 0267:2 
C 0268:2 
C 027180 
C 027180 
C 027283 
C 027481 
C 0275 8 1 
C 0276J2 

12473220 
C 027683 
C 027881 

12473180 
027881 

12473110 
027881 

12473050 
T 0278U 
T 027881 
T 027811 
T 028181 
T 028411 
T 028613 
T 0287:2 

12351000 



SIZF* 0288 WORDS 



$ PUP OMJT % WORKSFT 12477000 T OOOOlO 

REAL PROCFDURE PRNPBTSPEC ASF. 1 C 7. ) I 12500000 T 0000*0 

START OF REL SEGMfNTI DISK ADDRESS * 00363 
PRT(6?0) - PRNPRTSPFCASFl 

X 12500100 T 0000:0 

% THIS PROCEDURE HANDLES THF FOLLOWING FUNCTIONS FOR C0M19. DFPENDING 12500110 T OOOOJO 

% ON THE VALUf Of Z» 12500120 T 0000*0 

% FINDS THE NEXT REEL OF TAPf, 12500130 T 0000«0 

% 1 FINDS THE NEXT REEL OF A BACK-UP DISK FILE, 12500140 T 0000*0 

% ? HANDLES THE QT + OR - MESSAGE. 12500150 T 0000:0 

% 3 JNITAILIZES A NEW FILE (OR PACKET). 12500160 T OOOOlO 

% 4 HANDLES TERMINATION OF A FiLE. 12500170 T OOOOJO 

* 12500180 T 0000*0 

VALUE 7$ REAL Z* 12500500 T 0000*0 

BEGIN 12501000 T 0000:0 

RFAL RCWs+O, MSCWa-2, c0MM0N s -flJ 12501500 T 0000*0 

STACK(F + 0) = RCW 

STACKfF-2) ■ MSCW 

STACKfF-4) = COMMON 

ARRAY iNRECss+l[*j; 12502000 T 0000*0 

STACKfF+1) ■ INREC 

ARRAY FPBsINRf C + U*], LOG! NFO*FPB+ 1 [ * ] , HEADER*L0G I NFO + 1 1 * ] t 12502500 T OOOOJO 

STACKfF+2) = FPB 
STACKfF+3) a LOGINFO 
STACKfF+4) » HEADER 

REA|, UNIT*HEA0ER+1# V = ljNiT + t, C0PY=V+1» MFlD<=COPY*l» FID*MFID+1» 12503000 T OOOOSO 

STACKfF+5) s UNIT 
STACKrF+6) a V 
STACKfF+7) = COPY 
STACKfF+10) = MFID 
STACKfF + m s FID 

I0DbFID+1» r*IOD+1» BaT+tl 12503500 T 0000:0 

STACKfF+12) = 100 
STACK(F+13) « T 
STACKfF+14) = B 

REA|. SEARCHVALaB+l, CURRoW*SFARCHVAL+ 1 » F I RSTF I D*CURROW+l » 12504000 T 0000:0 

STACK(F+15) a SEARCHVAL 
STACKfF+16) a CURROW 
STACKfF+17) = FIRSTFID 

segnr=firstfid+i; 12504500 t 0000:0 

STACKfF+20) = SEGNR 

REA|. X.SFARCHVAL* NUMscURROW, RECOUNTsSEGNR; 12505000 T 000050 

STACKfF+15) » X 
STACKcF+16) « NUM 
STACK(F+20) a RECOUNT 

BOOLFAN SI6NFD0NsSeg nr +1» F0RMT0G»SIGNED0N+1» ABORTEDsFORMTOG+U 12505500 T OOOOlO 

STACKfF+21) ~ SIGNEDON 
STACKrF+22) s FORMTOG 
STACKfF+23) « ABORTED 

BOOLEAN TERMFLAG=LOGINfO, NOCONT*F I RSTF TD» 12506000 T OOOOlO 

STACKfF+3) « TERMFLAG 
STACKfF+17) ■ NOCONT 

S SET OMIT * NOT PACKETS 12506500 T OOOOlO 

BOOLEAN STOG*ABORTEO+i; 12507000 T OOOOlO 

STACK(F+241 ■ STOG 

REAL PC0PY*ST0G+1» PF I RSTF I D«PCOPY+ 1 1 12507500 T 0000*0 

STACKfF+25) m PCOPY 



STACK(F+26) 



PFlRSTFID 

$sfT omit « 

S SET OMfT 
LARfL 



LABfL 
SWITCH 

OEFtNF 



■ NOT (RJF 

' packfts 



AMD PACKFTS) 



RD. RED* SPACENQ, NOMORe, NOFILE* 
PNCHLK, PRlNTjTAGAlN* EOF* PRnTqS, 

returnfalse* removem* 
returntocomj9j 

l00k4tape* nomorefls* 

SW i« 

L00K4TAPE. NOMOREFLS* 



AUT* BOMBER. NEXTFILE, 
PNCHDS. TAPEND. CONTINUE* 
TAPECL. STQPTIME. RETURnTRUE. 



S SET OMIT 



POP 
SET 



OMJT 
OMiT 



$ POP OMfT 



OSFO 

OTEO 

VF 

UNITF 

COPYF 

numf 

NOTP 

COPYO 

* PACKETS 

RFFLNO 

OMIT 

s RJ E 

STA 
SEPARATION 



TEST, 

QTSpEC* INITIALIZE* ST ART ANE«F ILE > 

STARTANEWFILFI 



OTSPEC. INITIALIZE* 
TERmSfT(PiMJX)#, 
(PRT[P1MIX.?25J#0)#, 
43*5*. 
38»5#, 
30»8#» 
?2*8#, 
29»t#, 
21«1#. 



* 42«6#, 



s 
s 



s 
s 



* 0#, 



46*1 



% FOR 6 LPI, SET IT TO 70 FOR 8 LP! 



%******^,*t*********************^******************4i************^**H,H,t*** 



SUBROUTINE rdytape; 
BEGIN 

B,M8l9li«#54; 

P 
R 
ENDJ 



:,[l8l9ll«P54J 
CWAITIO(P4200000000.0»UNIT)»DEL)J 

(WAITIO(B»0»UNIT)»W A ITIO(B»P40»UNIT)»DEL*DEL)> 
FCOUNT5=P77777J 



SUBROUTINE REWJNDI 
BEGIN 

STOPTIMINg(0. 1023)J 

Pf WAIT! 0(04200000000,0, UNIT) »DEL)J 

if csavemoro and tw0(unit))*0 and prntablec un i t j , cl ii ] 
aNd not (SvPbt or qtfd or nocont) then 

BEGIN RDCTABLErUNjTJ.r8l6J*0j *539« 

TNDEPENDE.NTRUNNeR(P{. PURGE IT), UNfT, 64) 

END f539- 

EI.SF 

BEGIN LABELTABLE[UNIT]«.P114» 

MULT|TABLE[UNlT]*RDCTABLE[UNIT]*OI 

SLEEP(rT0GLE3»STATUSMASK)J 

READY*READY AND NOT NT1 ♦TWO(UnI T ) » 

RRRMECH*NOT NT1 AND RRRMECH OR NTl AND SAVEWORDI 
ENDJ 



12508000 

12509500 

12512000 
12512500 
12513000 
12513500 
12513750 
12514000 
12514500 
12515000 
12515500 
12516000 
12516100 
12516150 
12516200 
12516250 
12516300 
12516350 
12516500 
12518000 
12518500 
12518600 
12518700 
12518800 
12519000 
12519500 
12520000 
12520500 
12521000 
12521500 
12522000 
12522500 
12523000 
12523500 

12524000 
12524500 
12525000 
12525500 
12526000 
12526500 
12527000 
12527500 
12528000 
12528400 
12528500 
12528600 

12529000 
12529500 
12530000 
12530500 
12531000 
12531500 
12532000 



0000*0 
000010 
000010 
000010 
000010 
000010 
000010 
0000*0 
OOOOiO 
0000(0 
0000(0 
OOOOiO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
0000*0 
OOOOIO 
OOOOIO 
000040 

ooouo 

0001JO 
000213 
0004U 
000711 
000810 

12521000 

ooino 

001 1 10 

0011 10 
001 1 10 
001110 
0011*0 
001210 
001312 

001512 
002010 
0023*0 
002410 

12528400 
0024*1 
0024*1 
0027*1 
002942 
0031*0 
0033*2 
003610 

12529500 



TN|); 



%***************+*#******** t******************************************** 

BOOLEAN SUBROUTINE LOOKFORTAPEl 
BEGIN 

T!*RDC7ABLEtUNlTJ; 

RFWINOJ 

IF SIGNFOON THFN fPB r 4 ] » *FPB [ 4] "LOfi I NfO t 24 ]*CLOCK-P ( RTR ) ( 

IF PCrT!=FlN0lNPUT(MFlD' p 1222l2342546447.T.[14U0Ul,T 4 [2«H7J, 

"0»0,T»»0,0»0»0)) GEQ 0, DUP) THEN 
RFC IN 

RDCTABLFt UNITS *TJ.r8t6]l*:PlMlXJ 

LABELTABLECUnIT]I«FIOI 

FpBI«PRT[P1M|X»3)| % FINDINPUT CALLS STARTLING 

IF SlCMEPoN THEN FPB[ 4 ] : sFPBC 4 ]*L0GI NFOC 24 ]+CloC«+P( RTR ) I 

RDYTAPEl 
END} 



LOOKFORTAPE :*PJ 



END» 



REAL SUBROUTINE ReADTAPF.I 
BEGIN 
RD» IF DSEn OR PRTrPlMIX,P25]«5 THEN BEGIN P(5)J GO TO RED END) 

IF WAlTI0(RtP2000040, UNIT). [42M] THEN 
RFGIN 

P(WAITI0(8»P 20000^0, UNIT)* DEL)* 

if MrB iNx 3i Then 

IF LOOKFORTAPf then go to Rd* 
Pf 3)J 

go To red; 

END! 

FOR T:*17 STEP 18 UNTIL 89 1)0 

IF MCB INX T3 , C20 * 1 3 THEN Tl*256( 
PCT>200)» 
REDJ READTAPE(*P» 

ENDt 

%************** ***t*********************************************m******^ 

boolfan SURROUTlNF sPacftofiLe* 
begin 

xjsNUm; 

WHILE fXJ«X-i) GEQ DO 
BEGIN 

DO UNTIL (Ti.REAOTAPE)l 

if t geq 3 then begin p(l)l go to spacend end? 

fno; 



12532500 T 



12533000 
12533500 
12534000 
12534500 

12535000 
12535500 
12536000 
12536500 
12537000 
12537500 
12538000 
12538500 
12539000 
12539500 
12540000 
12540500 
12541000 

12541500 
12542000 

12542500 
12543000 
12543500 
12544000 
12544500 
12545000 

12545500 
12546000 
12546500 
12547000 
12547500 
12548000 
12548500 
12549000 

12549500 
12550000 
12550500 
12551000 
12551500 

12552000 
12552500 
12553000 
12553500 
12554000 
12554500 
12555000 
12555500 
12556000 
12556500 



12557000 T 



003610 

12526000 
003611 
0036U 
003611 
003611 
003710 
003710 
003310 
003910 
004310 
004510 
004912 
005010 
0053(0 
005411 
005513 

005913 
006110 

12538000 
0061(0 
006111 

12535000 
0063*0 
0063(0 
0063(0 
006310 
006310 
0063(0 

12545000 
0067(2 
0069(1 
0069(3 
0071(1 
0072»3 
0074(3 
0075(0 
0077(0 

12546000 
0077(0 
0078(0 
0083(2 
0084J1 
0084(2 

12544500 
0084(3 
0084(3 
0084(3 
0084(3 
008510 
0085(0 
0085»3 
008810 
0088(0 
0090(0 

12556500 
0092(0 



spacf.no t 



end; 



Pf 0); 

spacet filf: ! =pj 



i*********************************************************************** 

boolfan subroutine; findfilf; 
bfg?n 

TF HFADFR.rCF] GEO 64 THEN FORGETSPACFCHEADER ) » X159- 

TF (HEADERI«DIRECTORySeARCh(MFID,-F!D,SEARCHVAL)) LSS 64 ThEN 

GO T NOMORE; 
HFAOER{*[M [HEADER] ]&30r8« 38 « 103 J 

sfgnrj =o; 

CURROW«=lo! 

IF AB0RTEn» B HEADERl5J.[2m THEN 
IF HFADFRtn*0 THEN 
BFGIN 
NOMCRpt P(l); 

f,0 TO NOFILFJ 
END* 

|,ABElTaBlE[V]1sNABSCfIDW 

p(0); 

NOFIUE: FINDFIlEs«p; 
FNDt 

%******************************+**************+*****++*#***+*++++++++*++ 

BOOLEAN SUBROUTINE NOMOReRFfLS) 
BFGtN 

IF FlD.fREELNO]aO ThfN 

p tt) Xt59- 

ElSE J5159- 

BFGIN 

STREAM(0NE: B 1» f : = E F I d J 3 ; 

BEGIN SIl^LOC ONE: DS t»8 ADD END; 

PCFlNDFIlF>> 

FNn; 

NOMOREREELSSaP; 

end; 

S SET oMlT * NOT PACKETS 

%************************* ***m* ****** *************************^,^m******* 

BOOLEAN SUBROUTINE NOMOREFHES; 
BEGIN 

IF NOT PCriO.CaOuZJa^" r COMMON. [NOTPJiDUP) THEN 

BFGIN 

pcdeL); 

streaM(ONe»«i» r*"tFinJ)» 



12557500 T 

12558000 T 

12558500 T 

12559000 T 



12559500 
12560000 
12560500 
12561000 
12561500 
12561600 
12562000 
12562500 
12563000 
12563500 
12564000 
12564500 
12565000 
12565500 
12566000 
12566500 
12567000 



12569500 
12570000 
12570500 
12571000 
12571500 
12572500 
12573500 
12574000 
12574500 
12575000 
12575500 



12578000 
12578500 
12579000 
12579500 
12580000 
12580500 
12581000 
12581500 
12582000 
12582500 



12567500 T 

12568000 T 

12568500 T 

12569000 T 



12576000 T 

12576500 T 

12577000 T 

12577500 T 



12555500 
0092*2 
0092*3 
009213 
009310 

12554000 
0093*1 
0093U 
009311 
009311 
009410 
009410 
0097*0 

0099*2 
0100*0 
0102)2 
0103t 1 
010410 
010512 
010710 
0107:2 
0107*3 
0108*1 

12565500 
0108*1 
0109S3 
0110*0 
0110*1 

12561500 
011012 
0110*2 
011012 
0110*2 
0111*0 
0111*0 
0112*1 
0113*0 
0113*0 
0113:2 
0114:2 

12575500 
0115*1 
0116*0 

12574500 
0116*0 
0116*1 

12571500 
0116*2 
0116*2 
0116*2 
0116*2 
011612 
0117*0 
0117*0 
0119*3 
012011 
0120*2 



BEGIN SM'LOc one; SII«SI*6| DI 1*01+5; 
DS» = 2 ADD* DS « *L I T w l w * 

end; 

FlRSTFIOt*FlD> 
P(F!NDFILE)J 
FNDJ 

nomorefILes:»P: 
ENqj 

$ POP OMjT 

J;*********************************************************************** 

SUBROUTINE REMOVElTJ 
BEGf N 

TlaniRECTORYSEARCHf-MFTD#-rFin»»PnRSTF!D)»SEARCHVAl,); 
fF T GEO 64 THEN 
$ SET OM?T a NOT PACKETS 

00 BEGIN 
S POP 0M|T 

oo if FiosiOf) Then go aut until nomoReReels; 

* SET OMfT s« NOT PACKETS 

END UNTIL NOMOREFfLESI 

$ POP OMIT 
AUTl 

END; 

subroutinf pagfJfct; 

BEGIN 
S SET OMIT = NOT RJE 

Pf WAITI0(P4000100000,0.V)» DEL>> 
END} 

SUBROUTINE WRITER* 
BFGjN 
$ SFT 0M|T * NOT RJF 

Pf WAlTiOCB 1NX ?2l0l04000000,0.V), DED* 

end; 

SUBROUTINE ioletimer; 
BEGIN 

ST0PLOGCPlMIX,t)| 

PCPIMIXH P1M IX t*o; 

ioletime; 
P1MIX»*P; 



12583000 
12583500 
12584000 

12584500 
12585000 
12585500 

12586000 
12586500 

12587000 
12587500 
12588000 
12588500 



12589000 T 

12589500 T 

12590000 T 

12590500 T 

12591000 T 

12591500 T 

12592000 T 

12592500 T 

12593000 T 

12593500 T 



12594000 
12594500 
12595000 

12595500 
12596000 
12596500 
12597000 
12597500 
12598000 
12600500 
12601000 



12601500 T 



12602000 
12602500 
12603000 
12603500 
12604000 
12607000 
12607500 



12608000 T 

12608500 T 

12609000 T 

12609500 T 

12610000 T 

12610100 T 

12610500 T 

12611000 T 

12611500 T 



0121*2 
0122» 1 

012310 

12583000 
012311 
012410 
012510 

12581500 
0125*0 
0125*1 

12580500 
0125*2 
0125*2 
012512 
0125J2 
0125*2 
0126*0 
012610 
0128; 3 
0129*2 
012912 
0130»0 
0130 3 
0132*2 
0132S2 

12591500 
0134*2 
0134*2 
0134*2 

12589500 
0134*3 
0134*3 
0134*3 
013453 
0135*0 
0135*0 
0135*0 
0136*2 

12597500 
0138*0 
0138*0 
0138*0 
0138*0 
0138*0 
0138*0 
0138*0 
014050 

12603500 
0142*0 
0142*0 
0142*0 
0142*0 
0142*0 
0142*0 
0144*2 
0145*2 
0146*0 



* SET OMTT ■ MOT(NrWLOftCiING) 
^TARTLOGCPTMiX); 

END !DLrTlM E R{ 



SUBROUTINE SFTUPlNRpCJ 
BEGfN 

yNRrC!«[MrB iNX (UN iT«i8}] ]4l8[8l 381 10] I 

inrf.ci: ini«o» 
endi 

x*** ♦*******♦**#*+********** + *<******>«************+*********************♦ 

SUBROUTINE INVALIONUMJ 
3EGIN 

FILEMESS(»lNVALlD","FlLE w »0» M NUMB #"»NUM+1 »0 • 0) J 
ENOl 

PfDFU.ZfMSCW^STF); 

Go TO SWrPlI % L00K4TAPE»N0M0REEUS»QTSPEC# INlTlAL!2Ef STARTANFWFILE 
X 

* LOOKEorTapE FINOS THE N E*r REEL. THE FIRST RECORD IS A LABEL SO 

* INRFC IS MOVED DOWN TO SKjP IT. 

L00K4TAPE! 

PCLOOKFORTAPE) i 

IF MtB*89],tlitn«0 THFN % LABEL RECORD 

BEGIN 

INREC*(N0T 17) T NX INReCJ 

RFCOUNT*0| 
END; 

GO RETURNT0C0M19J 

NOMOREELSl 

PCNQMOREREFLS)! 
GO RETURNT0C0M19J 

QTSPFCI 

PRTfPlMlX»»25]|»0| 

P<T)I % BE CAREFUL OF THIS, 

IF UNJTM8 THEN % DISK PORTION 

BEGIN NT?I«(T,[9»24] DjV 5 >&T [ 1 1 2 I 1 J I 

!0Dl»(HEADERr8] Dl V 3)x3l X CALCULATE TRUE ROW SIZE 

IF (Tl«3xNT2*SEGNR) LSS THEN X SPACE BACKWARD 

DO IF (CURROWtmCURROWl) LSS 10 THEN % TO A PREVI0U5 FILE. 

BEGIN 

IF FID'FIRSTFID ThEN r,0 TO BOMBER* 



1261 1899 T 
12612000 T 

12612500 T 



1261 
1261 
1261 

1281 
1261 
1261 
1261 
1261 



3000 
3500 
4000 
4500 
5000 
5500 
6000 
6500 



12617000 
12617500 
12618000 
12618500 
12618750 
12619000 
12619250 

12619500 
12620000 
12620500 
12621000 
12621500 
12621900 
12621910 
12621920 
12621930 
12622000 
12622100 
12622500 
12623000 
12623100 
12623200 
12623300 
12623400 

12624000 
12624400 
12624500 
12624600 
12625000 
12625500 
12625900 
12626000 
12626100 
12626250 
12626500 
12626750 
12627000 
12627500 
12628000 
12628500 
12629000 
12629500 



T 

T 
T 
T 

T 

T 
T 

T 

T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0146:2 
0146:2 

0149:0 

12610000 
0149U 
0149:1 
0149U 
0149:1 
0150:0 
0150:0 
0153J1 
0154:2 

1.2615000 
0154:3 
0154:3 
0154:3 
0154:3 
0155:0 
0155:0 
0158:0 

12618750 
0162:0 
0162:0 
0162:0 
0162J0 
0l63»2 
0166:3 
0166:3 
0166:3 
0166:3 
0166:3 
0l66t3 
0166:3 
0168:0 
0170:2 
017P0 
0172:3 
0173:2 

12623100 
0173:2 
0174:0 
0174:0 
0174:0 
0174:0 
0175:0 
0175:2 
0175:2 
0175:2 
01 75« 2 
0177U 
0177:2 
0178U 
0181 : 2 

0163*2 
0165:3 
0188:0 

0188:2 



BOMBER: 



IF Sea«CHVAL«3 THFN Pf Dl RECTORYSF ARCHC -MF I 0» Fl D» 1 3 ) » DFL) I 

F0RGETSPACECHE.A0ER)» 

STREAMfONE-'*l» F»«[FID1>» 

BFGIn SU=UOC OnE| DS|*8 SUB ENDJ 

IF CHEA0ERJ*DIRFCT0RYSEARCH(MFID»FID»5)) LSS 64 

THEN GO BOMBER* 
HEADFRI"tMCHFADFRlU30C8i38ii03j 
CllRROW:aHEADERC93 . [43»5]+9; 

WHILE HEADERtCURROWlsO DO CURROW I *CURROWM J 

IF CUHROW<10 THFN 

BEGIN 

NT1«8 m RaNGF ♦ "! 

IF CNT2l»P).r2M] THEN % LEFT AT 12626500X168- 

fMTi»*NTi& M -"[42U2t6J» 

nLtMESSC M !NVALlD H # w OT "#0» 

NTl#NT2.r9l243.0»0)l 



PRTfPlMiX»fi25]l«5; 

GO rfturnfaLse* 
fndj 

ENn UNTIL (TlsiUp+T) GfQ 



X FORCE A QT 



El SF 

BEGIN 



X SPACE DISK FORWARD 

X TO ANOTHER RqW» 

X CHECKING FOR NEW FILE 



NEXTFILF! 



IF T GEO I OD THEN 
DO 

IF (CUPROW|«CURROW+1) GEQ ( HEADERE9 1 . U3 t 53 ♦ 1 0) THEN 
If NOMORFREFLS THpN GO TO BOMBER 
UNTIL CT»=T-J0D) LSS JODI 
IF (rURROw-10)xiO n +T fiTR HEADFRt73x3 THEN 

RQ TO NfXTfiLf^ 



FNDi 



SegmrsrT; 

P ( 1 9 ) 1 

End ei.se 



* TApE PORTION 



BEGIN 



IF T.tgJll THEN X SPACE BACKWARD 

IF f T:*T.[9824J) LSS INRfcC 173 , CcF3 THEN 
BFGIN iOD**(T+4) OlV 5» 

DO P(WATTI0C(89 INX B )K 7 E22 « 45 I 3 3 »0»UNlT ) »DFL ) 

UNTIL (IOniaIOD-1) LE U OR DSED OR QTED* 
RErOUNTs*5; 
END FLSF GO TO BOMBER X REEL SWITCH NOT ALLOWFO 



El.SE 



X168- 



BEGIN IP C I00J*T,[9J?4J OTV 5) * THEN X SPACE FORWARD 
Do UNTIL CX|»REaDTAPE} OR (IODl«IOD-l)»OI 
IF IoD^O THEN 

IF X#5 THEN GO TO BOMBER* X 5»DS"EDf LET IT FaLL THRU. 

Recountjso; 

fndj 

RfcOUNT»«(M[b iNX 17] fNX NOT RECOUNT ) . t CF J * 
Pfl8)J 



12630000 


T 


0189 


S3 


12630500 


T 


0192 


S3 


12631000 


T 


0193 


«3 


12631500 


T 


0194 


S3 

12631500 


12632000 


T 


0195 


S2 


12632002 


T 


0197 


:l 


12632500 


T 


0198 


U 


12633000 


T 


0200 


13 


12633500 


T 


0202 


13 


12634000 


T 


0206 


10 


12634500 


T 


0206 


13 


12635000 


T 


0207 


il 


12635500 


P 


0208 


(0 


12636000 


T 


0209 


10 


12636500 


T 


0211 


'I 


12637000 


T 


0211 


1 


12637500 


T 


0214 


n 


12638500 


T 


0216 


10 


12639000 


T 


0220 


10 
12634500 


12639500 


T 


0220 


10 
12629000 


12640000 


T 


0221 


n 


12640500 


T 


0222 


1 


12641000 


T 


0222 


3 


12641500 


T 


0223 


2 


12642000 


T 


0224 





12642500 


T 


0227) 





12643000 


T 


0229) 





12643500 


T 


02321 





12644000 


T 


02351 





12644500 


T 


0235 


2 

12640500 


12645000 


T 


02351 


2 


12645500 


T 


0236' 


1 


12646000 


T 


0236! 


2 

12627000 


12646500 


T 


02361 


2 


12647000 


T 


02371 





12647500 


T 


02371 


3 


12648000 


T 


02401 


3 


12648500 


T 


02431 





12649000 


T 


02461 





12649500 


T 


02511 


3 


12650000 


T 


02521 


2 
.2648000 


12650250 


T 


0252' 


2 


12650500 


P 


02521 


2 


12651000 


T 


02551 


1 


12651500 


T 


02601 





12652000 


T 


02601 


3 


12652500 


T 


02621 


2 


12653000 


T 


02631 


t 
2650500 


12653500 


T 


02631 


I 


12654000 


T 


02661 


2 



% 
% 
% 



EnD; 



FIX UP IMREC» 8UILD lo OEsC AND QT MESSAGE AS NEXT TO BE WrITTTEN. 

P(T:»B INX p(XcH)); 

INRFCl«INREC*P(XCH)tCTc3l 

MCT-l]|«(RFc0UNT + l)n74[tl|4li7J|i(V*22)[29i4Al41| 

NTl»=Pt % LEFT AT 12626500 

STRrAM(A:*NTl,t9J24]» C«»NTl,[2lU» PNCH«*V=22» BI»T"1B)| 

BEGtN r>S!«16 LtT"<<<<<<<<<<<<<<< w I 

CT«sC!+PNCH? GO TO PRNTJ DS 1*7 LlT» PUNCH"! C,0 TO LI! 
PRNT»DS»s7 LlT"PRlNTER w < 



LI t 

FERt 

LS»i 



LlNj 
L31 

end; 



DSJ«2l LIT" BACK UP FILE SpACED " ! 

Ci:aCI+C; GO TO FER! DS»*4 LIT M BACK"! GO TO L2! 

DS:»4 LIT" FOR"* 

0S:s4 LIT"WARD M ! 

SI«*LOC A; DSi*6 OECJ B * *D I I 01 •■DI-Al 

ds1=5 fill; di»*b> 

c t :»c1 +pnch* go to l. i n i ds»=5 lit" card"; go to l3; 

ds»»5 lit w Line"; 

0S««l7 LiT M S, >>>>>>>>>>>>>>"; 

BiaDiJ sijsB; siiaSi-8i ost»7 wos; 



Go returnTrue; 



initialize; 



% 
% 
% 



handles miscellaneous 
logging* checking and 



setup tasks* 
readying the 



INCLUDING STARTING THE TIMING FOR 
INPUT FILE AND SPREADING COMMON, 



CFll«Pt •C0M19»L0D) 
|T = NOT RJE 



RCW,[ 
SET OM 

V:=rOMMON,[VFJ; 

IF PC 

BEGIN 
SET OM 



INX i; 



INREC.L00)«0 THEN 



THEN 



% PRINTER CL-ED 



IT * NOT RJF 
BFGTN 

IF LA8ELTaBLeCV].CH5]*P21 
REGIN 

IF CUNIT»=c0MM0N,[UNITF])<t6 THEN 

IF LABELTARLE£UNiT3=»?2l00000060606060i 

TINU[VH6»30» 18] THEN SETNOT I NUSECUNl T. ) ; 
G TO INITIATE! 
END! 



LABELTABLEtV].t5*l 3**0! 



END! 



PPT[P1MIX,P?5]««0; 
pjs(GETSPACE(9l»l0BUFFERAREAV.l)+2)490t8l38ll0];X 



*167* 



END; 



S SET OMit * NOT RJF 

RDCTARLE[V].[8|6]I»P1M|X! 
STARTiHTN6(5tV)l 



12654500 


T 


0266 


(3 

12646500 


12654900 


T 


0266 


13 


12654910 


T 


0266 


13 


12654920 


T 


0266 


13 


12655000 


T 


0266 


(3 


12655500 


T 


0268 


10 


12656000 


T 


0269 


2 


12656500 


T 


0274 


12 


12657000 


T 


0275 


10 


12657500 


T 


0278 


12 


12658000 


T 


0280 


13 


12658500 


T 


0283 


10 


12659000 


T 


0284 


11 


12659500 


T 


0287 


1 


12660000 


T 


0289 





12660500 


T 


0289 


3 


12661000 


T 


0290 


12 


12661500 


T 


0291 


2 


12662000 


T 


0292 


tO 


12662500 


T 


0294 





12663000 


T 


0295 





12663500 


T 


0297 


!2 


12664000 


T 


0298 


'2 
12657500 


12664500 


T 


0298 


13 


12664900 


T 


0299 


11 


12665000 


T 


0299 


1 


12665100 


T 


0299 


11 


12665110 


T 


02991 


1 


12665120 


T 


02991 


1 


12665130 


T 


0299 


11 


12665500 


T 


02991 


1 


12665750 


T 


0301 


t 


12667750 


T 


03011 


1 


12668000 


T 


0302 


2 


12668250 


T 


0303 


2 


12668500 


T 


0304 





12669250 


T 


0304 





12669500 


T 


0304 





12669750 


T 


0305 


12 


12670000 


T 


0306 





12670250 


T 


0307 


13 


12670500 


T 


0309 


10 


12670750 


T 


0312 


10 


12671000 


T 


0312 


12 
12669750 


12671250 


T 


03121 


12 


12671500 


T 


0315! 


(0 
12669250 


12672000 


T 


0315< 





12672500 


P 


03161 


3 


12673000 


T 


03201 


10 
L2668250 


12673500 


T 


03201 


10 


12675000 


T 


03201 


10 


12675250 


T 


03221 


2 



STARTfMlNGCOWJNlTlsCOMMOfOUNlTF])* 

FpBtspRTtPlMlX»3U 

COPY»*COMM0N.CC0PYFJ| 

IF" UNI T*18 THEN 
BEGIN 

MFlDI"!F V*22 THEN "PUD " ELSE "PBD m I 
$ SET OMJT * NOT RJE 

FfR.STF?Dl«LABFL.TARl'FrV] f [6|42]| 
$ SET OMjT a NOT PACKETS 

TF NOT COMMON. rNOTP] ThEN BEGIN PCOPYJsCOPY* COPYI*0 ENDI 

PFIRSTFID:= 
t POP ftMTT 

FIDlsFlRSTFID; 
SFARCHVAL|*3J 

IF FINOFILE THEN GO RETURNF ALSE J 
END ELSE 



BEGIN 



ARORTFO J*OJ 

NOCONT:aC(NUM»sCOMMONi[NUMFJ) 

MFIOI"MULTITABLE[UNTtJ| 

IF LABcLTABLECUNiT],rl«5]^P2l 

BEGIN AB0RrED«=2» 

go returnfause; 
end; 



OR COPY)*0> 

then % 



UNIT WAS Cl-FO WHILE 
WE WERE SCHEDULED, 



FlOtsLARELTABLEtUNlT] J ■ C*P (DUP ) HO [5 « 47 J 1] J 
RDCrABLEIUNlT],t8i6]|«PlM!XI 

roytapf* 

if spacetofile then 

BFGIN 

IF Ta3 THEN tNVaLiDNUM; % SET BY RFADTAPE IF EOT. 

GO Rfturnfal.se* 
end; 



EnDj 



SETUP InREO 

go rfturntrue; 

STaRTaNfWFTLEI 

% HANnLFS THE END OF A FILE AND FIGURES OUT WHAT TO DO NEXTt BUT 
% FIRST. THF LOG MUST BE TAKEN CARE OF, (oONT USE T BETWEEN HFRE 
% The T F ST AT 12705750.) 



AND 



IF ABO 
IF SIG 
BEGIN 

L 

L 

P 

I 
L 



rted«? then 

medon then 



GO To TaPECU 



0GINF0[1?]{**P(DUP)+PR0CTIME[P1MIX)+CL0CK+P(RTR)I 
0GlNF0tl3J:=l0TlMEtPlMlX]-( I OT I MEt PI Ml X ] t *LOG I NFOC 1 3 ] ) j 
LnlDLFTIMEt=0LDlDLETlME+L0GlNF0[l2J| 
R0cTlMECPlMlX]«**P(nUP)-L0GlNF0[121; 

oLettmeRi 

0filNF0[14]!*JARtPlMfX,7)-(JAR[PlMiX.7]»»L0GlNF0tH])l 
OGlNFOtl7] »=XCLOcK+PCRTR)> 



12675500 
12675750 
12676000 
12676500 
12677000 
12677500 
12678000 
12679500 
12680000 
12680250 

12680500 
12681000 
12681500 
12682000 
12682500 
12684000 

12684500 
12686000 
12686500 
12687000 
12687300 
12687400 
12687500 
12687600 

12687700 
12688000 
12689000 
12690500 
12691000 
12691500 
12692000 
12692500 

12693000 

12693500 
12694000 
12694400 
12694500 
12694600 
12694610 
12694620 
12694630 
12694640 
12694800 
12695000 
12695500 
12696000 
12696500 
12697000 
12697500 
12698000 
12698500 
12699000 



0323«2 
0325»2 
0327»0 
032811 
032910 
032912 
033211 
033211 
033412 
0334«2 

12680250 
0337»2 
033712 
0337J2 
033813 
033912 
034113 

12677000 
0341(3 
0346(0 
034613 
0349J2 
0350(2 
035210 
0353U 
035313 

12687400 
0353«3 
035613 
035911 
036010 
036110 
036112 
036410 
036412 

12691000 
0364«2 

12684500 
036412 
036610 
036612 
036612 
036612 
036612 
036612 
036612 
036612 
0366*2 
036713 
036810 
036812 
037113 
037510 
037612 
037813 
038010 
0384U 



% 



% 
% 

% 
% 
% 
% 
% 
% 
% 



0GINF0tl8J«»f DSE0x2)*0ftTEfi M8I30]I 

0GlNf 7 0t28J!=FpB[8]liTlNUtV]C24 8 18t 1 2 3 ft FQRMTOGC 42 I 47 ■ 1 3 | 

I NUf UN IT], [18: 12] »*0I TINUCVJ.C18J12)J = 0I 

IGNEf)0N:aL.0GlNF0C24] + cU0CK+P(KTR}» 

0GINF0[24]»*U0GINF0[293 J'SlGNEDONi 

PRr4Ji«{*P(oiJP))-Sl6NFDON| 

Ppt9] t*C*PCDUP))-S!r,NFDONj 

OGSP4fiFCtL.O(5iNF0r03]»3O)l 

ORgfTSPACE(^Os!NfO)| 

tgNedoni.6; 



55750' 



END? 



IF nSED OR 0TED» SKIP THE CHECKS FOR COPIES, 

IF (TERMFLAGl*DSED OR QTE0*3> THEN 

IF V«22 THEN GO TO PNCHqS ELSE GO TO PRNTOSI 

T IS SfT IF THF FIRST r,FT FaIUS. THIS SHOULD ONLY HAPPEN AT THF END 
OF a BACK-UP TAPE. NOTF THAT IF A FILf NUMBER IS SPECIFIEDf INITIAL- 
IZE ONLY SPACES TO I TS STa«T, SO WE MAY CATCH AN INVALID NUMBER 
HERF. SINCE ONLY ONE FILE IS PRINTED WHEN A NUMBER IS GIVEN, IF WE 
ARRIVE HERF, IT MUST HAVE BEEN A BAD NUMBER. IF IT IS DESIRED To 
CONTINUE DOWN THE TAPE AFTER THE SPECIFIED FILE* THIS TEST WILL NEED 
To RE CHANGED. 



IF T THEN 

IF UN IT* 18 THEN 
BFGIN 

IF COMMON, [NUMF]#0 

GO TO taPfnd; 

END FLSF fiO RfMOVE m > 



* FIRST GET FAILED 



THEN INVALIDNUMI 



IF fCOPYJ«COPY-l) GTR ThEN 
BEGIN 

if v*?? and punchlck then 

BEGIN 



* MORE COPIES OF FILE RQD. 



PNCHLKi STREAMCP1MIX, T j «T : =SpACE C 10 ) ) I 

BEGIN DS»*25 LIT"#PNCH LOCKED! PRNPBT/D I SK* M I 
SIi*LOC P1MIXI DSI*2 DEO DS I «LI T"*"; 
0!i«0!"3i DSt»FILL| 
END? 

SPOUTCT)! 

RFPLY[PlMiX]i*N A BS(TlsV0K4VWY[36l42$6]jVQTC30t42l6])l 
COMPLFXSLEEPfREPLYCPlMIX]>0 OR DSED)I 
09635000 ACCIDENTAL fNTRY AT 1 

IF NOT WHYSLEEP(T) TMpN fiO TO PNCHLKj 
IF DSED OR QTED ThEN fiO STARTANEWF I LEI 

end; 

if unit*18 then x disk 

BFGIN 
$ SFT OMjT * NOT PACKETS 

IF NOT STOG THEN STOG : «SEARCHVAL»3! 



12699500 
12700000 

12700500 
12701000 
12701500 
12702000 
12702500 
12703000 
12703500 
12704000 
12704500 
12705000 

12705100 
12705110 
12705120 
12705250 
12705500 
12705600 
12705610 
12705620 
12705630 
12705640 
12705650 
12705660 
12705670 
12705680 
12705750 
12706000 
12706250 
12706500 
12706750 
12707000 

12707100 
12707250 
12707500 
12707750 
12708000 
12708250 
12708500 
12708750 
12709000 
12709250 

12709500 
12709750 
12710000 

12710250 
12710500 
12710750 

12711000 
12711250 
127U500 

12712000 



03861 
03901 

03921 

03961 

04011 

04031 

04051 

04071 

04091 

04111 

0412* 

04121 

1 
04121 
04121 
0412! 
04121 
04171 
04191 
04191 
04191 
04191 
04191 
0419 t 
04191 
04191 
04191 
04191 
04191 
04201 
04211 
0424! 
0424! 

1 
0424! 
04241 
0426! 
0426! 
0428! 
04291 
0432! 
0435! 
04361 
04371 

1 
04371 
04361 
0442! 






3 

2 

2 

2 

3 
3 
3 



3 

2695500 

3 

3 

3 

3 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

3 

1 



2 

2706250 

2 

2 

1 

3 

2 





2 

2 



2708500 

1 

2 

2 



0449!3 
045110 
0455!0 

12708000 
045510 
045513 
045611 
045611 



$ POP OMIT 
PRlNTiTAGAfN! 



END? 



FfD'eFlRSTFlDJ 

Searchval««s; 

tf findfile then go to eof else go to continues 



% TAPE 

% THIS ISNT FIRST REEL 



TF RDCTABLFtUNin.rUUOlM THEN 

REG IN 

RDCTABLE[UNlTJ.rU«lO] J=OJ 

IF NOT LOOKFOKTaPf ThfN GO TO EOF* 

END ELSE 



Rdytapej 

IF SPACFTOFTLE THEN GO TO fOF ELSE GO TO CONTINUE? 



END? 



S SFT OMfT » NOT PACKETS 
IF UN f T* 1 B THEN 
PEGTN 

IF STOf, thf.n BEGIN SfARCHVAL»=3J stog»*o end? 



* CHFCK FOR COPIES OF PACKET 



if nomorefiles then 

IF fPCOPY'*PCOPY«i ) GTR THEN 
BEGIN 

FlPSTFlDtaPFlRSTFlp? 

GO PRINTITAGAIN? 
ENO ELSE 

ELSE GO CONTINUE? 



ENDt 
$ POP OMIT 

fOfj 



AT THIS POINT* WE ARE THROUGH WjTH THIS FILE OR PACKET, CLEAN UP 
THF OUTPUT BEFORE COING ON. 



J! 

% 

% 

PRNTDSJ 

PNCHDSI 

IF UNJTM8 THEN % TAPE 

BEGIN 

TF TERMFLAG OR NOrONT OR ABORTED THEN 
BFGIN 



tapendi 



Rewind? 
go to test? 

END ELSE 



BEGIN 



CONTINUFl 
RETURNfaLSF* 



NuMJsNUM+l> 
REC0UNT:sP77777j 

setupinrec? 

PfO); 



% TRY THE NEXT FILE 



12712500 
12713000 
12713500 
12714000 
12714500 
12715000 

12715400 
12715500 
12716000 
12716500 
12717000 
12717500 



12721500 
12722000 
12722500 
12723000 
12723500 
12724000 



12725500 
12725900 
12726000 
12726100 
12726110 
12726120 
12726130 
12728000 
12740000 
12740500 
12741000 
12741500 
12742000 
12742500 
12743000 
12743500 
12744000 

12744500 
12745000 
12745500 
12746000 
12746500 
12747000 



12718000 T 

12718500 T 

12719000 T 

12719500 T 

12720000 T 

12720500 T 

12721000 T 



12724500 T 
12725000 T 



0458 
0458 
0458 
0459 
0460 
0462 

0462 
0462 
0463 
0464 
0466 
0468 

0468 
0470 
0472 

0472 
0472 
0472 
0473 

0475 
0477 
0479 
0479 
0480 
0481 

0481 
0481 

0481 
0481 
0481 
0481 
0481 
0481 
0481 
0481 
0481 
0481 
0482 
0482 
0484 
0484 
0484 
0466 
0486 

0486 
0487 
0488 
0489 
0490 
0490 



2 
2 
2 

1 





2711250 





2 



2 
2 

2716000 

2 





2707500 





3 

1 

2721000 

2 



1 

3 

2 



2722500 



2 

2720500 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 

3 



2 

2 



2 

2742000 

2 



1 









END* 



GO RFTURNT0C0M19J 



12747500 
12748000 



end; 



REMOVFMi 



disk - close the opened fiLfS and* if not qted» Remove them. 



l0m«TF SEARCHVAl«3 THEN Fin ELSE NOT 0* 

SEARCHVAL»nl3l pemovejt; 

FPBf4]lsf*PfDUP))+CL0CK+PfRTR)> 

IF TFRMFLAG#3 THEN % NOT QT-ED 

BEGIN 

IPD:sNOT 0* 

SEARCHVAU»7J REMOVElTj 
TESTJ % FOR CONTINUATION FOR AUTOPRINT OR RJE, 

IF AUTOPRINT AND NOT (FORMTOG OR TERMFLAG) AND 
CTWOCV) AND SAVEW0R0)«0 
S SET 0M[T = NOT RJF 
THEN 

IF (C0MM0NI=PRINT0RPUNCHWAITC-V#-STA))*0 THEN GO TO STOPTIME* 

fndj 

TAPECL» 

COMMONJsOJ 

FORoFTSPACECB)} 
t SET OMIT = NOT RJE 

SETNOTlNUSf fV.FORMTOG)! 
STOPTiMf: 

STOPTtMlNflfS. 1023)1 
RETURNTRUf: 

PCI)* 

RETURNT0C0M19: 

P(0,R0Sil.SUB.0,XCH#CFX»STF)l 
END OF FIRST PRjNTeR BACKUP SPECIAL CASES PROCEDURE* 



12748500 T 



12748900 
12749000 
12749100 
12749110 
12749120 
12749500 
12750000 
12750250 
12750500 
12751000 
12751500 
12752000 
12752500 
12753000 
12753500 
12753750 
12755000 
12755500 
12756000 

12756400 
12756500 
12757000 
12757350 
12757500 
12757750 
12758000 
12758250 
12758500 
12759000 
12759500 
12760000 



T 049011 

T 049210 

12744500 
049210 

12741000 

T 049210 

T 0492*0 

T 049210 

T 049210 

T 049210 

T 049210 

T 0495*0 

T 0497*0 

T 0499*2 

T 0500*1 

T 0500*3 

T 050U3 

T 0504*0 

T 0504*0 

T 0506*0 

T 0507*1 

T 0507*1 

T 0508*0 

T 0511*0 

12751000 

T 051112 

T 0511*2 

T 0512*1 

T 0513*0 

T 0513*0 

T 051410 

T 0514*0 

T 0515*0 

T 0515*0 

T 0515*1 

T 0515*1 

T 051812 

12501000 
SIZE* 0519 WORDS 



PROCEDURF PRNPBTSPFCASF2CZ)J 

START OF REU 
PRT(6?1) * PRNPRTSPFCASp? 

% 

% this procedure handles additional things for comi9. values of i aRei 
* o tnitailize logging. 

% 1 WRITE ABORT OR DSED MESSAGE AND CONSTRUCT ENDING LABEL. 

1! ? HANDLE PARITY ON INPUT FILE. 

* 

VALUE Zl REAL Z> 

BEGIN 

RCW=+0, MSCW»-2» cOMMONa-4? 



12800000 T OOOOJO 
SEGMFNTl DISK ADDRESS » 00381 



STACK 
STACK 
STACK 

STACK 

STACK 
STACK 

STACK 

STACK 
STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 

STACK 
STACK 
STACK 

STACK 

STACK 
STACK 
STACK 

STACK 
STACK 
STACK 

STACK 

STACK 

STACK 
STACK 



Real 

ARRAY 
ARRAY 

> 
REA! 



F+0) s RCW 
F-2) = MSCW 
F-4) a COMMON 

F + D * INREC 

F+2) s FPB 
F+3) s LOGINFO 
F + 4) s HEADER 

F + 5) a UNIT 
F + 6) a V 
F+7) n COPY 
F+10) a MFID 
F + ll) = FID 



F + 12) = IOD 

F+13) » T 

F+14) ■ B 

REAL 

F + 15) = SEARCHVAL 

F+16) s CURROW 

F + 17) * FIR5TFID 



TNRECs+lC*]J 

FPB.lNREC+jr*J» LOGfNFOuFPB+lt*], HEADER*LOG I NFO + 1 f * ] I 

UNITbHEADER+1* V=UNlT+l» C0PY*V+1. MFID=C0PY+1» FID»MFID+1» 



I0D*FID+1» T*I0D+1» BsT+i; 



SEARCHVAl.«B+l» CUrRo^*5EARCHVAL+ t » F I RSTF I D»CURROW+ t , 



SE6NR»FlHSTF!D+l I 

X*SEARChVAL. NUM*CURROW, RECOUNTsSEGNRJ 



F+20) * SEGNR 

REAi, 
F + 15) = X 
F+16) s NUM 
F + 20) a RECOUNT 

BOOLEAN SIGNED0N»SEGNR + 1 * FoRMToGaS I GNEDON+ 1 » AB0RTED*F0RMT0G+1 t 
F + 21) » SIGNEDON 
F + 22) a FORMTOG 
F + 23) * ABORTED 

BOOLEAN NOCONTsFIRSTFlDJ 
F+17) = NOcONT 

S SET OMIT ■ NOT PACKETS 

BOOLEAN STOG=AB0RTED+ll 
F+24) a STOG 

Real pcopy«stog+i» pfirstfid«pcopy+ii 

F+25) a PCOPY 

F + 26) * PFIRSTFID 

$SET OMIT a NOT (RJE AND PACKETS) 

$ SET OMfT a PACKETS 

LABFL SLEAP» WHY* EXiTT0C0M19| 



12800100 
12800110 
12800120 
12800130 
12800140 
12800150 
12800500 
12801000 
12801500 



OOOOiO 
0000)0 

0000)0 
OOOOIO 
OOOOiO 
0000*0 
OOOOIO 
OOOOiO 
OOOOiO 



12802000 T OOOOJO 
12802500 T OOOOIO 

12803000 T OOOOIO 



12803500 T 000080 

12804000 T OOOOJO 

12804500 T 0000:0 

12805000 T OOOOIO 

12805500 T OOOOiO 

12806000 T OOOOIO 



12606500 T 
12807000 T 



OOOOiO 
OOOOIO 



12807500 T OOOOIO 



12808000 T 

12809500 T 

12812000 T 

12812500 T 



OOOOIO 
OOOOIO 
OOOOiO 
OOOOIO 



UBf-L SJGNIN, ABORTMSG* PaRERR* 
SWITCH SW «a 

SlCNIN, ABORTMSG. PaRERR* 
DEFtNf nSED ■ TFRMSpTcPiMfX)*, 

«TFD » fPRTtPlMlX#P25J#0)#, 

VF a 43»5*» 

UNITF = 36«5*» 

COPYF * 30»8#, 

NUMF ■ 22»8*» 

NOTp » ?9M#f 

COPYO * 21M#» 

%**************************************************************+***+***+ 

SUBROIJTJNf ioufttmfr; 
BF.GTN 

STOPLOr,(PlMlX,l>J 

P(PlM|X)l PlMfX:sOJ 

IDLETIMEJ 

PlHlXlaPI 
$ SFT OMJT ■ NOT(NEWLOGGING) 

STARTLOG(PIMIX)? 
END IOLETJMePi 

%************************** ********************************************* 



SUBROUTINE 

BEGIN 

STREAM 
BFGIN 
S 

n 
u 
s 
s 
s 
s 
s 

fnd; 



FM; %% BUILn AND SPOUT FORMS MESSAGE 

CUiwTTNUC V J» PlMjXt lNR£C» D t «T l«SPACE ( 1 ) ) J 

DSt«LlT"#"> 

M»LOC U> SllsSI+5; oSi>3 CHRJ 

S»*20 LIT" FM ROdiPRNPBT/OISK« w | DSl*2 OECJ 

j=oi; oi:«oi-2i os»«fii.l; di»«u; 

I : = 1 NRFC ; DS:=5 LIT" FOR "I 

nSisLiT"/"; 
DSt*4 LIT- OF "1 
DSSaLIT"/"* 



%% 



paSl + U 0S«b7 
!«»Sl+l> DS»s7 
T»«Sl + H DSt«:7 
IS*SJ+1? DSl«7 
S : « l I T •• * " ; 



chRJ 
ChRJ 
ChRJ 
ChRJ 



SPOUT(T); 
RFPLYTP1MIX1 Is 

NABS(TS*V0K&vWYr36«42;6]*VQTc30J42l6}&VFMt24U?l63)l 
END FM SUBROUTlN; 



SUBRO 
BEfifN 



*************************************************************** 
UTINE BADFM; XBUILD AND SPOUT BAD FM MESSAGE X 



STRFAMf At 
BFGfN DS» 

Si :bLOC 

si >«toc 

DS»*LlT 

fnd; 



TjNUin,MX$sPlMlX.T» = Tt»SPACEnO))J 
19 LlT"|NVAL!D INPUT UNIT " J 

MXJ DS»»2 DEC;DSt*2 UlT"FM w ; 

A; SM«SU5I DSI«3 CHR? 

"«•"'» dii*di-8; osi«filli 



12813000 
12813500 
12814000 
12814500 
12815000 
1P815100 
12855200 
12815300 
12815400 
12B15500 
12815600 
12815900 
12816000 
12816500 
12817000 
12817500 
12817600 
128)8000 
12818500 
12819000 
12819399 
12819500 
12820000 

12820500 
12821000 
12821500 
12822000 
12822500 
12823000 
12823500 
12824000 
12824500 
12825000 
12825500 
12826000 
12826500 
12827000 
12827500 
12828000 
12828500 



12831000 
12831500 
12832000 
12832500 
12833000 
12833500 
12834000 
12834500 
12835000 
12835500 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



12829000 T 

12829500 T 

12830000 T 

12830500 T 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
OOOj 

0003 
0004 
0005 
0005 
0005 
0008 

0008 
0006 
0008 
0008 
0009 
0009 
0013 
0013 
0014 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0023 

0024 
0025 

0025 
0030 

0030 
0030 
0030 
0031 
0031 
0034 
0037 
0038 
0039 
0040 



♦ 
















2 
2 


2 

2 



2817500 

1 

1 

1 

1 







2 

1 

1 

1 

2 

2 

3 

3 

1 

3 

2823500 



1 

3 

1 

2822500 

2 

2 

2 





2 

1 

1 





2833500 



spout n )) 

FND BADFM SUBROUTiN; 



%***.#+** + ** + * + *** + *** + + + ****** + + * + **** + ** + + + ** + *** + * + * + + ***+. + * + + + + + + * + + + 

SUBROUTINE WR I TFBANdE JFCT j 
BEGIN 
$ SFT OMIT = NOT RJF 
RFGTN 

PCWAITTQCB INX 92 1 0104000000 , » V ) # DEL. ) ; 

if v*rt then * iiso* 

JF SEPARATr THEN P(WAITIO(P4000100000,0#V)#DEL) X150- 
ELSE P(WAlTIOCea002000000,0,V)»DEL>l*l50- 

FNDl 

LNDJ 

% 

PfZ.MSCW.STr)! 
GO TO SWfPlI 

ST6NINI 

% HANM.F5 FIRST RECORD OF FILE* PICKING [)p LOGGING INFO AS WELL AS 

% COPIES OR form specifications, note that label info is saved in 

% LOGaRRAY FOR USE AT ABORTmSG. TIMING IS STARTED AT INITAlUZE AND 

3! STOPPFP TN REWIND. AT REMoVEM OR AT STOPTIME FOR TAPE. DISK AND THE 

* OUTPUT UNIT RESPECTIVELY, LOGARRAY IS USED TO REMOVE THE TIME 

* ASSOCIATED WITH A GTVEN PaCK UP FILE FROM THE TIMING IN THE FPB AND 
% LOf, |T TO ThF USFR. THAT tS DONp IN SJGNOUT. THUS. THE TIME LOGGED 
% AT pRNPPT/DlSK F.OJ jS OVERHFAD TIME OcURRjNG DURING SWITCHING FROM 
% FILE To FILE, 

% 



lOGJNFo l e SAVEARRAYDESC(3l'L0GAREAV); 

IF F0RMT0C|«INREC[133 THFn FM? 

IF rOPY LEO AND NOT COMMON , tCOPYo 3 THEN 

COPY »■ I F UNRFCU4] fl ND NOT P377)«0 THEN 
LOg|NfO[OJ|«3| 

STRrAM(S»*[lNRrcr4J3»D»*CLO r ,lNrO[l]])J 
BEGIN SpeS; DS«s9 WDSl END? 



1167' 



I NREC E 143 + 1 ELSE 0| 



LOGfNFOnOjlsS; 

LOGlNFOtll J»«2I 

LOGINFOC l?]»»-(PROCTlMEtPlMlX]+CLOCK+P(RTR))l 

L0GlNF0tl3l J* IOTlMEtPlMlX]| 

I OLE TIMER! LOG I NFoC 1 4 ] : « J ARC PlM I X . 7 3 J 

LOG INFO 1 153 i*DATEj 

L0GlNF0[16]l B XcL0CK+P(RTRjj 

L0GlNF0tl93|=INRECtl53, 

LOGlNF0I2O]|""PRINTER w » 

L0 G lNF0t21]j« ,, RACK-UP ,, | 

UOr,TNFOt223i«LOeiNFO[27J*«0| 

L0 G TNF0r?4]»s-rU0cK-P(RTR); 



*132« 



12836000 


T 


0040 


11 


12836500 


T 


0041 


S2 

12832500 


12837000 


T 


0041 


53 


12837500 


T 


0041 


S3 


12838000 


T 


0041 


:3 


12838500 


T 


0041 


;3 


12839000 


T 


0042 


JO 


12839500 


T 


0042 


to 


12842500 


T 


0042 


?0 


12843000 


T 


0042 


to 


12843500 


P 


0044 


:0 


12843600 


c 


0044 


»3 


12843700 


c 


0048 


to 


12844000 


T 


0052 


*2 

12842500 


12844500 


T 


0052 


52 
12839000 


12845000 


T 


0054 


to 


12845500 


T 


0054 


10 


12846000 


T 


0054 


10 


12846500 


T 


0054 


10 


12847000 


T 


0054 


10 


12847500 


T 


0055 





12847600 


T 


0057 


'1 


12848000 


T 


0057 


'1 


12848100 


T 


0057 


1 


12848110 


T 


0057 


1 


12848120 


T 


0057 


1 


12848130 


T 


00571 


1 


12848140 


T 


0057 


1 


12848150 


T 


0057 


1 


12848160 


T 


00571 


1 


12848170 


T 


0057 


1 


12848180 


T 


0057 


1 


12848190 


T 


0057' 


1 


12848200 


T 


0057 


1 


12848500 


P 


00571 


1 


12849000 


T 


0061 





12849500 


T 


0064 





12850000 


T 


00661 





12850500 


T 


0071 





12851000 


T 


00721 


1 


12851500 


T 


00731 


3 

2851500 


12852000 


T 


00741 


2 


12852500 


T 


00751 


3 


12853000 


T 


00771 





12853500 


T 


00791 


3 


12854000 


T 


0081> 


1 


12854500 


T 


00841 





12855000 


T 


00851 


1 


12855500 


P 


00871 





12856000 


T 


00681 


2 


12656500 


T 


00691 


3 


12857000 


T 


00911 





12857500 


T 


00931 


1 



12710000 



I. 
L 
L 
L 
I, 
RDC 
! 

sleap 
p 

ACCIDFNTA 



0fi T NF0r?5] IbINREC[03I 

0G|NF0[?6] * « I N R T C C l ]? 

OGlNFOrpB] »=Mf INREC IN* mOT 1 4 ] J 

0GlNF0C?93*lNREC[2]J 

OGlNFOt 303*INRFCI 3J> 

TARLFrV].tft7:n«-INRECt0 3s M FUULPGE w J 

F FORMTOG THEN 



* SAVE LABEL INFO FOR ABORT 



3! LINES66 OPTION 



S724- 



FGjN cOMPLFXSLFFPCREPLYrplMlX] 

L fNTRY AT 

IF NOT WHYSLEEPCT) THEN 
RFGIN FMJ GO TO SLEAP FNDJ 



GFQ OR DSED OR QTEO)J 



IF RFPLY[PlMiX],[rF3»VFM THEN 
IF (T»*RfPLY[P1MIX], [FF]) NE^ 
BEGIN % 

LABFLTABLEtT] l*?U«l 

PADFM* 

ready»«reaoy and ctl*not 
rrrmfch:*rrrmfch and t; 
savfworo*=savfword and t; 
s set omit * notcrjf and oatacom ) 

END ELSF 



20 AND T NEQ 21 
ILLEGAL UNIT, 



TWOCT))! 
FMJ GO SLEAP 



thfn 



IF T#V THEN 

BEGIN 

LAPELTABLETT] t s 

RDCTABLErT] t s 

MUlTITABLE[T] t = 

LABELTABLE[V] :* 



* SWjTCH UNITS, 
LABELTABLEfVJJ 
RDCTABLE[V]J 
MUlTiTABuE[V]| 
MUL.TITABLECVJ t» RDCTABLEtV] |. 



01 



FPBC83.[36I6]|«CV!«T)+1 J 



END* 



END; 



FORMTOfi«s(FORMTOG 
STGNEnONlsTRUEl 
GO FX|TT0f.0Ml9| 



OR PUNCHLCK AND V*22) AND NOT (DSED OR «TFD)J 



ABORTMSrI 



X 

?! 
% 
% 



AB0RTED*3 IMPLIES ABORT HAS OCCURRED, CURRENTLYt 
DISTINGUISH PETWFFN 1 AND 3, BUT ABORTED MUST BE 
SO WHY MOT MAKF IT DIFFERfNT, 



NOTHING ATTEMPTS TO 
SET HERF FOR TAPE 



ABORTE 
STRfAM 
BEGIN 
D 
C 
D 
D 
G 
AB« D 
LENn« 
FNDJ 



D»*3» 

f T i=OSFD OR QTED» B)J 

S»s8 L I T •♦ # »» | sj:,b; DSl*16 WDSJ Dl»»BJ 

flseCI+T; GO TO ABJ 

I *=DI+24I 

S:=34 LIT" BACK-UP TERMINATED BY OPERATOR "J 

TO LEND? 

I«=DI+34{ DSJsll LIT" ABORTED "J 



12858000 
12858500 
12859000 
12859500 
12860000 
12860100 
12860500 
12861000 
12861500 



12862000 T 
12862500 T 



12863000 
12863500 
12864000 
12864500 
12865000 
12865500 
12866000 
12866500 
12867000 
12873000 

12873500 
12874000 
12874500 
12875000 
12875500 
12876000 
12876500 
12877000 



12878000 
12878500 
12879000 
12879100 
12879500 
12879600 
12879610 
12879620 
12879630 
12879640 
12880000 
12880500 
12881000 
12881500 
12882000 
12882500 
12883000 
12883500 
12884000 
12884500 
12885000 



0095 
0096 
0098 
0101 
0102 
0104 
0107 
0107 
0108 

0117 
0118 

0124 
0125 
0129 
0129 
0130 
0132 
0134 
0135 
0138 
0138 

0138 
0139 
0140 
0141 
0143 
0144 
0148 
0151 



12877500 T 0151 



0151 
0158 
0158 
0159 
0159 
0159 
0159 
0159 
0159 
0159 
0159 
0160 
0164 
0164 
0166 
0166 
0167 
0171 
0171 
0173 
0173 



1 
3 

1 
1 
3 
1 
2 
3 
1 

2 

2 

2862500 



2 



2 

3 



2 

3 

2 

2 

2864000 

2 

3 

1 

3 

1 

3 



2 

2874000 

2 

2861500 

2 



3 

1 

1 

1 

1 

1 

1 

1 

1 









3 



2 

3 

3 

3 

2881000 



writfbanoeJfctj 

IF V*?? AND SlfiNFOON thfn 
PFGtN 

STRFAMf S*rLOGINFOr l]]»T«-O.B)> 

BEGIN OS* 8LjT» LABEL " * Sl*SI 2 4 f S I *S I + 8 ) ; DS*16ChR* 
Sl*Sl + 8> DS*8ChRJ T*S!; Sl*S; DS*9WDSJ S I #- T I 
SI*SI+1> DS*LIT" "I DS-7CHR) OS*L I T«/"l SWSI + U DS*7CHR* 
DS* 1? L I T •• ••; 

FND* 



WRITF8ANDFJFCTJ 

IF NOT SEPARATE ThEN P( WA I T I 0( 040001 00000, 0, V ) #DEL> * 



X150- 



fnd; 

go to fxjtt0c0m19; 

PARFRRJ 



% 
% 
% 




OR DS. 



n ;> » = o u I i " i a r t "» 
nS!=?6 LIT "PARITY 
??(DS»«2 LjT «>>"); 
END STREAM? 



SET OMJT s M0T(RJF AND OATaCOM 

P(WaIT!QCT8,16[CTF]»0»V),DfL); 
FORr,FTSPACF(T)j 



FlLFMFSS("*PARiTY w ,0»0,"ERROR "#0.0,0) J 
REPLYrPlMlX]i»-V0T*VWYr36:4?l6]sV0K[30U2l6]| 
C0MPLFXSN00ZE(MIXMAX»REPLYCP1MIX] GEO OR DSED OR QTED)J 
12861500 ACCIDENTAL fNTRY AT 

IF NOT WHYS| J rEP(VQT&VWYr36542!6i&V0K[30:4?;6]) ThEN GO TO W H YJ 
T:=nSED OR «1ED? 
FXJTT0C0M19; 

P(0,RDS»0,XCH»CFX,STF); 
END OF SECOND GROUP OF PRINTER BACKUP SPECIAL CASES* 



12885500 
12886000 
12886500 
12887000 
12887500 
12886000 
12888500 
12889000 
12889500 

12890000 
12890100 
12890500 

12891000 
12891100 
12891500 
12891600 
12891610 
12891620 
12891630 
12892000 
12892500 
12893000 
12893500 
12894000 
12894500 
12895000 
12895500 

12896000 
12897500 
12898000 
12898500 
12899000 
12899500 
12900000 

12900500 
12901000 
12901500 
12902000 
12902500 



T 017410 

T 017510 

T 0176*1 

T 0176* 3 

T 0176: 1 

T 018053 

T 018251 

T 018451 

T 018650 

12887500 

T 018611 

C 018750 

T 019050 

12866500 

T 019050 

T 019250 

T 019250 

T 019250 

T 019250 

T 019250 

T 019250 

T 019250 

T 019351 

T 019651 

T 019753 

T 019912 

T 020052 

T 0204»0 

T 020550 

12893000 

T 020551 

T 0205'1 

T 020751 

T 020850 

T 020850 

T 021012 

T 021450 

T 022252 

T 022553 

T 022952 

T 022952 

T 023152 

12801000 
S!ZE« 0234 WORDS 



PROcfDURF C0M19; 



STACKfF+O) 
STACKfF-4) 

STACKfF*l) 
STACKfF+2) 
STACKfF+3) : 
STACKfF+4) : 

STACKfF+5) ; 

STACKfF+6) : 

STACKfF+7) 

STACKfF*lO) 

STACKfF+11) 

STACKfF+12) 

STACKrF+13) 

STACKfF+14) 

STACKfF+t5) 
STACKf F+16) 
STACK(F+17) 
STACK(F+20) 

STACKfF+15) 
STACKfF+16) 
STACKfF+20) 

STACKfF+21) 
STACKfF*22) 
STACKfF+23) 



STACK(F*17) * 



STACKfF*24) * 

STACKfF+25) * 
STACKfF+26) s 



% 

% C0Mi9, 

% ITS STA 

% passed 

% COMMON. 

% 

% 

% 

% 

% 

% 

% 

X FOR RJF 

% CONTAIN! 

% FILF ID 

% 

BEGIN 

REAL 
RCW 
COMMON 

ARRAY 
iNRfC 
FPB 
LOGTNFO 

HEADER 

REAl. 
UNIT 
V 
COPY 

MFlD 

FID 

10D 

T 

B 

REA| 

SEARCMVAL 
CURROW 
FIRSTFID 
SEGNR 

REAL 
X 

NUM 
RECOUNT 

BOOLEAN 

signedon 

FORMTOG 
ABORTED 

BOOLEAN 
NOCONT 

S SET OMjT 

BOOLEAN 
STOG 

REAL 
PCOPY 
PFlRSTFID 



TOGE 
CK. 
TO C 

r A3* 

[38* 
r 30 ! 



c?i» 

» CO 

s TH 

FOR 



THER W 

ARE TH 

0M19 I 

5] LO 

53 IN 

TH 

NU 

IF 

IE 

NO 

1 J ON 

MMON I 

E INFO 

DISK 



8] 
8] 



START OF REL 

T TH PRNPBTSPECASE1 AND PRNPBTSPECASE2 WHICH SHARE 

fc- WORKING PART OF PRINTER BACK-UP, INFORMATION IS 

N COMMON AND LABELTABLE. AS FOLLOWS* 

GICAL UN?T NUMBER OF OUTPUT UNIT, 

PUT UNIT NUMBER. IF DISK. THE LABELTABLE ENTRY FOR 

F OUTPUT UNIT CONTAINS THE FILE ID, 

MBER OF COPIES SPECIFIED IN PB MESSAGE, 

TAPE, STARTING FILE NUMBER GIVEN IN PB MESSAGE. 

DISK, *o IF ENTIRE PACKET IS TO BE PRINTED. «1 IF 
T, 

if *bo m appeared in pb message, 

S THE ADDRESS oF A TWO WORD ARRAY, THE FIRST WORD 
RMATION DESCRIBED ABOVE AND THE SECOND CONTAINS THE 
(WHICH IS IN LABELTABLE FOR NON-RJE FILES). 



RCW»+0, C0MM0N.-4} 



iNRECt*]. FPBt*]. L0GINF0[*3, H E ADFRt*]J 



UNIT. V, COPY, MFfD. FID. IOD, T» B* 



SEARCHVAL. CURROW, FIRSTFID. SEGNRI 



XaSEARCHVAL. NUM«CURROW, RECOUNT*SFGNR * 



SiGNEDON, FORMTOG, ABORTED) 



NOCONT. FIRSTFIDJ 

s NOT PACKETS 
STOGS 

PCOPY. PFlRSTFID; 



13000000 
SEGMfNTI DISK 

13000100 
13000110 
13000120 
13000130 
13000140 
13000160 
13000170 
13000180 
13000190 
13000200 
13000210 
13000215 
13000220 
13000230 
13000240 
13000250 
13001000 
13002000 



T 0000*0 

ADDRESS * 00389 

T 0000»0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 

T 0000*0 



13003000 T 0000*0 



13004000 T 0000*0 



13005000 T 0000*0 



13006000 T 0000*0 



13007000 T 0000*0 



13008000 T 0000*0 

13009000 T 0000*0 

13010000 T 0000*0 

13011000 T 0000*0 



% 

% 

% 
% 
% 

% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



$ Sf 
S SF 

T 

A 



t omit = packets 
t om?t ■ not rjf 



R 



HE LOCAL 
RRAYS 

INRFC 

FPB 

LOGTNFO 



HFAOFR 
FAi.S 
UNIT 
V 
COPY 

MFIO 
FID 
IOD» T 
R 

WOlFANS 

StGNFDO 



variables arf used as follows* 

array descriptor for the current record, 
fpb array. input is thf first file? output 
array in which thf log entry is built, the 
words are the control card entryj the next 
prlntfr back-up entry and the last 10, the 
disk file header. 



THE 2ND. 
FIRST TEN 
10, THE 
FILE ENTRIES. 



LOGICAL UNIT NUMBER FOR INPUT, 

LOGICAL UNIT NUMBER FOR OUTPUT. 

NUMBFR OF COPIES OF ThiS FILE TO BE PRINTED. IF JT iS 

NOT SPECIFJFD, jT EQUALS 0, 

MULT J -FILE ID OF INPUT F1LF. 

FILE ID OF INPUT FILE. 

TEMPORARY STORAGE. 

ADDRESS OF 90 WORD BUFFER FOR INPUT, 



N 



OFT ONLY 
E.G.. 



FoRMTOG 
ABORTED 



'HE FOLLO 
SFARCHV 



CljRROW 
FiRSTFI 

Sfgnr 
thf follo 

X 

NUM 

RFCOLINT 



NOCONT 

THE FOLLO 
PfOPY 



PFIRSTFID 



STOG 



ON IF LOGGING IS INITIALIZED. THIS SHOULD BE 

FOR FILES WHICH DO MOT START AT THE BEGIMNG. 

WHEN A STARTi N G REFl IS SPECIFIED ON DISK, 

ON IF FORM IS SPECIFIED OR PNCHLOCK IS SET, 

■It DISK ABORTED BY H/L, CHECK IN GET TO FIND OUT WHERE. 

=?» TERMINATION DUE To CL OF INPUT TAPE WHILE SCHEDULED. 

=3» TAPE ABORTED BY H/L. FOUND BY RECOUNT MISMATCH. 



DURING 




OR 



NUMBER 



CURRENT ROW 



WING APPLY ONLY TO TAPfSi 

temporary storage, 

number of current file on tape, used for copies. 

numbfr of records printed in this file. this is chfcked 

against the c-field of the 10 descriptors in The file to 

spot aborts. 

true if continuation from flle to file is not allowfd. 



WING APPLY ONLY TO PACKETS* 

NUMBER OF COPfES FROM PB MESSAGE* WHICH MAY APPLY To THE 
ENTIRE PACKFT. "COPY" IS SET ONLY FROM LABEL EQUATION. 
FILE ID OF FIRST FIlE IN THE PACKET, USED FOR COPIES OF 
THE PACKET. FiRSTFlD APPLIES TO INDIVIDUAL FILES WjTHIN 
THE PACKET AND iS USED FOR COPIES SPECIFIED VIA LABEL 
EQUATION, 

SET DURING THF FIRST PRINTING OF THE PACKET IF ONE OF 
THF FILES SPECIFIES MULTIPLE COPIES, IT IS USED TO 
RESTORE THE VaLUE OF 3 TO SEARCHVAL WHEN THE FILE IS 
COMPLETED. 



130 
130 
130 
130 

130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 
130 



12000 
15000 
17100 
17110 
17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 
17290 
17300 
17310 
17320 
17 330 
17335 
17340 
17350 
17360 
17370 
17380 
17390 
17400 
17410 
17420 
17430 
17440 
17450 
17460 
17470 
17480 
17490 
17500 
17510 
17520 
17530 
17540 
17550 
17560 
17570 
17580 
17590 
17600 
17610 
17620 
17630 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



000010 

ooooro 

000010 
OOOOJO 
OOOOtO 
000050 
OOOOJO 
000010 
000010 
000010 
OOOOJO 
000010 
OOOOtO 
000010 
000010 
000010 
OOOOJO 
OOOOJO 
OOOOtO 
OOOOJO 
OOOOtO 
OOOOJO 
OOOOtO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOtO 
OOOOJO 
OOOOJO 
OOOOtO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOtO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOtO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
0000(0 
OOOOJO 



% 
% 

% 
% 



the following applies only to Rje: 

STA TERMINAL UniT AnD BUFFER 



NUMBER OF THE RJE TERMINAL. 



LABFL 

OEFfNF 

PEFlNF 
DEFtNF 



TRYNEXT, TAPERDR* TaPERO* 
START, RESTART, MAINLOOP, 
nSEO * TFRMSETfPlMIX)*, 
OTEO ■ fPRT|;PlMlX,e?53#0)#; 
LlNECT * L0GlNF0rp7]#* % 



TAPECHK, ABORT, NOGET, 
GOTIT, QUIT, TESTENO; 



GOTTEN, 



X750- 



LOOKFORTAPE 

NOMORERF.FLS 

QTSPEC 

INITIALIZE 

STARTANEWFILE 

SIGN IN 

ABORTMSG 

PARERR 



pRNPBTSPECASElfO)#, 
PRNPBTSPECASElf 1)*, 
P(PRNPPTSPECASE1C2),DEL)#, 
pRNPBTSPECASElf3)#» 
PRNPBTSPECASE1{4)#, 
PRNPBTSPECASE2(0)#, 
pRNPBTSPECASE2f 1)#, 
PRNPBTSPECASE2C2)#; 



%+, + **** + ** + ************** + + *** + + * + **** * + + + + *** + *** 4, + + + + + ** + + ** + + + + + + + + + + 

BOOl.FAN SUBROUTINE GET} 
BEGjN 

IF INRECC171,[2°M] THFN GO TO NOGET; 

IF (INBFCI.CNOT 17) fNX INREC),[CF] GEO B.fCF] ThEN 

if unit#i8 then go to tapechk else 
else % read next block 

if unjtsi8 then 

BEGIN 

IF SEGNR > HEADERf7]x3 THEN GO TRYNEXT; J! END OF FILE 

IF CSEGNR GEO HEADER^]-!) THEN 

BEGIN % FND OF ROW 

IF (CURROWj*cURROW+l) GEQ HEADER! 9] . C 43 «5 ]+ 1 THFN 
TRYNEXTj JF NOMORfBfELS THEN GO TO NOGET? 

SEGNRJsO) 

end; 

INRECt«90 INX INRECJ 

d i ski of iod»-b,90»header[currow3 + segnr); 
Sfgnri=segnr+3; 
sleep ([ iod1, iomask)* 
if iOD.[28«n Then 
, begin parerrj 

if t then go to nogetj % osed or qted 
end; 

TF ABORTED THEN % TEST FOR BAD 10 DESC. 

IF (M[B INX 18], [6l«2] EOV " ")*NOT THEN 
GO ABORT? 
END ELSE 

BFGIN X TAPE 

TAPERDR: Xt=Ol 

TAPERD* IF (I0D!»WAlTl0fB,P2O0004O,UNlT)).[43«n THEN 
BEGIN PARERRJ 

IF T ThfN r,0 TO NOgeT*' % dSed OR QTED 
FNDJ 

if ion.[A?»i] or x Thfn 



13017640 


T 


0000*0 


13017650 


T 


000010 


13017660 


T 


000010 


13017670 


T 


000010 


13018000 


T 


OOOOtO 


13019000 


T 


000010 


13020000 


T 


000010 


13021000 


T 


ooooto 


13021900 


C 


ooooto 


13022000 


T 


OOOOtO 


13023000 


T 


000010 


13024000 


T 


000010 


13025000 


T 


000010 


13026000 


T 


000010 


13027000 


T 


0000 10 


13028000 


T 


000010 


13029000 


T 


000010 


13030000 


T 


ooooto 


13031000 


T 


ooooto 


13032000 


T 


ooooto 


13033000 


T 


ooooto 


13034000 


T 


000110 


13035000 


T 


OOOltO 


13036000 


T 


0002*3 


13037000 


T 


0006t0 


13038000 


T 


0007:1 


13039000 


T 


0007«3 


13040000 


T 


000910 


13041000 


T 


000912 


13042000 


T 


001112 


13043000 


T 


00l3t0 


13044000 


T 


0013*2 


13045000 


T 


001612 


13046000 


T 


001812 


13047000 


T 


001911 

13043000 


13048000 


T 


00l9tt 


13049000 


T 


0020*3 


13050000 


T 


0023U 


13051000 


T 


0024:2 


13052000 


T 


002610 


13053000 


T 


0026:3 


13054000 


T 


002810 


13055000 


T 


0029:0 

13053000 


13056000 


T 


002910 


13057000 


T 


00291 1 


13058000 


T 


0033»3 


13059000 


T 


003411 

13040000 


13060000 


T 


003411 


13061000 


T 


003610 


13062000 


T 


003613 


13063000 


T 


003910 


13064000 


T 


004011 


13065000 


T 


004111 

13063000 


13066000 


T 


0041U 



BEGIN 



end; 



IK (XJ«N0T X) THFN GO TO TAPFRDJ 

if Mrs inx 3] then 

IF LOOKFORTAPE THEN GO TO TAPERDR ELSE GO NOGET; 



IF (XlcMtB INX NOT 0])*90 THEN 

IF (X AND *7775)=16 THEN % OLD FORMAT TAPE 
BEGIN 

INREC.[CF]»*B T NX II 
lNRECrl7]»«M(B]&0[20!20»nJ 
END FLSE GO To NOGET 



ELSE 
Bt GIN 



TAPECHK? 

ABORT: 
NOGETI 



INREC*«90 INX 1NRECJ 

IF REC0UNTsP77777 THEN RECOUNT* INREC H 7 J , C CF ] ELSE 

IF (RECOUNT'sRECOUNT INX 1) # I NRECT1 7 ] . r CF ] THEN 

BEGIN 

abortmSg; 
p(0); 

go to gotten; 
i no; 



end; 



en 01 



P(U? 

GOTTEN: geT:=p; 
end: 

% 

%%%%% START OF CODE %%%%* 

% 

% START tS USED FOR A N£W F|LE (OR NEW PACKET), RESTART IS USFO FOR 

% A COPY (OR A NEW FILE WjThIN A PACKET), 

START: 

IF cOMMONbO THFN GO TO iNfTfATE; 

IF INITIALIZE THEN 

BEGIN 
RESTART: IF GET THFN 
BEGIN 

if iNREcn7].rnii jao then signin else go gotit; 
if unit/18 then recounti«inrec[i7],ccf]i 
end else % bad first block* usually eot, 

begin pci); 

go To testend; 

end; 



MAlNLOOp: 



IF STOPSET(PIMJX) THFN STOPM(O); 

IF CTI«PRTtPlMlX,?25])#0 OR DSED THEN 

BFGIN 



13067000 
13068000 

13069000 

13070000 

13071000 

13072000 
13073000 
13074000 
13075000 
13076000 
13077000 

13078000 
13079000 
13080000 
13080100 
13081000 
13082000 
13083000 
13084000 
13085000 
13086000 



13091500 
13091600 
13092000 
13092010 
13092020 
13092030 
13093000 
13094000 
13095000 
13096000 
13097000 
13098000 
13099000 
13101000 
13102000 



IF T<0 THEN 



% + OR - SPECIFIED. 



13106000 
13107000 
13108000 
13109000 
13M0000 



T 
T 

T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



13087000 T 

13088000 T 

13089000 T 

13090000 T 

13091000 T 



13103000 T 
13104000 T 
13105000 T 



0042 
0043 
0044 
0046 
0048 

0048 
0051 
0053 
0053 
0055 
0058 

0058 
0058 
0061 
0062 
0065 
0069 
0070 
0070 
0071 
0071 

0071 

0071 

0071 
0071 
0072 

0072 
0072 
0072 
0072 
0072 
0072 
0072 
0078 
0080 
0081 
0081 
0083 

0083 
0086 
0089 

0089 
0089 
0090 

0090 
0090 
0093 
0096 
0097 



2 


3 

1 

2 

3067000 

2 

1 



2 

2 

2 

3074000 

2 

2 



2 

1 

2 



3 



2 

3082000 

2 

3079000 

2 

3060000 

2 

3 



3034000 

1 

1 

1 

1 

1 

1 

1 

2 

I 



2 



2 

1 



3098000 



3 

1 

3103000 

1 

1 



3 

1 



Rpr, in 



FN 01 



otspec; 

go to mainloopj 



arortmsgj 
go to quit; 



end; 



% nSF-0 OR QTED 



% VALID RFC. WRfTE IT & CONTINUE 



IF GFT ThfN 
BEGIN 
GOTlTi 
* SET OMIT * NOT RJE 
IF V rQL V? AND I NREC [ 1 7 J . r 1 8 « I 3 THEN ELSE K206- 

BFRIN % X750- 

Pf WAIT IOC lNRECtl7]*(lNREC)[CTCJ48I2lM2l6]»0»V)»DEL)» 
L!NECT**P'(OUP) ♦ U I *750- 

END* * S750- 



GO TO MAINLOOP; 



END* 



fnd; 

QUIT! 

PfOjl 

TFSTEND: 

T!=P: X TM IF FIRST GET FAILS. ELSE 0, 

IF STARTANFWFILF THEN GO TO START ELSE GO TO RESTART? 

FND Of PRINTING BACKUP TAPf AND DISK FTl-ES} 



13111000 
1311 POOO 

13)13000 

13H4000 

13115000 
13116000 
13117000 

13U8000 
13119000 
13119100 
13120000 
13127899 
13127990 
13128000 
13128010 
13128020 

13129000 
13130000 



13131000 T 



13132000 
13133000 
13134000 
13135000 
13136000 
13137000 



T 009810 
T 009812 

T 009912 
T OlOOtO 

13111000 
T 01 00 10 
T 010013 

t oiom 

13109000 
T 010151 
T 0l02»0 
T 010212 
T 0l02»2 
C 0102*2 
C 0l05»0 
T 010512 
C 010910 
C 01 11 10 

13127990 
T OllltO 

T 011112 

13119000 
011112 

13096000 
T 011H2 
T 011112 
T 0111*3 
T 011113 
T 011211 
T 0H4I0 

13001000 
SIZF« 0115 WORDS 



S SET OMfT = NOT(DATACOM ) 
S SFT OMIT s NOT(DATACOM AND 
REAL PROCEDURE ANALYSIS;* 



BjE ) 



STACKfF+2) 
STACKfF*3) 
STACKfF+A) 
STACKfF+5) 
STACKfF*6) 
STACKfF+7) 
PRT(307) * 



RFGINX 

RFAL ICW»TRCW»INCW»CL»T1»C.T2«SYLLABLF 



START OF REL 



13198999 
13?99999 

14000000 

SEGMFNTt DISK 

14001000 

14002000 



ICW 
IRCW 
INCW 
CL 

Tl 
C 



T? 



S SET 
COMMENT 



omit = not(newlogging) 

label gftout;* 

analysis examlns thf syllable which caused the inturrupt andx 
from the Relative address of the syllable (including* 

varient operator considerations) computes the location, ct 

of a copy of thf descriptor on the top of the 

thf previous two syllables are fftched by the 

STATEMENT GETSYlLABlES WHICH ALSO ADJUSTS THE 
ERS PROPERLY, X 

FINALLY THE STACK IS ADJUSTED AS FOLLOWS!* 
DECREASE S RY ],!F OPDC OR DESCX 

XCH A AND b registers»if coc or cdcx 

OTHERWISE LEAVE THE SAME. 
CHECKSTACKSPACEJX 



STACK, X 
STRFAMX 
C-L REGlST- 



l 



% SET OMIT e N0TCNEWL0GGING) 
INCW ♦ PRT[PlMiX,83)X 

IF !NCW»[CF1<P1777 THEN I! SOMETHING VERY WRONG 
BEGIN JAR[P1MIX,61. f 1U1 + 1J X SD BIT 

F!LFMeSS(-"SeE MCP"»" PATCH " * 0, 0. 0, 0» 602 )XKLUGE 

end; 

p0lish(,incw»i0r)u 
ircw ♦ * incw 1% 

ICW «■ *{ (NOT 0) JNX INCW)JX 

CL «- (IRCW T NX 0) & iRcW[30M0>2m 

STREAM (T1*0»T2»0»CLIX*0)IX 

BEGIN* 

St*CLI Sl«-Sj-2 ; CL ♦ Si; DI * LOC T2; D I * D I + 6 i !g 

OS ♦ 2 CHRJ SI ♦ SI-3»X 

IF Sc » V" THENX 
BEGIN* 

si*si-u if sc ■••O" then* 

BEGIN TALLY + U TOTALLY JCL * Si ENDJX 

END»X 

END GETSYLLABLf t% 

POLISH (,CL»*-».T2»*,,T1.*);* 
IF INCW, £32113 THEN* 

BEGIN COMMENT P"BlT iN CHARACTER MODE IX 

IF T2 s 04441 ThEN* 

begin comment enTfR character modeix 



XWF 



X602- 

X602- 

MSG&DS 

X602- 



14002099 
14003000 
14004000 
H005000 
14006000 
14007000 
14008000 
14009000 
14010000 
14011000 
14012000 
14013000 
14014000 
14014100 

14014199 
14015000 
14015200 
14015210 

14015220 
14015240 

14016000 
14017000 
14018000 
14019000 
14020000 
14021000 
14022000 
14023000 
14024000 
14025000 
14026000 
14027000 



14030000 
14031000 
14032000 
14033000 
14034000 



T 000010 
T 000010 
T OOOOtO 
ADDRESS » 
T 0000:0 
T 000010 



00393 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
C 
C 
C 
C 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



14028000 T 



14029000 T 



OOOOI 
00001 
OOOOI 
0000 » 
OOOOI 
OOOOI 
OOOOI 
OOOOI 
OOOOI 
OOOOI 
OOOOI 
OOOOI 
OOOOI 
OOOOI 

1 

00061 
00061 
00071 
00081 
00121 
00141 

1 

00151 
00151 
00161 
00181 
00201 
00221 
00221 
00231 
00241 
00241 
00241 
00251 

1 
00261 

I 
00261 

1 
00261 
00271 
00281 
00291 
00291 































4014100 





2 

3 

1 

3 

4015210 



2 

2 

1 

2 

1 

1 

2 



2 

2 

t 

4027000 



4025000 



4021000 

1 

3 

2 



3 



P(Mr(|RcW * *(NOT INX TNCW * PRT[P1MIX»8] +% 
(NOT 1 INX INCW)tOr32IHl]>), [18115m* 
1[16I47»13&0[18I18I15]»(N0T 0)!NX JNCW,*)J 

C ♦ INCW INX "?l% 
fNn EtSF bfginx 

IF MFMORYf C * lRcW.ri8ll5]-T2 f [36l 6] ] , [ 1 I 3] * 4* 
THFN* 
BFGIN* 

IF T2.t«2S6] B P53 THEN BE&INX 
COMMENT CONTROL. WORD MEANS CHARACTER MODE RELFASEJX 

Tl*PRT[PlMlX,9]*Mr(*((N0T DjNX i NCW ) ) , 1 1 8 1 1 51 ] , [ 33U 5 1 1 % 
P0LISH(M[TU»0.0)»I 

IF M[TU, [20113 then continuitybitjx 

programrfleasfjx 

END* 
FNDJX 

IF T2 = THFN fiO TO GFTOUTl* 

ENO* 

END* 

FLSEX 
BFGINX 
IF T?, [46|11 THEN* 

BEGIN* 

C ♦ !CW,[33llbl|X 

POLlSHflCW. (NOT DINX 1 NCH» ♦.JRCW.X 

PRTtPjMiX»81*lNcW * (NOT OllNX INCW »+)l% 

END OPDC DESC PART* 

FLSEX 

BEGIN* 

C «• INCW I NX -2;* 

IF (NT1 * T2 AND 977) * 041 THEN* 

BEGIN C *C-1 1% 

POLISHC MEMORYtC]»MEMORYtC+lJf CMEMORYtC]]. * »[MEM0RYtC+1] 

!»«■);* 

END COC CDC PART* 

ELSE IF NT1 b *3l THEN* 

BEGIN COMMENT THIS IS A BRANCH?* 
GFTOUTi CL «- P ( [PRT [P 1M IX, 1 J 1 , DUP. T2.XCH* ♦) INX P600000; 
END BRANCH PART* 

ELSE IF NT1 ■ «»35 THEN f,0 TO GETOUTI COMMENT RETURNI* 
END ALL SYLLABLES BUT OPDC DESC 1% 

END WORD MODE INTURRUPT I* 

P0LISH(IRCW & CLC33«33»l5HCLt 10130521. INCW.*) J* 
ANALYSIS * C IX 
S SET OMIT a NOT(NEWLOGGING) 

END ANALYSIS OF P BIT »* 



14035000 
14036000 

14037000 
14038000 
14039000 

14040000 
14041000 
14042000 
14043000 
14044000 
14045000 
14046000 
14047000 
14048000 
14049000 



14054 
14055 
14056 
14057 
14058 
14059 
14060 
14061 



000 
000 
000 
000 
000 

000 

000 
000 



14062000 
14063000 
14064000 
14065000 
14066000 
14067000 
14068000 
14069000 



14074000 
14075000 



14050000 T 

14051000 T 

14052000 T 

14053000 T 



14070000 T 

14071000 T 

14072000 T 

14073000 T 



14076000 T 

14077000 T 

14078000 T 

14078099 T 

14079000 T 



0030J 
0031 1 
0037» 
00401 
00411 

I 
00461 
00491 
00501 
00501 
0052 i 
00521 
0057J 
00591 
0061 t 
0062J 

1 
00621 

1 
0062» 
00631 

1 
00631 

1 
00631 
00631 
00631 
00641 
00651 
0066) 
00681 
007H 

1 
00711 
00711 
00711 
00731 
00751 
00771 
00611 
00821 

1 
00821 

00831 
00831 
00861 

1 
0086« 
00901 

1 
00901 

1 
00901 
00921 
0093» 
0093? 

1 



I 

1 



3 

4034000 



3 



2 

1 

1 

2 



2 



4043000 



4042000 



1 

4039000 

1 

4032000 

1 

1 

3 

2 



1 



1 

4057000 

1 

1 

3 

2 

1 



1 



4066000 



1 

3 



4071000 

3 

1 

4063000 

1 

4055000 

1 

2 

1 

1 

4001000 



SJZE« 009* WORDS 



STACKfF+1) = T 



save: integfr procedure actualoveRlayaddressctype* mix, loo; hiosooo t ooooio 

START OF SAVE SEGMfNTJ BASE ADDRESS « 00640 
VALUE TYPE» MiX, LOC* H106000 T ooooio 

intfger type, mix, loc; H107000 t ooooio 

BEGIN INTEGER T * +11 14108000 T OOOOIO 

S SET oMtT * NOT(AUXMEM) 14108999 T OOOOIO 

if type then % code... mmoooo t ooooio 

BEGIN 14H0100 T 000012 

$ SET OMjT s NOT(AUXMEM) 14110999 T OOOllO 

LOC is LOC INX 0* 14H2000 T OOOllO 

T I* JAR[MlX,LOc DIV ( T I *JARt M I X , 8 J HlO ] + LOC MOD Tl 14H3000 T 000211 

END ELSE % BETTER BE DATA,... 14H4000 T 000710 

14H0100 

« SET OMIT a NQT(AUXMEM) 14H4999 T 000710 

T<-DAL0CtMIX,L0Ctr33i6J+PCDUP)-l J + L0C,[39I9J 14H7000 T 000710 

$ SET OMIT a NOT(AUXMEM) 14H7999 T OOlOlO 

ENDI 14H9000 T OOlOlO 

14108000 
SIZE« 0012 WORDS 



$ SFT OMIT = N 
COMMENT 



OTCAUXMEM) 
THE SEG 
CO 

[ 1* 13 
f 2* 13 

r 3* n 
r 4* 23 



t 6« n 

[ 7« 13 

r e»iO] 

t 161 153 



FOR 
FOR 
IF 

C IN 
FOR 
FOR 
FOR 
AUX 
FOR 
FOR 



T 33S 153 



THF PR 
CO 

r 015] 

f 6M) 

r 7«in 



fl8M53 



r 33* 15] 



EACH PR' 
TO 



MENT DICTIONARY IS CONSTRUCTED 
MPILERS AND EACH ENTRY HAS ThF 
TYPE 2 SEGMENTS* *0 
INTRINSICS » a OTHE 
BEING MADE PRESENT, a 
TERLOCK FOR RE-ENTRANT 
NORMAL SEGMENTS 
SEGMENTS OVERLAID TO 
SEGMENTS TO BE OVERLA 
ILIARY MEMORY WHICH HA 
C0B0L68 FILE TANK, 
C0B0L68 READ ONLY ARR 
TO PRT FOR 1ST DESCRlP 
FGMENT.X 

NT SIZE (<1024) FOR AB 
TS % 

ADDRESS OF PRESENT SE 
FOR NEVER-PRESENT INTR 
ADDRESS OF SEGMENT,? 
1NSIC-NUMBER FOR INTR I 
ORAM SEGMENTS IS CONST 
N THE FORMAT t X 
RAM DESCRIPTOR BITS.* 
PER BIT WHICH DEFINES 
X 

TO NEXT DESCRIPTOR TH 
EGMENT, IF STOPPER FAL 
ENT NUMBER. IF STOPPER 
GISTER FIELD USED AT R 
AND ACCIDENTAL DESCRI 
FNT NUMBFR FOR WORD MO 
TER MODE DESCRIPTORS,* 
ADDRESS FOR PRESENT S 
TIVE ADDRESS FOR ABSEN 
ELATIVE TO BEGINNING 
CONTAINS A DESCRIPTOR 
ENT DICTIONARY,* 



T F 

MPI 



TH 



1 
1 
1 


3 
2 

1 
1 

Link 

this s 

sfgme 

SfGMEN 
s CORE 

* 1 
DISK 

= INTR 
OR PRO 
LERS I 
= PROG 
a STOP 
FIELD, 

* LINK 
THIS S 
s SEGM 
a F"RE 
LABEL 

= SEGM 
CHARAC 

* CORE 
a RELA 
I.E. R 
fR + 4) 

E SEGM 



BY THE 
FORMAT 
THERWI 
RWISE. 
OTHE 
CODE) 

AUX. M 
ID TO 
VEN"T 

AY. 

TOR FO 

SENT 

GMENTS 
INSICS 

NSICS, 
RUCTED 



IX 
SE.X 

X 

RWISE 



EM, 
BEEN 



RX 



.X 

.x 

X 



BY THE* 



THE [ 

AT BEL 
SE.* 

TRUE. 
UN TIM 
PTORS, 
DE AND 

EGMENT 
T SEGM 
F SEGM 
WHICH 



7I11JX 

ONGS TO* 

X 

F INX 

X 

* 

S.X 

ENTS.X 

ENT.X 

POINTSX 



S* 

PROCEDURE MAKEPRFSENT(C); VALUE C* REAL CtX 



STACKfF+1) a SAV 

STACKfF+2) a MJN 

STACKfF+3) * D 

STACK(F*4) a MOT 

STACK(Ff5) a MOM 

STACK(F*6) a LOC 

STACKfF+7) s SiZ 



EBTT 
F 



HER 



BFGINX 

PEAL SAVEBIT. MINES* 



rfal d»motheR»mom.lOc.sizej* 



START OF REL 



14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
SEGMENT 
14 
14 



19999 
25000 
26000 
?7000 
28000 
28100 
28200 
28300 
28400 
28500 
28600 
28700 
28800 
29000 
30000 
31000 
32000 
33000 
34000 
35000 
36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 
48000 
49000 
50000 
51000 
52000 
53000 
54000 
55000 
DISK 
56000 
57000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
ADDRESS 
T 0000 
T 0000 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



10 
10 
JO 

;o 

10 
10 

jo 
to 

JO 

jo 
;o 

10 
JO 

to 
to 

JO 

to 
to 
to 

JO 
JO 

to 

JO 

to 
to 
to 

JO 

to 
to 
to 

10 

to 

SO 

to 
to 
to 
to 
to 
to 
to 

• 

to 

JO 



00397 



14158000 T OOOOsO 



:e 

STACKfF+l) a DlSKADDR 
STACKfF+lO) a DD 



TNTFGFR DlSKADDR « SaVeBITj* 



14159000 T OOOOtO 



DEFINE LINK* [ 
DFFINE NOTOPEN 
ARRAY NAMF DD 



7»ll]##ST0PPER«t 
*[25SU #;* 

;* 



61 n#»PR0GRAMDESC*[5in#*X 



14160000 
14161000 
14162000 



000010 
OOOOtO 
000010 



STACKfF+11) = 

STACKfF+12) = 

STACKfF+4) 3 S 
STACKfF+5) = X 
STACKfF+13) s 



STACKfF+14) = 

STACK(F+15) = 

STACKfF+16) = 

STACKfF+17) = 

STACKfF+20) = 

STACKfF+21) = 



AIT 

PRTR 

EGNO 

100 

SPACE 

MFS 

SAGE 
GM 

I 
J 



ARRAY AlTr*U 

ARRAY PRTR[*] i% 

RFAL SEGNO*MOTHER, X B MOM»IOD t% 

REAL SPACFJX SPACE FOR SFGMENT NUMBFRS 
RFAL, MfS,SA6E#GM» % SPACE FOR 

REAL I»j; 



(INTRINSTCS) BY MIX 
NO MEM MESSAGE, 



* t 01 - 



$ SFT 



COMMENT 



OMIT s NOT( 
LABEL EXI 
LABEL WRA 
LABFL OPE 
LABEL COD 
LABEL DLO 
DEFINE R 



MAKEPRESEN 
OF D 
DATA 



NEWLO 

t; I 

P,ARO 
N#CLO 
EJN,I 
OP. N 

fvers 

T HAS 

ESCRI 

DESC 

IF M 



10 

PROG 

J* 

SUBROUTINE R>JN 

REGTN WHILE NO 

OR MEMORY 

END RUNAROUNOJ 



IN A 

descr 

RAM D 



GGING) 
ALL AV 
UND.TE 

SE>* 
NT; 

g; 

e *r?2 
the f 

PTOR C 

RIPTOR 

OTHER 

MOTHE 

THEN 

READ 

Then 
and s 

NY EVE 

ADDRE 

IPTOR' 

escrip 



ENUES MUST 
STREADYJX 



LEAD TO HERE 



OLLOWIN 
AUSING 

*% 
ABSENT 
R PRESp 
IF INIT 
IN FROM 
SET 1ST 
FT 2ND 
NT, SET 
SS.* 
* 
TOR:* 



ADY *n9li]#, 
G ACTIONS, DEPE 
PRESENCE BIT J 

THEN GET CORE 
NT WITH PROPER 
IAL ACCESSfZER 

disk and retu 

memory link t 

link to addres 

COPY PRESENT 



present *r2»nm 

NDING ON THE TYPE* 
X 

SPACE AND SET* 
CORE ADDRESS* 
THE SPACE ELSE* 
RN DISK SPACE* 
SAVE OR NOT SAVE* 
S OF MOTHER* 
WITH CORRECT CORF* 



AROUND'* 

T CPRTRfX] * 

),STOPPER DO 

* 



(CLOC+2) INX PRTRtX 

x •• prtr[X] .link;* 



])* 



* SET OMiT * NOTCNFWLOGGING) 

if (D + M[C]),n in then* 

if n.r6s?3«i Then x type 13 intrinsic 

begtn x»«nntrnsc[segno*mtnf«-nflag(d) inx 0331 

sfgno««segno-i; 

stream{tl«segno and 3* h *t i nt abletplmjx .segno 01 v 433)1 

BEGIN Dl J«DI+TJD1 j.Df+TJSKfP 1 DB; DS laSET ;END; *MARK TYPE 

IF X>0 THFN SLEEP([X3,-0)j 
$ SET OMIT * NOT MONITOR 

if cx inx 0)<i023 then 

BEGIN P(ABSCX)»m»«0> SIZE*X INX 0; 
S SET OMiT = NOTCAUXMEM) 



13 BIT 



14162500 T 000010 

14163000 T OOOOJO 

14164000 T OOOOJO 

14164100 T OOOOJO 

14164200 T OOOOJO 

14164300 C OOOOJO 



14164399 
14164500 
14165000 
14166000 
14166100 
14166200 
14167000 
14168000 
14169000 
14170000 
14171000 
14172000 
14173000 
14174000 
14175000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14183000 
14184000 
14185000 

14185100 
14185199 
14186000 
14186010 
14186020 
14186030 
14186100 
14186110 

14186120 
14186121 
14186130 
14186140 
14186143 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 



OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOOJ 
OOOt : 
0003J 
0007J 

1 

0007J 
0007 J 
0007J 
0014* 
0016 J 
0019J 
0020J 
0023J 
1 
0025J 
00281 
0028J 
0029J 
0032J 




























1 

4183000 

2 

2 

2 

1 



1 

2 

1 

4186110 







1 




diskaddR *» x.[6827); 

MlNE»HlNEtSl7FtB>36il0)&3[ll46l?]) 
I0DI=13; GO TO CODE IM* 
END ELSf BEGIN MtCj,tCF]*INTRNSCrMINE)#tCni 

M[C].[2» 1] »«1* 

go exit; 

END 



12900000 



ACCIDENTAL 



S 

$ 



END ELSF 

BEGfN PRTR * PRTfPlMlX 

DO IE LOC. PROGRAM 

ELSE IF LOC, 

ELSE LOC «• N 

UNTIL SFGNO#OJX 

nD * SEGNO INX PR 

IE DDrO].[3Ji] A 

complexsleePc 

FNTRY AT 1 

IF TFRMSfTCPIMIX 
IF (SIZE * (MINE 
RFGIN DDIOJ , [3: 1] 
IF MiNF<0 Th 
IF PRTR[X 

IE MINF.I2M 
BEGIN X * r I 
IF X>0 
IF (X I 
Si 
OMfT a NOT MONITOR 
OMIT = NOT(AUXMEM) 

DI 
END els 



,*]; LOc * NFLAG(D)R0[5t5«l]) 
DESC THEN SEGNO * LOC . 1 18 1 15 ] X 
STOPPER ThEN SEGNO * LOC.LINKX 
FLAr,(PRTRrLOC»LlNK])« 



TRM3JX 

ND NOTERMSET(PIMIX) THEN 

CTERMSET(PIMIX) OR NOT DDtO] 



[3tl3))l 



) then go initiate; 

* nn[03),ri8ii5])si023 then* 
* i ;* 

en« 

* mine. [8iiO]3. [2iM then go around;? 
] Thenx 

ntrnScimine inx 0]];* 

THEN SLEEP([X]»-0)»* 

NX 0)<l023 THEN BEGIN P(ABS(X)»rX]»*);X 

ze * x inx o; 



SET 
SET 



SKAODR - X,[6»27)| 
F RFGIN LOC * (SIZE 



X INX 0-2; 



CODElNsJ 



DDroi.cFEi 4. size; go around;* 

END>« 

END ELSE IF JARrPlMlX, 103*0 ThEN* 

DISKADDR Is DaTaDDReSS(P1MIX» MINE) 
ELSE DISKADDR !s CODEADDRESS( P 1 M I X » MINE)/ 
I0D;«6xMINE,r2 s l3+(MlNE LSS 0)+i; 
WHILF (LOC*GETSPACECSlZE»IOD»(MINE<0 AND M I NE. C 6l 1 J W66) ) 

b DO 
RFGIN IE TERMSET(PIMIX) THEN 

BEGIN IF MINE. [2U] THEN 

intrnSccmine] >»nabS(«P(dup)); 

IE D.[6«2]«l THEN 

intrnsccD]i«nabs(*pcdup)); 
ddco] .[3iui-0i go to initiate? 

end; 

IF(SPACE>*S&ACE+1)*5 THEN 

BEGIN STREAM(PlMiX,SIZE»T»srMES]); 

BEGIN SI«»L0C P1MIXJ D5a«2 DEO 

DS5»8LlT M NO MEM h ;dSIb5 DEC; 



14186148 T 0032 

14186150 T 0033 

14186152 T 0036 

14186160 T 0037 

14186170 T 0040 

14186180 T 0043 

14186190 T 0044 

14186200 T 0044 



14187000 
14188000 
14189000 
14190000 
14191000 
14192000 
14193000 
14193100 

14193200 
14194000 
14195000 
14196000 
14197000 
14198000 
14198100 
14198200 
14198300 
14198400 
14198410 
14198499 
14198700 
14198800 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



14199000 T 
14200000 T 



14202000 
14203000 
14203010 
14203020 
14203021 
14203100 
14203200 
14203300 
14203400 
14203500 
14203600 
14203700 



14204000 T 

14204100 T 

14204200 T 

14204300 T 



0044 
0047 
0048 
0051 
0054 
0056 
0058 
0060 

0068 
0071 
0073 
0076 
0076 
0080 
0080 
0082 
0085 
0088 
0089 
0089 
0089 
0091 

0093 
0095 



14201000 T 0095 



0097 
0098 
0102 
0105 
0109 
0110 
0112 
0113 
0115 
0117 
0119 
0121 

0121 
0123 
0125 
0125 




1 


1 

4186140 

3 

2 



4186160 



4186020 



2 

3 

3 

2 

2 



2 

3 

1 

3 



3 



3 

3 

3 

2 

3 

3 

3 



4198300 

3 

2 

4198800 

2 

4198100 

2 





1 



3 

1 

2 

3 



1 

2 

4203200 

2 

1 



2 



END* 



DS»a5 LIT » WDS*") 



14204400 
14204500 



P( WAIT IOC t MeS ]. f*l 77, 25 )» DEL) ) 
END) 

SLEEP(tCLOcK],NOT CLOCK)) 



END) 



IF MPS NE« THfN 
BEGIN STREAMfT)=[MES3)) 

REGlN r>nsDH-3)nSla7LlT"0K M^M*" END* 



P(WAlTi0(tMfS]»*l77»25).0EL)l 



FND) 



DlSKfOClOD* -LOcM» S I ZE » DI$KADDR)J X *■ Ml NE , C 8 t 1 J ) X 
SLCEPCr TOP J» IOMASK)! 

IF 100,126)7] NEQ THFN 
BEGIN 
IF M!Nr.C2»l] THFN I NTRNSC t M I NE ] I »NABS( *P (DUP ) ) J 

Doro J • r 3> 13 : = 0; 

GO TO NG! 

END) 

S SET OMtT = NOT(STATISTICS) 

if D.c6i 2i>i Then 

RFGIN M[C3.tCF)*L0C+2l 

MtC3.t2M3*l) 
GO TO INT) 
END) 

IF MlNF>0 THFN REGlN RUNAROllNO)X 

MTC3 * ((L0C + 2) iNX D) OR MpMORy)X 



INT» 



IF My Ne, f 2: 1 3 THFN* 

BEGIN MtL0c3 * ( *P( DUP ) )&0[ 9 ) 9 16 ] ) X 

INTRNSCtMINF INX 03 * -< *PcDUP ) H (LOC+2) [CTC 3 ) X 

END ELSE* 

!F (X «• PRTR[43,tl8»63)#0 THEN* 
MtLOC] * (*P(DUPmX[9i42t6]|I 

IF DISKADDR>0 THFN MtLOC+U J « & SIZECCTF3) 

MTLOc+1] »■ (*P(nUP)) & SEGN0CCTC3) 
TF MJNF.C2M] ThEN M[L0C + 13 * ( *P( DUP ) )&M I NE[ 8 t 38 » 10 ] ) % 
IF D.I6J23M THFN 
BEGIN M[L0C].t2ll)*0j G0 EXIT) 

END) 

D0r0],Cl8ii5] * L0C+2)X 

END PROGRAM CODF SEGMENTS* 

FLSe BEGIN 

MCC3 * PRTRTX3 * M OR C(L0c+2)X 

&(M[L0C + 13 .♦ [PRTRCXIJ jNX 0) [ 18 1 33 J 153X 

& CMINE.17"! |]x24) [3«43l5] X C0B0L68 READ ONLY 

&SlZEr8l38llO]))X 



14204600 T 

14204700 T 

14205000 T 

14205100 T 

14205200 T 

14205300 T 

14205400 T 



14205500 
14205600 

14206000 
14206100 
14206110 
14206120 
14206135 
14206140 
14206145 
14206160 

14206299 
14206310 
14206320 
14206330 
14206340 
14206350 

14207000 
14208000 
14208010 
14209100 
14209200 
14209300 
14209500 

14210000 
14211000 
14212000 
14212010 
14212100 
14212200 
14212300 
14212400 

14213000 
14214000 

14215000 
14216000 
14217000 
14217500 
14218000 



T 
T 

T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 



0127 
0128 

0128 
0129 

0129 
0131 

0132 
0132 
0134 

0135 
0137 

0137 
OHO 
0142 
0143 
0144 
0147 
0148 
0149 

0149 
0149 
0150 
0153 
0156 
0157 

0157 
0159 
0162 
0162 
0162 
0166 
0169 

0169 
0171 
0175 
0178 
0181 
0186 
0187 
0191 

0191 
0192 

0192 
0193 
0195 
0198 
0199 



;o 
o 

4204200 

1 

3 

4204100 

3 

2 

4203100 



3 



4205400 

3 

1 

4205300 

1 

3 

1 

2 





3 

1 

4206120 

1 

1 

2 

3 

2 



4206320 









3 



1 

4209200 

1 

3 



3 

2 



1 



4212300 



3 

4207000 

3 

1 

2 

1 

3 



IF M1NE.I61I] THFN % C0B0L68 FILF TANK 

IF NOT P(MU0C + 4]»T0P.XCH»DEL) THFN* BUILD FIP PTR 
BEGIN 

P([M[LOC+«J J>QUPtDUPtLOD»XCH» INX>M[CJ»FFX. 
Pl00026»DlA 32#DIB 2»TRB 16,XCH»*)» 
WHILE (AlT«-PRTRtAlTNOX3),PBIT»0 

DO MAKEPRESENT(tPRTR[A!TNDX]3 I NX 
IF All .[8U0] < AlT[0]+2 THEN 

BEGIN PCAIT«0,0)> INTFRRUPT ( 1 ) i % 

PCDEL»DEL»DEDJ * 

AIT * PR1R[AITNDX]J 

ENn> 



0)J 

PHONEY INVALID 
INDEX ON AIT 





XlOl 




*101 




* 1 1 


I + 


11X101 


DO 


X101 




XlOl 




X101 




XlOl 




XlOl 



IF AlTUITtO]), [8110] NEQ 1 THEN 
BEGIN 

I := 1; 

WHILE A I T C I J.tfi: 101 s l DO I l« 
FOR J »* AIT[0] STEP -1 UNTIL I 
AITCJ + U J* AIT[J]J 
ENr) ELSE I l* AIT[0] + U 

AITCO] := *P(DUP) + II 

AITCIJ '•- -(1 d 1C8I38I 103 & M[C1[FTFJ)» 

end; 

* SET OMTT = NOT(STATlSTjcS) 

FND TYPE TWO DATA SEGMENTS?* 

IF NOT MINE. [6113 THEN M[L0c3.[2«13 * 0| 
END ABSENT SEGMENTS* 

ELSE BFGIN LOC * SIZf"2;X 
AROyNnt IF OD[0]>0 THFN* 

IF NOT PRTR[X ♦ nDtOl.c8ilOj3.[2>l] THEN RUNAROyNDIX 
MrC] «• IF DDrO]>0 THEN CCSIZE I NX D) OR M)X 
ELSE PRTR[DD[0],r8»lO]]|* 

end;* 

IF DDr01.[2!13 THEMX 
BFGIN * INTRINSIC 

IF CSIZES»(DDC0] INX 0)-l) NEQ 16 THEN *N0T INTRINSIC \7 
BEGIN 

STREAM(SEGN0, T * SIZf AND 3.X 

I * t iNTABLFtPlMIXt SIZE DI V 4]])JX 
BEGIN 

ST * * I S SpsSj+T* S I * *S 1 + T * SKIP 1 SBJ 

IF SB THEN; * REMEMBER TYPE 13 REFERENCE 

di«sdi+t; i t »o 1 + t * ti«dt* sh»loc tj 

Sl«aSl-2* dS;«2 chr; 

if toggle then begin dij.ti skip 1 dbj ds»»sfti end? 

end; 

ENDS 

end;* 



1421 
1421 
14?1 
1421 
1421 
1421 
1421 
1421 
1421 
1421 
1421 
1421 



8010 
8025 
8027 
8030 
8035 
8040 
8045 
8050 
8055 
8060 
8065 
8070 



14218072 
14218074 
14218076 
14218078 
14218080 
14218082 
14218084 



14220000 
14221000 

14222000 
14223000 
14224000 
14225000 
14226000 
14227000 

14227100 
14227200 
14227210 
14227220 
14227300 
14227400 
14227500 
14227520 
14227540 
14227560 
14227580 
14227600 



14218086 C 

14218088 C 

14218090 T 

14218099 T 

14219000 T 



14227620 T 
14227630 T 
14227700 T 



0202 
0203 
0206 
0207 
0210 
0212 
0213 
0218 
0220 
0222 
0223 
0224 

0224 
0226 
0226 
0227 
0231 
0235 
0237 

0239 
0241 
0245 

0245 
0245 

0245 
0249 

0249 
0251 
0252 
0256 
0259 
0261 

0261 
0262 
0262 
0264 
0265 
0266 
0268 
0268 
0269 
0270 
0271 
0272 

0273 

0273 

0273 



3 
2 
2 


3 
I 
3 


1 

2 

1 

1 

42J8055 

1 



2 

1 





2 

4218074 

2 

2 

1 

4218027 

1 

1 

4215000 

1 

2 

4195000 

2 

1 





1 

1 

4222000 

1 



2 

3 

1 

2 

1 

1 

3 

1 

3 

1 

4227600 

1 

4227500 

2 

4227220 

2 

4227200 



OD[0],r3M ] * 0; GO EXfTJ 



endjk 

if (mom:=d,[3 ?53)#0 and (mom and «»33)*p30 then 

BEGIN* 
COMMENT I/O DESCRIPTOR!* 

if jaR[pimix,2j < o then 

BEGIN TeRMtNaTE(P1MiX)j 

TERMINALMESSAGE<25)> 
END? 



14228000 T 
14229000 T 



TESTREAnYl 



OPfNl 



COMMENT RFAOY 



MOM*- 
IF NO 
IF MF 

ELSE* 
BEGIN 
IF Mp 
BEGIN 



MFMORYCD ?NX (IF DtREVERSE THEN 2 ELSE NOT 1)]% 

INX OU 
T MEMORYCMOM],READY theni 

SL,EEP([MEMORY[MOM]] > lOMASK)i?; 
MORY[MOMJ f PRESENT THEN* 

MEMORYCCl*MFMORY[MOM]« 

X 

M0RYtM0M3,N0T0PEN THENI 
SAVEOPEN(MOM)J IF TERMSFT(PIMIX) THEN GO EXIT) 
GO TESTREADY END 



ELSE BEGIN* 

AND NOT PRESENT INDICATES REEL-SWITCH OR TERMINATE!* 
PRTR«-M[M0M-3]!* 
L0c*PRTR[15].[25:5];X 
SIZE*PRTR[41.C8U3U 
IF M[M0M],t27ll] THEN* 
IF M[M0M],r2«»l] THEN* 

BEGIN IF SlZF*2 AND NOT PRTRt 4 ] , C2 ) 13* 
AND NOT MCM0Mj,i22il] THEN* 
BEGIN BLASTQ(LOC)»* 

P(WAITI0(M[M0M-2].0.L0C)»DFL)!X 
P (WA I TI0(?1 00000034000000 5,0,L0C) .DEL).** 
IF M(M[M0M">2] INX 4],[42l6]>l THEN* 
CLOSE' BEGIN LOC*PRTR[ 1 3 ] , t 28 1 10 3 ; X 

FlLECL0SE(MOM&?12ri8:33!15])?X 

PRTR[133.r28ll03*LOC+li* 

GO TO OPEN!* 



END!* 



end;* 

END ELSE* 



BEGIN 



IF SiZe*2 OR SIZE"7 OR SIZE«8 THEN* 
BEGIN IF NOT PRTRt 4 3 1 [2 I 1 3 THENX 

MrM[MOM*23 INX 43 . [42 I 63 *1 J * 
GO TO CLOSEI* 
END!* 



end;* 



P(MOM#M[MOM3.[27H3 + 1»0»0)1X 
C0M1U* 

end;* 



14230000 
14231000 
14232000 
14233000 
14233100 
14233200 
14233300 

14234000 
14235000 
14236000 
14237000 
14238000 
14239000 
14240000 
14241000 
14242000 
14243000 
14244000 

14245000 
14246000 
14247000 
14248000 
14249000 
14250000 
14251000 
14252000 
14253000 
14254000 
14255000 
14256000 
14257000 
14258000 
14259000 
14260000 
14261000 
14262000 



14265000 
14266000 
14267000 
14268000 
14269000 



T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



14263000 T 
14264000 T 



14270000 T 

14271000 T 

14272000 T 

14273000 T 



0273«2 
027513 

14187000 
027610 
027911 
027913 
027913 
0281H 
028212 
0283U 

14233100 
0283)1 
0286 '1 
026810 
0289J3 
0292U 
029313 
0295U 
0296(2 
029710 
0298*2 
030113 

14243000 
03021 1 
0302S3 
030213 
030413 
030611 
0307)3 
0309(1 
031H1 
031213 
031610 
0317)1 
0320»0 
0321)2 
0325)1 
0327H 
032812 
033112 
0333:0 

14258000 
0333)0 

14254000 
0333)0 

14252000 
0333)0 
033611 
0338)0 
0343)0 
0343)2 

14266000 
0343)2 

14265000 
0343)2 
0346)1 
0346)3 

14245000 



END?* 

END* 

FLSE* 

RFOINI 
COMMFNT n*TA DESCRIPTOR?* 
DLOOP: 

IF f MOTHER*MEMORYfMOM * D . t 1 8 1 15 ] ] ) , t 2 t 1 ] THEN GO WRaP?* 
TF CHOTHfR I MX 0) * 6 THFN % I/O ERROR FROM OLAY 
BEGIN 

TERMINA7E(P1M1X & 20[CTf3)? 
GO TO INITIATE? 
FNDJ 

IF (MOTHER INX 0) = 5 THEN % INTERLOCK FROM OLAY 
RFGJN 

C0MPI,EXSLEEPC((MIM0M] INX 0) NEQ 5))? 
14193100 ACCIDENTAL fNTRY AT 5 

GO TO DLOOPj 
FNHJ 

SAVFBIT «• MOTHER. TCF]*1? 

MFMORYfMOM] «■ MOTHEfUCCLOC *GETSP ACEC S I ZE*MOTHER . I 8 U ] , 2 . % 

SAVEBin6*>) + 2)tCTC3*l[2l47tlJI 
$ SET nMfT ■ NOT(AUXMEM) 

IF MOTHER. [CF3<3 THEN 

STREAM(L*L0c+2» S-SIZf"! # T*0, W*CMOTHER . t CF J»2) ) I 

BEGIN SI * LOC S;SI*SI + 6?DI*L0C T I D I *D 1 + 7? DS*CHR J 3! 

DI*L? SI*LOc W? DS*WDS> 

St*L» T(DS*3? WDS? DS*32 WdS)? DS*S WOS?% 

END ZERO SPACE* 

FLSF* 

BFGINX 
COMMFNT RFAO ARRAY F&0M DISK AND RETURN DiSK SPACE?* 
* SF.T OMIT = NOT(STATlSTicS) 

DfSKlOC I OD#-L0C-lf MOTHER. C8U03.I 

DATADDRESSCPlMiX, MOTHER))? 

SLEEPCf I00]»I0MASK)I 
IF I0D.C26S7] NEQ THFN 
BEGIN 

NG* FORGETSPACECLOC+2)? 

COMPLEXSLEEPCTERMSETCPlMIX))? 
14279550 ACCIDENTAL fNTPY AT I 

GO TO INITIATE? 
END? 

$ SET OMIT * NOT(STATlSTicS) 

MOM«-MOM&MOTHERrCTF]J 
END 1% 

MFM0RY[L0CJ.[2HJ «■ SAVEBIT?* 
MFM0RY[L0C+1] + MOM i% 
$ SET OMyT " NOT(STATISTICS) 
WRAP?* 

MEMORYfC] «- IF D.fSSlO] = THEN P( M[ MOM ] ,0 , CDC »D# XCH. I NX ) % 



14274000 


T 


0346 


»3 

14241000 


14275000 


T 


0346 


:3 
14231000 


14276000 


T 


0346 


»3 


14277000 


T 


0346 


13 


14278000 


T 


0347 


«t 


14278100 


T 


0347 


11 


14279000 


T 


0347 


11 


14279150 


T 


0351 


10 


14279200 


T 


0352 


11 


14279250 


T 


0352 


13 


14279350 


T 


0354 


(0 


14279400 


T 


0354 


12 

14279200 


14279450 


T 


0354 


12 


14279500 


T 


0355 


13 


14279550 


T 


0356 


n 


14279600 


T 


0363 


10 


14279650 


T 


0363 


2 
14279500 


14280000 


T 


0363 


(2 


14281000 


T 


0365 


il 


14282000 


T 


0368 


to 


14282099 


T 


0371 


3 


14?83000 


T 


0371 


13 


14284000 


T 


0373 


!0 


14285000 


T 


0377 





14286000 


T 


0378 


11 


14287000 


T 


0379 


10 


14288000 


T 


0381 



14285000 


14289000 


T 


0381 





14290000 


T 


0381 


1 


14291000 


T 


0381 


3 


14291099 


T 


0381 


3 


14292000 


T 


0381 


3 


14292100 


T 


03841 





14292110 


T 


0385. 


2 


14292120 


T 


0387 





14292130 


T 


03881 


1 


14292140 


T 


03881 


3 


14292150 


T 


0390 





14292160 


T 


0396) 


2 


14292170 


T 


0397 



4292130 


14292199 


T 


03971 





14293000 


T 


03971 





14295000 


T 


0398! 


1 
4290000 


14296000 


T 


0398« 


1 


14297000 


T 


04011 





14297099 


T 


04031 





14298000 


T 


04031 





14299000 


T 


04031 






FNDJ* 



ELSE MEM0RY[M0M]U 



FXTTJ 
S SFT 



OMiT = NOT(NFWLOGGING) 
FND MAKEPRFSEMT ;« 



14300000 
14301000 

H301100 
14 301199 
14302000 



T 040783 
T 040913 

14277000 
T 0409:3 
T 0409»3 

T 040913 

14156000 
SIZF* 0411 WOROS 



RFAL APDRSbNTIIS! 14342000 T 0000:0 
PRT(160) a ADDRS 

PROCEDURE ZlPPERfA,R,C>J VALUE A,B,C* REAL A,B,C* FORWARD? H342100 T 0000*0 

START OF REL SESMpNTl DISK ADDRESS » 00411 
PRT(6?2) s 7IPPER 

PROCEDURE C0M5JS 14343000 T 0000*0 

START OF REL SEGMENT* DISK ADDRESS * 004U 

BEGtNX 14344000 T 0000*0 

RFAL RCW = + 0»15 14345000 T 0000*0 



STACKfF+O) = RCW 

STACKfF+2) s ERTOG 

STACK(F+3) s I 

STACKfF+4) = T 

STACKfF+3) s J 

STACKfF+5) = VECTOR 
STACKfF+6) = S 

STACKfF+6) = Q 

STACKfF+7) = FILEBLOCK 

STACK(F+151 ■ TSKA 

STACKfF+i) = Link 

STACKfF+10) = MOTHER 

STACKfF+11 ) * NEXTMOM 

STACKfF+1?) * MOMMlX 

STACKfF+135 = CATCH 

STACKfF+12) « ENDAIT 
STACK(F+1?) * A 
STACK(F+11) * K 

STACKfF+14) a CHAIN 
STACK(F+14) * ABSEVT 

STACK(F»1) ■ MSCW 



ERTOGs+?#X 14346000 T 0000*0 

1 » + 3»* 14347000 T 0000*0 

T = + 4»X 14348000 T 0000*0 

INTEGER J«IJX 14349000 T 0000*0 

ARRAY VECT0R**5C*]#S*+6[*] ;% 14350000 T 0000*0 

INTEGER Q*S? 14350100 T 0000*0 

ARRAY F!LFBL0CK*+7[*) *X 14351000 T 0000*0 

ARRAY TSKAa+l3r*]» 14351050 T 0000*0 

TNTFRER LINK* LABFL RETURNpM* 14351100 T 0000*0 

INTFGER M0THER»+8, NpXTM0M»+9, M0MMIX»+10, CATCH«+11U 14351200 T 0000*0 

REAL ENDAlT=MOMMIX»AsMOMMlXfK=NEXTMOMi 14351205 T OOOOlO 

RFAL CHAINx+l2.ABSEVT=CHAJN* 14351210 T 0000*0 

RFAL MSCW * -1* 14351220 T 0000*0 

REAL JAR9 * TSKA + U X519- 14351230 P 0000*0 
STACKfF+16) * JAR9 

$ SET OMjT s NoT(WORKSeT) 14351240 T OOOOJO 

REAL ST0PMIX«JAR9+1 J LABEL STOPLOOP* 14351250 T 0000*0 
STACK(F+17) * STOPMIX 

S POP OMIT % WORKSET 14351260 T 0000*0 

SUBROUTINF DELJNKITJ 14351300 T 0000*0 

BEGIN T * «M T 1 3 INX 0* 14351310 T 0001*0 

IF NOT M[TJ.[4IU THEN SLEEPc [ Mt T ]] ,$200000000000000 ) * 14351320 T 0003*0 

MtTJ.t4Mll-0l 14351330 T 0007*1 

IF M[i],[2*n THENliN CONTROL 14351340 T 0010*0 

BEGIN MTT1, tCF]tBM[i),rFF]« 14351350 T 001112 

IF (MrT] INX 0) NEC THEN M[MtT3 INX 0] t t?Hl«»l 14351360 T 0015»2 

ELSE M[T3*=ABSfM[T])J!KUNL0CK IT 14351370 T 0020*0 



FND ELSE* IN WAIT QUEUf 

REGIN TS«M[T3 JNX Oj 

WHILE Mm.tFF] NEQ (I INX 0) DO 
Tt-MtTl, CFF3I 

Mrn.[FF]l««C|].[FF]» 
fMO! 

M[T ] . C4I 1 ] tel I 

ENDJ 

PRYORtPlMlX) ♦ -1; 
P((ADnRSJsGETSPACE(196,12,0))+l»STS#,C0M5»RCW#0#RDS»0#XCH»CFX# 

STF) : 

P(P«[MSCW][CTF]»0»0»0»0#0,0)J 

P(0,0.0»0,0.0»0)> * ZERO FJLFBL.OCK THRU JAR9... XI 72- 

* SET OM|T a NOTCWORKSET) 

P(0)J % STOPMIX 

* POP 0MjT * WORKSET 

Mr(FlLERLOcK*PRT[PlMiX,33) INX 0-2], [9:6] ♦ OJ* 
MrADDRSJ«-f*P(DUP))40r9i9l63; 

Mr(VECTOR*JARROWCPiMjX]) INX 0-23 *(*P (DUP) )&0[ 9 5 9 I 6 ] J 
IF VFCTOR[0]<0 THFN* 

REGIN CATCH*PRT[P1MIX»?263; 

FRTOG * (VECTORrn<0) OR (PRT [P 1M I X . P?5]*0 ) J * 
END I 



14351380 T 



IF VECT0R[2] .C6ll ] THEN * I PC 
BEGIN IF VErTOR[l]<0 THEN * DS-fD TASK 
BEGIN WhILf CS*PRTtPlMIX»AlTNDXn,PB!T»0 DO X 
MAKfPReSeNT( PRTROWtPlMlX] jNX AITNDXJJ 

MFMORY[S INX NOT n.t?»13 * II 

ENDA|T ♦ SCO]J 

FOR K*1 STEP 1 UNTIL ENDAIT DO 



SEARCH AIT FOR 
% TASK ARRAYS 
% MARK SAVE 



BEGIN 



TSKA «• MEM0RYC(NT1*S[K]).M0M3; 

IF NTl.HlpJ.3 Then if % dependent task 

f ( NT?*TSKAr 33 )"1 OR CNT2s2 AND TSKAT 4 ]*Pl M I X ) ) THEN 

* TASK ARRAY OF A SCHEDULED OR RUNNING OFFSPRING 
BEGIN IF NT2M THEN 
BFGIN 

SHEETDIDDLERC0t20.TSKA[<U); % ES 
ENDJ 

IF TSKAr33»2 THEN * RUNNING 

BFGIN 

TFRMlNATE(TSKAt4]&86[CTF3)J HALTJ % DS 
NOPROCESSTOG *■ NOPROCESSTOG-l J 
ENDJ 



14292150 



ACCIDENTAL. fNTRY AT 



ENDJ 



C0MPLEXSLEEP(CTSKAT3J LSS 0))J 



ENDJ 



14351390 
14351400 
14351410 
14351420 
14351430 

14351440 
14351450 

14351500 
14353000 
14353002 
14354000 
14355000 
14355020 
14355030 
14355040 
14356000 
14357000 
14358000 
14358100 
14358150 
14358200 
14358300 

14358310 
14358315 
14358320 
14358325 
14358330 
14358335 
14358340 
14358345 
14358355 
14358360 
14358365 
14358370 
14358373 
14358375 
14358377 

14358380 
14358382 
14358383 
14358384 
14358385 



T 
T 
T 

T 
T 

T 
T 

T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 



14358386 T 



0026J2 

14351350 
0026«2 
002910 
0032»0 
003412 
0038J0 

14351390 
0038J0 
0040*3 

14351310 
0041«0 
0042»3 
004712 
0048J0 
0050:0 
005l«3 
005l»3 
0052:0 
0052»0 
0057:0 
0059:3 
006411 
0065 :i 
0067:1 
0070J2 

14358150 
0070:2 
0071." 2 
0073*0 
0076:2 
0078*2 
0082: 1 
0083: 1 
0084(0 
0087:0 
0088:3 
0092:2 
0092*2 
0093«3 
0094:1 
0095:3 

14358373 
009513 
0096:3 
0097JI 
0099:1 
0100»2 

14358382 
0100(2 



ENDJ TF VFCT0Rr2l,(5»l] T H EN S0 F Ti ♦ S0 F Ti-1( 



14358389 T 0106:0 

14358370 

14358390 T 0l06»0 

14358345 

14358391 T 0108U 

14358320 



IF (TSKA«-PRT[P1MIX»TSX]).PBIT THEN 
BEGIN TF TSKAt6)al THEN TSKAf7]j*l* 

IF( !»«TSKAr5]) NEQ T H EN BEGIN I I • [ PRT [ Pi M I X, I ] ] I NX 0* 
0rUNKjTlWHaE(M«htT].[8«i0]) NEC DO 

BEGIN T *er PRTfPlMiX, I J ] jNX OlDELlNKlT END END? 

IF ( I«-TSKArfl].rCF])/0 THEN % SOFTWARE INTERRUPTS DECLARED 
BEGIN IF NOT TSKA[8],[4MJ THEN 

SLEEPf CTSKAr8]]tP200000000000000); 

iSKArB].[4H] * o; 

DO X DETACH SOFTWARE 



BEGIN 



IF 



- DETACH SOFTWARE INTERRUPTS 
(ABSfVT»PRTCP1M!X#I],[FF]>#0 THEN 

BEGIN WHILE NOT M[ ABSEVT ] , [ 5* 1 3 DO 
ABSFVT «« M[ABSEVT3.tFF3* 

if MUBSEvmo then 

SLEEP(CM[ABSEVT3]»P2000000000000000); 

MfABSEVT] ♦ P(LOD»DUP»SSP)J 

T «• (K*PRTrPiMlX.l3),[FF3l 
A * [PRT[P1MIX,I33 ! NX 0} 

Uutl r UrTl rrrl Jl nn T Li m t t . _ _ « t 



fnd; 



while Mt tj . tffj^a do t * mcti.cffji 

M[T3 f [FF3 «• K,[FF3J 
M[ABSEVT3 * P( DUPt L00» SSN) I 



I * PRTfPlMrX.I J.CCF3J 
END UNTIL 1=0; 

TSKA[8],[4il] ♦ U 



end; 



TSKA[3]ls-U 
FND; 

END; 

JAR9 U VFCTOR[93j 

CHAIN ♦ OjVECTOR[9JtFTc)*VFCTOR[13[lllU]| VECTOR [ 93 ,[ FF3 * 
SFT OMIT = NOT(BHEAKOUT) 

IF VFCTOR[2]<0 THfN % COBOL 
IF VFCTORtU>0 THEN % NOT DS-ED 
WHILF PRTrPlMlX.163>0 DO ASR;*CLEAN OUT A I T 
IF VFCT0R[13>0 THFN I NOT DS-EO 
FOR M0MMIX»«6 STEP 5 UNTIL H DO 

BFGIN Ol»NFLAG(Pt»TtPlMIXiMOMM|XJ)l % AIT OR OAT ENTRY 
IF Q,t2M3 ThEN % PRESENT. GRAB ADDRESS FROM LINK 

:* Q & MtQ INX NOT 03CFTC3; 
IF 0. C 33 1 3]«7 THEN % AUXILIARY MEMORY IN THE ACT 

DISKRTN<Q.[CF3, Q,[BllOJ)l 
IF VECTQRC23<0 ThEN MOMMIXj.IU % COBOL HAS NO OAT 

end; 



o; 




14358392 
14358393 
14358394 

14358395 
14358397 



14358398 
14358400 
14358450 
14358460 
14358550 
14358580 
14358582 
14358584 
14358586 
14358588 
14358590 
14358595 
14358597 
14358598 
14358600 
14358605 
14358610 

14358615 
14358620 

14358625 
14358630 

14358640 
14358650 



14358710 
14358800 
14358999 
14360100 
14360200 
14360300 
14360310 
14360320 
14360330 
14360340 
14360350 
14360360 
14360370 
14360380 
14360390 

14360400 
14360500 
14360600 
14360700 
14360800 



14358700 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 



0111*0 
0113*0 
0116*1 
0120*1 
012410 

14358397 

14358394 
0127*2 
0129*2 
0131*1 
0133*2 
0136*0 
0136*0 
0138*2 
0141*1 
0145*0 
0146*2 
0148*3 
0151*0 
0153*3 
0155*3 
0162*0 
0164*3 
0166*3 

14358582 
0166*3 
0168*3 

14358580 
0170*0 
0172*2 

14358400 
0172*2 
0174*0 

14358393 
0174*0 

14358315 
0174*0 
0175*0 
0179*3 
0179*3 
0180*3 
0182*1 
0185*3 
018613 
0188*0 
0189*3 
019012 
0193*3 
0195*0 
0197*2 
0199*3 

14360330 
0202*0 
0204*2 
0206*0 
0208*0 
0210*0 



s 

$ 



SET 
SFT 



OMIT 
OMjT 



FORGFTUSERO I SK(SC NEXT MOM ],-500)l 
SLEEP UTOGlE^STOREM ASK )) 
MOTHER * (MOMMIX * (NfXTMOM • * 

PRTtPlMlX.4],t I8i 123 ) t [3616] )«P1MIX|* 
NFXTMOM *■ NFXTMOM AND 9771% 
NOTCAUXMEM) 

NOTCDEBUGGING AND AUXMEM) 
WHlLF(T*Mr ID.ICJI * DOX 

BFGfNX 

if t > o then % in use area 

IF T.AREAMlXF * PtMlX THEN % IN USE 
IF MOThFR AND (P(T, AREATYPEF»DUP) 
OR PfXCH) * SEGDICTAREAV) THEN 



X167- 

BY THIS MIX 
« CODEAREAV 
% GIVE CODE 



Mri],AREAMfXF «* 
ELSf 

forgftspacfci inx 
i » = t.akfafwdlinkfj 

fNDU 



Oj* 



NFXTMOM 



?)l 



X TO NEW MOM 



X167- 
X167. 
X167- 
S167- 



S SET 

S SFT 



OMIT 
OMIT 



INTA8LER0W[PlMlX] 
NOT(BREAKOUT) 
NOT(BREAKOUT) 
IE NEXTMOM/0 THEN BEGjNX 
IE MOTHER THfNX 

IF PRTtNFXTM0M,4].[24*6]«P77 THEN* 
NFOrtNEXTMOM-nxNDX + l] «■* 
PRTINeXTmOM.4] * (*P(DUP))&0tl8»l8«153X 
ELSE BEGIN MOTHER * NEXTMOM;* 

00 UNTIL (MOTHER ♦ ( PRT [ MOTHER* 4 J +% 
NFOr(MOTHFR-l)xNDX + l ] «•* 

(*P(DUP) )8NEXTM0M [18U2I 61), [241 63 )»P77 1 1 
END* 



-% 



S SFT 



t SET 



OMIT 

IE 

OMIT 



$ POP OMIT 



ELSE BEGIM 

IE (PRTtMOMMIX.4], [ 24 16 ]-Pl M 1 X) AND* 
NFXTM0M*P77 THEN NEO[ CMOMM J X- 1 )xNDX+ 1 J 
PRTrM0MMjX»4] * ( *P( DUP) )&0[ 18 t 18 115] * 
ELSE BEGIN* 

nO BEGIN MOTHER * MOMMIXJ 

MOMMIX ♦ PHT[M0MMIX*41.[24S6J|X 
FNn UNTIL MOMMjXsPlMlX** 

NFOt(MOTHER-l)xNDX+n +% 
PRT[M0THER»4] <■% 

( + P(DUP))&NEXTM0M[24U2»6]J* 

END ENDJ* 



NFOt(PlMlX-l)xNDX+l] *■% 

prt[p1mix.«3 *• c*p(dup)h0[18»18i15jj* 
end;* 

= notcauxmem) 

VECTORr23.[8«lO]# THFN* 
» STATISTICS 

FORGFTSPACE(DIRFCTORYSEARCH(ABS(VECTOR[OJ)#IF VECTORfO]<0 
THEN "DISK M ELSE ABS( VECTOR! 1 ) > , 13 ) ) J 



14360900 


T 


0212 


11 


14361000 


T 


0214 


U 


14361100 


T 


0215 


13 


14361200 


T 


0215 


13 


14361300 


T 


0219 


13 


14361309 


T 


0221 


to 


14361512 


T 


0221 


10 


14362000 


T 


0221 


10 


14363000 


T 


0224 


to 


14364100 


C 


0224 


10 


14364200 


C 


0224 


t3 


14364300 


c 


0226 


12 


14364400 


c 


0228 


12 


14364500 


c 


0230 


to 


14364600 


c 


0231 


13 


14364700 


c 


0233 


11 


14364800 


c 


0235 


JO 


14367000 


T 


0236 


14363000 


14367100 


T 


0236 


«3 


14367199 


T 


0238 


10 


14367999 


T 


0238 


10 


14370010 


T 


0238 


10 


14370020 


T 


0239 


11 


14370030 


T 


0239 


12 


14370035 


T 


0242 





14370040 


T 


0244 


12 


14370050 


T 


0246 


1 


14370060 


T 


0248 


3 


14370065 


T 


0249 


3 


14370070 


T 


0251 


3 


14370080 


T 


0256 


11 
14370050 


14370090 


T 


02561 


1 


14370100 


T 


02561 


3 


14370110 


T 


02581 


3 


14370115 


T 


02621 


t 


14370120 


T 


02641 





14370130 


T 


0265! 


3 


14370140 


T 


02661 


2 


14370150 


T 


0268 


12 
14370130 


14370155 


T 


02691 


3 


14370160 


T 


02711 


3 


14370165 


T 


02721 


3 


14370170 


T 


02751 


1 

14370120 
14370090 


14370180 


T 


02751 


1 


14370190 


T 


0277J 


1 


14370200 


T 


02801 


1 

.4370010 


14370299 


T 


02801 


1 


14371000 


T 


02801 


1 


14371999 


T 


02811 


3 


14372000 


T 


02811 


3 


14373000 


T 


02841 





14373001 


T 


02871 


1 



14358386 



S SET OMIT = NOT(STATISTICS) 

IF VfCTOR[2].[8{103 = 1 THEN % COMPILER ON COMPII.F AND GO 

BFGIN* 

IF fRtOg-o then* 

8FG1NX 

COMPLEXSLEEPff SCHEDULE I DS#NOT 0) AND 
SHEETFREE)? 



ACCIDENTAL rNTRY AT i 



LOCKTOG(SHEETMASK)! 

S4.tMC6ETSPACE(3l»2»0) + 2]]»30[8l38il0]j 
D?SKlO(T»-(S INX 0-1), 30, 

VECT0RC2],tFFJ>! 
SLEEP(tT]#lOMASK)J 
STREAM(A*0«B*P( ,SCHEDULEIDS))J 

RFGIN s i *b* 

47CSKJP SB? SKIP DBS T ALLY*TALLY* 1 ? 
IF SB THEN BEGIN END % 

FLSE JUMP OUT)? 
DS-SET? a*tally; 
END STREAM? 

T * PI St3] * 0iT[8»38» 103? 
Sf253 *• CATCH? 

Sr23].t2«»2ft]*(CL0CK+P(RTR))DlV 60? 
DlSKjO(T»+CS INX 0-1), 30, 

VECT0R[2] # [FF])? 
SLEFP(tT3»lOMASK)| 
I *■ IF S[l8] > MIXMAX THEN mixmax 

ELSE St 181 1 
IF SHEETtU.CCF] * THEN 
BFGIN DlSKIO(T,-(S INX 0-1), 30, 

SHEETCI3.CFF3)? 
SLEEPC[T]»IQMASK)J 
S[291 * VECTORf 23 , CFF31 
DISKI0(T,+(S INX 0-1), 30# 

SHEETCI3.CFF3)? 
SLFEP(tT3»l0MASK)? 
END ELSE SHEFTCI3 * VECTORt 23 . [ FF3 ? 

SHEETCI3,rFF3 ♦ VECTORt 23 . t FF 3 ? 
UNLOcKTOfi(SHEETMASK)! 



FORGETSPACECS INX 0)|X 



fNd* 



X165- 



else begin* 
Returnemj 

S*rM[GFTSPACEC 31,2, 0) + 23 3i30t8l 38m 0]? 
DISKI0(T.-(S INX 0-l),30,VECTORC23.[FF3)l 
SLfEP(rT3» IOMASK); 

F0RGETe5P0ISK<VECT0RC2 3,C18U5])II 
LINK * S[l33l 
WHILE LINK^O DO 

BEGIN DISKI0(T»*(S INX 0-1 ) , 30, L J NK ) I 
SLEEP(rT]» IOMASK)? 



14373099 
14374000 
14375000 
14376000 
14377000 
14378000 
14378100 



14379000 T 



14380000 
14381000 
14382000 
14383000 
14383100 
14383200 
14383300 
14383400 

14383450 
14383500 
14383600 

14383700 
14383740 
14383750 
14383800 
14383900 
14384000 
14385000 
14386000 
14387000 
14388000 
14389000 
14390000 
14391000 
14392000 
14392500 
14393000 
14394000 

14395000 
14396000 

14396100 
14397000 

14398000 
14398500 
14398600 
14398700 
14398600 
14399000 
14399100 
14399200 
14399300 
14399400 



T 0287*1 

T 0287*1 

T 0288?3 

T 0289*1 

T 029010 

T 029012 

T 029012 

0297«0 

14379000 

T 030012 

T 030310 

T 030613 

T 030810 

T 030912 

T 031013 

T 031110 

P 031210 

14383400 

T 0312»2 

T 0313«2 

T 0314*0 

14383200 

T 031411 

T 031710 

T 0318*1 

T 032113 

T 032410 

T 0325»1 

T 0326*3 

T 0326*2 

T 0330*0 

T 0331*2 

T 0334*2 

T 0335*3 

T 0337*1 

T 0339*1 

T 034112 

T 0342J3 

T 0344*1 

14388000 

T 0348*0 

T 0350*3 

14396000 

C 0354*1 

T 0355*3 

14377000 

T 0355*3 

T 0356*1 

T 0356*1 

T 0360*0 

T 0363*3 

T 0365*1 

T 0366*3 

T 0367*3 

T 0369*0 

T 0372*0 



fnd; 



FORGETeSPDISKCLINK)* LINK •■ S[29]; 



t SET 
S SET 



OMJT 
OMIT 



fOrgetspace(S); 
end 

fno else* 

if vect0r[23.[8i10j « then* 

BEr I NX 
VECTOH[9 3 t«VECT0Rr9] , rCF] J 
FOR !<-1 STEP 1 UNTIL VECT0R[9] DO* 
IF VFCT0Rf9+i] i THFNX 
FORGETUSEROISK(VECTOR r 9+l3i»VFCTORt8])l 
IF VFCT0R[2],[7i1] THFN VECTOR! 2 ] . [ 8 t 10 ]«■?> XFOR 

FND ELSE 



task log 



IF VECT0K[?J,[BI10J«4I 
THEN GO TO RETURNEMJ 
IF VECT0Rr03<0 THFN 
IF ERTOG * THEN?; 

VECToRm.reiioj * 31s 
I * p 1 m 1 x ; x 

COMMENT SUBTRACT CORE REQUIREMENTS FROM CORE WORD) 
CORE.tl8«l5]*CORE.tl8jl5] - NFO [ (P 1M jX- 1 ) xNDX*2J . r 1 8 l 1 5 ] I 

notcauxmem) 

notchatacom ) 

if chain gtr thfn 

begin sibfM[spacE(5)]]&5[0i36mo]i 

DISKWAJT(-(S INX 0),5»CHAIN)J 

ZlPPER(5ri]»S[2],S[3])l 

FORGETSPACF(S)J 

ENDJ 



IF CHAIN * THFN FORf,ETESPD I SKC ABS( CHA I N ) ) J 

IF VFCT0Rt23.[3ll] THEN 

BEGIN 

NT1 t»TYPEDSPACEC5#MAlNTBUFFAREAV)JJ! 
M[NTl-23.[9»6] := 0; 
Mf NT1 ]«» g P1MIXC20M3I53; 
M[NT1+J]»« VECT0RC5J, ri«23]| 
H[NTU2]«" XCLOCK * VECTOR [ 2] [ 1 * 1 1 1 7 3 & 

(VECTOR! j ]<0)C18JA2I6J> 
VEcTORtO]! 
VECTOR! n; 



1167- 



IT1 + 3JI* 
IT1+4] «» 



M[N 
M[N 

LINKUP(l4,NTl)l 
ENDI 



SET OMJT 
BEGINS 



SET OMJT 
POP OMIT 



■ PACKETS 

STRFAM(TK*vrCT0R!23,!7:i3.B*lF VECT0RH3 <0 THEN 2 FLSFX110- 
VECTORt23,[8HO]^3M»0»0*((NTU(XcLOCK DfV 3600) 
) MOD 60 + (NT1 DIV 60)xl00), V:aVECT0R 

e NOT PACKETS 

»Ti*Ti*SPACFClO) 

)l 

BEGIN* 



14399500 T 

14399600 T 

14399700 T 

14400000 T 

14401000 T 



14402000 
14403000 
14403900 
14404000 
14405000 
14406000 
14406100 
14407000 

14407100 
14407200 
14408000 
14409000 



144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 

144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 

144 
144 
144 
144 
144 
144 
144 
144 
144 



0000 
1000 
1100 
1200 
1309 
1499 
1620 
1640 
1660 
1680 
1700 
1720 



740 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 



1999 
4000 
5000 
5100 
5150 
5200 
5250 
5300 
6000 



T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
P 
T 
T 
T 
T 
T 
T 
T 



03731 

03751 

1 
0375J 
03761 

1 
0376» 

1 
03761 

03781 
03791 
03611 
03851 
03861 
0390J 
03941 

1 
03941 
03951 
03961 
03971 
0398> 
04011 
04021 
04021 
04071 
0407 1 
04071 
04071 
04121 
0414 t 
04161 
0417» 

1 
0417 » 
0419* 
04201 
04211 

0423« 
04261 
04291 
0431 > 
04341 
04361 
04391 
0441 t 
04421 
1 
04421 
04421 
04451 
04481 
0451 » 
0451» 
04511 
04511 
04541 



2 

1 

4399300 

3 

3 

4398000 

3 

4375000 

3 

3 

t 

1 

1 

3 





4403000 



3 

2 

2 

3 

3 

2 

2 







3 



1 

1 

1 

4411640 

1 

2 

2 



1 
2 

3 
2 
3 


1 

1 

4411810 

1 

1 

3 



1 

1 

3 

3 

1 



SET 
SET 



OMfT 
OMJT 



* POP OMjT 



packfts 
not(patkfts) 

SiJsv;SI J*SI + DDSl3Ln w "JDSIs7CHR? 
Si !*SUnDS»»LIT w / w JDS»*7CHR; 

DS*LfT"»"; Sj*-LOr U DS*2DEC; 
l«-DU 0l*-0f-2f DS*FILL> DI*P 

CI * CJ+BJS 

GO TO FIX 

GO TO OK>X 

DS*7 LIT " DS-ED "J 

GO TO X)X 



14416999 T 045411 



OK IX 



El 

x« 



endj 



0S«-5 LIT " FOJ "» 

TK CD 1*0 I -2» DS«-2 LIT ' 

GO TO X}X 

OS-11 LiT " SYNTX ERR 

OS* 4 DFC» DS«-LIT "♦"i 



T w )l * FNf) OF TASK *110« 



$ SET OMIT = PACKFTS 

$ SET OMIT = NOT RJE OR OM I T 

SPOUTFRC r,0,ffOjMFSS 
FNpj 



AND N0T(JAR9.t2Sl]))); 



% JOB WAS AUTO-STOPPED 
NOT EOJ FOR "SYSTEM" JOB 



STGNOFF(VFCTOR.F!LEBLOcKiO)l 
FORGETSPArF(VECTOR)J 
S POP OMIT OMIT 
t SET OMIT a NOTCAUXMEM) 
t SET OMjT s NOT(WORKSET) 
STOPLOOPI 

IF WKSETSTOPJOBS NEQ THEN 
IF N0T(JAR9,SYSJ0BF) THEN % 
BEGIN 

STNEXT!*IF STNeXT«0 THEN STQUEMAX ELSE STNEXT-U X138- 
STOPMIX»*STQUE[STNfXT]J X i 38" 

STQUECSTNeXT]»*01 X138' 

STFIRST «« CSTFlRST+l) # t44«4]J * POiNT TO NEXT CELL 
IF (STOPMjX flTR 0) AND (STOPMJX LEQ MjXMAX) THFN 
IF JARROWrSTOPMjX] NEQ THEN 
BEGIN 

if stopSfT(Stopmix) then % not yet stopped 

BEGIN 

PRTROWrSTOPMiX].tPSFlUO; 
WKSETSTOPJOBSlsWKSETSTOPJOBS and 

NOT (TWO(STOPMIX))! 
JARtST0PMlX,9].C3«l]l"0l 
GO STOPLOOPI 

END ELSE 

BEGIN RFPLY[STOPMlX]J«VOK? % WAKE IT UP 
STRFAMcJl*JARROW[STOPMlX]»STOPMlX# 
Dt=Q»«SPACEC10))J 
BEGIN 

SH«JI DSI-9UIT" AUTO-OK "J 
2CSI!«Sl+l j DSi«7CHR* OS « *Ll TV") I 
DIl«DI-ll DSI«LIT W « H I SII-LOC STOPMIXJ 



14418099 
14418100 
14418110 
14418111 
14419000 
14419500 
14420000 
14421000 
14422000 
14423000 
14424000 
14425000 
14426000 
14426100 
14427000 
14428000 
14429000 
14429100 

14429150 
14430190 
14430400 
14430600 

14430800 
14431000 
14431010 
14431299 
14431400 
14431410 
14431420 
14431425 
14431430 
14431440 
14431450 
14431460 
14431470 
14431480 
14431490 
14431500 
14431502 
14431504 
14431506 
14431508 
14431510 
14431512 
14431514 
14431516 

14431518 
14431520 
14431530 
14431540 
14431550 
14431560 
14431570 



T 045411 

T 045411 

T 045512 

T 045612 

T 045612 

T 045712 

T 045812 

T 0459J0 

T 045911 

T 045912 

T 046013 

T 046110 

T 0461»0 

C 046210 

T 046312 

T 046313 

T 046512 

T 046611 

14416000 

T 046612 

T 046612 

T 046612 

T 046912 

14414000 

T 046912 

T 0471U 

T 047211 

T 047211 

T 0472*1 

T 047211 

T 047211 

T 047311 

T 047413 

C 047511 

P 048l«l 

P 0483»0 

T 048510 

T 048813 

T 049012 

T 049210 

T 049212 

T 049410 

T 049412 

T 049710 

T 049810 

T 049913 

T 050213 

T 050510 

14431504 

T 050510 

T 050613 

T 050713 

T 051011 

T 0510M 

T 051210 

T 051312 



DSr=20EC; DSI«LIT"*"J DI •■DI-3I DSIsriLL? 
ENn STREAM STATEMENT* 

SPOUTrR(Q»PSEUnOMiXtSTOPMiX3#l)» *5?5- 

end; 

END * IF AWAKENING A JOB 

ELSE GO TO STOPLOOP 
ELSE GO TO STOPLOOP; 
ENOJ % IF JOBS WEKF AUT0*STOPPED 

WKSETSWITCHTJME ?= CLOCK+P( RTR ) J 
i POP OMfT X WORKSET 
S SET OMIT * NOT(WORKSeT) 

WKSETNOSELECT*(WKSETNOSEUECT AND CWKSETST OP JOBS t 0))* 
IF WKSETSTOP.JOBS*0 THEN 
S POP OM|T % WORKSET 

SELECTION?* 
KlLLf tMSCW])} 
ENO L5C0M;* 



14431580 
14431590 

14431600 
14431602 



14431610 T 



14431620 
14431630 
14431640 

14431650 
14431660 
14431970 
14431975 
14431980 
14431990 
14432000 
14634000 
14635000 



T 051412 
T 051513 

14431540 
P 051610 
T 051712 

14431518 
051712 

14431500 
T 0517»2 
T 0517:2 
T 0517*2 

14431430 
T 051712 
T 0519U 
T 0519U 
C 0519U 
T 052313 
T 052413 
T 052413 
T 0526»2 
T 0527U 

14344000 
SIZE* 0528 WORDS 



STACKrF+1) = T 
STACKfF+P) a I 



PROCEDURE ZlPPFR(W1 >W2»USERSTa> JVALUE Wl * W2. USFRSTA* 14531000 T OOOOlO 

START OF REU SEGMFNTI DISK ADDRESS * 00429 

REAL W1,W?,USe;RSTa; 14531100 T OOOOlO 

BEGIN REAL T.p 14532000 T OOOOlO 

T * GFTSPACE(12»C0NTR0LCARDAREAV.0)+ail S167- 14533000 P OOOOlO 

Mr T-4 J . r9i63»0j X 14534000 T 000213 

IF M*USERCODE[PlMlX])wABSfNOT 0) THEN I* Oj 14534500 T 0006:0 

STRFAM(K*Pi4#A*tWj]»C*T»B»T)l 14535000 T 000911 

BF GIN 14536000 T 001013 

Sj«-Lor k; s i *s i + / ; ds* chR; 14537000 t 001013 

DSie 5 LIT "USER»'S SIt»LOC C* SilsSui; DSl* 7 CHRJ 14537100 T 001112 

DS* 9 LIT "/'EXECUTE "J SI*a; Sl*Sf + i; 14537200 T 0013U 

0S«- 7 CHRJ DS«- LIT «/"f SuSl + U DS* 7 CHR* H538000 T 0015*1 

DS* 6 LIT "!FND.*'S 37fD5«- LIT •» «• ) ; 14539000 T 001612 

FND' 14540000 T 0018*2 

14536000 

IF USFRSTA#0 THEN 14540100 T 001613 

BEGIN 14540200 T 001912 

T :=30; 14540300 T 002010 

IF USFRSTA.C19I1] THEN ELSE T I sUUSERSTA [ 9 » 15 I 9] ; 14540350 T 002013 

END 14540400 T 0024U 

14540200 

ELSE 14540500 T 0024U 

I ♦ T F PlMlXeO OR USERC0DECP1MIX3«MCP THEN 31 ELSE 26; 14541000 T 002411 

s set omtt = packets 14541049 t 002912 

$ SFT OMIT s NOT(PACKETS) 14541089 T 002912 

IF PSEUDOMIXCPIMIX] NEQ THEN NYLQNZ I PPERC PlM I X ] , [ 2 1 1 ] I *0 J 14541090 T 002912 

INnFPENDENTRUNNER(Pf ,C0NTR0LCARD),T&lr?»42l6] 14541100 T 003312 

*PlMlXtl8»42!6]&PSEUD0MlX|;piMlX][24l39t9],i92); 14541110 T 003412 

IF PSEUDOMiXtPlMlXj NEQ THEN 14541120 T 003810 

SLFEPCtNYL0NZ I pP r R[PlM T X]]#« i l0OOOO0O000000O0)J 14541130 T 003910 

S POP OM|T 14541131 T 004U1 

FND 7IPPERJX 14542000 T 0041H 

14532000 
SIZE* 0043 WORDS 



STACKfF+2) x I 

STACK(F+3) = J 

STACK<F+4) e R 

STACKfF+5) « T 

STACKfF+6) => Z 

STACK(F+7) * H 

STACKfF+lO) ■ X 

STACKfF+11) = S 



REAL PROCFDURE FUF(A»B»L>> VALUE A,B»L« REAL A»B»L; 
BFGlNS 

RFAU j,j,r,t,z>* 



14543000 T OOOOtO 

START OF REL SESMFNTJ DISK ADDRESS * 00431 

14544000 T 000010 

14545000 T OOOOJO 



RFAt. HJ 
ARRAY X[*]?X 

tntfgfr S; 

* SET OMjT a ShARfDISK 

DEFINE Rl«R## X1=X#; 

$ POP OMJT 

$ SET OMjT x MOT ShAREDISk 

LABEL LL»FOUND»WHY,ByE{ 
LA8FL CHECK»DOWN.ROMBOUT,DSD? 



% 

% 

% 
% 
% 
% 
% 
% 



LL> 



REAL SUBROUTINE THERE i % 

ON EXIT. X IS THE LAST BYPaSS BLOCK READ AND J IS ITS ADDRFSS, 

if there is true. i fs the index of the entry for the file and, 
for sfcurttycheck, h is thf negative oe its header address, 
if there is false, t is the address of the first block which 
has a vacant slot. 

begin* 

T jsOj 

for i ieO stfp 3 until 57 do 

BEGIN IF (Xtn fQV A3 = NOT THEN 
IF CXU + i] EOV B) » NOT THEN 
BEGIN P(l); 

HI»NABS(XCI+2]) J 

GO DOWN) 

end; 



END! 



IF CXCI] EQV P14) 
IF T*0 THEN T»sj; 



not o then 



d0wn« 



ie (z«»xt?3,[FF])#o then 
begin oiskwait(-r,60»j»*z)? 

GO TO LLJ 

end; 

if t»0 then t « * j ; 

P(0)} 

theRf«*pj 



end** 



14545100 T 
14546000 T 
14546100 T 



14546199 
14546200 
14546201 
14546299 
14547000 
14548000 
14548900 
14549000 
14549100 
14549110 
14549120 
14549125 
14549130 
14549140 
14549150 
14550000 
14550500 
14551000 
14551500 
14552000 
14552500 
14552750 
14553000 
14553500 



$ SET OMyT * NOT(SHAREDISK) 
Al.ABSf A)l 
XI«tMrRJ*SPACE(60) JH60l8»38liO]; 



14554000 T 

14554500 T 

14555000 T 

14555500 T 

14556000 T 

14556500 T 

14557000 T 

14557500 T 

14558000 T 

14558500 T 

14559000 T 

14559099 T 

14559200 T 

14559250 T 



0000*0 



0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0001 
0001 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
0003 
0004 
0007 
0008 
0010 
0010 

0010 
0012 
0014 

0017 
0019 
0021 
0022 

0022 
0024 
0024 
0024 

0024 
0024 
0028 









































3 



3 

2 

1 



2 

4552500 

2 

1 

3 

4551500 





2 



4556000 





1 

2 

4550000 

3 

3 

1 



IF (A OR B).[ll5]#0 OR A»Pi4 OR A«P1H THEN 
RFGIN 

TFRMlMATF(PlMlXR75t 18s33l 15])> GO DSD? 

fno; 



* SFT OMyT x SHARFDISK 

lockdirfctoryj 



$ POP OMJT 

si*scramblf.(a»b)j 
checki dtskwaiTc-r»»60»cjj«s>); 

IF PlMiX tO THFNX 
IF THFRF THENX 
RFGIN 
* SFT OMIT e NOT SHARFDISK 
UNLOcKOlRFCTORYJ 



$ POP 

Wry? 




LIT"*"? 



SPOUTf j); 

RFPLYtPlMlXl »s-Z> 

IF AUTOPS THEN %7H7' 

IF H*1 THFN TeWM|NaTf(P1Mix461[CTF]) FLSf HfPLYCP 1M I X ] «.VRM*747. 
ELSE <g747« 

COMPLEXSLFEPCTERMSET(PlMIX) OR CRfPLYrPlMfX] GTR 0)); 
14378100 ACCIDENTAL fNTRY AT 

IF TERMSETcPlMlX) ThfN 
DSD: BFGIM FOR I 5*MrL+lO]+10 STEP -1 UNTIL 11 00 

IF MtL+H/O THFN F0Rc,ETUSERDlSK(MCL+I]»-MtL + 9] )J 
GO TO BOMBOUT! 
FNDJ 

IF NOT WHYSLEEP(Z) ThEN GO TO WHY! 
JF REPLY[PlMlX] f [l8S30]=VRM THEN 
* SET OMIT = NOT([)ATACOM } 
BEGIN 

IF P(D.IRECT0RYSEARCHCA#B»7).0UP)«2 

THEN BEGIN P(DEL>' % ALWAYS To SPO X589. 

LBMESSC A. B» -7. 25. 0» 0. l )J END X589. 



14559300 T 

14559400 T 

14559500 T 

14559600 T 

14559990 T 

14560000 T 



14560010 
14562000 
14563000 
14564000 
14567000 
14568000 
14568890 
14569000 



14569010 
14569200 
14569500 
14570000 
14570100 
14571000 
14572000 
14572100 
14573000 
14574000 
14575000 
14576000 
14577000 
14578000 
14578500 
14579000 

14580000 
14581000 
14581500 
14581700 
14581800 
14582000 

14583000 
14583100 
14583200 
14583300 
14583400 

14584000 
14585000 
14585050 
H585200 
14585300 
14585350 
14585360 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
C 
C 
C 
T 

T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
P 
C 



00321 
0036J 
00361 
0038J 
1 
00381 

00381 
1 
1 
0045» 
0045? 
00521 
00541 
0055? 
00571 
00571 
00571 

1 
1 
0061 J 
0061 * 
0063? 
00661 
00691 
00721 
00721 
0074? 
0077? 
0077? 
00781 
0079? 
0080? 
0081? 
0082? 
0083? 
1 
00831 
0064? 
0086? 
0086? 
0092? 
00931 



2 

1 

3 

2 

4559400 

2 

2 

4560000 

4560000 







1 





2 

2 

4569000 

4569000 





3 



2 









3 

3 

1 





2 



4571000 

1 

2 



3 

3 

1 



0l00?3 
0102?1 
0108?1 
011510 
0H5?2 

14583100 
011512 
0H6I3 
0116U 
0118U 
011613 
0120*2 
012113 

14585350 



S SFT OMIT * NOT 
F'NOJ 



T E L S E 



if p*3 thfn go dsd; 



RFPLYtPJM|Xll»OI 

$ SET OM|T * SHARFDISK 
LOCKDIRFCTORYJ 



$ POP 



% 
% 
% 
% 
% 



% 

% 
% 
% 



OMJT 

GO to check;* 

END FLSF FLSf 



ts=s; 



% SETS UP FOR PlMIXaO 



THF FILE IS NOT 

7 AND T ARF ITS ADDRfSR. IF 

THE LAST BLOCK AND T IS SET 



THERf. WE SEARCH FOR A 

THERE ISNT ONE* Z 
TO THE ADDRESS OF 



vacancy, if onf is found 
is the address of 
the new block. 



$ SET 



OMIT = NOT SHAREDISK 

DO BEGIN 

IF CZ! = T)#J THEN D I SKWA I T ( -R , 60 , Z 5 * 

FOR 1*0 STEP 3 UNTIL 57 DO 

IF (XCI3 EQV »M>» NOT THEN GO To 

END UNTIL (Ti«Xt23.lFF])»0> 



FOUND! 



Xt?].tFF3* BYPA 
IF BYPASS. ICFJ L 

* SFT OMIT « SmAREDISK 

DlSKWAjT(R.60,ZJ 
S POP OMJT 

T:*BYPaSS.[CF3 I 

Xir03«*Pl4; MOVE 
S SET OMIT = NOT SHAREDl 

I leO; 

FOUNDJX 

PBCOUN 

Xri3*A) Xri+13*B 

* SET OMiT = NOT SHAREDl 

DlSKWAjTfRj .60, T 



SS ♦ BYPASS-?; 

EQ BYPASS. CFF3 THEN GO TO BYE; 



; 



* WRITE OUT POINTER TO NEW BLOCK 



UPDATE 
HEADER 



THE name 

IS WRjTTE 



J*(N£XTSLOT-DIRE 
I l*((T:*:NEXTSLOT 
DISKWAIT(»R1,-3Q 
NFXTSLOTj«XlClf 1 

xirnisA; xin + i 

IF NEXTSLOTaO TH 
TF I«=0 THEN 
BFGIN P(X1[283.X 
Xir283»8?ll 

xir?93«s0; 

NEXTSLOT«*T 

BYPASS. IFF] 
DISKWAIT(R1 



(5V,xi»xi tnx i); 

SK 



T*PBC0UNT + C(((A EQVPBD ")«NOT 0) OR 

((A EQV"PU0 w )»NOT 0)) AND (8,rCFJ"l))l 
; Xtf+23,tcF3*NEXTSLOT; 

SK 

); 

SEGMFNT, BUT DONT WRITE IT OUT UNTiL The NfW 

N. 

CTORYTOP-3)&OC44I44H3+DIRECTORYTOP + 19> 

)-J)x?+30; 

»J); 

3; 

3 IbBi 

EN % GOING TO USE EOF RECORD 

* WRITE NEW EOF RECORD BEFORE 
lr29])| % DESTROYING CURRENT ONE 
4; % SAVE NAME. REPLACE WITH "END" FLAG, 

+ 30; 
* J+16; 

.30. J + 16) » 



14585400 T 

14585490 T 

14587200 T 

14588000 T 

14588090 T 

14588100 T 



14588110 T 
14589000 T 
14590000 T 



14590900 
14590910 
14590920 
14590930 
14590940 
14590990 
14591500 
14592000 
14593000 
14594000 
14595000 

14596000 
14598000 
14598090 
14598100 
14598110 
14598200 
14598300 
14598390 
14598500 
14599000 
14599900 
14599910 
14600000 
14600290 
14600500 
14600900 
14600910 
14600920 
14600930 
14601000 
14601500 
14602000 
14602500 
14603000 
14603100 
14603110 
14603200 
14603300 
14603310 
14603320 
14603330 
14603400 






12*» 





1251 





1251 





1251 





127 l 





1271 





1331 





L 33 t 





135; 





1361 


01 


136 1 





1361 





136) 





1361 





1361 


Ol 


136* 


OJ 


1361 


01 


I 40 * 


0' 


14H 


01 


145? 


01 


148: 


01 


151 * 


0' 


1531 


01 


1531 


0! 


1541 


01 


1541 


01 


155 : 


0] 


159« 


01 


159J 


01 


160) 


01 


1601 


01 


162; 


01 


166: 


0] 


171» 


01 


1715 


OJ 


172: 


01 


721 


01 


172) 


01 


721 


01 


721 


01 


176J 


01 


179* 


01 


81« 


01 


82! 


01 


85: 


01 


86: 


01 


87: 


OJ 


89 1 


01 


90* 


01 


91* 


01 


92t 


01 


94: 



4585200 

3 





4588100 

4588100 

2 

2 



4568000 

3 

3 

3 

3 

3 

3 

3 

3 





2 

4591500 





1 

1 

2 

2 

3 

2 

2 

1 

1 





2 

2 

3 

3 

3 

3 

3 

2 

1 



2 

2 

1 
2 

1 
2 
3 
2 



% 
% 

% 
% 

% 



BYEt 



Pf [XH?9] ].*,[ Xi [28] }, + •>; 

IF J+16 GEO bypass. ten 

BYBY("DI«ECT0RY FULL*"»15)I 



X RESTORE 
THFN 



CLOBBERED NAME 



END EUSE 

RFG1N X1CT-2J l«?U4J Xltl-l]l»0> N£XTSLOTl»T-t ENDJ 



NOW WE CAN 
THE DAMAGE 
ShAREDiSK) 



WRITE EVERYTHING OUT, NOTE THAT IN ORDER TO MINIMIZE 
CAUSED BY AN UNTIMELY HANG. THE MAIN AND (FOR 
THE BYPASS DlRFCTORlES ARF CORRECT AT ALL TjMES. 



S SET OMIT n NOT SHAREDISK 

DTSKWA iTCL+1 ••30fT)» 
t SET QMfT a NOT SHAREDISK 

dtskwaiTcri»-30. j>; 

$ SET OMIT s NOT SHAREDISK 
* SET OMIT s ShAREDISK 

UNLOCKD JRECTORY* 



S POP OMIT 

FUFt*T| 
BOMrOUTI* 

forgetspace(R)J 

END ENTERUSfRFILF 



% FILE 

* NAME 



HEADER 
SEGMENT 



1% 



14603600 
14603700 
14603750 



14603800 
14604000 

14604900 
14604910 
14604920 
14604930 
14604940 
14605490 
14607000 
14608490 
14609000 
14609990 
14617990 
14618000 



14618010 
14619000 
14620000 
14621000 
14622000 



SIZE 



01 961 

01971 
01991 

1 

1 

02061 

1 
0206» 

1 
02138 
0213J 
02131 
0213« 
0213« 
0213» 
0213« 
02151 
02151 
0217J 
0217» 
0217* 

1 

1 
0220? 
0220» 
0221 » 
02211 
02221 

1 
s 022 



1 
3 
2 

4603750 

4603750 



4603200 



4604000 

3 

3 

3 

3 

3 

3 

3 

3 

3 

1 

1 

1 

4618000 

4618000 

3 

3 

2 

2 

1 

4544000 

4 WORDS 



STAs-6, RESULT»-7# TlME0UT=-7 I *740» 14624200 P OOOOlO 



PROCFDURF COMlll COMMENT ALGOL I/O COMMUN f C ATE I % 14623000 T OOOOlO 

START OF REL SEGMENT! DISK ADDRESS » 00439 
BEGIN S740- 14624000 P OOOOlO 

REAL rOOFs-4, TANK=-5, ROtfB-6, FIDb-7, MlD*«8, «740- 14624100 P OOOOlO 

5TACK<F*4) » CODE 

STACKfF-5) * TANK 

STACK(F-6) m ROW 

STACK(F«7) . FID 

STACKfFMO) m MfO 

STACKfF-6) « STA 
STACKtF-7) a RESULT 
STACKfF-7) s TIMFOUT 

NAME PHYL*-5! * X740- 14624300 P OOOOlO 

STACKfF-5) a PHYL 

ARRAY hFA0ER=-5C*]» FlNAL«-6t*] * % %7H0" 14624400 P OOOOlO 

STACKfF-5) • HEADER 
STACKrF-6) . FINAL 

REAL B» T, F* S{ * *740- 14624450 C OOOOlO 

STACKfF+1) . B 
STACKfF*2) = T 
STACKfF+3) s F 
STACKfF*4) a S 



STACKfF+5) 



NAME A* % % SAME STACK LOCATIONS AS BEFORE *740« 14624500 P OOOOlO 



REAL |NFO» LOC» USASI* II % *740- 14*24550 C OOOOlO 
STACK(F+6) = INFO 
STACK(F+7) * LOC 
STACKfF+lO) * USASl 
STACKfF+11) « ! 

ARRAY FPRr*]» FI Hr * 1 I * *740- 14624600 P OOOOlO 
STACK(F+12) « FPB 
STACKfF+13) * FIB 

* SET OMIT « NOT DATAC0M*740« 14624990 C OOOOlO 

LABEL PARITY, EOF* FOT* RDATA* SELERR* MESSAGE »X740- 14627200 P OOOOlO 

OlSKSPACE,OPEN, CLOSE* READC* GIN, NG» X740- 14627300 P OOOOlO 

SLEAP* GRABlT, REaDSoUGHT, READS0UGHT2. X740- 14627400 P OOOOlO 

BACK, SFEKDC, DCWRITeR* WHILOOP, COBOLDC WR ,F I NDBUF , 1740- 14628000 P OOOOlO 

PURGE.LOCK. SPACE' REFILL, RE ADLABFL* 10REQ, OCBUFRLS, 14628100 P OOOOlO 

ROTATE, ABNJ % X740- 14629000 P OOOOlO 

*740- 14630000 P OOOOlO 

SWITCH FUNCTION «■ OPEN, PARITY, EOF* EOT, OlSKSPACE* 14631000 P OOOOlO 

SEEKDC CLOSE, ROATA, SELERR* SPACE, X740- 14632000 P OOOOlO 

REFILL* READLABEL* IOREQ* ROTATE* READC* X740- 14632100 P OOOOlO 

READSOUGHT, OCBUFRLS, DCWRITER* FINDBUF* COBOLDCWR, 14632200 p OOOOlO 

PURGELOCK J I! *740- 14632900 P OOOOlO 

1740- 14633000 P OOOOlO 

GO TO FUNCTION [CODE] I % X740- 14634000 P OOOOlO 

X740- 14635000 P 00141 1 

PARITY! iNF0*"PARlTY »t b*"fRROR* "J 3! X740- 14636000 P 001411 

GO TO MESSAGE! % S740- 14636100 P 001513 

FOFI INF0*-END OF "I B*"FILE* w ! X «740- 14637000 P 001910 

GO TO MESSAGE! * 1740* 14639000 P 002012 

EOTI INF0*"FILF TO"! B* M SMALL"! T«-«* «» * «740- 14640000 P 002310 

GO TO MESSAGE! X 1740- 14641000 P 0025U 

II % AT PURGFLOCK. GO To RDATa SHOULD BE TO MESSAGE ON WORD BOUNDY 14641999 C 002910 

RDATAI ?NFO* w DATA FR"! B*"ROR* FM"I T«- W T*R»* "! X «740- 14642000 P 002910 



SELfRR' 
MFSSAfiE! 



go to message; % 

jNFO* M lNVAL!D"J B«-" OPERAT"! W"|ON ON*"; X 

% 

FPB*PRT(PlMiX,3]J FlB*MtP(.TANK»LO0),C33* 153-3] I 
IF FIB[51.C1»1J ThEN !NfO * -« iNV OR M; * 



X740- 
X740- 

X740« 
X740- 
X740- 



STREAM ( X * INFO, B» T» X THFSE 3 MUST BE THIS ORDER 

Z * 0, Q * TANK#0» X X740> 

F * IF TANK»0 THEN ELSE tFPBCFIBt*J,M3llll]J» 

D *( CODF «■ GETSPACEC 12»2»0) + 2) )> X X740- 

BEGIN DS * LIT "•»"; Si ♦ LOC X; % X740« 

IF SC * THEN X MESSAGES WITH NEW WORDING X740- 

BEGIN 3f SUSI + j; % CHARS IN INFO. B & T IN STACK 

7c if sc# H «-" then ds«-chR else jump out 2 to d >; 

L» DS*LtT " "i % X740« 

END ELSE X UNCHANGED MESSAGES X740- 

REGIN Sj*Sl+5; DS«-3 ChR; SI*L0C XI X740. 

IF Sc*"8« THEN OS ♦ U LIT X X740« 

"WRjTE TU " X X740- 

ELSE IF SC»?30 THEN DS * 10 LlT X "JNV" X740- 

"ALlD USER " * X740- 

ELSE IF SCsP20 THEN DS «■ 10 LIT % S740- 

" WRT/SEEK " % X740- 

END; % NEXT, OPTIONALLY ADD <FlLE SPECIFIER> X740- 

QC SI*FI X«.Dp DI*LOC Zl X X740- 

IF 8 SCnC THEN * MFID * "0000000" X7«0- 

BEGIN Si*F; SI*SI+1I DI*X; X X740- 

DS«-7 ChR; DS*LIT "/"; X«-Oi; X X740* 

E N D; % X740- 

DI*XI S|*SI+U DS*7 CHR ); X X740« 

DS ♦ 2 LIT *l*»l * X740- 

FND OF STRFAMJ % *740« 



TERMI 

DISKSPACEJOPEN'CL 

t SET OMiT = DAT 

Sfekoc:Rfadc!Rfa 

GO 
$ POP om?t 



S SET 


OMJT 


s NOT 
GO 


PURGELOCKJ 


savew 






GO TO 


SPACE! 




FjB*M 
BLAST 
FPB«-t 
ROW*A 
WHILE 


REFILL! 




FJB*M 

CODE*- 
LOC*F 
FPB*M 

INFO* 
FOR I 



NATE(PlMlX); TERMINALMESSAGE(CC0DE));X 
OSE* GO TO INITIATfIX 

ACOM 

D50UGHT«DCBUFRLS»0rWRlTERlFINPBUFIC0B0LDCWRl 

initiate; 

cdatacom) 
initiate; tt 

ORD * SAVEWORD OR TWO(ROW)! X RDATA USED TO FOLLOW 

RDATA; If X SPACE NEEDS TO BE ON WORD BOUNDARY X740- 
[P(,TANK»L0D),r33M5]-3]l LOC*F IB [ 15 ] , [ 25 I 5] ; X 
QfLOC);* 
MEM0RYt5]H3r23l46l2]&R0Wt22»liniX 

BS(Row);x 

(R0W*R0W-1)>0 DO INF0*WAITI0(FPB»P40,L0C)IX 
GO TO INI Tt ATE* « « 
C(TANK*P(.TANK,L0D).t33ll5])-3];X 
FlBC13],[l0»93-i;X 
IBI191.[ 33 tl53-FIBrt63. [3311531* 
EM0RYtFIBtl6] JNX O+ROWJjX 

FPB.[18M53IX 

♦1 STEP 1 UNTIL CODE DOX 



14642100 


P 


0031 


11 


14643000 


P 


0035 


10 


14643100 


P 


0037 


11 


14644000 


P 


0037 


1 1 


14644400 


C 


0041 


»2 


14645000 


P 


0044 


12 


14645400 


C 


0045 


12 


14645600 


c 


0046 


12 


14645800 


c 


0049 


13 


14646000 


P 


0052 


i 1 


14646200 


c 


0053 


to 


14646400 


c 


0053 


12 


14646600 


c 


0054 





14646800 


c 


0056 


12 


14647000 


p 


0057 


10 
14646400 


14647200 


p 


0057 


U 


14647400 


p 


0058 





14647600 


p 


0058 


3 


14648000 


p 


0060 


1 


14648200 


c 


0061 


1 


14648400 


c 


00621 


2 


14648600 


c 


0063 


2 


14649000 


p 


0064 


3 

14647200 


14650000 


p 


00641 


3 


14650200 


c 


0066 





14650400 


c 


0066 


2 


14650600 


c 


00671 


1 


14650800 


c 


0068 


1 
14650400 


14651000 


p 


0068 


1 


14654000 


p 


0069 


1 


14655000 


p 


0069 


3 
14646000 


14658000 


T 


00701 





14659000 


T 


00711 


3 


14660499 


T 


0072! 


t 


14660500 


T 


0072! 


1 


14660525 


T 


0072 


1 


14660526 


T 


00721 


3 


14660999 


T 


00721 


3 


14670600 


T 


0072 


3 


14671000 


P 


00731 


1 


14673000 


P 


0075! 


3 


14675000 


T 


00811 





14676000 


T 


00851 


1 


14677000 


T 


0086! 





14678000 


T 


00891 


1 


14679000 


T 


00901 


1 


14680000 


T 


00951 





14681000 


T 


00951 


2 


14682000 


T 


00991 


1 


14683000 


T 


0101 1 


1 


14684000 


T 


01041 





14685000 


T 


01061 


3 


14686000 


T 


01081 


1 



BFGiN |0RE0UEST(FLAG(F!BU9J*( I NFO + LOC H 33 I 33 1 153 ) . X 

nBri6]JHNFO[33l33ll5]#FPB)lX 
MEMORY [TaNK]*MEMORY [TANK ]«0r2» 21 U&Or 1 9 S 1 9 : 1 ] % 

*0[26iZ6in«lNF0c33l33»l5];* 
STREAM r CODE >T*MEM0RYt TANK] t TANK); I 
RFR1N Sl*TANKf SI*SI+8J DS*CODE WDSJX 

Sl*LOc TJ DS*WDS;X 
FNDJX 



lNFO*MEM0RYrINF0 + ROWJ.(l8tl5m 



endj* 



RFADLaBfLi 



GO TO INITIATE? «» 

FlR*M[(TANK*Pc.TANK,LOD),t33U5])-33lI 
L0C*FIBC153.I25»5]IX 
BLASTQ(LOC){* 
P(WAlTT0CCFlB[5).r<UHl]xCM[TANK«2].r8ll0J-l) jNX MfTANK-23) 

&M[TANK][?1 J 21 J43»P3770OO00,L0C).0EL)> 
STREAMcY8aOlXl«0»Xi!*O.X2t»0»Zl«M[TANK-23)» 

BFGIN DI»*LOC X; DSi«24 LIT "V0L1HDR1HDR2E0F1 E0F2E0V1 "J 
DI»»LOC XI 
6(TALLY:sTaLLY+i; 
Sli'Zl 

IF 4 SC=DC THEN 
JUMP OUT TO A)> 
TALLYt.O; 



YJsTALLY; 



FNPJ 



if (USasm*p)>o Then 

USASlTAPE(M[TANK-23.[CF)»USASl»3tLOC»FlBt53,t4«M 3)J 
PcWAlTf0CtM[5]]&3r23J46:2]&(N0T FlB[53H22»44ll]» 
P3770O0O0»L0C)»l)ED» 
GO TO INITIATE? *? 

IORfQ» FPB«-MEMORYtC IF ( I NFO*NFUG( MEMORY [P C TANK. DUP* [M] , INX»PRl.) J)) 

• C22I t J THEN 2 ELSE NOT 1) I NX INF03J* 
lORFOUFSTfFINAL. TNFO,rPB);S 

MFMORYtTANK]»MEMORYrTANK3tO[26»26«7]jO[l9l47li3lI 
GO TO INITIATE** 
S SFT OMIT = NOTCOATACOM ) 

t I 

ROTATFi TANK*P(.TANK»U00).t33H^]IJ 
STREAM fT^M[ TANK] , N*ROW-i»D*TANK)U 
BrGlN SI*D» Sl*Sl+8; DS*N WOSl SI*LOC Tl ds*wds enoix 

IF MtTANKl.C3l5]«U THEN 
IF M[TANK1,t24U3 THEN 
TF (I*P(M[TANK-33»l4,cOC))i»0 THFN 
BEGIN 

PHYL ♦ TANK JNX Ml 

FOR LOC * ROW-1 STEP "1 UNTIL 00 
BFGIN 
INFO «• NFLAG(PHYLrL0n3)J 



IF 



S SET OMIT 



xri9»2]so then 

(B*MCINF0 INX N0T(2+(INF0,[19l2]ft0))3)l«0 

BEGIN 
* NOTCOATACOM ) 

IF Ct*I-l> < THFN 



I/O IN- 
THEN 



PROCESS 



14687000 
14688000 
14689000 
14690000 
14691000 
14692000 
14693000 
14694000 



14697000 
14698000 
14699000 
14700000 
14701000 
14702000 
14702025 
14702050 
14702100 
14702150 
14702200 
14702250 
14702300 
14702350 
14702400 
14702450 
14702500 

14702550 
14702600 
14703000 
14703100 
14704000 
14705000 
14706000 
14707000 
14708000 
14709000 
14709099 
14709300 



147 
147 
147 

147 
147 
147 
147 
147 
147 
147 
147 
147 
147 
147 
147 



0000 
1000 
2000 

2100 
2200 
2300 
2350 
2400 
2450 
2500 
2510 
2550 
2600 
2649 
2750 



14695000 T 
14696000 T 



T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0109 
01 1 1 

0112 
0115 
0118 
0120 
0121 
0122 

0122 
0124 

0127 
0127 
0131 
0132 
0133 
0138 
0142 
0145 
0148 
0149 
0149 
0149 
0150 
0151 
0151 
0151 
0151 

0151 
0152 
0157 
0161 
0162 
0162 
0165 
0170 
0171 
0176 
0176 
0176 
0176 
0178 
0181 

0182 
0184 
0186 
0190 
0190 
0192 

0196 
0196 
0198 
0202 
0202 
0202 






3 

3 

2 

2 

2 



4692000 

1 

3 

4687000 



2 

1 

3 

2 

1 



1 

3 



2 

3 

1 



1 

1 

2 

4702050 

3 

3 

2 





2 

1 



3 



2 

2 

2 

2 



4712000 

3 

3 

3 

I 
3 


1 
1 


1 

3 
3 



FNOJ 



loc * -a 



END? 



ENDJ 



GO TO INITIATE'* 
END COMiU* 



H712800 T 0204J2 
14712850 T 020610 

14712600 
14712900 T 020610 

14712500 
14712950 T 020810 

14712350 
14713000 T 0208J0 
14714000 T 0208:2 

14624000 
SIZE* 0209 WORDS 



S SET OMlT = ^OTCnATACOM ) 
PROCFOIJRR DlSPLAY(X)> value X> 



Real x;x 



PRTf6?3) » niSP 
STACKfF*!) = T 



LAY 



START OF REL 



14715000 
15019000 

SEGMFNTJ DISK 



T 000010 
T 0000*0 
ADDRESS « 00ft46 



BFOIN REA|„ T; 



STREAM(XIJ*JARROHtPlMfXJ#PlM!X#» 
Y *T*SPACE(25))J* 
BEGIN DS ♦ Lit "#";* 

2CST «• j; St * si + n DS * 7 chRJ J *■ S T 1 z 
L* SI * Si-llX 

IF SC . " " THENX 

BFGIN DI ♦ DI-H GO TO L ENDJX 

OS - LIT */ h J )l!l 

DI «■ DI-U DS * LIT M *"IX 
SI*LOC PlMiXi DS*2DEC; PlM!X*OII 0l*DI-2* 
DS*FILLJ D|*-P1MIX; DS*2LlT"i "I 

Sj ♦ XI* 
Hi 4UQCTF SC«"* M THEN JUMP OUT 2 TO HH J 

DS4-CHR))) HH« 

J * DM DI «■ DI+8» SI * JJS 
S: Sj * SI-H IF SC * " •» THEN GO TO SJX 

Si «• SI + 11 J * S II DI ♦ J I DS «■ LIT » + »t% 

X* Oil 
ENDJ* 

X* (ffX*P) I NX 0) -T)x8 + X,[30l3]-U 
SP0UT(P(X,T))J 



ENDI* 



15020000 T 0000*0 



15021000 
15022000 
15023000 
15024000 
15025000 
15026000 
15027000 

15028000 
15029000 
15030000 
15030500 
15031000 
15032000 
15033000 
15034000 
15035000 
15036000 
15037000 
15038000 

15039000 
15040000 
15041000 



SIZE 



0000» 
0001 « 
0004: 

0004; 

00061 
00061 
0006» 
1 
0007* 
0008? 
0008) 
00091 

ooiot 
oon I 

00121 
0013* 
0014* 
00151 
0016* 
0016* 

1 
0017* 
0021 J 
00225 

1 
■ 002 




3 

1 

3 



1 

3 

5027000 

1 



3 

3 

3 



3 

2 

1 

1 

2 

3 

5023000 





2 

5020000 

3 WORDS 



PROCEDURE COM13 t% 



START OF REL 



STACK(F-4> = CODF 

STACKfF*6) , RFFL 

STACKfF-5) = FLOC 

STACKfF+13 * FIB 

STACKfF+2) * f 

STACKfF*3) = C0868 



BF6IN1C 

COBOL 10 INTFRFACE COMMuNjCATfX 
RFAL COOF « "4t REEL ■ "6 IX 



NAME FLOc = -5 i% 
ARRAY FIB t*]i% 
REAL T, C0B68? 



LABEL L0,|,l»L2»L3»L4,L5»L6,L7,L8,L9,Ll0.Lll»L12>L13»Ll4.Lt5»X 

L 1 6 » L l 7 1 % 
SWITCH TYPE * L0»LiiL2»L3»L4»L5tL6#L7»LB»L9»Ll0fLil»* 

Ul2»H3»LU»L15fLl6.Ll7II 
DEFINE lN0UT»FlB[l3].t?7ll]#,D!REC»F!BC13],r25M3*»* 

SORTF I LE *F I Bt4 ]. I 7» Uf #LABELSOH I TTEDaF I Bt4],[?*l]# J* 
C0B68 * CFIB * *(FL0c)).t8;10] • 2?1 
fiO TO TYPf[C00E3>X 



15060000 T OOOOJO 

SEGMFNTl DISK ADDRESS « 00447 

15061000 T OOOOJO 

15062000 T OOOOJO 

15063000 T OOOOJO 



15064000 T OOOOJO 
15065000 T OOOOJO 
15066000 T OOOOJO 



LOJ* 

LUX 
L2JX 
L3JX 



DO UNTjL FALSE?* 



!N0UT*C0DE*3J DIREC* C0DF_s2JS 

IF NOT C0B68 THEN 

IF FlBr5J,[46J2la3 T H EN BEGINS 

F ! P [ 1 8 J , U B U 5 ] «-F I B [ 1 8 1 . t 3 ! 1 5 J ; X 

IF C0DF=3 THEN 

FTB[l8],[3H5]*FlBr 183. [ 33 il5J+FlBtl8J. [311511 ENDlX 

NTU»=FL0C INX 31 
P(0»STf»PPT[P1MIX,81,STS); 
FILEOPENCI ,NT1)J 



Ll6:X 
L17|X 

L5J 

L4j* 



00 UNTIL FALSE?* 

L6:L7JL8»L9»L10SL1UL1?JL13IL14IU5J| 
DO UNTIL FALSE?* 



CODE 



IF 



ccode*abs<refl))«0 then 6 else* 

(if cOdf*i then 7 elsex 
(if codf«2 then 10 elsex 
(if code»4 then $22 elSf 
(if c0de«64 then 052 flse 0))))| 

IF (T*FIBr4l,[8J4])#? AND T#4 AND T*8 THEN C0DE*0l* 

IF T«4 AND C0DE=0 ThEN CODE*lO 1% 

FTLECLOSE(( FLOC INX 3 )& CODE 1 18 I 33 J 15 ] ) I J! 

IF CODF'O OR CODEslO OR C0DE*?22 THEN F I B [5] , T42 J 1 1 *1 

ELSE FIBC5J.r40i2]«.(C0DF"7)x2+l j* 
IF NOT C0B68 ThEN 
IF FlBr51.[46J2l*3 ThEN BEGINX 
FlBri8],[3Jl53-FlB[l8].[l8Jl5i;FlBri8],tl8J15]«.0 END IX 



H»l\5»% 


15067000 


T 


0000:0 




15068000 


T 


OOOOJO 




15069000 


T 


OOOOJO 




15070000 


T 


OOOOJO 




15071000 


T 


OOOOJO 


f IX 


15072000 


T 


OOOOJO 




15073000 


T 


OOOOJO 




15074000 


T 


0003J 1 




15075000 


T 


0013 J 1 




15076000 


T 


0013J1 




15077000 


T 


0014(0 




15078000 


T 


001410 




15079000 


T 


0014J0 




15080000 


T 


0014J0 




15080900 


T 


0020JO 




15081000 


T 


002012 




15082000 


T 


0023J0 




15082100 


T 


0025S3 




15083000 


T 


0026J2 

15081000 




15084000 


T 


003112 




15085000 


T 


0032J3 




15086000 


T 


003510 




15088000 


T 


0036J0 




15089000 


T 


0036JO 




15090000 


T 


0036J0 




15091000 


T 


0036J3 




15092000 


T 


0036J3 




15093000 


T 


003712 




15094000 


T 


003712 




15095000 


T 


0040J1 




15096000 


T 


0042J1 


XKRUNCH 


15097000 


T 


0044J 1 


XKRUNCH 


15097500 


T 


0046J1 




15098000 


T 


0049J0 




15099000 


T 


005411 




I5t00000 


T 


0057J1 




15101000 


T 


0059J0 




15102000 


T 


006213 




15102900 


T 


0069 J 1 




15103000 


T 


006913 




15104000 


T 


00721 1 

15103000 



GO TO INITIATE! « 

end coMu;* 



15105000 
15106000 



T 007712 
T 0078»0 

15061000 

SIZE* 0079 WORDS 



PROCEDURE RFFLCHANGFR(U)5 



PRT(6?4) 



STACKfF+O) 
STACKfF-2) 

STACK(F+1) 
STACK<F+2) 
STACK^F+3) 



REELCHANGE 
VALUE 
X 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
BEGIN 

* RCW 

* MKSW 



R 



START OF 



15110000 T OOOOtO 
REL SEGMENT! DISK ADDRESS * OOftbO 



U; RFAL U) 



THF PURPOSF OF THIS ROUTfNF IS TO ALLOW RFEL CHANGE FOR 
OUTPUT TAPE EILFS BY OPERATOR REQUEST, THIS ROUTINE IS 
INITIATED FROM THE SPO WiTh A KEYBOARD INPUT REQUEST OF 
"Rr" FOLLOWED BY A THREE CHARACTER TAPE UNIT IDENTIFIER, 

IF THE WRITEPAKlTYREELSWiTCH ROUTINE IS RUNNING 
CONCURRENTLY WHEN THE "Re* MESSAGE IS RECEIVED* 
THFN THIS ROUTINE WILL ABORT, OTHERWISE IT WILL 
CA|,L WRlTEPARiTYREELSWjTCH IN ORDER TO AFFECT THE 

NECESSARY REEL CHANGE. 

THF PARAMETER IS USED AS FOLLOWS! 

U THE LOGICAL UNIT NUMBER OF THE TAPE UNIT TO SWITCH 



REAL PCWs+0» MKSWs-2! 



Ml 
TO 
T2 



RFAL MlX,T0Pl0D»T2; 



X 
PlOD 

% 
% 
% 
% 

% 
% 
% 



THF 
REA 



t SF 
$ PO 



LAP, 

T 

DEF 

P 

MIX 

TOP 

IF 

JAR 

IF 

BEG 



LOCAL 
LS 
MiX 

TOPIOD 
T? 

EL RES 
MiT « 
INF UN 
MiT 

«• RDC 
IOD «• 
(MjXxO 
fMlX»9 
JARtMl 
IN 
STRE 
REGI 



VARIABLES ARE USED AS FOLLOWS! 

MIX INDEX OF JOB USjNQ TA?E UNIT U 
LOCATION Of TOP \/0 DESCRIPTOR IN TANK 

temporary 

etjar#errorout,fxitj 
not(packets) 

JTNO « PSEUDOMlX[MlX]f ; 



TA8LErU].[8!6]J 

PRNTABLEtU].ri5H5JI 

) OR (TOPJODpO) OR TERMSET(MIX) 

] ♦ (*P(DUP)) I UlMrMK 

X,9].SYSJ08F * LIBMAINCODE THEN 

AMCA«-TINU[U], T*T2*SPACFC<»))I 
N 

DS 

Si 



THEN GO ERROROUTI 



23 LIT*#RFEL CHANGE MARKED ON "J 
LOC A! Si * SI+5J DS ♦ 3 chR* DS 



* LlT"*"l 



fnd; 



SP0UTfR(T2#UNiTN0» 1)J 
GO E^ITJ 



ENn» 



14582000 



IF NOTERMSET(MIX) THEN PRTR0WCMJX3.CPSFJ * 2» 
COmPLeXSLEEP(NOT(STOPSET(MiX)) AND UNIT[U1.[FFJ»P77777)I 
ACCIDENTAL fNTRY AT 977777 



151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
151 



10100 
10200 
10300 
10400 
10500 
10600 
10700 
10800 
10900 
11000 
1 1100 
11200 
11300 
1 1400 
11500 
11600 
11700 
11800 



15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 

15 
15 
15 

15 

15 



2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3700 
3800 
3900 
4000 
4100 
4200 



4300 T 
4400 T 
4500 T 

4600 T 
4700 T 



oooo;o 

OOOOiO 
OOOOtO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 



15111900 T OOOOIO 



OOOOIO 
OOOOiO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOtO 
000211 
000313 
000810 
001 1 1 o 
001310 
001312 
001613 
001613 
002010 
0021H 

15113900 
002112 
002310 
002312 

15113700 
002312 
002810 



RESET 
FRROR 

EXjT* 
END R 



* TF 

* WR 

TF R 
T?*N 
P(WR 
JARI 
IF N 
GO E 
OUT* 
STRF 



UNIT NOT 



- . „ „. assigned 
itfpaRtTyrfflswiTch 



AT THIS POINT THEN 
HAS ALREADY BFFN RUN, 

0rTABLFCU].[8«6]*0 OR TERMSET(MIX) ThFN go resetjar; 

FLAGCMf TOPlODJ)&TiNUrU][3«3«5]» 

ITFPARITYRFFLSWITCH(T2.1)»DEU)» 



OTERMSFTCHIX) 
X ! T J 



THEN JAR[MIX,9] •• (*P(DUP)) & Ottt47ll3l 



AM(T*T?«-SPACE(3))> 
PS * 21 LlT"#REEL 
SPOUTFRCT2.UNITN0. t ); 

KlLL(rMKSWj)! 

EFt.CHANGER) 



CHANGE ABORTED*"* 



151 


14800 


T 


003611 


151 


4900 


T 


003611 


151 


5000 


T 


003611 


151 


5100 


T 


004011 


151 


15200 


T 


0043M 


151 


15300 


T 


004412 


151 


L5400 


T 


004412 


151 


15500 


T 


004912 


1511 


15600 


T 


0051*0 


1511 


15700 


T 


005110 


1511 


15800 


T 


005313 


1511 


15900 


T 


0057*0 


t5n 


16000 


T 


0058*2 


1511 


L6100 


T 


0058*2 


1511 


6200 


T 


0059:1 

15111^00 




SIZE" 0060 WORDS 



boolean procedure: conqueRcc»n#l»s»g>» 

PRT(6?5) s CONQUER 

VALUE c»NtL»S»G» 

REAL CNiL? ARRAY S[*3U 
INTEGER G> 

BFGIN ARRAY BsC[*3'« 



15168000 T 0000*0 
START OF REL SEGMENT! DISK ADDRESS « 00452 



STACKfF-5) = B 

STACKfF+2) * T 
STACKfF+2) 3 I 



real t» i = t :x 



lapel x*s 

if g t hfn 

IF NxL > 512 THFN r,0 TO X*X 
IF (T «• GFT5PACf(NxL»2«3>> * THENJS 
BFGIN IF NOT G ThEN P(O.RTN); 

x» if not m Then 

REGIN G+C0NQUERCC»N*N IV 2»L»N INX Stl)* 
6*C0NQUERCS INX N.N»L»S#1)J 
P(l.RTN); 
PcXfT 3 1 X 

eNdj* 
t * gftspacf(l.2»1 )*x 

END** 

R * rHrT + 2]HLt8l3BilOHC[18i33ll5m 

N * H»ll% 

FOR I ♦• STEP 1 UNTIL N DO* 

begin srn * b;x 

B * L INX B*% 

end** 

CONQUER*!; 



15168100 
15169000 
15169100 
15170000 



fnd;s 



15172000 
15172500 
15173000 
15174000 
15175000 
15175900 
15176000 
15177000 
15177800 
15178000 
15179000 

15180000 
15181000 

15182000 
15183000 
15184000 
15185000 
15186000 
15187000 

15187500 
15188000 



OOOOtO 
0000:0 
000010 
0000»0 



15171000 T 0000*0 



SIZE 



OOOOJ 
0000* 
0000* 
0003* 
0005 » 
0007! 
00081 
0012: 
0016* 
00161 
0016: 

1 
0016: 
0018" 

1 
00l8« 
002i: 
0023* 
00241 
0025* 
0027* 

1 
0029* 
00301 

1 
» 003 





3 



3 

3 

1 

3 



2 

3 

5176000 

3 

2 

5175000 

2 

3 





2 



5185000 

1 



5170000 

1 WORDS 



BOOLEAN PROCEDURE PRTGAMES C BUFF * MI X ) ? VALUE BUFF. MIX! REAL BUFF. MIX? 

START OF REL 
PRT(6?6) a PRTGAMES 

comment prtc.amfs is the business end of "in" or "ot" messagfs? 
bfgtN real nx.tnoex.oata; 

STACKfF+2) a NX 
STACKfF+3) = INDFX 
STACKfF+4) = DATA 

S SET OMJT = NOT(PACKETS) 

DEFINE UNITNO = PSEUDOM I X [ m I X ] #? 
$ POP OMIT 

LABEL ECH. X?j; 
STREAM(BUFF»G*MlXB63»F*BUFF<0»D*tOATAl»I*tlNDEX])l« *84 4» 

bfgin si*buff; 

li if sc« M M then begin si*si+i> go l end? 

GfiF sc^ w " then if sc# n «- N then if sc*"« h then *844- 

BEGIN TALLY*TALLY+1I S I * S I + J END)? *844- 

4fIF SC# W " THEN IF $C.*" + " THEN IF SC* W *" THEN 
BEGIN TALLY*TALLY+1 I Sl«-Si + i END)? 

UTALLYJ 01*01+81 DI*DI-I? S I *-S I - 1 ; DS*I CHR; 
F( 

IF SC« M " THEN BEGIN Sl*Sl+i* GO M ENOl 

IF SC* M »" THFN BEGIN E I D I*DI -1 I DS*LI T M " W ? JUMP OUT END; 

SI»S1+1J 

IF SC«" " THEN BEGIN SI *Sj ♦ i; f,0 N END? TALLY«-Oj 

8(if sc> M 0" then begin tally*tally+i? si-si+i end 



15400000 T OOOOlO 
SEGMENT! DISK ADDRESS ■ 00454 



Ml 



Nil 



FL.SE JUMP OUT); IF SC* n " THTN IF SCt*"*" THEN GO F> 

i*tally; oi*u; si*St-i? ds*i ocT); 

ENOl IF MjX/63 THEN BFGIN % NOT ABSOLUTE CORE ADDRESS *844- 

IF CINDEX AND NOT Pl070707)?*0 THEN GO ECH? X844- 

IF JARROWfM?X]=0 THFN GO ECH? 

IF CNX«.jNDFX.[45i3JMN0EXr4?«39l3]«INDEXr39l33l3]*lNDEX[38l29«l 

))<20 THEN GO ECH? 
IF (PRTROW[MjX] INX NX )>M [PRTTM IX. 10] .MOM-3] , f CF] THEN GO ECH? 
IF BUFF<0 THFN 

IF P(PRT[MIX.NX].TOP.XCH.DEL) THEN PRT f M I X»NX]*DATA ELSE 
GO ECH ELSf 

begin; streamc j*jARRow[MiX] t Mix f index »R*tPimMiXtNxn • 

D* DATA* BUFF.ri5ll5]-l)J 
BEGIN Sl*J; SI*SI + 1? DS*LlT w " ; % %Vif 

DS*7 CHR? DS*LIW"! Sl+SI+lfS SWF 

DS*7ChR? DS«-LIT"»"? Sl*LOC MIX! DS*20EC! 
MIX*DI? DI*DI-2J DS*FILL? DI*MlX? 
0S*3LtT"IR+"? Si*Sl+4? DS*4 CHR? D*DI? DI*D!«45 
DS*3 FILL? DI*D> DS*LlT M s M ? Sl*R? 

if sb Then % descriptor«type octal 
l6fds*3 rfset^ 3(if sb then ds*set else ds* 

resft? skip sb)) else 

DS+8 DEC? 



15401000 T 
15402000 T 



OOOQIO 
OOOOSO 



15402499 
15402500 
15402501 
15403000 
15404000 
15405000 
15406000 



15406100 C 

15406200 C 

15407000 T 

15408000 T 

15409000 T 

15410000 T 

15411000 T 



0000 
0000 
0000 
0000 
0001 

0003 
0004 

0005 
0007 

0007 
0009 

0010 
0012 
0012 



15412000 T 0013 

15413000 T 0015 

15414000 T 0015 

15415000 T 0017 



15416000 T 
15417000 T 
15418000 P 



15418500 
15419000 
15420000 
15421000 
15422000 
15423000 
15424000 
15425000 
15426000 
15427000 
15428000 
15428100 
15429000 
15429500 
15430000 
15431000 
15432000 
15433000 
15434000 
15435000 



0018 
0020 
0022 

0023 
0025 
0027 
0030 
0032 
0037 
0036 
0042 
0042 
0047 
0049 
0050 
0051 
0052 
0053 
0055 
0056 
0057 
0058 
0060 



10 

10 

10 

10 

10 

13 

10 

15406000 

10 

10 

15406200 

13 

<2 

15408000 

II 

»1 

13 

15411000 

13 

15412000 

12 

13 

15414000 

10 

15415000 

*1 

12 

»1 

15405000 

13 

13 

II 

*1 

>2 

12 

»1 
»3 

«3 
»1 
»1 

ii 
»i 

12 
12 

'1 
12 

10 

»3 

10 



end; 



ds*l,it h *"; di*d; di*dt*i; ds*7 fill* 



SPOUTERfOATA I NX M[BUFF . [ 15 M 53-23 » UN I TNO» 1 ) J 

fnp; % X844- 

FNIO FLSF BFGIN X ABSOLUTE CORE ADDRESS OUTPUT REQUIRED X844- 

!F (INDEX AND NOT P707070707 ) #0 THEN GO ECH ELSE *844- 

BEGIN X *844- 

NX*lNDEX.tfl5*33*lNDEX[42l39l3]*IN0EXt39l33»3] *84 4« 

MnDEX[ 36* 27* 33* INDEX [33*21 133** X84 4- 

STREAMf IN0EX»R*NX,D*DATA»BUFF.I15»15J-1)II *844- 

BEGIN DS*15 LIT" CORE LOCATION »; SULOC INDEXjX X844- 

S I *- S I + 3 ; DS*-5 CHR* D*DI» D I » D I -51 DS*4 FILL** 

DI*DJ DS*LIT"*"* SI*R*X X844- 

16(f)S*3 RESfT; 3(IF SB THEN DS*SET ELSE |844« 

DS*RfSETj SKIP SB))I X844- 

DS + LIT"«-'M DI*D* DI*D|+1I DS*15 FILL? *844- 

ENOJX X844- 



SPOUKDATA INX MrBUFF,[15M53-2])IX 

END % 



FNDJ GO X> % 

FCH! PRTQAMfS*!* 
XJ FNDJ 



X844- 
X844- 

X844- 



15436000 
15437000 

15437100 
15438000 



15438010 C 



15438020 
15438030 
15438040 
15438050 
15438060 
15438070 
15438080 
15438090 
15438105 
15438120 
15438130 
15438140 

15438150 
15438160 



15438170 C 



15439000 
15440000 



T 0060*1 
T 0061*2 

15428000 
T 006113 
P 006512 

15426000 
0065*2 

15418000 
C 0066*0 
C 0067*2 
C 006810 
C 0070*0 
C 0073*1 
C 007610 
C 007812 
C 0079J3 
C 0080J3 
C 0082*2 
C 0083*2 
C 008413 

15436070 
C 0085*0 
C 0088*2 

15438030 
0088*2 

15438010 
T 0090*0 
T 0090*3 

15402000 
SIZF« 0092 WORDS 



S SET OMIT 
PROCEDURE W 



* NOKDCLOG AND DaTaCOM ) 
HATMCP(BUFF)» REAL BUFF; % FORMATS WM MFSSAGF 



PRT(6?7) s WHATMCP 
STACKfF+1) a X 



START OF REL 



$ 

£ 
$ 
£ 
£ 
S 
£ 

£ 
£ 



BFGtN REAL X; 



D 
x:«rBUF 
OISkWAI 
STRFAMf 

BFGfN D 
SI 
SI 
8( 

SI 
6f 

ST 
8( 



£ SFT 



POP 
SFT 
SFT 
SFT 
SET 
SFT 
SET 
SET 
SET 
SET 
SET 
SFT 
SFT 



£ POP 

£ SET 

£ SFT 

£ SET 



POP 
SET 
SET 
SET 
SFT 
SET 
SET 

POP 
SFT 



£ POP 



. OS 
OMIT 

OS 
OMIT 
OMIT 
OMJT 
OMIT 
OMJT 
OMIT 
OMIT 
OMf T 
OMlT 
OMIT 
OMIT 
OMIT 
CM IT 

OS 
OMIT 
OMlT 
OMIT 
OMlT 

OS 
OMlT 
OMIT 
OMjT 
OMlT 
OMIT 
OMlT 
OMIT 

OS 
OMIT 
OMIT 

DS 
OMlT 

DT 



EFINF 

F«=SP 

Tf-X, 

MM»M 

»NS*X 

S*L!T 

*Sl + i 

taLOC 

IF TO 

ELSE 

t*LOC 

IF TO 

ELSE 

:*LOc 

IF TO 

ELSE 

* 10 
« NO 

* 9 



BUFFSIZE*36#J % INCREASE THIS WITH MORE OPTIONS 
ACF(BUFfSize+30))+BUFFSIZeJ 
30,MCPNAMESEG)5 

ARK LEVEL' PL «sPATCHLEVEL»Lll«LOCALEVEL 
+ 20 + ?xSYSNO»At*BUFF) 5 

" "J SI*N! SuSi + lJ 0S*7 CHR5 DS*LI TV"; 
J DS4.7 CHR; DS*6 LIT" MARK "5 

MLJ IF SC GEQ " " THEN* 
GGLE THEN IF SC* M 0" THEN STl>SI*i ELSE OS»»CHR 
DSs=CHR)J DS»=LlT",«; 

pl* if sc geq » " then? 

ggle then if sc«"0" then sm-sl + 1 else ds5*chr 
dsi.chR)* ds» s ?chr; 

LLf IF SC GEQ » " THEN.* 
GGLE THEN IF SC="0" THEN SI J » S 1 + 1 ELSE DSl*CHR 
OSjsCHR)' 



LIT " INCLUDES " 
T(AUTODUMP) 
LIT "AUTODUMp»"> 



% 



NOT(AUXMEM) 

NOTCBREAKOUT) 

NOTCB6500LOAD) 

NOT(CHECKLINK OR DEBUGGING) 

NOT(DATACOM) 

NOTCDCLOG ANq DaTaCOM) 
NOT(DCSPO AND DaTaCOM) 

NOT(DEBUGGINg) 
NOT(DFX) 

NOT(DlSKLOG) 
NOT(DKBNODFX) 
NOT(DUMP OR DEBUGGING) 
5 LIT "DUMP,"} 



* NOT(MONiTOR) 

* NOT(NFWLOGGING) 
■ NOT(PACKETS) 

«- 8 LiT "PACKETS,"; 

« NOTCPJE AND DATACOM) 

* NOT(SAVERESULTS) 
« NOT(SFPTICTANK) 
« NOTCSHAREDISK) 

v NOT(STATlSTjcS) 
= NOT(WORKSET) 

* 8 Lit "WORkset,"; 

■ not(worksftmonitor) 

«• 15 Lit "WORkseTmonjTor,*; 

«■ Ol-l > 



15440999 


T 


OOOOtO 


15500000 


T 


000050 


SEGMENT; DISK 


ADDRESS « 00456 


15501000 


T 


000050 


15501100 


T 


0000:0 


15501200 


T 


000050 


15501300 


T 


0004 f 1 


15501500 


T 


0006* 1 


15501600 


T 


000751 


15502000 


T 


000912 


15502100 


T 


001111 


15502200 


T 


001213 


15502300 


T 


0013(2 


15502400 


T 


001551 


15502500 


T 


001612 


15502600 


T 


001711 


15502700 


T 


001910 


15502800 


T 


002010 


15502900 


T 


002013 


15503000 


T 


0022»2 


15504000 


T 


0023U 


15504999 


T 


002413 


15505000 


T 


002413 


15505001 


T 


0026*1 


15505499 


T 


002651 


15505999 


T 


0026U 


15506499 


T 


002651 


15506999 


T 


0026'1 


15507499 


T 


002681 


15507999 


T 


002611 


15508499 


T 


0026»1 


15508999 


T 


0026*1 


15509499 


T 


002651 


15509999 


T 


002611 


15510499 


T 


002651 


15510999 


T 


002611 


15511000 


T 


002651 


15511001 


T 


0027J1 


15511499 


T 


002751 


15511999 


T 


002751 


15512499 


T 


0027H 


15512500 


T 


002751 


15512501 


T 


002852 


15512999 


T 


002852 


15513499 


T 


002812 


15513999 


T 


002812 


15514499 


T 


002612 


15514999 


T 


002852 


15515499 


T 


002812 


15515500 


T 


002812 


15515501 


T 


002913 


15515999 


T 


002913 


15516000 


T 


002913 


15516001 


T 


003210 


15523000 


T 


003250 



A* 01 » 

Sf«- A J D I * A 1 

fF SC*"»" THEN 

l>T* ni" 9; 
DS* LIT "«-•' 
FNDJ 

IF M[3].tlM] THFN % CM HAS BEEN DONE 
BEGIN PFSKWAIT(-X,30»0); 

STREAM(N*X + 10 + 5>«SYSN0»BUFF); 

8FGIN SI*BUFF* Sl*SU16* 



L« 



if sc ne« "*" Then begin si»si + i» go lj endj 

BUFF*S! I DUBUFFI 

05*18 LlT»'-NEXT McP WiLL BE " » 

Sj«-N{ S I -S I + 1 ; DS«-7 ChR* US*LlT"/"J 

5i*si + i; i)S*7- chR; ds*lit"*"> 



END> FN!0> 



fnd whatmcpj 



15524000 
15525000 
15526000 
15527000 
15528000 
15530000 

15531000 
15531100 
15531200 
15531300 
15531400 

15531500 
15531600 
15531700 
15531800 
15531900 



15533000 T 



T 003211 
T 003212 
T 0033J0 
T 003312 
T 003313 
T 003411 

15502000 
T 003412 
T 003610 
T 003810 
T 004012 
T 004110 

15531400 
T 004?»0 
T 004212 
T 0045»0 
T 004611 
T 004711 

15531300 

15531100 
004712 

15501000 
SIZE* 0050 WORDS 



PROCEDURE WHATINTRNSICC8UFF); VALUE BUFFI REAL BUFFJ 



STACKfF+l) 
STACKfF*2) 
STACKfF+3) 
STACKfF+4) 
STACK(F*5) 



size 
toe 

INTWORD 
HI 

I 



BEGfN 

RFAL, STZE»LOC. INTWORD, WI»|I 



START OF REL 



LABFL E*ITJ 
IF TNTSIZE*0 THEN 
BEGIN J 

stream(buff)j 
go exit; 

FNDI 



os+i4 lit "no intrinsics*»> 



COMMENT MAKf Wl INTRINSIC PRESENT; 
SjZr :* ClNTWORD«*lNTRNSCriNTRNSCCO]]) {NX Oj 
LOG tu SPACE(SiZE)? 
* SET OMIT « NOT(AUXMEM> 

DISkWAIT(-L0C#SIZE#INTW0Rd.[6»271); 
DISKWAITC-C I»aSPACEC30))»30,0)l 
STRfAM(X:=I+13+5xSYSN0.U0K»»L0C»BUFF)I 

BEGIN 

SI»«LOK» Si | *S i+ai 

1 ( S I »«Si+l i 

7(IF SC*"*" THEN JUMP OUT 2 TO Ll> 

IF SCe"P" THEN S I i a S i + l ELSE DS»*ChR))» 
LI t SI »sXJDSl*3LlT» ("J 

SlliSl + H DSt»7 CHRIDS|*ltT m /"J 

Sit «S 1*1* DSS*7 CHRJDS|«2L.lT«)*. w > 

FND STREAMI 

FORr,FTSPACF(LOC)J FORGFTSpACEC I ) » 
FXlTl 

END WHATINTRNSIC> 



15534000 

SEGMFNTI DISK 

15535000 

15536000 



T 000010 
ADDRESS « 
T 000010 
T 000010 



00460 



15537000 
15539000 
15540000 
15541000 
15542000 
15543000 

15544000 
15545000 
15546000 
15547000 
15548000 
15549000 
15550000 
15551000 
15552000 
15552100 
15552200 
15552300 
15552400 
15552500 
15552600 
15552700 



15552800 T 
15554000 T 
15555000 T 



T 000010 
T 000010 

T 000210 
T 0002J2 
T 000512 
T 000610 

15540000 
T 000610 
T 000610 
T 000811 
T 001012 
T 001012 
T 001212 
T 001610 
T 001813 
T 001813 
T 001911 
T 001913 
T 002111 
T 002310 
T 002410 
T 0025«0 
T 002610 

15551000 

0026U 

002713 

002713 

15535000 
SIZE* 0028 WORDS 



PROCEDURF CORePRINT(Q)? VALUE QJ REAL QJ 
PRK63O) « COREPRINT 



START OF REL 



STACKfF+1) * LINK 

STACKfF+2) = size 

STACKfF+3) = D 

STACKfF+4) a C 

STACK(F+5> « A 

STACKfF+6) = N 



COMMENT J ThIS PROCEDURE COMPUTES AND TYPES THE AMOUNTS OF SAVE 

AND OVERLAYABLE CORE ?N USE FOR A GIVEN MIX OR ALL MfXES! 

COMMFNT I Q.[1M] a 1 IF ALL MIXES DESIRED 

Q.rCF] ■ MIX, Q,[9I9] a REMOTE TU/BU! 

BEGIN REAL L I NK » Si ZE »D J % 



array c[*jj 
integfr a.n; 



LABEL NXT! 

C * tMrSPACE(MlXMAX+i)]] & CMjXMAX+1) [8136110]! 
FOR A * STEP 1 UNTIL MIXMAX DO C T A] «• 0!X 
CrOj.TFFJ ♦ A ♦ MSTART;X 
WHILE A#0 DO % STEP THROUGH MEMORY LINKS 

RFGIN IF (LINK * M[A]).[Hl] THEN GO TO NXT! 
StZE ♦ LlNK.rCF] - A! 

if LiNK.t?»n Then size + o * size tctfjix save 

Crl,INK.[9J6]] * (*P(DUP)) + SlZEJX 
NXT: A * LlNK.rCF];% 

end;x 

a *■ -l; while ca*a + j) < mixmax do* 

BEGIN IF O.tnn OR Q.tCF] * A THEN IF CCA] # THEN 
BEGIN; STREAM(N»N*CCA],tFF3»0*CSlZE3)*I 
BEGIN Si «■ LOC Nl DS * 8 DEO ENDJX 

STREAM(N*N»CrA],rCF3»D*tLINK])l« 
BEGIN Si ♦ LOC NJ DS * 8 DEC! ENDJSK 



JOBMeSS(A»Q»"JSAVE« w »SiZE» h 0LAY« w .LINK)IX 



FNDIX 
FNOIX 
IF Q.nuj THE'NX DO TOTAL 

bfgin pcctom 

FOR A*l STEP 1 UNTIL MIXMAX DO PCC [ A 3 1 ADD ) 1 % 
N ♦ PI N ♦ N,[FF3 + N,rCF3>* 
STREAM(N,0*D*SPaCe<«))I* 

begin si * loc ni ds * ie lit "total mem in use« *i 

DS ♦ 5 DECJ DS «■ LIT "«■"; 
DI * 01 - 6* DS * 4 FILLIX 

END stream; 



SPOUT(D 8 Q[9!9|9))!| 



END I 



15600000 
SEGMENT! DISK 

15600050 
15600100 
15600120 
15600140 
15600300 



T 000010 
ADDRESS • 00461 



15600600 
15600800 
15600950 
15601000 
15601150 
15601200 
15601400 
15601500 
15601600 
15602200 
15602300 



15603 
15604 
15604 
15604 
15604 
15604 
15604 
15604 
15604 



900 
000 
100 
200 
250 
275 
300 
400 
500 



15600400 T 
15600500 T 



15602400 T 

15602500 T 

15602600 T 

15602620 T 

15602640 T 

15602660 T 

15602680 T 

15602690 T 

15602700 T 



FORGETSPACEfC I NX 0); 
END COREPRJNTI 



15604600 T 

15604700 T 

15604800 T 

15604900 T 



000010 
0000*0 
000010 
000010 
000010 



000010 

000010 



00001 
00001 
0006! 

00101 

0013! 
00141 
0017! 
0019! 
00211 
0024! 
00251 

1 
00261 
00291 
00331 
0035! 

1 
0036' 
0038! 

1 

00391 

0041! 

1 
0041» 

1 
0044! 
0044! 
00451 
00501 
0052! 
0055! 
0058! 
00591 
00591 

1 
00601 
00621 

1 
0062! 
0063! 

1 







1 

2 

2 

3 

2 

1 

3 

1 

2 

5601200 



1 



3 

5602620 

2 

3 

5602660 

2 

2 

5602600 

2 

5602500 



3 

3 



3 

3 

2 

t 

3 

560A275 



1 

5604000 

1 

3 

5600300 



SIZE* 0064 WORDS 



S SET OMIT ■ NOT(AUXMFM) 15604999 T OOOOlO 

PROCEDURE L06C0MMENT (0)) VALUE 0* REAL 0; 15610000 T OOOOlO 

START OF REL SEGMFNTl DISK ADDRESS « 00464 
PRT(631 > ■ L.OGCOMMFNT 

BEGTN 15611000 T OOOOlO 

REAL !»J#K»L> 15612000 T OOOOlO 

STACKfF+1) a I 
STACKfF+2) x J 
STACKfF+3) c K 
STACK(F+4) * L 



STACKfF+5) 3 LOG 



ARRAY L0Gt*3J 15613000 T OOOOlO 

L «■ SPACEf72)l 15614000 T OOOOlO 

STREAM (QlD*L+5)> 15615000 T 000312 

BFGIN SI «• Ql 15616000 T 0005«1 

LJ IF Sc# w * w THEN BEGIN OS «■ ChRJ GO TO LI ENDI 15617000 T 000512 

15617000 
5(DS * 8 LIT " «)} DI «• DI -321 Q * DU 15618000 T 000612 

CNDJ 15619000 T 000813 

15616000 
I + P,i33U5]l LOG ♦ [MtL]] & ( I -L + 4 ) r 8 I 38 1 1 0] J 15620000 T 000910 

L0GT3] * I «• I-L-51 * NUMBER OF WORDS IN COMMENT 15621000 T 001311 

WHILE f Jl*XCL0CK«-P(RTR)) GEO WITCHINGHOUR DO MIDNIGHT! 15622000 T 001610 

15622000 
L0GC2J «■ DATE,[18l30]; 15623000 T 002312 

LOGtll * Jl 15624000 T 0025U 

L0G[03 * 991 15625000 T 002612 

L06SPACE(tL06rO]J»I+9)| 15626000 T 002713 

FORGETSPACECLOG)! 15627000 T 002912 

ENDj 15628000 T 003012 

15611000 
SIZE" 0031 WORDS 



REAL PROCEDURE KEY J NSC AN( KTR# MI X ) i REAL KTRiMjXJ 



PRT(632) * 



STACKfF+1) 
STACKfF+2) 



KEYJNSCAN 

BEGIN 

RFAL TYPE 
» TYPE 
a TBLADDR 

X 

% 

% 

% 

% 

% 

% 

% 

% 

% 



START OF REL 



16034900 
SEGMFNT* DISK 



T OOOOlO 
ADDRESS ■■ 00466 



i+1, TBLADDRJ 



SCANS INPUT BUFFER FROM SPO 

returns error flag in Mix.rH3] ... 

MIX.ri«l]»FLAG FOR EMPTY BUFFER (GROUP MARK ONLY) 
MIX,r?»13«FLAG FOR NO yNFO AFTER MIX INDEX 
MIX.r3IU*FLA6 FOR OMARK (CO INPUT AS FIRST CHARACTER 
KTR IS INITIALLY THE ADDRESS OF SPO INPUT BUFFER 
«TR jS ASSIGNED NEXT CHARACTpR LOCATjON AFTER SCAN 

TYpE.tCF] lS ASSIGNED TABLE LOCATION (MIXmSG OR INFOMSG) 

TYpF.n «53 IS ASSIGNED PROCEDURE NUMBER 

TYpE,f6«63 IS ASSIGNED MjXcODE 

stream(mlxt»63# 8uff»«ktr :)) % scan input buffer 
bfgin 

St t»BUFF» 

[)T«*BUFF» DH-DI-1I DSJ 3 LlT"<«; % BACKSPACE CHARACTER 

8f60(IF SC«"* M THEN % END OF INPUT STRING 

BEGIN 

DS:=CHR; JUMP OUT 2 TO L? 

END* 

IF SCs"<" THFN % BACK SPACE CHARACTER 
BEGIN 

D|l«DI«ll IF SC NEti DC THEN DI'sDI-U 
END 

ELSE DSl»CHR))J % END OF BACKSPACE CHECK 
L« Sr'aBUFFI DIlsLOC Mix; I! CHECK FOR MIX INDEX 
LI « IF SC*" " THFN 
BEGIN 
SpsSUtJ GO TO Lll 

end; 
if sc="* M then % empty buffer 

BFGIN 

SKIP OB; DS:»SETJ GO TO XXtTI % MIX.tl U]«EMPTY BUFFER FLAG 

end; 

if sc lss "0" then go to xxi t* x no mjx index. set «mlx"*63 
if sc gtr "9- then % question mark, set mix. r 3i i 3 

BEGIN 

SjlxSWi; SKIP 3Db; ds»bSet; go TO XXjTJ % MIX, [31 1J*QMARK flag 

end; 

Sfi.suii ie sc lss *o w Then go to one; 
if sc leq m 9" then 

BEGIN 

s i > «s i - 1 1 ds»*20ct; 

END 

ELSE 

BFGIN 



16035000 T 000010 
16035100 T 000010 



16035200 
16035300 
16035400 
16035500 
16035600 
16035700 
16035800 
16035900 
16036000 
16036100 
16036200 
16036300 
16036400 
16036500 
16036600 
16036700 
16036800 
16036900 



16037400 
16037500 
16037600 
16037700 
16037800 
16037900 



16038400 
16038500 
16038600 
16038700 
16038800 

16038900 
16039000 
16039100 
16039200 
16039300 

16039400 
16039500 



16037000 T 

16037100 T 

16037200 T 

16037300 T 



16038000 T 

16038100 T 

16038200 T 

16038300 T 



0000$ 
00001 
OOOOl 
00001 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
0001! 

ooon 

00021 
00031 
00041 
00041 
00051 

1 

00051 
00051 
00051 
00061 
1 
00061 
00071 
00081 
00081 
00081 
00091 

I 
00091 
00091 
00091 
00101 

I 
00101 
OOlll 
0011 1 
OOlll 
00121 



1 
0012* 

00131 
00141 
00141 
00141 
1 
00141 
00141 

























3 

3 











6036700 



2 

2 

2 

6037100 

2 

2 



2 

2 



6037700 



2 

2 
1 
6038100 

1 



2 

2 

2 

6O386OO 

2 

2 



2 

6039100 

2 

3 



ONpS s?i«si-i; ds«»oct; 

FKOS 

L2* IF SC = " H THFN % SCAN TO NEXT VISIBLE CHARACTER 
BEGIN 
SjlsSj+lJ GO TO L2> 

END> 

IF SC*"*- n THFN X NO INFORMATION AFTER MIX INDEX 
BFGIN 

Di:*LOc M|XJ SKIP ?DBJ DSJbSeTJ % M I X , [ 2 J U»ERROR FLAG 
FND» 

XXjT: Dt'sBUFFJ Oil vDl-61 DS««8LlT"iNV KBD »i 

buff«=sh % save location of next character in buffer 
end stream; 

IF Pf fKTR]»STD.rMIX],SND)ait3)*0 THEN % NOT QMARK.EMPTY OR ERROR 
BFGIN 

TpLADDRl*TYPE»«SPACE(KEYMSGSZ)J 

D tSKWA I Tf-TYPE.KEYMSGS?, MESSAGE TABLET 23. t22»26J) J 
STRFAM(TBFlLl«TYPE> BUFFI*KTR I T OG**C MIX NEQ 63))l 
BEGIN 

St»sTBBU Si IvSI + 1 J D!t=BUFF» Di:«DI+?l 
NEXTj CT'sCI+TOGl GO TO NOMIXI 
MIXi IF SC GEO 1 THEN GO TO OK ELSE 
BEGIN 

Si t s Sl+8S GO To MjX{ 
END; 



% MIX SPECIFIED 

% but this ts not 
% a mix message. 



NOMIXi IF SC GTR j THEN 
BEGIN 
SHsSl+Sf GO TO NoMjX; 

end; 

OKt SlisSl+i; di**di-2; 

?F SC»"«." THEN J! END OF TABLF 
BEGIN 

tbbl«=tally; go to xti 
end; 

IF 2 Sc#DC THEN 
BEGIN 
SlUSl+SJ GO to Nfxt; 

end; 



% MIX NOT SPECIFIED 

% but this is a 

% MIX MESSAGE. 



% NOT MATCHING ENTRY 



TOG«*Di; DI'*LQC TBBLJ SIUSI+2; DS«*2 OcTj % SWITCH VALUE 
ST t»Sl-«l DI»»LOC TBBL> DSl»2CHRl % PROCED S MIXCODE 

Si i«tog» 
li if sc»" * then 

BEGIN 

SpiSj + il GO TO LI 

END! 

BUFF»«SII 
XTl END STREAM STATEMENT; 



16039600 


T 


0014 


J3 


16039700 


T 


0015 


11 

16039500 


16039800 


T 


0015 


«1 


16039900 


T 


0015 


»3 


16040000 


T 


0015 


13 


16040100 


T 


0016 


11 

16039900 


16040200 


T 


0016 


11 


16040300 


T 


0016 


13 


16040400 


T 


0016 


13 


16040500 


T 


0017 


12 
16040300 


16040600 


T 


0017 


12 


16040700 


T 


0019 


• 1 


16040800 


T 


0019 


>2 
16036300 


16040900 


T 


0019 


13 


16041000 


T 


0021 


3 


16041100 


T 


0022 


1 


16041110 


T 


0025 


3 


16041200 


T 


0028 


3 


16041300 


T 


0030 


3 


16041400 


T 


00301 


3 


16041500 


T 


00311 


3 


16041550 


T 


00321 


2 


16041600 


T 


0033< 


2 


16041650 


T 


0033' 


2 


16041700 


T 


00341 



16041600 


16041750 


T 


0034 





16041800 


T 


00341 


2 


16041850 


T 


0034) 


2 


16041900 


T 


00351 



16041800 


16042000 


T 


00351 





16042100 


T 


0035: 


2 


16042200 


T 


00361 





16042300 


T 


00361 





16042400 


T 


0036) 


2 

6042200 


16042450 


T 


00361 


2 


16042500 


T 


00371 





16042550 


T 


00371 





16042600 


T 


00371 


2 

6042500 


16042650 


T 


00371 


2 


16042700 


T 


0038> 


2 


16042800 


T 


00391 


1 


16042900 


T 


00391 


2 


16043000 


T 


00401 





16043100 


T 


00401 





16043200 


T 


00401 


2 

6043000 


16043300 


T 


00401 


2 


16043400 


T 


00401 


3 

6041300 



Pf rKTRj.STQi ,TYPE»STD)» 

F0RGrTSPACE(T8LADDR)> 

ENO % IF NOT QMARK» EMPTY OR FRRQR 

ELSE % OMARK. EMPTY OR ERROR 

IF MfX t C3»lJ THEN I OMftRK 

BEGIN M!XJ=63> 

TYPF»»VCC&Pl04nt37t U J; 

FNO 



FLSF TYPF'*0> 

FND PROCEDURE KfYlNScANj 



16043500 
16043550 
16043600 

16043620 
16043640 
16043660 
16043680 
16043700 

16043750 
16043800 



T 0041*0 
T 0042»0 
T 0042*3 

16041000 
T 0042*3 
T 004213 
T 0044<0 
T 0045*2 
T 0047*1 

16043660 
T 0047*1 
T 0048*2 

16035000 
STZE« 0049 WORDS 



PROCEDURF KFYlNOCB.KTRX)* VALUE B»KTRXJ REAL B.KTRXJ 
PRTC633) » KEYfNO 



16044000 T OOOOSO 
START OF REL SEGMENT! DISK ADDRESS « 00468 



STACKfF+1) 3 ZZSTA 

STACKfF+2) » BUFF 
STACKfF+3) « KTR 
STACKfF*4) c TYPF 
STACKfF+5) ■ MIX 
STACK(F+6) . A 
STACKfF+7) m I 
STACKfF+10) n J 
STACK(F+11) s K 

STACKfF+6) . U 

STACKfF*?) . BUFA 



BEGIN 

integer zzsta; 

real buff. ktr. type. mi x* a, i. j. kj 



REAL U ■ A; 
ARRAY BUFA 



LABEL 



RUFFE*] ; 



nSM. 


CUTY, FORGET, ERROR. FXjT 










.AX 


♦IL ,QT .OU fWY »RY 


»ds 


.TF 


»RM 


.DP 


»PD 


,5T ,CM ,SV »CL »BK 


.TI 


.PR 


.RO 


.IT 


»wi 


,RXtT ,rc 











I 

SWITCH St 



ERROR 




















.AX 


.IL 


.IL 


,QT 


.OU 


.WY 


.RY 


.DS 


.DS 


.TF 


.TF 


.RM 


.DP 


, DD 


,DD 


.DP 


.ST 


.CM 


.sv 


.CL 


»BK 


.RXlT 


»RY 


.RXlT 


.RXlT 


»TJ 


.PR 


.RO 


.RO 


.IT 


• HI 


• RXlT 


»RC 

















SUBROUTINE SpOlT* M[BUFF"?]'«B AND P/570000000000 ; 



AXt 



TL» 



BU 
MI 
TY 
KT 
ZZ 
GO 

I 
GO 

IF 

TY 
IF 
GO 



FF i«KTRX.ri5l 1511 

X :«KTRX,[ 916 31 

PE t.KTRX.t 217 3J 

R l»KTRX.ri5»33]J 

STa :*0 ft tM[BUFF-21)r9:9«9]» 

TO RfTYPE]? 



■m BUFF> 

to RXit; 

ci :*anvil(type=2»ktr)) 
rr 1 lss 70 then go to 

PE »* 21 % IL 

i gtr pseudomaxt then buff«"ii 
to rxit; 



gtr pseudomaxt 
frrorj 



THEN % IL*2. UL«3 



16045000 
I6O46OOO 
16047000 



16048100 T 
16049000 T 



16050000 
16051000 
16052000 
16053000 
16054000 
16055000 
16056000 
16057000 
16058000 
16059000 
16060000 
16061000 
16062000 
16063000 
16064000 
16065000 
16066000 
16067000 
16068000 
16069000 
16070000 
16071000 
16072000 
16073000 
16074000 
16075000 
16076000 
16077000 
16078000 
16079000 
16080000 
16081000 
16082000 
16083000 
16084000 
16085000 
16086000 



OOOOtO 
0000(0 
0000:0 



16048000 T 000010 



000010 
OOOOtO 

ooooto 
000010 

000080 
000010 

ooooto 

000010 
OOOOJO 

000010 
ooooto 

0000(0 
0000(0 

ooooto 
ooooto 
ooooto 
ooooto 
ooooto 

000010 

ooooto 
ooooto 
ooooto 
ooooto 

0005(0 
000510 
0008(2 
0009(3 

oonto 

0012(1 
0015(1 
0033(1 
0033(1 
0034(0 

0034(2 
0034(2 
003710 
003813 
003912 
0041 (2 



OUl 



STRFaM(A«="UP w 

bfgin 

St (* KTRJ 

dt t» loc 

Tfll.LYJsU 
TaLLY«*2» 
TALLYJ«3» 

Tally (m; 
taluyiss; 
tally (=o; 
xt : a :» tally? 
end; 



j F?js"MT% c("="DK", 0» B "CP'*# KTR)» 



a; 

IF 
IF 



DI 5s 0T+6| 

STb"*." THEN fiO TO xt; 

2 SC«DC THFN GO TO XT* 
Sii«Si»2; DpsOl + l^; IF 2 SCeDC ThEN 
SllaSl-?; DP=Dl + 6; IF 2 SC*DC THEN 
M(»ST-2' DI«=DT+6J IF 2 SC»DC THEN 



GO 
GO 
GO 



TO 
TO 
TO 



XT 
XT 
XT 



WYI 



os« 



!F(n«P) « o then go to error; 
go to rxit; 

if mix i,ss 63 then go to Rxit; % <mix> wy 
spoit; 

A 1 *Oj 

FOR i»*1 STEP t UNTIL MJXMaX DO 

if *rJAWRow[in neQ o then 

IF REPLYtl] LSS THFN REPLY [ A » =13 I *VWY ; 
A*0 THEN GO TO FORGET! 
BUFE-13 »«FLAGf"NULL ")! 
TO FRRORJ 



IF 

Mr 

GO 
IF 



IF 

OSMI 



M ? Xa63 THEN % W DS A/B" 
BFGIN 

NaMEID(J.KTR)! NAMElDfK,KTR)> NAME ID (K» KTR > ; 
FOR MIXI»1 STEP 1 UNTIL MiXMAX DO 
IF *[JARROWfMIX33 NEQ THEN 

IF (J EOV ABS(JARrMiX»0]))sCNOT 0} THEN 
IF CK E«V ABS( JARtMlX»13 >)»NOT THEN 
BEGIN 

TARCNT£MlX]»*TABCNTCMlX3+i; 
GO TO dsm; 
fnd; 



GO TO FRRORJ % NOT FOUND 
END1 % IF MIX NOT GIVEN 

jaRRowtmix] neo o then 

BFGIN 

J*RrMlX»6],[jini»f (TYPf»9) OR (TYPE*20))I % 

TfRMINATEJ Mt X&f IE B,f9!9J GTR THEN 61 ELSE 

halt; 

NOPROCESSTOGlai N0PR0CESST0G"1 ! 

GO TO FORGETl 

END! 



DS«8#Sd*9»CL«20 
3)[CTF3)» 



TF1 



go to errori 

if type*ii Then spoit; % sf*h 
changefactoR(ktr»type*io); % tf> 
go to exit; 



lOtSFMl 



RMt 



16087000 


T 


0042(0 


16088000 


T 


0042)0 


16089000 


T 


004410 


16090000 


T 


004410 


16091000 


T 


0044U 


16092000 


T 


0044(3 


16093000 


T 


0045(3 


16094000 


T 


0046(3 


16095000 


T 


0048! 1 


16096000 


T 


0049(3 


16097000 


T 


005U1 


16098000 


T 


005P2 


16099000 


T 


0051O 

16089000 


16100000 


T 


0052(0 


16101000 


T 


0053(2 


16102000 


T 


0058(0 


16J03000 


T 


005810 


16104000 


T 


0059(1 


16105000 


T 


0060(0 


16106000 


T 


0060)3 


16107000 


T 


0062(0 


16108000 


T 


0063d 


16109000 


T 


0069(1 


16109500 


T 


0070(2 


16110000 


T 


0073(0 


16111000 


T 


0075(0 


16U2000 


T 


0075(0 


16H3000 


T 


0075(3 


16H4000 


T 


0076(1 


16U5000 


T 


0079(1 


16H6000 


T 


0080(0 


16U7000 


T 


0081(1 


16U8000 


T 


0084(1 


16118100 


T 


0087(1 


16U8200 


T 


0087(3 


16H8300 


T 


0091(0 


16U8400 


T 


0091(2 

16H8100 


16H9000 


T 


0093O 


16120000 


T 


0094(1 

16U3000 


16121000 


T 


0094(1 


16122000 


T 


0095d 


16123000 


T 


0095(3 


16124000 


T 


oiooa 


16125000 


T 


010410 


16126000 


T 


010412 


16127000 


T 


0105(3 


16128000 


T 


010611 

16122000 


16129000 


T 


0106(1 


16130000 


T 


010613 


16131000 


T 


0106(3 


16132000 


T 


0109(0 


16133000 


T 


0110(2 


16134000 


T 


0111(0 



'TYPERRC9: 9 !9] * 

rxtt? 



typem 
go to 
op« 
8 sft omtt * notcdfbuggins or nump) 

STReaM(A«s ,, LP m . KTR : B»e"MT»)J 
BFGIN 
S| :« KTR? 

l« LOC A; D! » = D! + 61 TALLYlMI 

2 sc=dc Then go to xt? 

2?; Si «= ST • 2? TALLYlapJ 

then go to xtj 



Ot 

if 
Dt 
IF 



XTt 



i* ni + 

2 SCsDC 

tally:»oi 

A »« TALLY? 
END STREAM 



KTR (* St 

STATEMENT) 



IF (Al»P(tKTR]#STO))"0 THEN GO TO FRROR? 
IF Asl THFN 
$ SFT OMiT s DEBUGGING 

GO TO error? 

* POP OMIT 

B SET OMIT = NOT DFBUGGING 

DUMPrORF(KTR*BUFFn5:33ll5])| 
$ POP OMJT 

GO TO EXIT? 

SFT OMfT * NOTCDEBUGGtNfi) 

GO TO forgeti 



%763> 
X763« 
*763« 

*763« 



DO* 
S 

STl 

S 

t 

CM| 

SVI 

QT* 



IF -REPLYCMIX] * ( VWY* VOKC 36 J 42 » 6] > OR JAKROW t M I X ]«0 THEN GO FRROR? 
SET OMJT ■ NOT(WORKSeT) 

IF JaRCMTX.93.C3M 3 THEN GO TO ERROR? % ALREADY ST-ED 
POP OMIT % WORKSET 

IF NOTERMSET(MIX) THEN PRTROWT. Ml X ] . [ PSF ] J *2? 
GO TO FORGFT; 

CHANr,EMCP(KTR)J 
GO TO EXIT? 



SAVFTHFUMTCKTR)? 
GO FORGFT? 



IF MIX LSS 63 THEN % MIX 
CUTYs IF JARrMlX#9].SYSjOBr 
BEGIN 
REPLY[MIX] JeTYPE? 



INDEX SPECIFIED 
s PRNPBTCODE THFN 



B2« 



STRFAM(A» 
BEGIN 
51 JarKTR? 

if sc="+" Then 
if sc»"- n Then 
si l.Sl+l? 
B»*TALLY? 
6(IF SC LSS 
KTRjsTALLY? 



0, Bl*0 * KTR)? 



TALLYJ-2 
TaLLY«*3 
THEN 



ELSE 

ELSE GO XTl 
GO TO B2? 



IF Scb" 

tally«*o? 

"0" THEN JUMP OUT? SlUSUll T ALL* I «T ALLY+1 ) i 
DI»«LOC A? SIUSI-KTR? DS|«KTR OCT? 



XTJ END STREAM STATEMENT? 



NT?JsP? 



16135000 


T 


0111*0 


16136000 


T 


011213 


16137000 


T 


01 13a 1 


16138000 


T 


0113U 


16139000 


T 


011311 


16140000 


T 


0H4I3 


16141000 


T 


011413 


16142000 


T 


0115»0 


16143000 


T 


0115J3 


16144000 


T 


011612 


16145000 


T 


0117*1 


16146000 


T 


0! 18*0 


16147000 


T 


Ot 18* 1 


16148000 


T 


0118! 3 

16140000 


16149000 


T 


0119*0 


16150000 


T 


0121 *0 


16150099 


C 


0121*3 


16150100 


C 


0121*3 


16150101 


C 


0122*1 


16150999 


c 


0122*1 


16154000 


T 


0122*1 


16154001 


T 


0124*0 


16155000 


T 


0124*0 


16156000 


T 


0127*0 


16157000 


T 


0127*0 


16161000 


T 


0127*0 


16162000 


T 


0127*2 


16163000 


T 


0127*2 


16163100 


T 


0131*3 


16163200 


T 


0131*3 


16163300 


T 


0134*0 


16164000 


T 


0134*0 


16166000 


T 


0138*2 


16167000 


T 


0139(0 


16168000 


T 


0139*0 


16169000 


T 


0139*3 


16170000 


T 


0140*1 


16171000 


T 


0140*1 


16172000 


T 


0141 *0 


16173000 


T 


0141*2 


16176000 


T 


0141*2 


16178000 


T 


0142*1 


16180000 


T 


0144*3 


16181000 


T 


0145*1 


16187000 


T 


0146*2 


16188000 


T 


0148*0 


16189000 


T 


0148*0 


16190000 


T 


0148*1 


16191000 


T 


0149*1 


16192000 


T 


0150*2 


16193000 


T 


0151»2 


16194000 


T 


0152*0 


16195000 


T 


0154*0 


16196000 


T 


0155*2 

16188000 


16197000 


T 


0155*3 



NT1 J*Pj 
PRT[MlXi*25]i«5»NTl[9»24i2*I*NT2[ll«6l2J| 

r,o to forget; 

FLSF GO TO FRRORJ % NOT PRNPBT 

CL» * MUST FOLLOW QT 

IF <Tl«UNlT!N(TlNU» KTR)) LSS 64 THEN % UNIT ] MTX 

IF OMXl«RnCTABLEri].[8|6]) NpO THEN 
BEGIN 

TABCNT[MlX]:=TABCNTtMm + l) 
IF TYPfa4 THEN GO TO OT ELSE GO TO DSM) 

FNDJ 

t SET OMIT * NOT(SHAREDISK) 

TF TyPF»4 OR (I GTR ?9> THFN GO TO ERROR! % OT OR PSFUQO UNIT 
LABFLTABLFrn »* P(DUP»LOD» SSP) I % MARK IT NOT IN USE 
MIX 1.631 
GO TO RYJ 
BK1 
$ SET OMIT s NOTCDATACOM AND OcSPO) 
BFGIN 

IF (I'* Mp.SSAGFHOLDER.rcn) NfQ THEN 
IF (J«s M[ I J.CFF]) NEfl THEN 
BFGIN 

DO BEGIN 

AtsMt J] J 

IF (A,r4'5]«0 AND MjX*63) OR (A.(4l5]sMIX AND Ml X NfQ 63) 
$ SFT OMIT s NOTCDATACOM AND DcSPO) 
THEN 

BFGIN 

MCI]'* P(DUP#L0D)&A[i8ll6ll5]l 

NUMeSSi* numess-h 

forgetspacecj+i); 

end else i ««j; 

end until cj*« a.iffj )*0j 

MFSSAGFHOLDFR.tFF] l* I) 

END J 

END! 

MI X **63 J 

GO TO FORGET* 



RYt 



Tn 



IF (I i*fORMFSS(KTR»TYPE*VFM)) LSS THEN GO TO FORGFTJ 
IF I GTP 31 THEN GO TO pRROR ELSf GO TO RXjTJ 

TlMFUSFfKBUrF-l.MlX); 
GO TO FXlTJ 



PRl 



ROl 



SPOITI 
CHANr,EPRlORlTY(KTR»MjX); 

GO TO exit; 

CHANr,FOPTlONfKTR.TYPE»28); % R0*28»S0*29 
GO TO exit; 



16198000 


T 


0156 


>1 


16199000 


T 


0156 


53 


16200000 


T 


0160 


:2 


16201000 


T 


0161 


JO 
16180000 


16202000 


T 


0161 


10 


16203000 


T 


0161 


«0 


16204000 


T 


0161 


»0 


16205000 


T 


0163 


;i 


16206000 


T 


0165 


13 


16206100 


T 


0166 


; l 


16206200 


T 


0169 


12 


16206300 


T 


0171 


11 

16206000 


16207000 


T 


0171 


11 


16215000 


T 


0171 


'1 


16216000 


T 


0173 


:3 


16217000 


T 


0175 


12 


16218000 


T 


0176 


il 


16219000 


T 


0176 


13 


16220000 


T 


0176 


3 


16223000 


T 


0176 


t3 


16224000 


T 


0176 


3 


16225000 


T 


0178 


2 


16226000 


T 


0181 


12 


16227000 


T 


018? 





16228000 


T 


0182 


!0 


16229000 


T 


01831 


2 


16230000 


T 


01871 


2 


16232000 


T 


0187 


12 


16233000 


T 


0188 


1 


16234000 


T 


01881 


3 


16235000 


T 


0191 





16236000 


T 


01921 


1 


16237000 


T 


01931 


2 

16233000 


16238000 


T 


0194 


3 

6227000 


16239000 


T 


0197 





16240000 


T 


01981 


1 
6226000 


16241000 


T 


0198 


1 
.6223000 


16241500 


T 


01981 


1 


16242000 


T 


0199) 





16243000 


T 


01991 


2 


16244000 


T 


01991 


2 


16245000 


T 


02021 


2 


16246000 


T 


02041 


1 


16247000 


T 


02041 


1 


16246000 


T 


02051 


3 


16249000 


T 


02061 


1 


16250000 


T 


02061 


1 


16251000 


T 


0207« 





16252000 


T 


02081 





16253000 


T 


02081 


2 


16254000 


T 


02081 


2 


16255000 


T 


02101 






ITI 



WI I 



IF NOT JAR[MjX,93,r4$13 THF^ GO fRHOHl 
JARtMIX,9]*f *P(DUP)) & l[5|47ll]| 
GO FORGFTS 

WHAT|NTRNSlC(BUFF"l)> 
GO TO FRRORJ 



RCI 

U «■ UNITIN(TINU»KTR); 

TF U > 15 THEN GO FRRORj 

IF (f*ROCTABLECU3.[Bl6])«0 OR 

PRNTABLEtUJ,H5H51«0 OR NOT PRNTABLECU3 . t 1 » 1 3 THEN GO ERROR* 
INdFPFNDENTRUNNfR(P(,,RffLcHaNGER)»U#204)J 

go foRgft; 

RX t T » 

RFPLYtM|X] lr TYPF&l[t8l33ll5]» 
IF I NfO BUFF THEN 
BFGfN 
FORGET? 

STREAM(TI*BUFF"1 )J OS«s uit **"; 
FRRORJ 

SpOUT(f BUFF-1 ) INX (0SZ7STAt9»9l93))J 
ENDJ 

FXlT» 

!FcMiX>0)ANDfMlX<MlXMAX)THFN TABCNT fM I X ] *TABCNT [M I X 3" 1 1 X113- 

end pRocfduRf kfyino; 



16256000 
16257000 
16258000 
16259000 
16260000 
16261000 
16262000 
16263000 
16263100 
16263200 
16263300 
16263350 
16263600 
16263700 
16343000 
16343100 
16343200 
16343300 
16343400 
16343500 
16343600 
16343700 
16343800 

16343900 
16343950 
16344000 



T 0210*2 

T 021012 

T 021212 

T 021512 

T 0216*0 

T 021610 

T 0217M 

T 0217S3 

T 021713 

T 021912 

T 0220*3 

T 022213 

T 022613 

T 0228*0 

T 0228*2 

T 0228*2 

T 0230*1 

T 0231*0 

T 0231*2 

T 0231*2 

T 0233*2 

T 0233*2 

T 0236*3 

16343300 

T 0236*3 

P 0236*3 

T 0242*1 

16046000 
SIZE* 0243 WOROS 



PROCFDURF KfYiMlfB,KTRX)J VALUE B.KTRXJ REAL B.KTRX; 
PRT(634) a KEYlNl 



16345000 T OOOOlO 
START OF REL SEGMrNTJ DISK AOORESS ■ 00477 



STACKfF+D ^ ZZSTA 

STACKfF*2) n BUFF 
STACKfF*3) * KTR 
STACKfF+4) * TYPE 
STACK(F+5> = MfX 
STACKfF*6) = A 
STACKfF+7) = I 
STACKfF+10) » J 
STACKfF+11) b K 

STACKfF*?) ; BUFA 



BEGIN 

INTEGER Z7STA; 

REAL BUFF* KTR. TYPE. MIX, A. I. J, k; 



ARRAY BUFA * BUFFf*JJ 



LABEL FORGFT, ERROR. EXIT 

.BO .LI .SS »BS .Sc 

,TR .WT ,WM .CC pOL 

.SI .LR ,0T .IN ,F£ 



*\IQ 


.RR 


»CA 


#0T 


»WD 


»PB 


»RN 


»LD 


,R0 


.ED 


.OC 


.SO 


.CS 


»HS 


.WK 



SWlTrH S»» ERROR 


















»B0 ,LI 


»L J 


.LJ 


.SS 


.SS 


.SS 


iSS 


.BS 


.BS 


.SC »VQ 


• RR 


.CA 


»CA 


»DT 


.WD 


f TR 


.WT 


»WM 


»CC ,0L 


»PB 


,Rn 


• LD 


»Ro 


.RD 


.ED 


.SI 


,LR 


.OT ,IN 


'FE 


.oc 


.SQ 


»cs 


»hs 


»WK 







SUBROUTINE SPOITJ MrBUFF"?l»*B AND P7570000000000I 

BUFF !»KTRX.[15»15JI 
MIX IsKTRX.f 916 ]; 
TYPE l»KTRX,[ 217 JJ 
KTR »«KTRX,[15*33]> 
77STft i»0 & fMtBUFF-2J)[9»9»9]« 
GO TO SfTYPF]* 
B0» 

* SET OMjT * NOTtDCSPO ANd DATaCOM) 
LP 

* SET OMIT a N0TCDCSP0 AND DATACOM) 
GO TO pX I T J 

SSI 
I SET OMIT e NOTcOCSPO AND DATACOM) 
GO TO EXlTJ 
BSl 

* SET OM IT ■ NOT(DCSPO AND DATACOM) 
GO EXIT) 



16346000 
16347000 
16348000 



16351000 
16352000 
16353000 
16354000 
16355000 
16356000 
16357000 
16358000 
16359000 
16360000 
16361000 
16362000 
16363000 
16364000 
16365000 
16366000 
16367000 
16368000 
16369000 
16370000 
16371000 
16372000 
16373000 
16374000 
16375000 
16376000 
16377000 
16378000 
16379000 
16380000 
16386000 
16387000 
16390000 
16391000 
16392000 
16394000 
16395000 
16396000 
16406000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



OOOOlO 
OOOOlO 
OOOOlO 



16349000 T OOOOlO 



16350000 T OOOOlO 



OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

OOOOlO 

000510 

000510 

000812 

000913 

001110 

001211 

001511 

003513 

003513 

003513 

003513 

003513 

003611 

00361 1 

003611 

003613 

003613 

003613 



sc» 

S SFT OMJT * NOTCDCSPO ANn DATACOM) 

GO 10 FXlTl 
RR» 

t SET OMIT s NOT(DATACOM) 
VQl 
S StT OMIT * NOTCDCSPO AND DATACOM) 

GO TO EXJTJ 
CA« 
8 SET OMTT s NOT(AUXMEM) 

GO TO FRRORJ % SPOUT AUX MfSSAGF OR ERROR MfSSAGE 
DTS 

SETDATE(KTR)! 

GO TO EXjTl 
WD» 

GlMEnATF(BUFF-l.l)J 

GO TO FXITJ 
TRl 

SETjMEfKTR)J 

GO To FXlT; 
WTs 

TIMEOUT (BUFF-1)> 

GO TO FXITJ 
WMt 

forgfTspace^ruff-i )i 
whatmcp(BUff); 

BUFF«sRUFF+1 J % FAKE OUT ERROR 
GO To FRR0R* * SPOUT MESSAGE 
CCS 

AI*MrBUFF-33.CCF)-BUFF» % WDS IN MESSAGE 
STREAMfBUFF* BL«»A>8» KTR»a(KTRJ«SpACE(A+2)+?))» 

BEGIN 

Sil-rPUFFJ 

8LC36(DS«*2LlT" " ) I DH>KTR)I 

IF SC NEQ "*" THEN 
RFGIN 

dsischr; 

Lt IF SC NFQ "*" THEN 
BEGIN 

IF SC NFS p l* THF.N DS«*CHR ELSE SI t«Sl *1 1 

GO TO LI 

FND> 

FNDI 

DS»«CHRJ 
ENDI 

MtKTR»4].f9f6Jl«0l 
IF ARS(B) GTR 1 THEN 

INDFPENDFNTRUNNfR(P(.C0NTR0LCaRD)»KTR&30[2J42i6]4ZZSTA[9i9|9], 

19?) 
ELSE INDFPENDENTRUNNER(P( , CONTROLC ARD ) # KTR&25[ 21 42 I 6 3 » 192 ) I 
GO TO FORGET; 



OLt 



OUTPiiTLABELCKTR)! 
GO TO EXIT? 



16407000 
16408000 

16410000 
164H000 
16412000 
16456000 
16457000 
16485000 
16486000 
16*187000 
16489000 
16490000 
16491000 
16492000 
16493000 
16494000 
16495000 
16496000 
16497000 
16498000 
16499000 
16500000 
16501000 
16502000 
16503000 
16503100 
16503200 
16504000 
16505000 
16505100 
16506000 
16507000 
16508000 
16508100 
16509000 
16510000 
16511000 
16512000 
16513000 
16514000 
16515000 
16516000 

16517000 

16518000 
16519000 

16520000 
16521000 
16522000 
16522100 
16523000 
16524000 
16525000 
16526000 
16527000 



T 003M 


T 00371 


T 0037? 


T 00371 


T 00378 


T 00371 


T 00371 


T 00371 


T 00381 


T 00381 


T 00381 


T 0038* 


T 00381 


T 00391 


T 00401 


T 00401 


T 00411 


T 00421 


T 00421 


T 0042« 


T 00431 


T 00431 


T 00441 


T 00451 


T 00451 


T 0046* 


T 00471 


T 00481 


T 00481 


T 0048» 


T 005H 


T 00561 


T 0056> 


T 00565 


T 0058! 


T 00591 


T 0059J 


T 0059J 


T 00601 


T 00601 


T 00611 


T 00611 


T 00611 


T 00611 


T 006U 


T 00621 


T 00651 


T 00661 


T 00691 


T 00691 


T 00721 


T 00731 


T 00731 


T 00741 



1 
1 

1 

3 
3 
3 
3 
3 
1 
1 
1 
3 
3 
2 


2 


3 
1 
1 
2 



1 



1 

3 
3 

3 
2 
2 
3 
3 
1 
1 
2 



1 

2 

6513000 

2 

6510000 

2 

3 

6507000 



1 
1 
2 
3 
3 
1 
1 




PBs 



RN: 



L0» 



RDs 



FD» 



PR?NTBACKUPfKTR»R[6i9l9])| 
f,0 TO F"X T T S 

SPOiT? 

RUNThEDFCK(KTR)> 
GO TO PX I T J 

STARTLOADN(KTR); 
GO TO fxit; 

DFCKRFMOVFRfKTR)) 
GO TO fxjt; 

FXTFRNAlFNDfKTR); 
GO TO fxtt; 



S T i 

» SET OMll * NOT(STATlSTicS) 
GO To FRRORJ % SFOUT MESSAGE 
LRt 
$ SET 0M1T = N0T(DCL0G AN[) DaTaCOM) 
GO TO FORGET} 
IN! 

KTRj=-KTRi 
OTl 
S SET OMIT ■ NOT(BREAKOUT) 

IF PRTGAMESf KTR.MJX) TheN fiO E«POR FLSe 

IF KTR LSS THEN GO FORGfT EL,Se GO EXJTJ 
FE: 

j*« r,ETSpACE(35»9,0) + ?; 
STREAM(KTR80!aJ+?)> 
BfGIN 

s t «*ktr; 

4 r 6 .3 r I F SC NFQ "*" THEN DS»*ChR ELSE JUMP OUT 2 TO LL))5 
LL» DS«sl!T"«-"> n I « «DI -II KTR:=0IJ 

END I 

I t= p T NX 01 

M[J] j» ( T-J) DIV 5J 

STRf:/\M(nATE» AtcJ+1); 

BrGTN 

Si i«i.oc date; ds: = 8 oct; 

END) 



oc» 



SQ: 



LINKuPf 19»J); 

go to forget; 

.ogcommfnt(KtR); 
go to forget; 

i 

STRf-aM(TYPe» = OJ jNF0l**"STOpOKN" f T Nf02 l»P?567630000000000, 

KTR); 
BEGIN 

sii*ktr; dti«loc infOi i dh»di + i* Tallyi*i> 

IF 4 SCsDC THEN GO TO EXT; 
S! i «SI -41 TAULY:»TALLY+1 I 

if 2 sr«Dc then go to ext; 



16528000 


T 


0074 


12 


16529000 


T 


0074 


12 


16530000 


T 


0076 


11 


16531000 


T 


0076 


13 


16532000 


T 


0076 


«3 


16533000 


T 


0078 


10 


16534000 


T 


0078 


«3 


16535000 


T 


0079 


•1 


16536000 


T 


0079 


11 


16537000 


T 


0060 


to 


16538000 


T 


0080 


12 


16539000 


T 


0080 


12 


16540000 


T 


0081 


11 


16541000 


T 


0081 


13 


16542000 


T 


0081 


13 


16543000 


T 


0082 


12 


16544000 


T 


0083 


10 


16545000 


T 


0083 


10 


16576000 


T 


0063 


10 


16577000 


T 


0083 


12 


16578000 


T 


0083 


2 


16580000 


T 


0083 


2 


16580600 


T 


0084 


10 


16580800 


T 


0084 





16581000 


T 


0085 


10 


16582000 


T 


0085 





16588000 


T 


0085 





16589000 


T 


0066 





16590000 


T 


0068 


2 


16591000 


T 


0068) 


2 


16592000 


T 


0090) 


13 


16593000 


T 


0092< 


12 


16594000 


T 


0092! 


2 


16595000 


T 


00921 


3 


16596000 


T 


0095« 


2 


16597000 


T 


00961 


2 

16593000 


16598000 


T 


0096 


13 


16599000 


T 


00971 


3 


16600000 


T 


01001 


1 


16601000 


T 


01011 


3 


16602000 


T 


0101 


3 


16603000 


T 


01021 


1 
16601000 


16604000 


T 


01021 


2 


16605000 


T 


01031 


2 


16606000 


T 


01 04 < 





16607000 


T 


01041 





16608000 


T 


01041 


3 


16609000 


T 


01051 


1 


16609100 


T 


0l05« 


1 


16609200 


T 


01061 


2 


16609300 


T 


0107« 





16609400 


T 


01071 





16609500 


T 


01081 





16609600 


T 


01081 


3 


16609700 


T 


01091 


1 



SfsSl-Z; TaL,LY:*TaLLY + ?J 
IF 4 SC*DC THEN GO TO FXT* 
TALLYI»TALLY+4J 

EXT: typfs«tally> 
end; 

if prmrp(.disksquash) j.top) then if pcp.tff] and p,dup)#0 then 
Pf .DiSksquash.std) else go tq error else if pcxch>«8 then 

BEGIN 

INOEPENOENTRUNNERCPC ,D!SKSQUASH)»KTR»128); 

GO TO EXIT; 
END FlSF GO TO ERROR* 

GO TO FORGETJ 
mSi 

S SFT OMIT = NOT SFPTICTANK 
cS: 

S SET OMfT = NOT SF.PTlCTANK 

go to exit; 

WKJ X WORKSET RfOUfSTS 
S SET OMfT s MOT(WORKSeT) 

wksetvaluesfktrx); go to exit; 
s pop omjt * workset 
forgeti 

strfamcti«buff-i ); |)Sta LtT "♦'»; 
fRROR; 

SPOUTf(RUFF-l) INX ( O&ZZSTa C 9 : 9 J 9 ] ) ) ; 
EXIT J 

!FCMiX>0)ANDfMIX<MlXMAX)THFN TABCNTCMIX]*TABCNTtMlX]-ll 
END PROCEDURE KFYINU 



X113- 



16609800 
16609900 
16610000 
16610100 
16610200 

16610300 
16610400 
16610500 
16610600 
16610700 
16610800 

16610900 
16611000 
16611990 
16613000 
16613990 
16615000 
16615100 
16615110 
16615200 
16615210 
16689000 
16689100 
16689200 
16689300 
16689400 
16689450 
16689500 



T OHOIO 

T 011012 

T 0111U 

T 011112 

T 0lll«3 

16609300 

T 011210 

T 0H5I2 

T 0119*3 

T 012011 

T 012112 

T 012210 

16610500 

T 012210 

T 012212 

T 012212 

T 012212 

T 012212 

T 0122»2 

T 0123*0 

T 012310 

T 012310 

T 012411 

T 0124J1 

T 0124U 

T 01261 1 

T 012611 

T 012912 

P 012912 

T 0135»0 

16347000 
SIZE* 0136 WORDS 



PROCEDURE KEY?N2(KTRX)J VALUE KTRXl REAL KTRXl 
PRT(635) * KEYIN2 



STACKfF+O) n RCW 
STACKfF-2) a MSCW 
STACKfF+1) * ZZSTA 

STACKfF+2) m BUFF 
STACKfF+3) » KTR 

STACK(F+4) , TYPE 
STACKfF+5) s MIX 
STACKfF*6) = A 
STACKfF+7) m | 
STACKfF+10) = J 

STACKfF+11) * K 

5TACK(F+12) = B 

STACK(F+13) s R 

STACK(F+14) = Rl 

STACK(F*15) ■ R2 

STACK(F+16) b R3 

STACKfF+17) = R4 



REGIN 

REAL RCW * + 01 

REAL MSCWs-2J 

INTERER ZZSTa * RCW + 11 

REAL RUFF » ZZSTA + 

KTR 9 RUFF + 

TYPE s KTR + 

MIX a TYPE + 

A » MIX + 



I 
J 

K 

B 
R 

Rl 
R? 

R3 
R4 



* A 

* I 

■ J 
m K 

* B 
« R 
= Rl 

■ R? 

* P3 



+ 
+ 
+ 
+ 
+ 

+ 
+ 
■f 



UNlTNO* R4 



REAL 
STACK(F*20) > UNJTNO 

INTERER INT1 * NT1 
PRTU60) « tNTI 



STACK(F+6) a INT2 
STACK(F+10) = INT3 
STACK(F+17) ■ INT4 
STACKfF+2) * BUFA 
STACK(F*16) • UT 



ARRAY 



INT2 ■ A 

I NT 3 = J 

INT4 » R4 

BUFA « BUFFt*3 

UT ■ R3[*] 



S SET OMjT « NOT SHAREDISK 

I 
$ SET OMJT » SHAREDISK 

DEFINE U ■ AVTABUE* I 



16690000 
START OF REL SEGMFNTl DISK 

16690500 
16691000 
16691500 

16691550 

16692000 

16692500 

16693000 

16693500 

16694000 

16694500 

16695000 

16695500 

16696000 

16696100 

16696200 

16696300 

16696400 

16696500 

16696600 

16696650 

16696700 

16696800 

16696900 

16697000 

16697100 

16697200 

16697300 
16697600 
16697700 
16697800 



T 0000«0 
ADDRESS « 00482 



T 
T 
T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 
T 
T 



000050 
000010 

ooooto 

0000*0 
000010 
0000*0 
OOOOiO 

ooooto 

000010 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 

ooooto 
ooooto 
ooooto 

OOOOtO 
OOOOIO 
OOOOtO 

ooooto 

000010 
000010 

ooooto 
ooooto 

000010 

OOOOIO 

OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 



« POP 0MjT 
REAL HNl 



REA! 



STACKfF+5) = HNl 
STACKfF+4) * HN? 
STACK(F+7) « SEG 
STACKfF+lO) = ADR 
STACKfF+11) * LOCN 

STACK(F + H) » HALTFD 

NAME 
STACKfF+16) s SEGDTCT 



■ MIX 
HN? a TYPE 
5FG « I» 
ADR ■ J. 
LOCN * K. 
HALTED* Rtl 
SFGOFCT ■ R3; 



LABEL RR» PGA. FERGIT* FORGET. ERROR* EXIT 

,WU »WP ,WR .MX ,TS »LF »LC »LS »EX ,PO 

,SM »P0 ,PC, »AU ,MS #LN »CD tCU »SY , SL 

.RW .CI .CT »Xq ,MC »RS »HD »RA .EI 



f 1 39» 



SWjTrH S := fRROR 


















,WU »WP 


»WR 


.MX 


.TS 


.TS 


.TS 


.TS 


.LF 


*LC 


pLS .fx 


»PD 


»SM 


.PO 


»PO 


.PG 


.AU 


.MS 


»LN 


.CD .CD 


.CD 


-cu 


,SY 


.SI, 


.RW 


»ci 


.CT 


.CT 



,CT »XD »XD »MC ,RS »HD 



RA 



EI 



S139- 



SUBROUTJNE SPOIT; M[BUFF*2]»«B AND 07570000000000) 
P(0, 0, 0, 0, 0, 0, 0. 0. 0. 0)1 

p(0, o, o» o, o, 0); 

RUFF l=KTRX, [15M51I 
MIX l=KTRX.r 9:6 ]} 
TYPE l*KTRX.[ ?;7 ]| 
KTR lsKTRX,[i5 : 333 ; 
ZZST* 1*0 & (M[BUFF-23)r9l9l9]l 
B »«= MtBUFF-lll 
8 SET OMJT * NOT(PACKETS) 

IF MtX#63 THFN UNlTNOI«PSEUDOMIXrMlXl> 
$ POP OMIT 

STREAMfpi*BUFF-l )l DS»*8LlT"jNV KBD "I 
GO TO SrTYPE]) 
WU: 

S SFT OMIT = NOTCDCSPO AND DaTACOM) 
WP: 

J SET OMiT * NOTCDCSPO AND DaTACOM) 
RR: 
t SET OMIT * NOTCDCSPO AND DaTACOM) 
GO TO FXITJ 
WRt 



16697900 T 

16698000 T 

16698100 T 

16698200 T 

16698210 T 



16698230 T 
16698240 T 



16698500 
16699000 
16699500 
16700000 
16700500 
16701000 
16701500 
16702000 
16702500 
16703000 
16703500 
16704000 
16704500 
16705000 
16705500 
16706000 
16706500 
16707000 
16707500 
16708000 
16708500 
16710000 
16710100 
16710500 
16711000 
16711500 
16712000 
16712500 
16713000 
16713499 
16713500 
16713501 
16714000 
16714500 
16715000 
16715500 
16719500 
16720000 
16721500 
16722000 
16737000 
16737500 



0000(0 
000010 

000010 

000010 

000010 



16698220 T OOOOlO 



OOOOlO 

0000)0 

OOOOlO 
000010 

ooooto 

OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 

ooooto 

OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
000510 
0005'0 
000712 
000910 

ooiou 

001112 
001213 
001410 
001710 
001910 
001910 
002111 
002111 
002410 
004412 
0044»2 
004412 
004412 
004412 
004412 
004412 
0045>0 



* SET OMfT = NOT(DCSPO ANn DcLOG AND DATACOM) 
MX: 

MlXPRINTf 7ZSTA); 

GO TO FPRGFTJ 
TS: 

SHPETOlODLERfKTR,TYPE»M!X)J % TSs5. PS*6» ES»7» XS»fl 

M|XJ S 63J 

GO To EX]T> 

LF: 

! I»3l GO TO PD5 

LC! 

I « »2 j gc to po; 

LS: 

I *b4| GO TO PDJ 
FX: 

KTRJs -KTRJ I 1=1 J 
POS 

PRlNTI)!RFCTORY(KTR. !)J 

GO TO FXITJ 
SMi 
S SFT OMIT s NOTCDCSPO ANq DaTaCOM) 

GO TO FXITJ 
POs 

TYP0P(KTR»TYPF*16); % T0*15» P0si6 

GO TO exit; 
PG: 

streaMcyssKTR); 

RrGlM 
SflsYJ 

la» if sc neQ "«•» then 

BEGIN 

Sl«*ST + t> D? •■01 + 11 r,o to ua; 

fnh 

FLSp DSIs4LlT"«-**-*"J 

FNOJ 

PGA: STREAM(YI*0, KTR» A'«A»*SPACE(1?)+1)J 

Bfgin 

Sr JaKTRJ 
LJ Ir SC«" M THFN 
RFGIN 
SflcSl + U GO TO U; 

fndj 

IF Sf = "«-" THEN TALLY »* 1 ELSf 

j f sr«"o w then tally s= i elsf 

BFGIN 
0S!*3ChR> 
IF SC«"- W THEN 
BEGIN 

DS:sCHR» 
LL» IF SC«" " THEN 
BEGIN 
SI JbSI + 1; GO To LL« 

fno; 

5(IF Sc GEO THFN oS ,B CHR tLSE JUMP OUT)! 



16738000 
16739000 
16739500 
16740000 
16740500 
16741000 
16741250 
16741500 
16742000 
16742500 
16743000 
16743500 
16744000 
16744500 
16745000 
16745500 
16746000 
16746500 
16747000 
16747500 
16748000 
16749000 
16749500 
16750000 
16750500 
16751000 
16751500 
16752000 
16752500 
16753000 
16753500 
16754000 
16754500 



16756000 
16756500 
16757000 
16757500 
16758000 
16758500 
16759000 

16759500 
16760000 
16760500 
16761000 
16761500 
16762000 
16762500 
16763000 
16763500 
16764000 
16764500 



16755000 T 
16755500 T 



0045 
0045 
0045 
0045 
0046 
0046 
0047 
0048 
0048 
0048 
0050 
0050 
0051 
0051 
0052 
0052 
0054 
0054 
0055 
0055 
0055 
0055 
0056 
0056 
0057 
0058 
0058 
0059 
0059 
0059 
0059 
0059 
0060 

0060 
0061 

0061 
0065 
0065 
0066 
0066 
0066 
0067 

0067 
0068 
0069 
0069 
0069 
0069 
0069 
0070 
0070 
0070 
0071 



16765000 T 0071 



10 
10 
10 

«3 
'1 
*1 
»2 
»1 
13 
13 
10 
10 
U 
II 
12 
12 
II 
U 

u 

13 
13 
»3 

»1 
M 

53 

»1 
U 

10 

10 

«1 

13 

13 

12 

16753500 

12 

12 

16752000 

53 

13 

S3 

SO 

12 

12 

10 

16758000 

10 

SO 

SO 

10 

II 

13 

«3 

10 

12 

12 

10 

16763500 

10 



eno; 

FMD» 

Y»* TALLY? 

END STRFAM STATEMENT; 

IF Pf[KTRJ.STD) THEN 
BrGlN 

forgftspace(a-l)j go to forgftj 
end; 

A e»A«Ar 1 5 * 33 * 153 * 

TAPEpURfiFt A)J 
GO To PGA J 
AU: 
$ SET OMJT s NOT(AUXMEM) 
GO TO FORGET; 
MS: 
t SET OMIT = NOT MONITOR 
GO TO FORGET; 
LN; 

STReaM(A*=0:kTR)J 

BfGIN Sjl»KTRl Dl*»LOC A* DI«*DI+6; 

dsj*? chR; 

end; 

IF (T laP).t36:6]»P37 THFN 
LOqOuT(O) else 
S SET o M n * NOTCDISKLOG) 

IF Is M ML" THEN lNDEPENDENrRUNi^ER(P(,L0G0UTMAINT)#0»l28) ELSE 
GO TO fpror; 

GO TO FORGET; 
CD< 

TABLfOfcONTFNTS(KTR, TYPe=23)? % CD*21. PP*22, PC«23 
GO TO FORGET; 

cu; 

COREPRlNT((IF MtXa63 TheN -0 ELSp M I X HZ7ST At 9 } 9 I 9] ) J 
GO To FORGET; 
SY: 
t SET OMIT s NOT(STATlSTicS) 
GO TO FORGET; 
SLi 
S SET CMjT ■ NOT(STATjSTicS) 
GO TO FORGET; 
RWi 

SP0IT» 

REWlNOANDLOCKfKTR); 
GO To EXIT; 
CI » 
$ SET OMJT a NOT(BREAKOUT) 

changeintrinsicfilecktr); 
go to exit; 

CT» 

TIMERELAXER(KTR,TYPE»MiX)J 8! CT*29, XT*30t TL«3l 

go to exit; 



16765500 T 


0073 


:0 
16762000 


16766000 T 


0073 


10 


16766500 T 


0073 


13 

16760500 


16767000 T 


0073 


13 


16767500 T 


0074 


:0 
16756500 


16768000 T 


0074 


U 


16768500 T 


0074 


13 


16769000 T 


0075 


«1 


16769500 T 


0077 


10 
16768500 


16770000 T 


0077 


10 


16770500 T 


0078 


*3 


16771000 T 


0079 


t2 


16771500 T 


0080 


to 


16772000 T 


0080 


10 


16773000 T 


0080 


to 


16773500 T 


0080 


12 


16774000 T 


0080 


12 


16779500 T 


0080 


12 


16780000 T 


0081 


)0 


16780500 T 


0081 


10 


16781000 T 


0082 


1 


16781500 T 


0083 


10 


16782000 T 


0083 


1 

L6781000 


16782500 T 


0083 


12 


16783000 T 


0085< 





16783500 T 


0086 


1 


16784500 T 


0086 


11 


16785000 T 


0089 


1 


16785500 T 


00891 


1 


16786000 T 


00911 





16786500 T 


00911 





16787000 T 


0092) 


2 


16787500 T 


00931 





16788000 T 


0093) 





16788500 T 


00971 





16789000 T 


00971 


2 


16789500 T 


00971 


2 


16792000 T 


0097! 


2 


16792500 T 


00981 





16793000 T 


00981 





16795500 T 


00981 





16796000 T 


00981 


2 


16796500 T 


00981 


2 


16797000 T 


OlOOJ 





16797500 T 


OlOOl 


3 


16798000 T 


01011 


1 


16798500 T 


OlOll 


1 


16801500 T 


0101 1 


1 


16802000 T 


01021 





16802500 T 


01021 


2 


16803000 T 


01021 


2 


16803500 T 


01031 


3 



MCJ 



X D ! 

'lF TyPP = 33 ThEN KTR,cCF]»=0* * XD«32» MR»33 
OKRUS|NFSS(Pf l.KTR)); 
GO To EXlTI 

NAMEtD(|»KTR>» nameidcj»ktr); NAMEIDCJ»KTR)» 

tf J.r6t6j« n «- H then go to fRRorj 

IF (AlwniRECTORYSEARCHCf .•J»«)) GEO 64 THEN 
BFGIN 

if J nfQ m oisk •• Then 

!F-CKlaDlRECTORYSEARCH(I»"niSK "»5)) NEQ THEN 
BEGIN 

p(dlrectorysearch(-i,j,h),del)> 

forgetspace(a)> 

forgetspaceck); 

LPMESS( \ P j ( -9»?9«0»0» 1)1 
GO FERGITI 

END 

ELSE 

BFGIN 

MTA INX 4]I«(*PCDUP))*2C1U6I2H1[8I47UJI 
Al=ASEUF(-I. w OlSK «, A JNX 0- 1 ) C 18 I 33 « 1 53 J 
FORgeTSPACFCOIRECTORySfARCH( I»J.8))J 
END ELSE MTA INX 4 ] : »( »P( DUP ) H2[ II 46 » 2 H 1 t 8 I 47 » 1 ] } 

HFADFRUNUOCKc J >"DlSK », A ) I 
LpMFSS( I .J.54.I » w nlSK M ,0.1)J 
END 

ELSE LBMESSCI »Jt-9,IF A*l THEN 45 ELSE 15.0»0»1)J 
FERGIT: 

F0RGfT$PACE(pUFE-1 )J 

go to fxitj 

RS: 
t SET OMfT a NOT(RREAKOUT) 

go to exit; 

HDS 

STREAM CFU*=-1»ERRT0G * =0}t:ULIT ! *P?564000000000000,CXlsO, 

K:sKTR)J 
BFGIN 

Si J»K; gO TO LI J 

if sc«" " then begin siimSi+u go to lo end* ch^cx* 



LOt 
Lis 



ex «»c i ; go to lo; 

if so"*" then go fxt? 

DI«*L0C EULlTl TALLV»al; 

IF 2 SC-DC THEN % AN fU SPECIFIED 

BEGIN 

CXi*CU GO To lO; 

IF SC GEQ THEN tF SC<12 THEN 

BEGIN 

SllaSi+U D|l«LOC EUJ 

if sc geq o then if sc<i2 then 

TALLV««2 ELSE GO TO ERRl 
Sll«Sl*ll CXUTALLYI 
DStsCX OCT * GO EXTJ 



16804000 


r 0104 


»i 


16804500 


T 0104 


»1 


16805000 


T 0106 


13 


16805500 


r 0107 


13 


16806000 


r 0108 


11 


16806500 


r 0108 


11 


16807000 


r 0111 


«1 


16807500 


r 0113 


10 


16808000 


r 0115 


12 


16808500 • 


r 0116 


10 


16809000 


r 0116 


13 


16809500 ' 


r 0119 


12 


16810000 • 


r 0120 


10 


168J0500 " 


r 0121 


13 


16811000 ' 


r 0122 


12 


16811500 ' 


r 0123 


U 


16812000 ' 


r 0125 


13 


16812500 " 


r 0128 


10 
16809500 


16813000 - 


r 0128 


10 


16813500 1 


r 0128 


10 


16814000 1 


r 01281 


2 


16815000 1 


r 0132 


3 


16815500 1 


r 0136 


si 


I6816OOO 1 


r 01381 



16813500 


16816500 1 


r 01441 


1 


16817000 1 


r 0146 





16817500 1 


r 0148 


1 
16808000 


16818000 1 


r 0148 


1 


16819300 1 


r 01541 


2 


16819400 1 


r 0154! 


2 


16819500 1 


r 01551 


3 


16820000 1 


r 0156 


1 


16820500 1 


r 01561 


1 


16822000 1 


r 0156! 


1 


16823000 1 


r 01561 


3 


16823100 1 


r 01561 


3 


16823200 1 


' 01581 


2 


16823300 1 


r 01591 





16823400 1 


' 01591 





16823500 1 


' 01591 


2 

6823500 


16823600 1 


' 0160! 


3 


16823700 1 


' 01611 


1 


16823800 1 


' 01621 





16823900 1 


01621 


2 


16824000 1 


" 01631 





16824100 1 


' 01631 





16824200 1 


01631 


2 


16824300 1 


01641 


2 


16824400 1 


01641 


2 


168?4500 T 


' 01651 





16824600 T 


01661 





16824700 1 


01661 


3 


16824800 1 


' 0l67t 


1 



fnd 



fno? 



errtogj*tallyi 



fRRj 

FXTJ 

fnd? 



IF p thfm go to error? 

IF ( H Nl!sP+t)>0 THEN IF HNi UFQ 

hn?:=hni elsf go to eRRor FLSE 

BEGIN 

HNi :*H 

HN?«=NEUP.rFFi; 
END? 



NEUP.[FF3 THEN 



% SET 

FOR f 
IF NO 

BEGIN 



MiT = NOT SHAREDISK 

l«HNl STEP 1 UNTIL HN2 DO 

T (NT2I»UCIJ).EUNP THfN % 



NOT A DUMMY EU 



INT4 

INT? 
JjsN 
FTXA 
I SET OM?T 
DISK 
FOR 
STRE 



BEG I 



« *C f N 

J = 30- 

Tl DI 

RRAYC 

s NOT 

WAlTf 

N T I I ■ 

AM(A» 

C» 

F» 

N 

SI is 

A»jsD 

D$«* 

ds»* 

ASaD 
DSi« 

a:=D 

OS Ja 

A«»D 
DS:b 



Tl JsNTP.STARTWRD) MOD 30? 
(K«=(NT2 AND MjMENTM)+R4) MOD 30 + K? 
V 3O+USERDISKBOTT0MJ 
UT»R»A) ? 

SHAREDISK 
-R»A»J)I Jl*0? 

K-2 STEP -1 UNTIL R4 DO I NT3 « = J+UT[ NTH . t 3 
■I-l»Bl«IF U r n.SPEED=l THEN "F" ELSE "S», 
"U [II. [38 J 10]-1#0I»J.EI»U[ l),tH201t 
*A»*SPACEf 10)) ? 



t9j? 



LOC A? DS»*4 LIT" eU w ? DSlr? DECI 
II DIts0l-2l DStsFlLL? Dl?«A? 
L|T"("; Sp«SI + 7l DStsCHRJ 

10 HT")» NO. AV»"? DS«*3 DECI 

11 DI 1*01-3; DSJs? FILL) Dl»*AJ 
11 LIT"* TOTAL AVs"? DSl»6 DEC! 
IJ DpsDl-6? DS?*5 FILLI Dl?=A? 

U LIT" SEGS, MAX aV = "? DS»=6 DECI 
I) DI« = DI-6I DSI*5 FILLI Dl?«A? 
6 LIT" SEGS*-"! 



ENDI 



FORGETSPACECR)! 
SPCUT(A&ZZSTAt9l9l93)l 

FNDI X FLSE IF HN1=HN2 THEN GO TO ERROR? 

S SET OMfT « NOT SHAREDISK 

HNl»;KTRX,t 9 «6]I % SET "MIX" BACK TO ORIGINAL VALUE 
GO To FORGET? 
RA: 

IF MtXbP2MIX THFN 
BFGIN 

HALT? HALTED »* TRUE? 
ENDI 

SEGDTCT I- PRT[MlX.4j? 



16824900 


T 


0168 


10 
16824300 


16825000 


T 


0168 


»0 
16824000 


16825100 


T 


0168 


to 


16825200 


T 


0168 


si 


16825300 


T 


0168 


11 
16823300 


16825400 


T 


0168 


12 


16825500 


T 


0169 


11 


16825600 


T 


0172 


12 


16825700 


T 


0173 


13 


16825800 


T 


0176 


10 


16825900 


T 


0176 


13 


16826000 


T 


0178 


to 

16825700 


16826100 


T 


0173 


10 


16826500 


T 


0178 


10 


16826600 


T 


0179 


10 


16826700 


T 


0180 


13 


16826800 


T 


0181 


1 


16826900 


T 


0183 


12 


16827000 


T 


0187 


1 


16827100 


T 


0189. 





16827200 


T 


0193 


'1 


16827900 


T 


0193 


1 


16828000 


T 


0195 


12 


16828100 


T 


0202 


1 


16828200 


T 


0206 


1 


16828300 


T 


0209 





16828400 


T 


0211 


2 


16828500 


T 


02111 


2 


16828600 


T 


02121 


3 


16828700 


T 


02131 


3 


16828800 


T 


02141 


3 


16828900 


T 


02161 


2 


16829000 


T 


02171 


2 


16829100 


T 


02191 


2 


16829200 


T 


02201 


2 


168?9300 


r 


02221 


3 


16829400 


T 


0223 


13 


16829500 


T 


02241 


3 

[6828400 


16829550 


T 


0225 





16829600 


T 


02251 


3 


16829700 


T 


02281 



16826700 


16829800 


T 


02301 


1 


16830100 


T 


02301 


1 


16830200 


T 


02311 


2 


16850300 


T 


02321 





16850700 


T 


02321 





16850800 


T 


02321 


3 


16850900 


T 


02331 


i 


16851000 


T 


02341 


2 

16850800 


16851100 


T 


02341 


2 



IF Pf MrL0CNl=PRT[M!X.8].[cF]]. TOP, XCH, DEL ) THEN SEGl*ADRl*0 
FUSE 

DO BEGIN 

IF PfMriOCNJ, TOP, XCH. O, INX. ,ADR, STD) THEN J! OVERLAID RCW 
BEGIN 

?F NOT M[L0CN1.[33I I] THEN % NOT TYPE 13 INTRINSIC 
BEGIN 

SEG»=ADRf % SEGNO IN RCW 
RtsOJ % ADJUST FOR SUBSTRACTION BELOW 
AD"«*MrMrLOcN].MOM].tCF]l % REL.ADR.IN MSCW 
END 



ELSE SFG 

END 



»* (-1)1 



EL,Sr 

BFG 
Ri* 

WHl 
IF 

SEG 
IF 

R4 

Rl« 

END 



IN % PRESENT RCW, CHECK THE LINKS 

0) 

LE (SEG»*MCR], rCF]> LSS ADR DO 

SEG GTR R THEN RlsSfG ELSE PUNT(CPUNTERI25J])I 

:*IF MrRl.AREATYPFF.CODFAREAV THEN M[R+lJ,fCF] ELSE 01 % 

P(PRTROWrMlX].0, INX,DUP) GTR R AND P(XCH) LSS MtRJ.rCF] THEN 

is "PRT "J 

R+2; 



if PRTtMix»8].rcF] neQ lQcn or mclocn-i j .msff Then % marked 

DO LOCNI«M[LOCN].MOM UNTIL NOT Mt LOCN ] , MSFF I % GET LAST MSCW 
UOCNl«MtLOCN],MOMI % POfNT LOCN TO NEXT RCW, JUST IN CASE. 

END 

UNTIL 

(if seg neq o then if Seg * c-i> then o 

FLSE (SFGDICTTO] LSS SEG OR NOT SEGD I CTC SEG ] .PBI T ) 

ELSE P(MrR-2] .[3*123, DUP) NfQ 0700 AND P(XCH) NEQ 01500) 

OR L0CN*0J 

ADR l= ADR-RJ 

STREAM(MIX. NAMle[JARCMiX,0]]» Tl«0» SEG. ADR. 

SVLI»MtPRTrM!X.8]],rlOl23» TQGU«(R4 NEQ 0), R4. 
T0G2t*(SEG LEQ 0), o»=8UFF-l)J 

BrGlN 

DS«»LIT" »J 

StI*NaMj 2(SIS = SI + U DS»*7CHRj DSI*LlT"/")» DI • *D I "• 1 * 

DS»»2LlT M *"i Sp*L0c M T Xj DS«»2DECJ 

TOGlf SI l»LOC R4J SP.SUlj DStaLlT" »| DS I *7CHRl JUMP OUT TO XXIT)| 

T0G2(DS!sHLTT M NOT AVAILABLE"* JUMP OUT TO XXI T) 5 

DS»*5L|T" Serb m > SMbLOc SEGJ D5»«4[)EC* 

T»*DM Dl»=0l-4» DSI.3FILLJ Dl'«TJ 

DS»»5LlT" ADR*"J DS|«4DeC| 

T|«D!J DH«Dl-ftl DSU3FTLL' Dl»*TJ 

D5l«l.lT"l«| ST«aSl+7| DSisCHRj 
XX I T * DS»*LlT"«.*J 

END STREAM STATEMENT; 



IF HALTED THpN NOPROcESSTOg i» NOPROCESSTOG -1> 
GO TO ERROR? 

EI« 

S SET OMjT * NOT(BREAKOUT) 



*139« 
*139- 



16851200 


T 


0236 


«0 


16851300 


T 


0240 


10 


16851400 


T 


0241 


'1 


16851500 


T 


0241 


13 


16851600 


T 


0244 


'1 


16851700 


T 


0244 


13 


16851800 


T 


0246 


12 


16851900 


T 


0247 


10 


16852000 


T 


0247 


S3 


16852100 


T 


0248 


!2 


16852200 


T 


0251 


13 

16851800 


16852300 


T 


0251 


S3 


16852400 


T 


0253 


(1 
L6851600 


16852500 


T 


0253 


11 


16852600 


T 


0253 


!1 


16852700 


T 


0253 


(3 


16852800 


T 


0254 


12 


16852900 


T 


0257 


2 


16853000 


P 


0261 


12 


16853100 


T 


0267 


1 


16853200 


T 


0269 


»2 


16853300 


T 


0272 


12 


16853400 


T 


0273 


13 
[6852600 


16853500 


T 


0273 


(3 


16853600 


T 


0278 





16853700 


T 


0282 


13 


16853800 


T 


0284 


>3 
16851400 


16853900 


T 


0284 


13 


16854000 


T 


0284 


3 


16854100 


T 


0287- 





16854200 


T 


0289) 


1 


16854300 


T 


0294 


3 


16854400 


T 


0296. 


3 


16854600 


T 


0298. 





16854700 


T 


03001 


1 


16854800 


T 


03031 


2 


16854900 


T 


0305 


1 


16855000 


T 


0305) 


1 


16855100 


T 


0305t 


3 


16855200 


T 


0307: 


3 


16855300 


T 


0308: 


3 


16855400 


T 


0311! 


1 


16855500 


T 


0314i 


2 


16855600 


T 


0316! 





16855700 


T 


0317! 





16855800 


T 


03181 


1 


16855900 


T 


0319) 


1 


16856000 


T 


0320! 


1 


16856100 


T 


03201 


3 
6854900 


16856200 


T 


0321' 





16856300 


T 


03231 





16866400 


C 


03251 





16866405 


C 


0325! 






GO To FORGE T * 
FORGFTJ 

STReaM(TI*BUfF-1 )* DS«* L tT "* w > 
S SFT OMJT = NOT(PACKETS) 

UNjTnOJ.OJ 
S POP OMJT 

r- Dp ft P I 

SPOUTFRC(BUFF-l) INX ZZSTA, UN I TNO» 1 ) i 
F*TT» 

IF(MtX>0)AND(MIX<M!XMAX)THfN TABCNT[MlX]«-TABCNTtMlX]-U 

KlLLf tMSCW]); 

END PROCEDURF KFYIN2J 



X139- 



X113- 



16866530 
16902500 
16902600 
16902649 
16902650 

16902651 
16902700 
16902800 
16902900 
16902950 
16903000 
16903100 



C 0325J0 

T 0325»2 

T 0325:2 

T 032810 

T 0328*0 

T 0328:3 

T 0328:3 

T 0328J3 

T 0331M 

P 0331 » 1 

T 033752 

T 0338:1 

16691000 
SIZF« 0339 WORDS 



REAL PROCEDURE KFYlNCB)) VaLUf RJ RfAL BJ 16904000 T OOOOJO 

START OF RFL SEGMfNTJ DISK ADDRESS * 00494 

% THIS PROCEDURE FUNCTIONS AS A DRIVER FOR AUXILIARY PROCEDURES 16904500 T OOOOJO 

% M KEYIN0»,"KEYIN1« AND "KEYIN2". PROCEDURES "KEYINOw AND "KEYIN1" 16905000 T 0000:0 

% ARE CALUD DIRECTLY. AND PROCEDURE "«EYlN? M IS CALLED AS AN 16905500 T 0000:0 

% INDEPENDENT RUNNER. 16906000 T 0000*0 

BEGIN 16906500 T 0000:0 

REAL RCW a + OJ 16907000 T OOOOJO 

STACKfF+O) = RCW 

REAL MSCW=-?J 16907250 T OOOOlO 
STACKrF-2) a MSCW 

INTEGER ZZSTA » RCW ' ♦ 2J 16907500 T OOOOJO 
STACKCF+2) a ZZSTA 

REAL BUFF * ZZSTA + 1. 16908000 T OOOOJO 



KTR a BUFF + 1. 16908500 T OOOOJO 

TYPE a «TR + l. 16909000 T OOOOJO 

MjX a TYPF + l» 16909500 T OOOOJO 

A s MIX + i. MjXCODE = A. KTRX ■ A. 16910000 T 0000:0 

I * A + 1. 16910500 T OOOOJO 

J =1 ♦ 1» RJEOK s J. 16911000 T OOOOJO 



STACKrF+3) a RUFF 

STACKfF+4) x KTR 

STACKfF+5) = TYPE 

STACKfF+6) = MIX 

STACKfF+7) = A 
STACKfF+7) x MlXCODF 
STACKfF+7) = KTRX 

STACKrF+lO) e i 

STACKfF+11) = J 
STACKfF+11) ■ RJEOK 

K * J ♦ 1» PROCED = KJ 16911500 T OOOOJO 

STACKfF+12) a K 

STACKcF+12) ■ PROCED 

NAME ADDR » K + U ARRAY BUFA x BUFFt*]J 16912000 T OOOOJO 

STACKfF+13) ■ ADDR 
STACKfF+3) a BUFA 

INTEGER T a ADDR + U *80i- I69i?l00 C 0000:0 

STACKfF+14) = T 

16912500 T OOOOJO 

S SFT OMIT = NOT(PACKETS) 16912999 T OOOOJO 

DEFINE UNITNO a PSEUDOM I X[MI X ] * \ 16913000 T OOOOJO 

S POP OMIT 16913001 T OOOOJO 

16913500 T OOOOJO 

LABEL START. CHECK, SWjTCHfT. FORGET. ERROR. TBLERR. EXJTJ 16914000 T OOOOJO 

LABEL RFSTARTJ 1801- 16914100 C OOOOJO 

16914500 T OOOOJO 

PfB. 0, 0. 0, 0, 0. 0. 0. 0. 0); % NOTE P(B)*ZZSTA 16917500 T OOOOJO 

P(0)l % T X801- 16917600 C 0002J3 

STARTi J 16918000 T 0003J0 

IF ABSrB) GTR 1 THEN BUFFJsB.tFFl ELSe 169i8500 T 0003»0 

BEGIN 16919000 T 0005J3 

BUFF Ja GETSPACEC60,KEY?NBUFFAREAV,0>+3* * X167- 16919500 P 0006J1 

S SET OMIT = NOTCDCSPO AND DaTACOM) 169?0000 T 0008J2 

MrBUFF INX NOT 23 . C9I63 »« 0; 16921000 T 000812 

PfWAlTl0fBUFFMC24J47J13»0»25). DEL)* 16921500 T 001210 

FND; 16922000 T 0014*2 



16919000 



* SET OMIT » NOTCOCSPO AND DaTaCOM) 

RESTART; *80l- 
■MrBUFF-?]»"0*ZZSTAt9»9»9]J 
KTR := BUFF) 

TYPE * KFYtNSCAN(KTR.MjX) J *80l- 

TF fPR0CED*TYPE.fll5])»l AND ( ( I »TYPE . [ CF ] )»8 OR I«VCC *80l- 

OP 1 = 33 OR 1*34) OR (PRoCfD'O AND 1*1) ThFN ELSE % SS, CC t OC » FE» AX 

BEGIN X801- 

STRrAMf KTR» I ! ); X801- 

BEGfN Sl«-KTR; X801- 

8c 60( if se«""" then *80i- 

BEGIN L» SI-SI + U *801- 

63(Si*Sl + l| IF Sc*""" THEN JUMP OUT; X801- 
IF SC* M * M THFN JUMP OUT 3 TO YFCH)J 



end; 



si«-Si + i ; 

IF SC« M,, » THEN GO TO U 



if sc» H * w then jump out 2 to yech; 

IF SC* W ;" THEN 
BEGIN 

i-si; tally*i; 

DI*i; DS*LIT "♦"I 

x» si*si+ti if sc*";" then go to x; i*sj; 
jump out 2 to yech; 
end; si*si+i))i 

yfchj ktr*tally; 



end stream; 



*801« 
*801- 
X801- 

X801- 
S801- 
1801- 
X801- 

*801- 
X801" 
X801- 
*801- 

X801- 
*801- 



i*p; if p then xsoi- 

STReaM(T» T*T*GFTSPACEC62.0»0)+3); *801« 

REGIM X801- 

S!*II X801- 

8(60(IF SC«"*" THEN JUMP OuT 2 TO L ELSE DS*CHR)); L J D5*U IT"*" I 

END STRFAMI X801- 



END rHECK FOR KpYlN RECYCLf* 

IF PR0CFD=7 THEN GO TO TBLfRR; 
KTR := KTR & RUFF [ 15 « 33 M 5 ) ; 
RJEOK •' = <"MIXC0DE» = TYPEtr6i6]) GEQ 4; 

MIXCODF » = CMIXCODE x(MiX NEQ 63)) AND 3; % ACTUAL MIX CODE 
TYPE »« TYPE.CCF3? 

IF TYPFsO OR MI X. C 1 *? 3^0 ThEN * EMPTY OR ERROR 
BFGIN 
IF MiX,t1UJ THEN % EMPTY BUFFER 

BEGIN 

KFYINI.TRUE* GO TO FORfiETJ 

END 

EL.SE GO TO ERROR; % TYPe*0 OR M I X , C2 t l ] 

end; 

S SET OMIT * NOT(DCSPO AND DaTaCOM} 

check; 

tf m|xc0df=1 or mtxc0des2 then % mjx index required 



1801- 
X801- 



16922499 


T 


0014 


12 


16925100 


C 


0014 


»2 


16925500 


T 


0014 


'2 


16926000 


T 


0017 


12 


16926010 


C 


0018 


I'l 


16926020 


C 


0019 


13 


16926022 


C 


0023 


»3 


16926030 


C 


0029 


10 


16926040 


C 


0029 


\2 


16926050 


C 


0030 


53 


169?6060 


C 


0031 


10 


16926070 


C 


0032 


«0 


16926080 


C 


0032 


11 


16926090 


C 


0033 


13 


16926100 


C 


0035 


12 


16926H0 


C 


0035 


13 


16926120 


C 


0036 


12 
16926070 


16926125 


c 


0036 


12 


16926130 


c 


0037 


13 


16926140 


c 


0038 


11 


16926150 


c 


0038 


1 


16926152 


c 


0038 


3 


16926154 


c 


0039 


2 


16926160 


c 


0040) 


13 


16926170 


c 


00411 


2 

16926140 


16926180 


c 


0042 


1 


16926190 


c 


0042 


12 
16926050 


16926200 


c 


0042 


3 


16926210 


c 


00431 


1 


16926220 


c 


0046! 


3 


16926230 


c 


0046) 


3 


16926240 


c 


0047i 





16926250 


c 


0050! 


1 
16926220 


16926270 


c 


0050 


2 
16926030 


16926500 


P 


0050! 


2 


16927000 


T 


00511 


3 


16927500 


T 


0053 


2 


16928000 


T 


0055! 


3 


16928500 


T 


00581 





16929000 


T 


00591 


1 


16929500 


T 


006l> 


2 


16930000 


T 


00621 





16930500 


T 


00621 


3 


16931000 


T 


0063! 


1 


16933500 


T 


0064» 


2 

6930500 


16934000 


T 


00641 


2 


16934500 


T 


00641 


2 
,6929500 


16935000 


T 


0064S 


2 


16946600 


T 


00641 


2 


16947000 


T 


0064! 


2 



8 F T N 

IF MTX C,TR MlXMAX THEN r,0 TO pRROR* 

TF JARrM?X.*]*0 ThEN GO TO ERROR; % JOB MUST BE RUNNING 
IF MlXCODE=l THEN % JOB ShOU^D BE WAITING FOR THIS INPUT 
BFGIN 

Ji«REPLYrMlX]l 
WHILE J LSS HO 
BEGIN 
IF" J.[42»6]"TYPf THEN GO TO SW ITCHlT; 

j:=-j.r6«36J j % Shift right 

END* 

IP TYPE'VWY then % "WY»» not waiting for it 
REG IN 

M[ RUFF- 11 »«FLAGC-"WY NOT"&MlX(6l42i6])| 
MrBUFF] «-0»(Pi437)Cll37ill]> 

end; 

GO to eRRor; 
fno; % IF mixcOde = 1 or ? 

SWlTCHITJ 

TaBCNT[M|X3IbTABCNT[MiX] + i J 
* SFT OM T T = NOT(PACKETS) 

if PSEUoOMixrMix]#o then 

BFGIN 

STRFAMfBUFf . J «- J *• SpACE(16)) > % 

BEGIN SI*BUFFJ DS*?0 LIT "^OPERATOR KEYED INI "J 

?CiO(iF sc=»»*'» then jump out ? to axetj ds*chr)) 

AXETJ DS^LlT "«•» ; % 

END t I! 



END 



SPOUTERC J»UNlTN0i64)> % 
% 



$ POP OMIT 

END! % IF MIX INDEX REQUIRED 

KTRX := KTR ft MiX[9*42*6] & TYPEr 2 * 4 1* 7] J 
IF PROCFD=2 THEN 
BFGIN 

IF JOBNIJM > JOBNUMAX-lO THEN X BED IS GETTING FULL 
BEGIN X LETS IGNORf THIS MESSAGE 
MtBUFF-U«--FLAGC"WATT...")J 
GO TO ERROR; 

END» 

MrBUFF-U *« B> % PASS VALUE TO PROCEDURE 
INnFPENDENTRUNNER(NTl I *P( . , KE YI N2 ) »KTRX, 140 ) ; 

END 

ELSE IF PROCEDsl THEN KE Y I Nl C B» KTRX) ELSE KFYI N0( B, KTRX) J 
GO TO exit; 
TBLERRl 

STREAMf KTR,Bl»BUFF*n; 

BFGIN 

Sf I»KTRI SP»Sl-2; DS»sLIT"* w t DSJ-2CHR* 





16947500 


T 


00661 1 




16948000 


T 


0066*3 




16948500 


T 


0068*0 




16949000 


T 


006912 




16949500 


T 


0070»1 




16950000 


T 


0070*3 




16950500 


T 


0071*3 




16951000 


T 


0073*0 




16951500 


T 


007310 




16952000 


T 


0074*3 




16952500 


T 


007611 

16951000 




16953000 


T 


007613 




16953500 


T 


0077*2 




16954000 


T 


0078*0 




16954500 


T 


0081*2 




16955000 


T 


0084*0 

16953500 




16955500 


T 


0084*0 




16955600 


T 


0086*0 

16949500 




16955800 


T 


0086*0 




16956000 


T 


0086*0 




16956019 


T 


0089*1 




16956020 


T 


0089*1 




16956030 


T 


0090*1 


%7\2- 


16956040 


P 


0090*3 


X712- 


16956050 


P 


0093*3 


1*712- 


16956060 


P 


0096*3 


X712- 


16956070 


P 


0099*1 


*712- 


16956080 


P 


0099*3 

16956050 


X712- 


16956090 


P 


0100*0 


*712- 


16956100 


P 


0101*2 

16956030 




16956121 


T 


0101*2 




16956500 


T 


0101*2 

16947500 




16957500 


T 


010U2 




16958000 


T 


0104*1 




16958500 


T 


0105*0 


X801- 


16958600 


C 


0105*2 


X801- 


16958610 


C 


0106*3 


*801- 


16958620 


c 


0107*1 


*801- 


16958630 


c 


0109*3 


*801- 


16958640 


c 


0112*0 

16958610 




16959000 


T 


0112*0 




16959500 


T 


0114*0 




16960000 


T 


0115*3 

16958500 




16960500 


T 


0115*3 




16961000 


T 


0120*0 




16961500 


T 


0120*2 




16962000 


T 


0120*2 




16962500 


T 


0122*0 




16963000 


T 


0122*0 



0S*=?1L?T" NOT COMPILED IN MCP«-"J 
END! 

r R ROR S 

SPOUT( fBUFF-i) INX C O&ZZSTA r 9 5 9: 9] ) ) J 

KEYIN «■ TRUE? 

GO TO E*X I T * 
FORGETl 

STREAM(T:=8UrF«=BUFF-l )> DS » «L I T ••*•♦» 

SPOUTfRUFF INX ( 08ZZSTA r 9 » 9 » 9 3 ) ) J 
FXJTJ 

IF T>0 THEN % ANOTHER MeSSaGF 

BEGIN 

BUFF*T> T*OJ 

GO restart; 
end; 



X801- 
X801- 
X80i» 
*80l- 
X801- 



IF ABS(B) LEQ t THEN 
BFGIN 

IF (KFYBOAROCOUnTeRIbKCYBOARDCOUNTLR-1) 6TR THEN GO TO START? 
«FYROARnCOUNTERl=OJ 
END* 

IF B THFN KILLCTMSCW])! 
END PROCEDURF KfYIN} 



16963500 
16964000 

16964500 
16965000 
16965500 
16966000 
16966500 
16967000 
16967500 
16968000 
16968100 
16968H0 
16968120 
16968130 
16968H0 

16968500 
16969000 
16969500 
16970000 
16970500 

16971000 
16971500 



T 0123M 

T 012651 

16962500 

T 0126J2 

T 012682 

T 012913 

T 013012 

T 013110 

T 01 31 »0 

T 013382 

T 0136M 

C 01361 1 

C 013710 

C 013712 

C 013910 

C 01391 2 

16968110 
T 013912 
T 0140«2 
T 014180 
T 014311 
T 014480 

16969000 
T 014480 
T 0145<2 

16906500 

size* oi46 words 



REAL UBMSRCONTROLJ 
PRT(636) * LBMSGCONTROL 

PROCEDURE LBMfSSCFN»SN»ll#|2,F»UNlTN0.X)l 

START OF REL 
VALUF FN»Sn»!1»T?«E*UN|TnO,x; 
REAL FN,SN,11,I2,E»UNITN0,X; 

■g********************************************************************** 



16995000 T 000010 



X PARAMETERS 

X M I? E 

X ......... --.-... ...... 

X LSS 

X LSS GTR 

X LSS GTR NEQ 

X GTR 

X GTR NE« 

X GTR GTR 

X 52 OR 54 



FORM OF MESSAGE 

, FN/SN II 

. FN/SN NOT 11(1?) 

. FN/SN NOT 11(12). E 

FN/SN 11 

FN/SN II. E 

FN/SN II 12 

FN/SN II I2/E 



STACK(F + 1) « T 
STACKfF+2) * A 
STACKfF+3) * COUNT 



XNOTES TF T1 IS NEITHER ^2 NOR 54 TrEN II AND 12 ARE INDICES INTO TaBL 
X ELSE 12 AND E ARE MFID AND FJD, 

2******** ft************************************************************* 

BFGfN 

Real t. a. count; 



LBMSf,CONTROL,rFF] ** COUNT «= LBMSGCONTROL , t FF 3 + 1> 
IF NOT (LBMSGCONTROL, r2H J) ThfN X ITS NOT IN CORE -- 
IF COUNT > 1 THEN BEG?N 

SLEEP UL.BMSGC ON TROU, * 1 000000000000000 ) 1 
% WAIT - SOMEONE ELSE IS GETTING IT 
END ELSE BEGIN X GET IT YOURSELF 



SVOID 



A is MESSAGETABlEU J.[8« iO]; 

LBMSGCONTROL s= (GErSPACE(A»2»0)*2) & LBMSGCONTROLt FTF ] I 

DlSKWAITCCLBMSGCONTROL.rCFJ). A* MESSAGETABLEI 4 J , [ 22 I 26 ] ) J 
LBMSGCONTROL, [2:U «« II X MARK PRESENT 

M[LBMSGC0NTR0L-1] l« P( .. LBMSGCONTROL ) & AUTFJI XLINK WD 2 
MrLBMSGcONTROL-2] := (*P(DUP)) & P200[ 2 I 35 11 3 ] J X LINK WORD 1 
END> 

STREAM 

(A «= TFN], I is H<0, TBL1 I* LBMSGCONTROL JNX ABS(Il), E» 
L Is II < ANO 12 * 0, J ss Ila52 OR 11*54, 
B I* TF P(DUP) THEN t 1 23 ELSE (LBMSGCONTROL INX 12), 
T l* T I* SPACEC10)); 
BEGIN KOSlsLlT","); D S ! = L I T w "I SlIsAI 

IF SC«"+" THEN BEGIN dS i«L I T H « W I SII*5I+8| END 

FLSE BEGIN SI«»SI + 1I DS«»7CHRl END* DSl«LlT M /»M 

if sc«"+" then begin dSi*lit m s"; sji«si+8i end 

ELSE BEGIN SllsSuit DSi*7ChR> END* 

DSSsLlT" "; L(DS«*4LIT"N0T » ) i SIlvTBUH 

63CSI *«S I + i J 7(IF SC*"*" THEN JUMP OUT 2 TO LI ELSE DSl«CHR))> 



17000000 
SEGMENT) DISK 
17000200 
17000400 
17000405 
17000410 
17000420 
17000430 
17000440 
17000450 
17000460 
17000470 
17000480 
17000490 
17000500 
17000510 
17000520 
17000530 
17000600 
17000800 



17000900 
17001000 
17001300 
17001400 
17001500 
17001600 

17002000 
17002600 
17002800 
17003000 
17003050 
17003100 
17003130 
17003150 

17003200 
17003250 
17003300 
17003400 
17003450 
17003500 
17003550 



T 0000:0 
ADDRESS 



00499 



17003600 T 
17003700 T 
17003750 T 



000010 
000010 
OOOOlO 
0000<0 
000010 
OOOOlO 
OOOOlO 
0000*0 
000010 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 



17003800 
17003850 



00001 
00031 
00041 
00061 
00071 
00071 
1 
00101 

00111 

00141 
00141 
00171 
00181 
00211 
00241 
1 
00241 
00241 
00271 
00301 
00321 
00351 
00371 

I 
00381 

1 
00391 

i 

00411 

1 

00411 

00441 





2 

2 

1 

3 

3 

7001300 



2 

1 

1 



3 

1 

2 

7001600 

2 

3 



2 

3 

1 

1 

7003550 

2 

7003600 

3 

7003700 



7003750 

3 





lis s?i*b; 

JMF SC« W +" THEN BEGIN DS:*LIT"="J Sll*Sl+8; END 

FLSe BEGIN SP-SI + lf DS«*7CHR END! DSl*LlTV"J 

tf sc*"+ M then begin dS'sLit***; siieSi+e* end 

FLSE BEGIN SIJsSI+l* DS»*7CHR END* JUMP OUT TO L3)» 

63CSI iwSl + l J 7CIF SC*"*« then jump out 2 TO l? ELSE OSl«CHR))» 
L2! LC OS I *LTT« )•♦) J SltaLOc F* SilaSI+5; 

IF SC NEQ "O h THEM BEGIN DS**2LIT", "J DSt*3CHR; ENDS 

L3J OS«*LlT"«-»»; 
ENnl STREAM 

SPoUTFRf T*UNlTN0r9l9l9]»UNiTN0-»X)l 
LBMSGCONTROL.fFF] S« LBMSGCONTROL.CFF] - 1> 
END) XLIRMSG 



17003900 T 

17003950 T 

17004000 T 

17004050 T 

17004100 T 



17004150 
17004200 
17004250 



17004300 T 

17004600 T 

17005200 T 

17005400 T 

17005600 T 

17007000 T 



004710 
004711 

17003950 
004910 

17004000 
0050 II 

17004050 
005l«2 

17004100 
005310 
005411 
005711 
005910 

17004300 
006011 
0060*3 

17003500 
006110 
006311 
T 006512 

17000600 
SIZE» 0066 WORDS 



T 
T 
T 



PROCF.DURF STOPM f NCS) ; vaLL'f NcS* REAL NCS; 



START 



fi F ■ G I N 

INTEGER PROTy; 
STACKfF + D s PROTY 

REAL B* 
STACKfF+2) » B 

LABEL. AROUND, OUTfTJ 
$ SFT OMJT s NOT(WORkSfT) 

REAL N, AUTOSTOP* 
STACKfF+3) 8 N 
STACKrF+«) » AUTOSTOP 

AUTOSTOP :* (WKSFTSTOPJOBS AND TwOfPlMjX)) NEO 0* 

JARrPlMTX,9].r3»l H«l ' % MARK it stopped 

wksetswitchTime ««= clock + PrRTR); 

S POP OMIT % WoRKSET 

proty *« pryoRcpimiX]; % save the priority level 

PRY0RrPlMlX]!«<M777j 

if niotfRmsftcpimix) thfn pRTRowfpiMixa ,tPSFi «=o; 
if JARrPiMix,9j.nin then 

BEGIN 

COMPLEXSLEFPfCTERMSET(PlMlX) OR JAR[P IM I X . 9] , 1 1 II ]«0 ) ) * 
151H700 ACCIDENTAL fNTRY AT 

GO OUT IT* 
END! 

AROUNDi 

STREAMf JlsJARROWtPlMlX], PlMjX. 
S SET OMIT = NOT(WORKSET) 

AUTOSTOP, 
S POP OMIT % WORKSET 

R !* B «" SPACECIO)}! 
BFGIN 

t SET OMfT * NOT(WORKSET) 

AllTOSTOPfi)S«*nLlT M #AUTO-STOP «• ; JUMP OUT TO Ll)J 
S POP OMfT * WORKSET 

DS**l3LlT"#OPRTR ST-FD "* 
Lll SfJrJJ 2(SI**SI+1* DS:*7ChR? [)Sl«LlT"/")l 

OT«*ni-1» DSi*L IT" = "; Si:*LOC PlMjXj DS:*2DEC> 

DS«*LIT m *"J DI«sDI-3; DS'sFILL* 

END STREAM STATEMENT? 

SPOUTCB)* 

IF AUTODS THEN RE p L'Y[PlMlX]4.vOK F LSE 
BEGIN 

REPLYIPIMIXI 5* -VWY & V0Kt36i42l6]» 
COMPLEySLEFP((TE R MSET(PlM T X) OR RePLY [PJ M I X J QE^ 0)); 
17906250 ACCIDENTAL fNTRY AT 

ENDS 

IF NOTERMSETf P1MIX) THEN I! MUST BE "WY" OR "OK" 
BFGIN 
$ SET OMJT a NOT(WORKSET) 
IF AUTOSTOP THEN 

IF REPLYtPlMjXJaVWY THEN GO AROUND ELSE ELSE 
S POP OMtT % WORKSET 



17900000 


T 


0000*0 


17900500 


T 


000010 


" OF REL SEGMENT* DISK 


ADDRESS * 00502 


17901000 


T 


0000*0 


17901500 


T 


000010 


17902000 


T 


000010 


17902500 


T 


0000*0 


17903000 


T 


ooooto 


17903500 


T 


0000 10 


17904000 


T 


0000*0 


17904500 


T 


0003*2 


17904600 


T 


000612 


17905000 


T 


0008*1 


17905500 


T 


000811 


17906000 


T 


000911 


17906100 


T 


001012 


17906150 


T 


001510 


17906200 


T 


001612 


17906250 


T 


0017*0 


17906300 


T 


0025J3 


17906350 


T 


0026M 

17906200 


17906500 


T 


0026M 


17907000 


T 


002611 


17907500 


T 


002711 


17908000 


T 


0027*1 


17908500 


T 


0027*2 


17909000 


T 


002712 


17909500 


T 


0030*0 


17910000 


T 


003010 


17910500 


T 


0030:0 


17911000 


T 


0033»0 


17911500 


T 


0033:0 


17912000 


T 


003510 


17912500 


T 


003613 


17913000 


T 


0038>0 


17913500 


T 


003910 

17909500 


17914000 


T 


003911 


X747- 17914100 


C 


004012 


*747- 17914200 


C 


004310 


17914500 


T 


004312 


17915000 


T 


004610 


X747- 17915100 


C 


005313 

17914200 


17915500 


T 


0053J3 


17916000 


T 


0055*1 


17916500 


T 


0055*3 


17917000 


T 


0055*3 


17917500 


T 


005610 


17918000 


T 


0058*0 



IF NOT WHYSLFFP(VWY*VOKr36U2:6]) THEN GO AROUNDJ 

R F PUYrPlMlX]lsO; 
OUT jT: 

PRYORrPlMjX]l*PROTYJ 
t SET OMJT * WORKSKT 
$ SET OMIT b NOT(WORKSET) 

JARtPlMlX,9].[3in««0l J! MARK IT RUNNING 

Ol.AYTTMEfPjMlXll* C*P(DUP)) * 0.80* 

% SFT THE OLAY TIME BACK NOW TO PREVENT THIS 

% JOR FROM BFING IMMfDIATfLY ST-EO AGAIN 

END 



J 

FOR N»»0 STEP 1 UNTIL. STQUfMaX DO 

IF STQUEtN] x PlMiX THEN STQUfCNJ » 
WKSETSWf rCHTfME :» Cl,OCK + Pf RTR ) \ 
WKSETST0PJ08S««HKSETST0PJ0HS AND N0T(TW0(P1MIX)){ 
POP 0M?T % WORKSET 
IF NfS THEN r,0 TO I N J V I A T F ; 
END PROCEDURE STOPMJ 



X138- 



oi % Remove from queue 



179J8500 
17919000 
17919100 
17919500 
17920000 
17921500 
17922000 
17922500 
17923500 
17924000 
17924500 

17925000 
17925500 
17926000 
17926100 
17926500 
17927000 
17927500 
17928000 



T 005810 

T 006013 

T 006210 

T 0062J0 

T 0063U 

T 006311 

T 006311 

T 0066U 

T 0068J1 

T 006811 

T 0068*1 

17916000 

P 0068U 

T 0068U 

T 0070»0 

T 0075'0 

T 0076«3 

T 007912 

T 007912 

T 008013 

17901000 
SIZE" 0081 WORDS 



PROCEDURE TjSKTASKJ FORWARD? 

PRT(637) ■ TISKTaSK 

PROCFOURF FILEHOLDf A.B»T0G»LOc»HOLD) J 

PRTt6flO) = rILEHOLO 

value loc»hold; 

REAL A»B»TOG»L0CiH0LDJ 
BEGIN 

REAL SZ»Y,T> 
STACKfF+1) ■ SZ 
STACKfE+2) « Y 
STACK(F+3) * T 

S SET OMIT * NOT ShAREDISk 

ARRAY MOLDLlSTf*!? 
STACKfF+4) * HOLDLlST 

LABEL SLEPEJ 

DEFINE OSEn«TERM5ET(PlM!X)#; 

if hold then 

BEGfN 

TF TOG THEN TOG*TOG+1 FLSE 
BrftIN * MAKE AN ENTRy fN ThE HOLDLlST 
S SET MfT = NOT ShAREDISk 

IF (SZ**(YS«HOLDER,£FF])+t) GTR HOLDMAX THEN 
BYBY(»HOLD LIST OVERFLOW*", i9 ) J 

HOLDLlST J«tM[SP AC E(SZ)] 14 SZ[8i38MO] | 
IF Y#0 THEN 

DISKWAITC-CHOLDLIST JNX 0) #Yt HOLDER . t CF] ) I 
H0LDER#CFF1»*SZ; 

H0LOLlST[yJlinL0c«tFFU[TOG][CTFHSYSN0[2l46l2]l 
DlSKWAlTCHOLDLIST JNX O,SZ»H0LDER.tCFl )J 
S SFT OMIT = NOT ShAREDISk 

FORGETSPACECHOLDLTST)} 
END? 

IF MtLOC+43,[3:i3 THEN 
S SET OMIT * NOT SHAREDISK 
ELSF 
BFGIN MfLOC + « J . C 31 lli«l J 

DlSKWAtT(LOC,rCF3»*30,LOC.[FF3)l 

FND> 

s set omit = sharedisk 
unlockdiRectory* 

* POP OMIT 

IF PlMlX#0 THEN 

BFGIN T«*VWY«(VIFxA,r3»l])[36:42t6]J 
IF TOG'O THEN 
SLePE> FlLEMfSSC"* «»A»B» m IN USE"»0.0#0)| 
REPLYTPlMlXli.-TI 

COMPLEXSLEEP(REPLY[PlMIX]2tO OR OSED OR TOG>» 
17915000 ACCIDENTAL fNTRY AT TOr, 

IF NOT WHYSLFEPfT) THFN GO TO SLePE* 



17928500 T OOOOlO 

START OF REL SEGMFNTJ DISK ADDRESS m 00505 

18000000 T 000010 

START OF REL SEGMENT! DISK ADDRESS « 00505 

18001000 T OOOOlO 

18002000 T OOOOlO 

18003000 T 0000*0 

18004000 T OOOOlO 



18004490 T 
18005000 T 



18006000 
18007000 
18008000 
1 8009000 
18010000 
180H000 
1801 1490 
18012000 
1801 3000 



1801 
1801 
1801 
1801 
1801 
1801 
1801 
1801 
1801 



4000 
4100 
5000 
6000 
7000 
8000 
8490 
9000 
9500 



18020000 
18020490 
18021000 
18021500 
18022000 
18022500 



18022990 T 
18023000 T 



18023010 T 

18024000 T 

18025000 T 

18026000 T 

18027000 T 

18028000 T 

18029000 T 



OOOOlO 
OOOOlO 



00001 
00001 
00001 
000 1 1 
0001 I 
00041 
00041 
0004 1 
00071 
1 
1 
00141 
00181 
00181 
00221 
00231 
00261 
00291 
00291 
00301 
1 
00301 

00321 

00321 

00321 

00361 

00381 

1 

00381 

00381 

1 

1 

00421 

00421 
00431 
00461 
0047* 

00501 
00511 







1 
3 


2 
2 

1 

8013000 

8013000 

1 



3 



1 

2 







8011000 







2 

1 

3 

8021500 

3 

3 

8023000 

8023000 

t 

1 



1 


2 



18030000 T 005911 



18029000 



ACCIDENTAL 



S SET 



FND ELSE 

WHILE NOT TOG QO 

BEGIN LBMESStABS{A)»B»45.0,"MCP".0,l)J 
COMPLEXSLEEPf (CLOCK ANO P17777)*0 
FNTRY AT TOf, 

SLEEPcrCLOCK],NOT CLOcK)J 

END? 

OMtT * ShaRfdisk 
LOCKOIRECTORY? 



OR TOG)* 



$ POP OMJT 

TOG'sTRUEJ 

IF P( f P1MIX NEQ AMD DSED)»DUP) 

THEN FILFH0LD(A»B»T0g»L0c«2)J 
P(RTN)J % 1 ON TOP Of STACK IF DSED 
ENDJ • 



SET 
IF f 

SET 
ELSr 
BEGT 



S SET o 



MjT » NOT SHAREDISK 
SZ*sH0LDFR.fFF])*0 THfN 
MfT s NOT SHAREDISK 




HOLDER. [FF)««Y»"5Z» 

if sz*o Then 

BEGIN 

FOR Y*0 STEP 1 UNTIL SZ-1 DO 
IF HOLDLlST[Y].rCF]»LOC,tFF] 
BEGIN 
» SFT OMjT = NOT(SHAREDISK) 

MrHOUDLlSTrY],[FFJ)*ll 
Y«*SZ» 

ENDJ 



THEN 



DiSKWAlTCHOLDLIST INX 0»SZtH0LDER.CCF3)} 



END* 



s set omjt « not sharedisk 
if sz«y Then 

BEGIN 

MfLOe+41 ,t3ll] «aO} 

IF H0LD*2 THEN 0lSKWATT(L0C.tCF],*30,L0C.CFFn* 
* SET OMfT * NOT SHAREDISK 

END? 





18031000 


T 


006012 

18025000 


X815- 


18031400 


C 


006012 




18031500 


T 


0065*0 


X815- 


18032000 


P 


0067 J 2 


X815- 


18032010 


C 


0073*3 




18032500 


T 


0075*2 

18031500 




18032990 


T 


007810 




18033000 


T 


007810 

16033000 
18033000 




18033010 


T 


008412 




18033500 


T 


008412 




18034000 


T 


0085*2 




18035000 


T 


0088*1 




18037000 


T 


009111 




18045000 


T 


009112 

18009000 




18045490 


T 


009U2 




18046000 


T 


009112 




18046490 


T 


0093M 




18047000 


T 


009311 




18047500 


T 


009313 




18048000 


T 


OlOOlO 




18049000 


T 


0103*3 




18050000 


T 


010652 




18051000 


T 


0111*2 




18053000 


T 


011112 




18054000 


T 


011312 




18055000 


T 


011513 




18056000 


T 


0116*1 




18057000 


T 


0119U 




18058000 


T 


012010 

18055000 




18059000 


T 


0120«2 




18060000 


T 


0122*1 




18061000 


T 


0123*0 




18062000 


T 


0123*2 




18063000 


T 


012713 




18064000 


T 


0129S3 




18065000 


T 


0130*1 




18068000 


T 


0130*1 




18069000 


T 


0132*2 




18070000 


T 


0133*1 

18064000 




18071000 


T 


0133*3 




18072000 


T 


0136U 

18061000 




18072490 


T 


0136*1 




18073000 


T 


013611 




18074000 


T 


0137*0 




18075000 


T 


013712 




18075500 


T 


014013 




18075990 


T 


014412 




18077500 


T 


0144*2 



FORf,ETSPACEfHOLDllST)J 



end; 
pnd> % of filfmoidfn 



18078000 
18079000 



T 
T 



18080000 T 



18074000 
014412 
0l45t2 

18047500 
0145* 2 

18003000 
SIZE* 0146 WORDS 



XCOMM 

X 

X 
X 

XHtU 
X 

X 
XHr?J 

X 

% 
X 

XH[3 3 
X 

X 

X 

XH[43 

X 

X 

X 

X 

% 

X 
X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

XHT53 

X 

X 

XHC73 

XH[83 

XH[93 

X 

X 

X 

X 

X 



ent the 

.[OH53 
.[15U53 

.noti?] 

.t42»63 
.I6M63 
.[251233 
.[J 1473 

.roues 

.ri «13 

. 1 1 1 13 
.[6«4?3 

.ti «1 3 
,[?»103 
,f1?tl83 
.T30M83 
.[J M 3 

. r ? 1 1 3 

• r 3 » 1 3 

.ri»?3 

.[6M 3 
.[7H 3 

• rem 

.[9«?3 



ri 1 t 1 3 
[121*3 
[16153 
[?1 «53 
[?6l53 
[31*53 
[36:6 3 



,14?MJ 
.[43123 
.[45IJ] 
.[46123 
,[0«48] 

.[1'13 



.[1 U3 

,t?M3 
.[3»13 
.[4>13 
.[5»13 
.[6«13 



DISK FILE H 
RECORD 
BLOCK 

record 

SEGMEN 
CREAT! 
CREATl 
NUMBER 
«0 FR 
.0 SO 

■ 1 SE 
PRlMAR 

el NE 
SAVE F 
DATE 
CREATl 
-1 F 

• 1 F 
*1 A 
SYSTEM 
USED B 
USED T 
USED T 
*2 FI 
«3 FI 
«0 DO 
FILE A 
SYSTEM 
OPEN C 
OPEN C 
OPEN C 
OPEN C 
»0 TYP 
*1 BA 

■ 2 AL 
*3 CO 
nU FO 
*5 TS 
*6 XA 
«7 SE 
*£ DA 
«9 LO 

USFD TO 
SENS IT 
COLD S 
NOT US 
*0 SO 

*1 PRI 

• 12 IF 
NUMBER 
NUMBER 
TOGGLE 
TOGGLE 
TOGGLE 
TOGGLE 
TOGGLE 
TOGGLE 



EAGER CO 

LENGTH 
LENGTH 
/BLOCK 
TS/BLOCK 
ON DATE 
ON TIME 

OF LOGJ 
EE FILE 
LE USfR, 

CURJTY f 

Y USER"S 

W FILE H 
ACTOR (8 
F LAST A 
ON DATE 
ILE IS B 
ILE IS 
PROGRAM 
NUMBER 

Y AUTOPR 
MARK P 
MARK S 
LE IS DA 
LE IS PR 
N"T KNOW 
CCESSED 

FILE TO 



NTAlNS THE FOLLOWING INFORMATION! 



FOR LOGGING 
FOR LOGGING 
CAL RECORDS 



(WHEN ON DISK) 
(WHEN ON DISK) 
PER ROW (WHEN IN 



CORE) 



2 F 
2 F 
2 F 
2 F 

UNK 



OUNT 

OUNT 

OUNT 

OUNT 

E IS 

SIC 

GOL 

BOL 

RTRAN 

POL 

LGOL 

Q 

TA 
CK 

m a rk fj 

IVF DATA 

tart fil 

ED 

LE USER 

vate fil 

H[63«12 
OF LOGl 

of sfgm 



PUBLIC OR PRIVATE FILE 

ILE 

CODE 
EADER FORMAT 
INARY) 

CCE5S (BINARY) 
(BINARY) 

EING LOADED OR NAME IS BEING CHANGED 
PENED BY AN EXCLUSIVE USER 

IS WAITING TO USE THE FILE 
OF EXCLUSIVE USER 
INT TO MARK A PBD FILE 
SEUDO DECKS THAT WERE CREATED ON 
PECTAL COMPILERS 
TA 
OGRAM 

IF DATA OR PROGRAM 
BIT 
GGLFS 

OR SYSTEM (A) 
OR SYSTEM 1 (B) 
OR SYSTEM 2 (C) 
OR SYSTEM 3 (D) 
NOWN 



FOR 
FOR 
FOR 
FOR 
FOR 
FOR 



LES WHICH CANT BE MOVED 

- ZEROING BITS 
E 

FILE 
E 

THEN INFO FILE ELSE PUBLIC 
CAL RECORDS (EOF POINTER) 
ENTS PER ROW 
YSTfM (A) 
YSTfM 1 (B) 
YSTfM 2 (C) 
YSTfM 3 (D) 
YSTfM (A) 
YSTfM 1 (B) 



FILE 



8081000 
8083000 
8084000 
8085000 
8086000 
8087000 
8088000 
8089000 
8090000 
8091000 

8092000 
8093000 
8094000 
8095000 
8096000 
8097000 
8098000 
8099000 



100000 
101000 
102000 
103000 
104000 
105000 
106000 
107000 
108000 
109000 
1 10000 
111000 
112000 
113000 
114000 
115000 
116000 
117000 
118000 
119000 
120000 
121000 
122000 
123000 
123100 
124000 
124100 
124?00 
125000 
126000 
127000 
128000 
129000 
130000 
131000 
132000 
133000 
134000 
135000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



000010 
000010 
OOOOlO 
0000(0 
0000»0 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 

OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
0000(0 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
0000(0 
OOOOlO 
OOOOlO 
0000:0 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
0000(0 
OOOOlO 
OOOOlO 
0000(0 
0000(0 
OOOOlO 



% 

% 

% 
% 
% 
% 
% 
t 



[7113 

[915] 
[1415] 
C 1 9| 53 

[?4l5J 

r?9«H] 

t A 3 I 5 3 



TOGGLE ? FOR SYSTEM 2 CO 
TOGGLE 2 FOR SYSTEM 3 CD) 

FOR SYSTEM (A) 

FOR SYSTEM 1 (B) 

FOR SYSTEM 2 (C) 

FOR SYSTEM 3 CD) 



XHriO]- w r?9] 

% 

\ 

XTHF. 

% 



OPFN COUNT 
OPFN COUNT 
OPEN COUNT 
OPEN COUNT 
NOT USED 
MAXIMUM NUMBER 
DISK ADDRESSES 



OF 

OF 



ROWS 
ROWS 



CO IF NOT ASSIGNED) 



OPfN COUNTS AND TOGGLES ARE USfD \H THE FOLLOWING MANNER* 



X 
X 

% 
% 

% 
% 

SEND 



TOGGLE 



1 
1 



TOGGLE 2 


1 (OUTPUT) 



1 



OPEN COUNT 1 
INPUT ONLY 
NOT USED 
SHARED 
PROTECT 



OPEN COUNT 
INPUT 
INPUT 
INPUT 

INPUT 



COMMf NT? 

Real procedure directorysfar 



% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



OPTn« 
OPTnb 
OPTn» 
OPTMs 

OPTNs 
OPTNb 
OPTN* 
OPTn« 
OPTN* 

OPTns 



VALU 

1 
? 
3 
i\ 
5 
6 
7 
P 




OPTn*10 
OPTn«1 1 
OPTN«M? 
OPTN*13 
OPTnsW* 
0PTN»15 
0PTN*16 
0PTNsl7 
0PTN»18 
OPTnsj9 

0PTn*20 



OPTN»?t 

0PTN*2? 
0PTN>51? 

OPTn< 



E A,B 
OPENS 
OPENS 
OPENS 
OPENS 
OPENS 
RFTUR 
RpMOV 
REMOV 

Remov 

HfAOF. 

BACK 

FORGE 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

LOGS 

makes 

MAKES 

WILL 

RETUR 



INP 
OUT 
WRj 

EXc 



,OPTN* 

FOR SHA 

FOR 

FOR 

FOR 

FOR 
NS FILE 
ES FILE 
ES FILE 
ES FILE 
RUNLOCK- 
OUT ON f 

tspacecf 
shared 
input 

OUTPUT 
WRJTELO 
FXCLUSi 
THE FILE 

the fil 

THE FIL 
INTERLOC 
NS FILE 



REAL A 
RED USE 
UT 
PUT 

TELOCK 
LUSIVE 
HEADER 
FROM DI 
FROM DI 

HEADER 
-WRITES 

F-O.IF 
-4). 



Cm(A»B.OPTN)I* 
.B.OPTNJ* 



START OF REL SEGME 



USE 

(UNCHANGED) 

SK UNCONDITIONALLY 

SK AS SOON AS IT IS NOT IN USF 

ONLY 

HEADER POINTED TO BY CF-4),CCF] 
F]» TURNS OFF INTERLOCK & DOES 



CK 

VE 

AND RE 
F NOT A 
F A SYS 
K SYSTE 
HEADER 



CLOSE 
A CONT 
B CONT 
OPENS 
CLOSE 
FILECL 

Return 
of fil 
number 

is IN 



A FIL 

A1NS 

AINS 

PROTE 

PROTE 

OSE- - 

S AN 
E HEA 
OF T 
OPTn, 



E GIVEN J 

The disk 
the optn 

CT 
CT 

addRfss o 
CLOSf opt 
AREA OF U 

DFR — addR 
he Row TO 

[CF] 



sfts its creation date and time 
system file 

FILE 
LES 

HANGED AND LOCKED, ..IT 
CALLING ROUTINE TO cl 

the disk address of it 

rSS 



LE 

tem file 
m files 
(unchanged 

THE " " 
UST 

ADDRESS 
NUMBER OF THE 



IS UP TO 
EAN UP) 
S HEADER 



DESIRED CLOSE 



F HEADER IN OPTN.tCF] 
lON-lO jS IN OPTN t tFF3 
SFR DISK AND UPDATES CORE COPY 
ESS OF HFADER IS IN OPTN.tCFJ— 
BE FILLED IS IN OPTN.CFFJ 



36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 
46000 
49000 
50000 
51000 
52000 
52100 
53000 
54000 
55000 
DISK 
56000 
57000 
58000 
59000 
60000 
61000 
62000 
63000 
64000 
65000 
66000 
67000 
66000 
69000 
70000 
71000 
72000 
73000 
74000 
75000 
76000 
77000 
78000 
78100 
79000 
79010 
79020 
79100 
79200 
80000 
81000 
62000 
83000 
84000 
85000 



00001 
0000) 
00001 
OOOOt 
OOOOt 
OOOOi 
OOOOt 
OOOOt 
OOOOI 
OOOOI 
OOOOt 
0000* 
OOOOt 
OOOOJ 
OOOOt 
OOOOt 
OOOOI 
OOOOt 
OOOOI 
OOOOI 
OOOOt 
DDRESS 
OOOOt 
OOOOt 
OOOOt 
OOOOt 
OOOOi 
0000! 
OOOOt 
OOOOt 
OOOOI 
OOOOf 
OOOOt 
OOOOt 
OOOOt 
OOOOt 
OOOOt 
OOOOI 
OOOOt 
0000: 
OOOOt 
OOOOt 
OOOOt 
OOOOt 
OOOOt 
OOOOI 
OOOOt 
OOOOt 
OOOOI 
OOOOI 
OOOOI 
OOOOI 
OOOOt 
OOOOt 
OOOOI 
OOOOI 
OOOOI 



00510 



* A. [1*1] DIRECTORYSEARCH WjLL FORGET THE MEMORY SPACE 
% OCCUPIED BY THE EjLE HEADER 

X A.t?M1 IS DIALED INTO FH[ 4 ] . [ 1 * 1 J WHEN OPTN*4 

% A.MM1 IF A CONFLICT OCCURS. AN "IF" WILL BE ENABLED. IF THE 
% OPERATOR ENTERS AN "IF". D I RECTORYSEARCH WILL RETURN A 

% VALUE OF 1, CURRENTLY* THIS |S USED ONLY BY LIBMAJN, 

* B.tiM] DlRECTORYSEARCH WjLL RETURN A VALUE OF 1 JF THE 
% FILE IS IN USE 

% B,r?«n will not update date of last access 

% b.mmi will set file accessed bit for close 



STACK(F-4) 



stack 
stack 
stack 
stack 
stack 
stack 
stack 
stack 
stack 



(F + 2) 
(F + 3) 
(F*4) 
fF + 5) 
CF + 6) 
fF + 7) 
fF+lO 
fF + 11 
fF+12 



STACKfF+13 
STACKfF+14 
STACK(F+15 
STACK(F+16 



BEGIN 

* OLDONE 

> TEMP 

s I 

* T 

* TOG 

■ J 

s K 

) 3 N 

) s F 
) * X 

) a S 

) « U 

) * 12 

) « 13 



STACK(F+17> ■ UNiTNO 



STACKfF+20) « FH 
STACKfF+21) « NB 



$ SET 
% SET 
$ POP 



* SET 



$ SET 
$ SET 



REAL 0LD0NEs-4J 

REAL temp,i»t»tog»j»k»n»f.xj 



integer s, 11» i2» 13? 

rfal unitno; 

ARRAY FH[*]iNBr*]I 



OMIT 
DEF 

OMIT 
OFF 

OMIT 
LAP 
LAB 



OMIT 
LAB 
SHI 



OMjT 
OMIT 



t POP OMIT 



■ NOT SHARF.DISK 

INE DSEn=TERMSET(PlMlX)#j 

» SHAREDISK 

INE UNLOCKHDR * EXIT#J 

FL LL.FXT, CHECK, LwS; 

fl open sh aRfd»opfninput,openoutput» open wRitelock, 

0PENFXCLUSlVE»L6»L7#L8tFXlT,LWRlTE#F0UND. 
ThU, CLOSE, LW, BOMB, GETaROW* EX, 

Ci,oseshared,closeinput»closeoutput.closewritelock» 
closexclusive»zer»unsys»sys» 

see»locksys»dontwait#nofile»complete»leavelkd.unused> 
= notcdisklog) 

el 0penpr0tect,cl0sepr0tecn 
tch q*openshared»openinput»openoutput»openwritelock, 

0PENfXCLUSIVe»EXIT»L6»L7»L8*EXIT» 

closfshared»closeinput» 

CLOSEOUTPUTtCLOsEWRITFLOCKiCLOSEXCLUSlVE 
* NOT(niSKLOG) 
s OlSKLOG 

• EXIT 

.UNSyS.SYS 

# LOCK SYS. LEA VELKD, UNUSED »OPENPROTECT»CLOSEPROTECT 



18186000 
18187000 
18188000 

18189000 
18190000 
18191000 
18192000 
18193000 
18194000 
18195000 
18196000 
18197000 



18199100 T 
18200000 T 



18200490 
18P01000 
18201490 
18201500 
18201510 
18202000 
18203000 
18204000 
18205000 
18206000 
18207000 
18208000 
18209000 
18210300 
18211000 
18212000 
18213000 
18214000 
18215000 
18217000 
18218000 
18218001 
18219000 
18220000 



000010 
000010 
000010 
000010 
000010 
OOOOlO 
OOOOtO 
OOOOtO 
OOOOiO 
000010 
OOOOIO 
OOOOtO 



18198000 T OOOOIO 



18199000 T OOOOIO 



OOOOIO 
OOOOIO 



OOOOIO 
OOOOiO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOtO 
OOOOIO 



***** 

Real 

BFGtN 
SET OM 



********************************************* 
SURROUTTNf search; 



TT ■ MOT S H ARFD!Sk 

SIbSCRAMBlC(A»B>J 

DISkWAIT(- n .- 6 o»S); 
LL* FOR Xi*0 STFp 3 UnTIl S7 DO 

IF (NB[X] EQV A,U«42J) ■ NOT THEN 
IF (NlBtX + 1] EQV B.C6U21) * NOT THEN 

IF CS»*NBC?3.[FF3)*0 THEN 

BEGIN DISKWaIT(-N»60.S); 
GO TO LLj 

END ELSE 

* SET OM|T « NOT SHARFnISK 

r,o to rXTi 

FOUND I l*«K»NBrX + 21.f CK]-0lRECT0RYT0P»4).r44U]K?l 
J *(K AND NOT l5)+0IRECT0RYT0P+l9; 
K * K+DIRECToRYTop+41 

EXTj SEARCH «• SJ 

END; 

************************************************** 

SUBROUTINF HEADER; 
BEGIN 

niSKwAfTC-F »30 
S SET OM|T = NOT ShAREHISk 

»K)» 

$ SET OMIT s NOT ShAREDISk 

TFMPI"F*KrCTF]*I[B«38«l03* 
END; 



GO TO FOUNDI 



%************************************************* 

SURRf 

BEGJ! 



% CANT BE CALLED FROM OTHER SUBROUTINES, 



lOUTINE REMOVER? 

N NBCXWP14J 
DISKWAIT(N#-60»S); 
$ SET OMIT = NOT SHAREDISK 
DTSKWAIT(-N»-30»J); 

Npn3*P14; nbci + 1]«-nfxtslot; nextslot*k> 

DISKWAITCN.-30, J); 
S SF.T OMiT a NOT SHAREDISK 

end; 

X************************************************4i 

SUBROUTINE" HOLn? 
PEG?N 
$ SET OMjT = NOT SHAREDISK 

if B.ri'n then go dontwait; 

t POP OMJT OMIT 

FlLEHOLDCA»BtTOGtTEMPil); 

if p then * o or 1 is left on top of 

REGTN TEMP««3J AJs-U GO EX iTi END 



STACK IN FILEHOLD 
* DS-ED IN FILEHOLD 



ELSE 

if pimix#o then 

IF REPlY[P1MIX]«ViF 

BFGIN 



THEN 



18221000 
18222000 
18223000 
18224000 
1 8??4490 
18225000 
18226000 
18227000 
18227500 
18228000 
18228500 
18229000 
18229500 
18230000 

18230490 
18231000 
18232000 
18233000 
18234000 
18235000 
18236000 

18237000 
18238000 
18239000 
18240000 
18240090 
I824O2OO 
18240490 
18241000 
18242000 

18243000 
18244000 
18245000 
18245500 
18245990 
18247500 
18248000 
18248500 
18248990 
18250000 

18251000 
18252000 
18253000 
18253490 
18254000 
18254010 
18255000 
18255100 
18255200 

18255300 
18256000 
18258000 
18259000 



0000 
0000 
0000 
OOOl 
OOOl 
OOOl 
0008 
0009 
0011 
0013 
0020 
0022 
0024 
0024 

0024 
0024 
0024 
0029 
0031 
0033 
0034 

0034 
0034 
0035 
0035 
0035 
0035 
0036 
0036 
0038 

0039 
0039 
0039 
0040 
0041 
0041 
0043 
0047 
0048 
0048 

0049 
0049 
0049 
0049 
0049 
0050 
0050 
0052 
0052 

0055 
0055 
0056 
0058 

















3 



3 

1 

1 

1 

3 

8229000 

3 

3 

3 

1 

3 

2 



8224000 

1 

1 





3 

3 

2 

2 

3 

8239000 







1 
3 

3 

2 

1 

3 

3 

8245000 











2 

2 

3 

3 

8255200 

2 

2 

3 

1 



dontwatt: 



end; 



FlLEH0LD(A»BtT0fi»TEMP,2)l 

TfMPIbH % IN USE 
GO TO FX I r S 



TF SPAKCH=0 THEN 

BFGIN FlLFHOLD(A#B»TOG#TEMP.O)> 
NOFtLE' TFMPtxOJ A»s-j; GO EXjTJ 

END* 

hfadeR; 
end; * of hold 

X************************************************* 

S SFT OMjT s NOT(PACKFTS) 

IF OPTN.tCFl USS 512 ThEN 

BFGJN UNiTNOl«0PTN,[9»?l]l OPTMsOPTN INX 01 FNDJ 

$ POP 0M|T 

$ SFT OMIT e ShARfDISK 

lockdirectory; 



$ POP OMlT 

IF 0PTN*20 THEN 
PFGIN OPTNIsB.tCF] J 

DISKWAIT(-(FI=SPaCE(30))»-30,CK«*a.[CF])); 
FHS«rWrF]]*30r8»38»l0j; 
TfMP I* F % K tcTFJI 
GO OtOPTN)* 

end; 
tf 0ptn=9 then 

BFGIN 

DlSKWAlT(-(NjeSPACE(30))»-30»f Kl*0LD0NE,[FF3))> 
FH»*rMrF» = (TFMP|«0LD0NE),[CF]]U30[8«36H0Jj 

AJ*NABS(A); 

FHt4)l«(*PCDUP))4MtN+43t3»3ll]| 
GO TO CLOSEXCLUSIVE* 
END? 

NB<*[MrNl«SPACE(60)]]t60t8i38U0]l 

if sfarch«o then 

BFGIN 

A :»0; 

go to exit; 
end; 

s set omit = not sharedisk 
$ SET OMjT ■ shaRfdisk 

FHS«[MrF>BTYPE0SPACE(3O»DISKHEADERAREAV))U30r8t38»lO]; % 
S POP OMlT 

hfadeR; 

if optn<0 then go getarowj 
if 0ptn^5l2 then go to q[ optn, iff3 + 10 ] > 
s sft omit = sharfdisk 



S155' 



18260000 
18260500 
18261000 
18262000 
18263000 

18264000 
18265000 
18266000 
18269000 

18270000 
18271000 

18272000 
18272199 
18272200 
18272300 

18272301 
18272990 
18273000 



1827 
1827 
1827 
1827 
1827 
1827 
1827 
1827 



3010 
3020 
3030 
3040 
3050 
3055 
3060 
3070 



J5167- 



18274000 
18275000 
18276000 
18276500 
18277000 
18277500 
18278000 
18279000 

18280000 
18281000 
18282000 
18283000 
18284000 
18285000 

18285099 
18285999 
18286000 
18286001 
18287000 
18288000 
18289000 
18289999 



00581 
00611 
0061 J 
00611 
00621 

1 
00621 
0063» 
00661 
00681 

1 
00681 
00701 

1 
00701 
00701 
00701 
00761 

I 

00791 

00791 
00791 

1 

1 
00861 
00861 
00861 
00881 
00931 
00951 
0096) 
01091 

1 
01091 
01 10 I 
01101 
01151 
01191 
01201 
01231 
01261 

1 
01261 
01301 
01311 
01321 
01321 
01331 

i 
01331 
01 331 
01331 
01371 

01371 
01391 
01401 
01551 



3 


3 
1 
8259000 

1 
2 

1 

2 

6265000 

2 



8253000 

1 

1 

1 

2 

8272300 

2 

2 

2 

8273000 

8273000 





3 

2 

1 

2 

3 

1 

8273030 

1 



2 

1 





3 



8275000 



1 

2 



3 

1 

8282000 

1 

1 

1 

2 

2 



1 





IF OPTN USS 5 OR 0PTNM7 OP 0PTN*7 THFN 
t POP OMIT 

S SFT OMIT =» MOT SHAREDISK 
CHErKj 

BFGIN 

IF FH[*3.t«4ii] AND OPTN LSS 5 THEN 

BEGIN % TRYING TO OPfN WHILE FILF IS BEING BLANKED 
$ SET OMIT = NOT SHAREDISK 
GO NOFILEJ 
FNDJ 

$ SFT OMfT = ShAReOISK 

IF NOT OPTN OR 0PTN«7 THEN 
$ POP OMIT 
S SFT OMfT * NOT SHAREDISK 

IF FH[4],rl2l4J#0 THEN 

begin % it |s a system file 
temps*2j 3! system file 
$ set omit = not sharedisk 

GO TO EXlT> 

end; 

SEEt 

IF <FH[«].[?I2] AND {NOT TOG OR 2))*0 THEN 
BFGIN 

hold; 
go check; 
fnd; 

FNDJ 

GO TO Q[OPTN]» 
OPENSHARED» 

IF FHr93 t rS«4]«l> THEN 

IT FHC9J,M»4]*0 OR FHt9].[9l20]«0 THEN 

BFGIN 
$ SET OMfT * NOT(SHAREOISK) 
$ SET OMJT * ShARfDISK 

FHr9],r9s53»=P(r)UP),t9t5] + i; 

Fnr9].tl«l]l«!l 
$ POP OMIT 

GO TO LWRlTE; 

ekd; 

hold; 

go to openshaked; 

OPEMNPUTl 
$ SET OMIT ■ NOT(SHAREDISK) 
S SFT OMIT ■ SHAREDISK 

FHt*Jtft6i51l«P(DUP).tl6l5]*l> 

s pop omit 

go to lwrite; 
opfnoutputi 

IF FHt9J,r5»?«]"0 THFN 

BEGIN 
S SET OMJT = NOT(SHAREDISK) 
* SET OMiT » ShARfDISK 



18290000 
18290001 
18290099 
18291000 
18292000 
18292100 
18292200 
18292300 
18292600 
18292700 

18292999 
18293000 
18293001 
18293099 
18293200 
18294000 
18295000 
18295490 
18?96000 
18297000 

18298000 
18299000 
18300000 
18301000 
18302000 
18303000 

18305000 

18306000 
18307000 
18308000 
18309000 
18310000 
18310999 
18314099 
18314100 
18314200 
18314201 
18315000 
18316000 

18317000 
18318000 
18319000 
18319999 
18321099 
18321100 
18321101 
18322000 
18323000 
18324000 
18325000 
18325999 
18327099 



01551 
01571 

0157« 
01571 
01581 
01581 
01601 
01601 
01601 
01611 
1 
01611 
01611 
0162« 
0162« 
01621 
01641 
01651 
01661 
01661 
01661 

1 
01661 
01661 
01691 
01691 
01711 
01711 

1 
01711 

t 
01711 
01841 
0164* 
01851 
01891 
01891 
01891 
0189» 
0l93» 
01951 
0195» 
01961 

1 
01961 
01971 
01971 
01971 
01971 
0197* 
02011 
02011 
02011 
02011 
02031 
02031 
02031 




3 
3 

3 
1 

1 
1 
3 
3 

1 
8292200 

1 
1 
3 

3 

3 

3 

1 





2 

6294000 

2 

2 

1 

3 



2 

8300000 

2 

8292000 

2 





2 

1 

3 

3 

3 

1 
3 

3 

1 

8310000 

1 



2 

2 

2 

2 





2 

2 



2 

2 



t POP OMIT 



FHT9] ,[5H ]J«i; 
r,0 TO LWRJTE? 



fndj 



hold* 

go to openoutput) 
openwrttelocki 

IF FHt9],ri«6)«:0 THEN 
BEGIN 
$ SET OMIT • NOT(SHAREDISK) 

* SET OMJT = ShAREDISK 

FHC9], f 9*5 ]**P(nUP), [9*51 + 1 J 
$ POP OMjT 

GO TO LWRjTEJ 

end; 

HOLD) 

GO TO OPENWRlTEl-OcKJ 
OPFNFXrLUSlVFI 

!E FHT9] f [5:?4]»0 THfN 

IE FHC4 J • r 16 IS?0 J«0 THEN 

PEG IN 
COMPtETFt FHC4] i«(P(0UP.L00))«SYSN0t«|46l2]*l[2l47ill*Atll2ll3l 
GO TO LWRlTEJ 

fnd; 
h o i n ; 

GO TO OPENEXCLUSlVE? 
OPenPROTFCT: 
t SET OMfT ■ NOT SHAREDISK 

* SET OMIT « SHARFDISK 

GO TO OPENEXCIUSIVEJ 
$ POP OMiT 

CLOSESHAREDJ 
$ SFT OMfT r NOTCSHAREOISK) 
K SET OMjT ■ ShAREDISK 

IF (II«FH[9],[9I5]-1)bO THEN 

FHt9],ri *1 J«*0; 

FHf9], r 9l5]«»i; 
S POP OMiT 

GO TO CLOSE J 
CLOSFINPUT1 
$ SET OMIT * NOT(SHAREDISK) 
S SET OMiT « ShAREDISK 

FHr*].tl6l5Jl«P(DUP)iri6l5]-tl 
8 POP OMIT 

FHt 4 ] . T 6 * 1 J l*0» 

GO TO LWJ 
CLOSEOUTPUTl 
t SET OMiT s NOT(SHAREDISK) 

* SET OMiT s ShARfOISK 

FHC91 ,r5l I ]lsO; 
S POP OMIT 

GO TO CLOSE* 
CLOSEWRjTELOCKl 
S SET OMIT = NOT(SHAREDISK) 



18327100 
18327101 
18328000 
18329000 

18330000 
18331000 
18332000 
18333000 
18334000 
18334999 
18336099 
18336100 
18336101 
18337000 
18338000 

18339000 
18340000 
18341000 
18342000 
18343000 
18344000 
18345000 
18346000 
18347000 

18348000 
18349000 
J8349100 
18349149 
18349799 
18349800 
18349801 
18350000 
18350999 
18357099 
18357100 
18357200 
18357300 
18357301 
18358000 
18359000 
18359999 
18361099 
18361100 
18361101 
18361200 
18362000 
18363000 
18363999 
18365099 
18365100 
18365101 
18366000 
18367000 
18367999 



020312 
020610 
020610 

020612 

18325000 
020612 
020810 
020812 
0206(2 
021010 
021012 
021012 
021012 
021410 
021410 
021412 

18334000 
021412 
021610 
021612 
0216*2 
021810 
022050 
0220i2 
0225:0 
0225:2 

18344000 
0225*2 
0227>0 
0227*2 
0227«2 
0227«2 
0227*2 
0228(0 
022810 
022810 
0228:0 
0228*0 
0230*2 
0233*2 
0236:0 
0236*0 
0236*2 
0236*2 
0236*2 
0236*2 
0240*0 
0240*0 
0242*2 
0243*0 
0243*0 
0243*0 
0243*0 
0245*2 
0245*2 
024610 
0246*0 



S SET OMjT = SHARFDISK 

FHr9],r9l5]*«P(DUP).r9i5]"l) 
$ POP 0M|T 

GO TO LWI 
CLOSFXcLUSlVF* 

FHT*]. [1121*01 
GO TO CLOSE) 
CL0SFPR0TECT8 
S SET OMfT a NOT SHAREDISK 
S SET OMTT * ShARfDISK 

r,o to closexclusive* 

$ POP OMjT 

S SFT OMfT « NOT SHAREDISK 
SYSi 

TF FH[9],rl *8]*0 THFN 
BFGlN 

* SET OMfT * NOT(SHAREDISK) 

* SET OMfT a ShARfDISK 

FHC4],C12ll]l«ll 
$ POP OMIT 

GO TO LWRlTEJ 
END I 

hold; 

go to sysj 

UNSvS: 
S SET OMfT = NOT(SHAREDISK) 

* SET OMIT => SHARFDISK 

fh[*i, ri2ini=oj 

S POP OMiT 

GO TO LWJ 
U0CK5YSJ 

optnj»a; 

GO SEEI 

$ SET OMfT * NOT(SHAREDISK) 
$ SET OMfT r NOTCDISKLOG) 
GETflROW? 

IF FHri2»»OPTN,tFFl3»0 THEN 
BEGIN 
S SET OMiT s NOT(DISKLOG) 

TF (FHCl2]'«GETuSERDlSK(FH[8]&3[lU6l2]))aO ThEN 
BEGIN 
S SET OMIT * SHAREDISK 

UNLOCKDIRECTORYI 



s set om ft = not sharedisk 

iu»getuserdisk(-fh[81)i 
s set omit « sharfdisk 

lockqiRectoRyj 



18369099 
18369100 
18369101 
18370000 
18371000 
18372000 
18373000 
18374000 
18374001 
18374599 
18374600 
18374601 
18374999 
18388000 
18389000 
18390000 
18390999 
18392099 
18392100 
18392101 
18393000 
18394000 

18395000 
18396000 
18397000 
18397999 
18399099 
18399100 
18399101 
18400000 
18401000 
18402000 
18403000 
18403999 
18411000 
18421000 
18422000 
18423000 
18424000 
18425100 
18425150 
18425175 
18425200 



18425225 T 

18425300 T 

18425390 T 

18425400 T 



t POP OMfT 



if searched then 

begin forgftuserdiskc i1.fh[8j)i 

tempi»0j aib-i; 

go to exit! 



18425410 
18425500 
18425600 
18425700 
18425800 



0246 
0246 
0249 
0249 
0250 
0250 
0252 
0253 
0253 
0253 
0253 
0253 
0253 
0253 
0253 
0255 
0255 
0255 
0255 
0258 
0258 
0258 

0258 
0260 
0260 
0260 
0260 
0260 
0263 
0263 
0263 
0263 
0264 
0264 
0264 
0264 
0264 
0266 
0267 
0267 
0271 
0271 
0271 



0275 
0275 
0277 
0277 



0283 
0283 
0285 
0287 
0289: 







2 

2 





2 









2 

2 

2 

2 



2 

2 

2 





2 

8390000 

2 



2 

2 

2 

2 





2 

2 

1 

3 

3 

3 

3 

3 

1 

1 



2 

2 

8425200 

8425200 









8425400 

8425400 

2 

2 

2 

1 





END* 

HEADER* 
FHC 123 I: 



111 



end; 



FNDJ 



FOR 

GO 
CLOSES 
IF 
IF 
RFfi 



|2I«FH[9], [43J51+9 STEP -1 UNTIL 10 DO 
MfOPTN TNX !2]i"FHfl2J| 

TO lw; 



R. t 3 s 1 J THEN FHl*ltCn«l] - 

OPTN GTR 511 Then 

IN 



11 




171% 



CO TO L-WI 

IF NOT CFH[«] AND * 1400777/77770000 )#NOT OR 

FH[9],C1I28)#0 THFN 
RFGIN 

HOLD! 

GO TO L7J 
END? 



L6tK 



IF FHr4].[43l2] NjrQ THEN % TEST FILE SENSITIVE 
BEGIN 

STRfaMca»B»T|kT«sTyPEDSPaCE(10,C0NTR0LCARDAREAV)+2)?% X167- 
BEGIN 

ds»=iglit"cc Remove "i siisloc ai siibsi+ii ds»*7chRj 

DSi"LlT"/"l SI»sLOc BJ S I I ■ S 1*1* DSls7CHRJ 
DSI»61.iT"IENd.*"» 
FNDJ 

FHr4].[43»2]l*U 
lNnEPFNnENTRUNNFR(P(..CONTROLCARD)»T&(IF UNITNO NEQ 

THFN UNITNO ELSE 31 ) 1 2 « 42 I 6]&1 [ 8l47 1 1 3 , 1 92 ) I 
IF UNrTN0>32 AND UNITN0<63 THEN PSEUDOCOPy*PSEUDOCOPY*l I 
MrT-4j.[9i6J IpOl 
S SET OMIT e NOT(SHAREDISK) 
GO COMPLETE' 
ENDI 

$ set omit * packets 



184?5900 T 0291 

18426000 T 0291 

18426100 T 0292 

18426200 T 0293 

18427000 T 0293 



18428000 
18429000 
18430000 
18431000 
18431050 
18431100 
18431200 
18431300 
18431400 
18431500 
18431600 
18431700 
18431800 
18431900 
18432000 
18432100 
18432150 
18432200 
18432300 

18432400 
18432500 
18432600 
18433000 
18434000 
18435000 
18436000 
18437000 

18436000 
18438100 
18438110 
18438120 
18438130 
18438140 
18438150 
18438155 
18438160 

18438170 
18438180 
18438190 
18438195 
18438200 
18438202 
18438210 
18438220 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
P 

T 
T 
T 
T 
T 

T 
T 

T 
C 

T 
T 
T 
T 



0293 
0298 
0301 
0301 
0301 
0305 
0306 
0306 
0309 
0312 
0314 
0320 
0322 
0325 
0329 
0332 
0334 
0338 
0341 

0341 
0341 
0341 
0343 
0345 
0345 
0347 
0349 

0349 
0349 
0350 
0351 
0354 
0354 
0357 
0358 
0359 

0359 
0362 
0363 
0367 
0370 
0374 
0374 
0374 



18439000 T 0374 



8425600 





1 

8425150 

1 

8423000 

1 

1 



2 

2 

1 



2 



2 

2 



2 

1 

3 

3 

3 

2 



8431200 



2 

2 

2 

1 

3 





8434000 





2 



3 

3 



1 

1 

8438130 

2 





1 

3 





2 

8438110 
2 



L.BM?SS(ABS(A)fABSfB)f7,0»0 v UNlTN0tLIBMSG)l 
S SFT OMfT s N0T(niSKL06) 

PBC0UNTI»PBC0UNT-((((A.C6I423 EQV "PBD ")»NOT 0) OR 

((A. [6142] FQV "PUD ")*NOT 0)) AND BiCCFl>l)f 
1,8? RfMOVFR* 

IF 0PTN#8 THEN 

FOR I * 1 STEP 1 UNTyL FHC93 DO* 

?F FHr9+i])tO THEN FORGETUSEKDlSKCFHt I*9]»FMt8]m 
GO TO lw; 
LWRfTFJ 

TF NOT B,C?'l 3 then 

STREAM? A*f DATE 3 »B*CFHt 33 3 »C*0); 

RFG1N SI*AID!*L0C C;oS*8 0cT|SI»L,0C ClSl»Sl+5l 

Df ♦B>01*DI+2>DS*3 CHRl 
FNDJ 

LWI 

IF FHt«).f3«U OR TOG THEN F ILEHOIDC A. B» TOG» TEMP* 0) I 
IF 0PTn<6 OR 0PTN>8 THEN 
LWSt D!SKWAlT(F»-30»K)| 
E*» FHt9] l«(*P(DUP)) AND 3 1 * 
EXIT tS 

IF A , r 1 I 1 3 OR TEMP<64 AND TEMP>0 THEN F0RGETSPACE(F ) I 
$ SET OMIT * ShAREDISK 

unlockdirfctoryj 



t POP OMjT 

LEAVELKnJ 
UNUSFnt 

IF N NfQ THEN FORGFTSPACF (N ) t 

directorysearch«-tempj 

FNDJ % OF niRECTORYSFARCH 



18439125 
18440000 
18442000 
18443000 
18444000 
18444500 
18445000 
18446000 
18447000 
18453500 
18454000 
18455000 
18456000 
18457000 
18458000 

18459000 
18460000 
18460500 
18461000 
18462000 
18463000 
18465000 
18465990 
18466000 



18466010 
18466100 
18466101 
18466200 
18467000 
18468000 



T 037412 

T 037713 

T 0377*3 

T 0380*2 

T 038512 

T 0387*0 

T 0387*3 

T 0392*1 

T 039910 

T 0399*2 

T 0399*2 

T 040012 

T 0402»2 

T 0403*3 

T 0404*2 

18456000 

T 0404*3 

T 0404*3 

T 0409*0 

T 041013 

T 0412*3 

T 0414*3 

T 0414*3 

T 0419*0 

T 0419*0 

18466000 

18466000 

T 0422:2 

T 0422*2 

T 0422*2 

T 0423*0 

T 0425*0 

T 0425*3 

18196000 
SIZE* 0428 WORDS 



PROCFOURF FjcKThFLOCKJ FORWARD* 18468100 T 0000*0 

START OF REL SEGMENT! OTSK ADDRESS « 00525 
PRTf641) * PICKThELOCK 

PROCEDURF FVFNTANDIMTFRRUPT J FORWARD* 18468200 T 0000*0 

START OF REL SEGMENTJ DISK ADDRESS » 00525 
PRT(642) * FVENTANDlNTERRUPT 

PROCEDURE COMMUNICATEE 18500000 T 0000*0 

START OF REL SEGMENT* DISK ADDRESS * 00525 
BEGIN RfAL R4*-4fR5s-5.R6=-6fR7s-7,R8e-8J 18500100 T 0000*0 

STACKfF-4) = R4 
STACKfF-5) r R5 
STACKrF-6) = R6 
STACKfF-7) s R7 
STACKfF-10) = R8 



STACKfF-4) = 14 

STACKfF-5) s 15 

STACKfF-6) = 16 

STACKfF-4) • A4 

STACKfF-5) = A5 

STACKfF-6) = A6 

STACKfF-7) » A7 

STACKfF-4) = N4 

STACKfF-5) = N5 

STACKfF-6) a N6 



STACKfF+O) r RCW 

STACK(F+1) = I 

STACKfF+2) x J 

STACKfF+3) = T 

STACKfF44) = A 

STACKfF+4) * FIB 

STACKfF+5) « FPB 

STACKfF+6) a H 



INTerFR I4*-4» l5«-5, f 6«-6j 18500200 T 0000*0 

ARRAY A4«-4[*] 1 A5*-5r*3»A6«-6r*]J 18500300 T 0000*0 

ARRAY A7«-7r*]J 18500400 T 0000«0 

NaMF N4s-4»N5s-5»N6»-6> 18500500 T 0000»0 



LABEL C0#ci»C2»C3,C4,C5,C6#C7,c8,C9.cl0.CH»C12#Cl3»Cl4,Cl5tCl6i. 18500600 T 0000:0 

Cl7,Cl8»Cl9,C20#C2l»C22»C23#C24,C25#C26l 18500700 T 0000*0 

LABEL C27.C28»C29,C30»C31»C32» 18500800 T 0000*0 

LABEL C33»C34»C35»C36#C37,C38,C39»C45,C47»C48»C49, 18500900 T 0000:0 

C30A»C30RtC49A, 18501000 T 0000:0 

JNIT»AC0. AC1» AC2# AC3» AC4* AC5.CHaNgfNaMEJ 18501100 T 0000:0 

SET OMjT s NOT SHAREDISK 18501200 T OOOOlO 

SWITCH AC:aAC0»ACl»AC2»AC3»AC4»AC5; 18501700 T 0000:0 

switch c'sco, \m\1, in t t» tNiT,C4» init, in it • init* iniT# injt. init, 18501800 t 0000:0 

INTT»INlT,iNlT»fNlT,Cl5»Ci6»INlT»INlT.INlTtINlT i 18501900 T 0000:0 

IMIT» INlT»iNIT»INlTf INIT. iNlT»lNlTt INIT* INIT»C30# 18502000 T 0000«0 

C31»C32#C33» INIT# INJT# INIT» INIT» INIT. !NIT#INIT» 18502100 T 0000»0 

INIT»INI T»iNIT»INlT,C45»lNIT»INITf INIT.C49J 18502200 T 0000*0 

RFAL RCWa+O. I»J»T; 18502300 T 0000*0 



ARRAY Ar*]»FlBsAr*]»FPBr*]#H[*]» 18502400 T OOOOlO 



BOOLFAN SUBROUTINE DELAYOK* 18503000 T 0000:0 

% CHECKS FOR TlMFOUT* DS. OR CONDITION SATISFIED FOR COMMUNICATE 31. 18503100 T 0001*0 

BEGIN 18503200 T 0001*0 

DELAYOK »* CL0CK + P(RTR)>I4 OR TERMSFTCP1 MI X ) OR 18503300 T 0001*0 

fl is N0T(M[A6) AND R5)*N0T(0))I 18503400 T 0004*0 

END* 18503500 T 0007*3 



GO TO CrPRT[PlMjX,9]] j 
! NT TX GO TO INITIATE' 
% COBOL INVALID EOJ 

CO: TfRMINATECPIMIX)* TERM I NALMESS AGEC 28 ) I 
1 GFNf-RALlZrD ZlP 

c*» if <!»A4,r8»ioi)#o Then begin 

$ SET OMtT ■ PACKFTS 

$ SET OMIT * NOTCPACKETS) 

Mf (TI«TYPF0SPACECl+5,c0MTR0LCARDA«EAV)+2)*4],tAREAMlXF)««0lX XI 67- 
S POP QMlT 

IF NOT A4.T2MJ THEN MAKEPRESpNTCNFLAGCNOT 3 INX tRCW]))» 

IF ( J*USFRCODErPlMlX])aNOT(-0) THEN J*0| 

STREAMCC*J.A4»!l*Itt36»63iI»Q*0 f T)l 

begin s i i «A4* siisSi-jj 

Lj Slt.SUj; IF SC* W " THEN GO To L> Q»=SIJ Dl«*fi; 

IF SCsPH THEN DSi«LIT" " ELSE DSl*2LIT" "J DI*»T| 
DS««8LlT"CC USER»"» SI l»LOC CI SIlaSl+1' DSl*7 CHRJ 
DS»« LIT";" ; SI«=A4> 

I 1 f DSSw3?WDS; DSJa32WDS); DS»s I WDS; 
* SET OMiT = NOT(PACKFTS) 

0S»b8 LIT"*"; 
$ POP OMIT 

TALLY»»12; I l»TALLYJ 
DpaQlSMaLOC I>Sll»Sl + 7inSI»CHRl 

end stream; 

J*IF USERC00E[P1MIX] S MCP THEN 31 ELSE 26* 
S SET OMIT * NOT(PACKETS) 

IF PSFUD0MIX[P1MIX] NFQ THEN NYLONZ I PPER t Pi M I X ] , f 2 M ] t *0 I 
S POP OM|T 

lN0EPEN0ENTRUNNER(PC.C0NTR0LCARD).T&PlMlXtl8l42J6] 
$ SET OMIT = NQTCOATACOM aNO RJE ) 

&Jt3i43:5j,192)» 
S SET OMjT « NOT(PACKETS) 

IF PSFUDOMlXrPtMlX] NEC THEN 

SLEEP(tNYL0NZlPPFRtPlMfXn»*lOOOOOOOOOOOOOOO)l 
t POP OMIT 

FND ELSE 

RFGIN FIB*NA[NOT 23; 

FPR*PRT[PiMlx»3jl 

I* IF FIBC4],[12H] THEN FI8[43 f Cl3tll] 

ELSE (FlBt4],[13lin-l)xETRLNG; 
T*FPBCI+3],[43l5Jl 

IF T«lO OR Tb\2 OR T*l3 OR T«26 THEN 
REG IN 

IF Fl8[5).r42U3 THEN GO TO CHANGENAMEJ 
H*FIPC14]» 
S SET OMIT * DATACOM AND RJE 

Ht6]:»0j 
S POP OMIT 

Ht5]l»USERc0nEtPlMlX]l 
S SET OMIT = NOTCOATACOM AND RJE ) 

H t 6 3 *C*P(niJP)H3r 2142163 > 
$ RESET OMIT 









18503200 


18503600 


T 


0008 


:0 


18504000 


T 


0008 


10 


18505000 


T 


0036 


si 


18510000 


T 


0036 


*3 


18510100 


T 


0036 


13 


18520000 


T 


0038 


11 


18520100 


T 


0038 


'1 


18520200 


T 


0040 


$3 


18520500 


T 


0040 


83 


18520600 


P 


0040 


53 


18520700 


T 


0047 


«0 


18520800 


T 


0047 


10 


18520900 


T 


0050 


'2 


18521000 


T 


0053 


13 


18521100 


T 


0056 


(2 


18521200 


T 


0057 


10 


18521300 


T 


0058 


12 


18521400 


T 


0060 


12 


18521500 


T 


0062 


52 


18521600 


T 


0063 


>1 


18521700 


T 


0065 


10 


18521800 


T 


0065 


10 


18521900 


T 


0066 


tl 


18522000 


T 


0066 


'1 


18522100 


T 


0066 


53 


18522200 


T 


0067 


53 
18521100 


18522300 


T 


0068 


10 


18522400 


T 


0071 


13 


18522500 


T 


0071 


13 


18522600 


T 


0075 


S3 


18522700 


T 


0075 


3 


18522800 


T 


0076 


3 


18523100 


T 


0076 


13 


18523200 


T 


0079 


tO 


18523300 


T 


00791 





18523400 


T 


0080i 


10 


18523500 


T 


0062! 


1 


18523600 


T 


0082 


1 
18520100 


18523700 


T 


0082 


1 


18523800 


T 


0085' 


3 


18523900 


T 


00871 


1 


18524000 


T 


00891 





18524100 


T 


0092! 


3 


18524200 


T 


00941 


3 


18524300 


T 


00981 


2 


18524400 


T 


0099) 





18524500 


T 


01001 


3 


18524600 


T 


0101 1 


3 


18524700 


T 


01011 


3 


18524800 


T 


01031 





18524900 


T 


0103: 





18525000 


T 


01041 


2 


18525300 


T 


01041 


2 


18525400 


T 


0107! 






IF HT4] THfN 

BEGIN FlLECL0SE(N4,r33»15])» 
CHANGFNAMEl IF ( T*D I REC TORYSEARCHC FPB t I ] t FPB[ 1 + 13 , 4 ) ) 

LSS 64 

Then go to initiate* 

H*[MrT3]*30[8l38llO] J 
» SFT OMIT = NOT(SHAREDISK) 

Ht5] J*USERcODEtPlMlX3l 
S SET OMIT ■ NOT(PACKETS) 

Hr6J*(*P(DUP))i3r2M2l61l 
£ POP 0Mf T 

ENTERCONTROLDECK(H)J 

PCDIRECTORySf ARCH("FPBtI]#FPBtI+l3f8).OEL)I 

J*Hr2J> % SAVED LASTCDNUM 

FORGFTSPACE(H)> 

END ELSE 

BEGIN FiLECl0SE((N4,[33ll5])«6[l8l33H5])> 
ENTERCONTROUDECK(H)J 
J»Ht?3| % SAVED LASTCDNUM 
FOR TMO STEP 1 UNTIL 29 nO HtTl»0| 
FlLErL0SE(N4.r33ll53)l 

endj 

if runi.imber leo then 

BEGIN 

STREAM(A«-[JARCP1MIX#0]), B*H*USERC0DE[P1MIX3# 

F + H/MCP AND H*0, P1MIX, J. T*T*SPACE( 1 ) ) 1 

BFGIN Sl«-A; DS*LlT"# w > 

2(S1*SI+U DS*7 CHR* D5*LIT"/»)J D!*D!-1I 

F(SI*LOc b; si*si*n D!*DI+ll DS*7 CHR)I 

Sl*LOc PlMlXJ DS*LIT W *"J A*DI> 

0S«-2 r>EC> DSM4 LIT" ZIPPED DECK #"; 

SI*LOc J* DS*« DECI DS*L1 T"»"l 

DI*DI-5| DS*3 FILL! DI*AJ DS»FlLL; 

END* 

SPOUTCT); 

ENDJ 



fnd; 



fnd; 



% 

C15I 

% 

C16I 



18032000 



co to initiate? 
display ccobod 

DtSPLAYCAV INX 1)J GO TO INITIATE' 
COBOL ACCFPT 
DiSPLAY(A4 INX 2)1 
IF AUTODS THEN TERMINATf(P1MIX&61[CTF3) else 
BFGIN REPLYtPlMlX3 » ■-VWY* VAX[ 36 » 42 « 6 3 1 

COMPLEXSLEEPf (TfRMSeT(PiMiX) OR R£PLY[PlMlXJ GTR 0))l 
ACCIDENTAL FNTRY AT 
FNDI 



X747« 
X747- 
*747« 



*747- 



18525500 
18525600 
18525700 
18525750 
18525800 
18525900 
18526000 
18526300 
18526400 
18526500 
18526600 
18526700 
18526800 
18527000 
18527100 
18527200 

18527300 
18527400 
18527500 
18527600 
18527700 
18527800 

18527900 
18528000 
18528100 
18528200 
18528300 
18528400 
18528500 
18528600 
18528700 
18528800 
18528900 
18529000 



18529100 T 
18529200 T 



18529500 
18530000 
18530100 
18540000 
18540100 
18540120 
18540140 
18540200 



0107 
0107 
0109 
0111 
0112 
0113 
0115 
0115 
0117 
0117 
0119 
0119 
0120 
0123 
0124 
0125 

0125 
0127 
0128 
0129 
0134 
0135 

0135 
0136 
0137 
0139 
0145 
0146 
0147 
0149 
0150 
0152 
0153 
0154 

0155 

0156 



18529300 T 0156 
18529400 T 0156 



0156 
0156 
0156 
0158 
0158 
0160 
0162 
0165 



IF TFRMSETCP1MIX) THEN r,0 INITIATE! 

IF NOT WHYSLEEPcVWY&VAXr36»42t63) ThEN 



GO TO C16J 



18540220 C 0172 

18540300 T 0172 
18540400 T 0175 



:0 
2 
1 
1 

2 
3 
3 
1 

1 

3 

3 

3 

2 

2 

2 

8525600 

2 

3 

3 

3 

2 

3 

8527300 

3 

2 



1 

1 



3 

2 

2 

3 

3 

3 

8528300 



1 

8528000 

1 

8524300 

1 

8523700 

1 

3 

3 

3 

3 

1 

3 

3 



8540140 
3 

1 



T*RFPLYrPiM!X].[l8M5]l RfPLYrPlM I X ]*0* 
StRfAM(T.S*A4 INX ?.)\ 



begin si*t; 

ui if sc#"x» then begin susj + ii go to l end* 



Sl«-Sj + i; 2(DS*40 CHRH 



ENDJ 



FORf,ETSPACE(T-l)> GO TO IN I T I A T FT » 

j! oirfctorysfarch and un-fill filf id for normal state programs 

C30U COMMENT SFARCHES DISK DIRECTORY AND RETURNS DATA IN ARRAY. 

roj |S useR-typf or not-present flag 
rn is multi-file id 

T?] IS FILE ID 

IF NOT PRESENT, f 3 1 *> [53 ARE -1 

IF INVALID USER, [3] *> [5] ARE 

IF PRIMARY* SECONDARY, OR TERTIARY USER I 

C3] IS RECORD LFNGTH 

U] IS BLOCK LENGTH 

f 5 3 IS END OF F iLF POINTER 

r 6 J IS OPEN COUNT 

IF ARRAY SIZE IS GREATER THAN 9l 

[7] « FlLfTYPE (FROM HEADFR) 

£8J = HEADERT33 ( CREAT 1 ON/ACCFSS DATE, SAVE FACTOR) 

[9] = MEADERrl] C LOGGING DATES) 
IF ARRAY SIZE IS GREATER THAN 10* 

HOI* SYSTEM NUMBER (SHAREDISC 



NOT-PRESENT 



INVALID 
PRIMARY 

secondary 
tertiary 



USER 
USER 
USER 
USER 



FLAG 
FLAG 
FLAG 
FLAG 

FLAG 



IS 
IS 
IS 
IS 
IS 



-1 


7 
3 
2 



(LM, INPUT, 
(INPUT AND 
(INPUT BIT 



I 
IF 



A4.[8«i0]<7 then begin 



TFRMINATE(PiMlxm 
TERMINALMESSAGF(7); 



AND OUTPUT BITS) 
OUTPUT BITS) 
ONLY) 



ENOIX 






if not A/i.r2»n then makepreSfnT(Nflag(not 3 inx crc*M)>)s 

PftMrA4 INX NOT i]],DUP,DUP,LOD,XCH,CCX, f J,STD, IOR)»X 

F|B ♦ N5TN0T ?]j FPB *■ PPT [ Pi M I X, 3] J 

I ♦ IF FIBE*].ri2M) THEN F I B r 4 3 , C 1 3 > 1 1 ] X 

ELSE (FIB[4].ll3*ll]"l)xETRLNG> 
A4U] ♦ FpBtJ]! A4C2] «. FPBII+1JI 
IF P(FPBn + 3J,r43:5),DUp»DUP)«lO XRANDOM 

OR (P(XCH) OR D*13 OR P(XCH).26 THEN ISER I AL» UPDATE .PROTECT 
IF C(TI«DIRECT0RY&EARCH{A4tl]iA4[?],5) ) NEQ X207- 

AND M[T + 4].rl2U] EQL ) T H EN *207- 

BfGIN IF (A4rOj «• SECUR|TYCHECK(A'»tn,A4r2],USERC0DECPlMlX),T))#0 
AND M[T+4],[12«fl)eO 

then begin A*m * mcTj.ciimui 

A4f43 ♦ MtT],tl5l|53l A4t5] * MCT+7]** 

* sharedisk 

A4[6]l=M[T+4l.[16J5]+MtT+9],[9;5]; 



S SET OMIT 



POP 
SET 



OMIT 
OMIT 



NOT(SMAREDISK) 

IF A4,C8tiO] gTR 9 THEN 
BEGIN A4[7]|*MtT+4],[36l6)l 



A4C83 »*MC T + 33 J 



18540500 


T 


017782 


18540600 


T 


0180M 


18540700 


T 


0l82«0 


I854O8OO 


T 


0182*1 

18540800 


18540900 


T 


018311 


18541000 


T 


018411 

18540700 


18541100 


T 


0184*2 


18550000 


T 


0186 t 1 


18550100 


T 


01 86 SI 


18550200 


T 


Ol87(0 


18550300 


T 


018710 


18550400 


T 


018710 


18550500 


T 


0187»0 


18550600 


T 


018710 


18550700 


T 


018710 


18550800 


T 


018710 


18550900 


T 


0167>0 


18551000 


T 


016710 


18551100 


T 


018710 


18551200 


T 


0187 10 


18551300 


T 


018710 


18551400 


T 


0l87»0 


18551500 


T 


018710 


18551600 


T 


018710 


18551700 


T 


0l87«0 


18551800 


T 


0l87»0 


18551900 


T 


018710 


18552000 


T 


018710 


18552100 


T 


018710 


18552200 


T 


187 tO 


18552300 


T 


018710 


18552400 


T 


0J87I0 


18552500 


T 


0189J3 

18552400 


18552600 


T 


0l90;2 


18552700 


T 


0l94>0 


18552800 


T 


0197*3 


18552900 


T 


0201 »0 


18553000 


T 


0202*3 


18553100 


T 


0206*2 


18553200 


T 


0210*0 


18553300 


T 


0212*1 


18553400 


P 


0215*0 


18553410 


C 


0218*0 


18553500 


T 


022110 


18553600 


T 


0224*3 


18553700 


T 


0227*1 


18553800 


T 


0231*0 


18553900 


T 


0236*0 


18554000 


T 


0236*0 


18554100 


T 


0241*1 


18554200 


T 


0241*1 


18554600 


T 


0241*1 


18554700 


T 


0242*3 


18554800 


T 


0248*3 



FK'D 



fndj 

IF A4.[8«l01 C.TR 10 ThEN A4 C 103 « »SYSN0 I 
END ELSE A4[3]|bA4M]S«a4[5]SbA4[6]Ib0| 

FORGETSPACECT)> 
GO TO C30B 
FLSF GO C30A ELSE 



BrGlN 



F (T 



F T 

FG1N 



; 

* "FIND INPUT f»4tlJ»A4t 23 »FPB[ 1*2], [H 17], 

fpb[i+23.c18i303»fpb[i + 33,[1 :53.[a4[33 3 i nx 
t#o,o»0))»nabs(1) then go to c30a euse 

geo o then 



A4r oi i*a ; A4r33:*c ii»rdctablect3 >,[i4no3i 

A4[4J««M.t20M7jl A4[5]l*!,[41 |7] j 
A4[611»T|NutT3.[30li8j; IF T<16 THEN 
A4r63l«(*P(DUp))&PRNTABLE[T3C12«30ll8] * GO C30BI 

END FLSF 



RFGIN 
FNDJ 



A4T01 l»5* A4nJ.U»53 l*ABSCT); GO C30B 



ENDJ 



C30A* A4[03:=A4[33!=A4t4]jaA4[5] l*A4[6J :*-l J 
C30B« 

IF NOT J. [211] THEN PC [ Mt J 3 3 »PRL) I % 

GO TO INITIATF5X 
% ALGOL "DELAY" FUNCTION -- WAIT WITH TlMfOUT 

c3i: tf a6,rcfj<5l2 then % caught someone being snfaky 
bfgin teRminatecpimix); 

Tf*M!NaLMeSSAGF(17)J 

end; 

if not dflayok then complfxslfepcdelayok>» 
18540200 accidental f-ntry at delayok 

I6«*T I 

GO TO INITIATE? 
C32: I 
$ SFT OM|T s NOT(DATACOM ) 
GO TO TNT T I ATF J 
C33I I StReaM(R4, A*fR4*0)» J*JARROM[PlMiX:itPlH!X»X 

T*T*SpACEC10))J % 
BFGIN DSMO LIT " PAUSE * 0"i% 

Af 01*01-1 * St«-L0C R4» Sl«-Sl«2l DS*6 CHR)* 
DS*5 LIT " FOR"; SI*J| 5!>S!*ll DS*7 CHR>* 
DS^LIT "/"J SI*SI + 1> DS*7 CHRJ DS*LIT "«"JX 
Sl*LOc PlMiXj DS*? DEC* DS*LlT "*"» DI*Dl-3; 0S*FILL>* 
ENOIX 

SPOUT(T)l» 

IP NOTERMsFTfPlMIX) THEN PRTROW[ PI M I X 3 . t PSF 3 J *2 I 



18554900 T 

18555000 T 

18555100 T 

18555200 T 

18555300 T 

18555400 T 



18555500 
18555600 
18555700 
18555800 
18555900 
18556000 
18556100 
18556200 
18556300 
18556400 
18556500 
18556600 



18557100 
18557200 
18557300 
18557400 
18558990 
18559000 
18559100 
18559200 
18559300 



18559600 
18559700 
18560000 
18560100 
18565600 
18570000 
18570100 
18570200 
18570300 
18570400 
18570500 
18570600 
18570700 



18556700 T 

18556800 T 

18556900 T 

18557000 T 



18559400 T 
18559500 T 



02511 

1 
0251 * 
0254» 

1 
02591 
0260: 
02601 

1 
0260: 
0261« 
0262: 
02641 
02681 
027l» 
0272f 
0273» 
02761 
0280: 
0283: 
0286: 

1 
0286: 
0287: 
02911 

I 
02918 

1 
0291 J 
0297: 
0297: 
03001 
0300> 
0300: 
0302: 
0303: 
0304: 

i 
0304! 
0306: 



1 

8554700 

1 

2 

8553700 

1 



2 

8553500 

2 





3 

3 

1 

2 



3 

1 


3 

8556100 

3 

1 

3 

8556700 

3 

8555500 

3 

1 

1 



2 

2 

2 

3 

2 

8559100 

2 

3 



18570800 T 
18570900 T 



0314:0 
0314:3 
0315J 1 
0315: 1 
0315U 
031612 
0319:0 
032H2 
0323:0 
0324:3 
0326J2 
0328:0 
032912 

18570200 
0329:3 
0331»0 



C45 



GO 



TO 
IF 



INITIATE** 



R4 THEN 

bfoin 



% 



don«t kffP communicate around needlessly 
c0b0l68 f*it program/ exit program return here 



IF A5.PBIT THEN 

TF A5[6]»l 

BEGIN 



% 



IS A TASK ARRAY 
CALLED 



18559500 



ACCIDENTAL FNTRY AT t 



IF THERE 

Then % type « 
A5r7] * 1; 

C0MPLEXSLEEPCA5C73.[46M J 
OR fTERMSET(PlMlX)))) 



END ELSE 



A5 

A5 i 



1) 



GO TO 



ELSE A5 
INITIATE* 



01 



end; 



% DETACH TASK ARRAY! OS OR FS JOB RUNNING OR SCHEDULED 



IF N5[63*2 

IF N5t3J=l 

IF N5f3Js»2 

BFGIN 

end; 



THEN 
THEN 

then 



GO TO INITIATE* 
ShEETDI0DLeR(0»20.N5[4})» 

TERMlNATE(N5C4]&6irCTF3)» HALT* 
NOPROcFSSTOg * NOPROCESSTOQ-il 



GO TO T N I T I A T t ; 
C49t J 

* set omlt = not sharfdisk 
go initiate; 

FND Of COMMUNICATE! J 



18571200 
18580000 

18580100 

18580200 

18580300 

18580400 

18580410 

18580500 
18580600 

18580700 
18580800 
18580900 

18581000 
18581100 
18581200 
18581300 
18581400 
18581500 
18581600 

18581700 
18590000 
18590100 
18593300 
18599000 



0335*2 
0336*0 

033611 

0337*3 

0339: 1 

0341(0 

0341 SO 



03481 
0349J 

1 
0350* 
0352* 
0352» 

1 
0352! 
0352! 
0355* 
0359* 
03601 
0363* 
0364! 

1 
03641 
0365* 
0365* 
0365! 
03661 

1 
IZE» 036 



3 

2 

8580300 





2 

8580100 

2 

2 





2 

2 

3 

8581400 

3 

1 

1 

1 

2 

8500100 

7 WORDS 



PROCEDURE COMMUNICATE; 

BEGIN RFAL, R4 = -4«R5s-5fR6*-6.R7*-7tR8a-a> 



START OF REL 



STACKfF-4) i 

STACKfF-5) i 

STACKfF-6) ; 

STACKfF-7) : 
STACKfF-10) 

STACKfF»4) . 

STACKfF-5) . 

STACKfF-6) , 

STACKfF-4) •. 

STACKfF-5) : 

STACKfF-6) i 



18700000 

SEGMFNTl DISK 

J8700100 



T 000010 
ADDRESS « 
T 000080 



00538 



STACKfF-4) 
STACKfF-5) 
STACKfF-6) 



STACKfF + D 
STACKfF+2) 
STACKfF+3) 

STACKfF+4) 
STACKfF+4) 
STACKfF+4) 



R4 
R5 
RA 
R7 

■■ R8 

14 
15 
16 

A4 
A5 
A6 



STACKfF-7) 3 A7 



« N4 
* N5 
3 N6 



I 

J 

T 

AIT 
AITL 



STACKfF+5) = ADDR 



INTEGER I«=-4»I5=-b» l6=-6; 

ARRAY A4»-4[*],A5=-5r*].A6s-6r*lJ 

ARRAY A7*-7[*]» 

NflMp N4*"4»N5*-5»N6s-6; 



La BEL C0,C1»C2»C3,C4,C5,C6,C7,C8,C9,C10,C11#C12#C13,C14»C15»C16. 
' Cl7,Cl8#Cl9#C20»C?l,C22»C23»C24,C25»C?6J 

LABEL C?7,C28.C29,C30#C31»C32; 

LABEL C33,C34tC35,C36,C37,C38.C39,C45.C47#C48»C49» 
C2tA»C3A»lNlT»USfD»TD»PRtT0T»TMR»iT»ADtWDI 

LABEL PE»TF.PA> *145- 

DFFINE CNsDIFFCOMIJ 

SWITCH Si«PA»PE»Tf> IT»US»D » Tn»PR» I0T, TMR» AD» *D* *145- 

SWITCH C«»INlT,Cl»INlT,c3»INIT»INlT,C6#C7»C8tINlT»INlT. 

INIT»C12»INIT,INIT,INIT»INIT*C17»INIT.INIT»C20, 
C2l»C??»INiT#iNiT»C?5»C26»INlTtINlTtC29ilNlT# 
IN!T»lNlT,iNlT»lNlT,INlTfINlT#INlT»C38»C39»INlT, 
INlT»INlT f iNlTtINlT,lNlT»INlT.C47»C48»INITl 

Rfal i«J'T; 



ARRAY AjTr*]> REAL AlU, = AlT; ARRAY A«AlTr*]> 



NAMF ADDR; 



GO TO C[PRTrPlMlX.9jjl 
INJTJ GO TO INITIATE* 
% TtMF INTRINSIC 

Cl« IF CI4»»I4) GEO (-5) AND 
BFGIN GO TO Stl4+5JJ 
Pa: 
S SET OMIT = NOT(PACKETS) 

IF £ I !»PSEUDOMlX[PlMlXl) 

I4t»PACKETACTt I-32)» 
$ POP OMIT 

GO TO INITIATE) 
PF« 



14 leg. 6 then 



GEO 32 THEN 



1145' 
X145- 
X145- 
*145' 
X145' 
*145« 
I145- 
IH5« 
JS145' 



18700200 T 0000*0 



18700300 T 0000*0 



18700400 T 
18700500 T 



18700600 
18700700 
18700800 
18700900 
18701000 
18701010 
18701100 
18701200 
18701300 
18701400 
18701500 
18701600 
18701700 
18701800 



18702200 
18702300 
18710000 
18710100 
18710200 
18710240 
18710242 
18710244 
18710246 
18710248 
18710249 
18710250 



0000*0 
OOOOJO 



000010 
0000 >0 
000010 
OOOOtO 
0000«0 
000010 
0000*0 
0000*0 
0000*0 
000010 
0000*0 
000010 
0000*0 
OOOOtO 



18701900 T 0000*0 



18702000 T 0000*0 



ooooio 

0028*0 
0028*2 
0028*2 
0031*0 
0039*0 
003910 
0039*0 
004012 
0043*0 
0043*0 
0043*2 



ft SET OMyT = 
IF 



NOT(PACKETS) 

(P»PSFUDOMix[PiMtX]) GEO 32 THFN 

RFGIN 

l«««PACKETERRH-3?]l 

PACKfTFRRt I"323:*TRUE! 

end* 



POP OMIT 

GO 

Tf» 
SET OMIT s 

IF 



$ POP OMIT 



TO INITIATE? 

NOTCPACKETS) 

CI >»PSEUDOMlX[PlMiX]) 

M!«PACKETERRC 1-3?]; 



GEO 32 THEN 



IT» 



US* 

Pit 

Tn» 

PR! 
IOTI 



TMRt 

An? 

END! 



GO TO initiate; 

!4*JAR[PlMlX»9J,t5ilj| 

JARrPlMlX»9]4.(*p(DuP)> & 2F4 146 12 J t 

GO INITIATE! 

R4«*USERC0DE[P1MIX]J GO TO INITIATE! 

I«*DATFI GO TO INITIATE} 

M*XCL0CK + P{RTR)| GO TO IN I T I ATp; 

!4*JARrPlMlX»3]+PROcTlMFCPlMlXJ+CLOCK+PCRTR)l 

GO TO INITIATE! 

l4 M 0TiMFtPlM m +JAR[PlMlX»4J* 

WHILE |4<0 DO l4«-f4 + cLOcK4-PCRTR)> 
GO TO 1NITIATEI 
I4*PCRTR); GO TO INITIATE! 
T4*ACTDATE! GO TO INITIATE! 
I««-WFEKDAY! GO TO INITIATE! 



n«5- 

S145' 
I145< 
X145« 
1145- 
X145" 

*145- 
*145" 
X145" 
S145- 
X145" 
X145- 
X145- 
X14 5" 



X75 3- 



IF 14 m f-6) THFN I4*P1MIX! X753- 

GO TO INITIATE! 
% RfTIIRN SPECIFIC ARRAY 

C3! ARTNfNflrO]»l)! X REMOVE 1 DIM ARRAY 

C3A!« T*[AlTL],rCF]! % REMOVE FROM AlT 

IF NOT(AIT*PRT[PlMlX,63).r2»13 THEN MAKEPRESENTf T ) i 

J * AIT[0] ! T ♦ N4.CCE3! 
FOR 1*1 STEP 1 UNTIL J-1 DO 

IF AlTtn,[l8»l5]*T THEN 

BEGIN MOVE(J-I#CAlTtI + U),tAlTtI]])! J*0 END! 

IE J»0 OR AIT[J3,[FF]«T THEN AlTfO] * *P(DUP)-H 
N4f0]«-0! 

go to initiate! 
% When 

C6l IA*60xi4+P(RTR>+CL0CK! 

while noteRmsetcpimix) and clock+pcrtr) lss i4 oo 

SLFE p (rCL0CK]»N0T CLOCK)! 
GO TO INITIATE! 
* FILL 

C7t If NOT A5.[2ll] ThEN M AKEPRESfNTC NFLAGCNOT INX CI4J))! 
I*MfA5 INX NOT 0]J. J*M[A§ INX NOT 131 
P([MfA5 INX NOT 1]]'I0R)J 
IF CNT2-(NTI**CI4 INX PRT [ PI M r X, 4 3 ) ) , [ 18 1 15 3 )>NT3«-A5 , [8 * 10 J THEN 

NT2*NT3! 
Ht(IF JARtPlMlX»l03#0 THEN JAR [P 1M I X, (NT1*NT 1 , t CF J > 



18710252 


C 


0043!2 


18710254 


c 


004312 


18710256 


c 


004510 


18710258 


c 


004512 


18710260 


c 


004712 


18710262 


c 


005012 

18710256 


18710264 


c 


005012 


18710266 


c 


005012 


18710268 


c 


0051«0 


18710270 


c 


0051!0 


18710272 


c 


005110 


18710274 


c 


005212 


18710276 


c 


0055»0 


18710278 


c 


0055»0 


18710300 


T 


005512 


18710400 


T 


005712 


18710500 


T 


006012 


18710600 


T 


006110 


18710700 


T 


006212 


18710800 


T 


006313 


18710900 


T 


006512 


18711000 


T 


0068(3 


18711100 


T 


006911 


18711200 


T 


007112 


18711300 


T 


0075*0 


18711400 


T 


0075!2 


187H500 


T 


007613 


18711600 


P 


007810 


18711700 


T 


007911 

18710200 


18711790 


C 


007911 


187M800 


T 


008112 


18720000 


T 


008210 


18720100 


T 


008210 


18720200 


T 


0083*0 


18720300 


T 


0084» 1 


18720400 


T 


008713 


18720500 


T 


0090*0 


18720600 


T 


0094»1 


18720700 


T 


0095<3 

18720700 


18720800 


T 


0100J2 


18720900 


T 


0105*2 


18721000 


T 


010611 


18730000 


T 


010613 


18730100 


T 


010613 


18730200 


T 


010910 


18730300 


T 


011212 


18730400 


T 


0H4I3 


18740000 


T 


011511 


18740100 


T 


0115*1 


18740200 


T 


011813 


18740300 


T 


0123*3 


18740400 


T 


012513 


18740500 


T 


013110 


18740600 


T 


0132*1 



% 

CBl 

% 

Cl?l 
S SE 

% 
C\7i 



D|V (NT3«-JAR[P1MIX»8] ) + iO]+NTi MOD NT3 

FtSF 0AL0CtPlM!X,NTl,r33»6]+P(DUP)-13+NTl.[39l9])l 

DTSKWA!Tf-A5.tCF]»NT?»U)| 

MfA5 INX NOT Ol«-«PC,i)j 

IF NOT (*PC,J)),[2ll] THEN P([M[A5 INX NOT 13J»PRL)J 

GO TO INITIATFJ 

PLAIN ZIP 

ZlPPFR(R5.R4.0)> 

GO TO INITIATE* 

BREAKOUT 



T OMjT * NOT(bRF.AKOUT) 
GO TO INITIATE' 
COBOL I/O ERROR 
A5**A5l A4.PRTfPlMiX,3] I 
IF A5t5].rl«n THE^ 

BFGIN !!■ "INVALIO") J»a" 



% 
C20: 



% 
C21 « 



C21A» 



i*"i/o erk m ; 

USE« M ) R61M ENO ELSE 



StREAM(R4,N*[ Jl)> BEGIN 

END? 



S[*LOc R4; 01*01+11 os*r OECI 

01*01-7] 0S*5 FILLJ 



FTL.EMESS(l*R6tll47»l]tJpAtT*A5C4],tl3lll3]tA[T*l]# 

IF R4*CR4*16 OR R4»17 OR R4«8?) THEN R8 ELSE 0* 
IF R4 THEN R7 FL.SE 0.0)! 
GO TO INITIATE? 
T*PF SWAP FOR TAPE SORT 

SLFFP([N4[3]]»10MaSK)j SLFEP ( [ N4C 4 J ] , \ OMASK ) J 
FOR 1*3 STEP 1 UNTIL 4 nO 
BFGIN N5t! 3 , [ 33 t 15 3*N4 [| 3 J 

M[N4CI3 INX NOT 1) * (*P (DUP ) HN5 1 33 [ 14 I 3 I 43& CN5[ 3] 3 [ 331 331 153 
ENDI 

A«-N4[03t A[53 ,[39:4J,.2; A[l6)«.0l A [ 18 ] «-NABS ( *P ( DUP ) ) I 

NT4*AClO].[3ll5 3J A { 1 ] f [ 3 > 15 3*0 J 

A«-NSr0]J At53*0; Atl63*NFLAG(N5[3J)| ft 1 1 8 3*ABS( *P( OUP ) ) i 

Arl03.t3Jl53*NT4; 

GO TO INITIATE* 

SORT STORAGE ASSIGNMENT 

A*tMC6ETSPACE<R6+R5t?»t)+?]]iR5[8l38ll0]| 

AT03*(R5 INX A)&R6C8»38i 103» 

N4C03*AJ 

IF NOT cONQUfRCO»H5-1»R6»1 INX A»J) THEN 

BFGIN FORGETSPACE(A); 

STREAM(P1MIX,T*R5kR6»A*i*SPACF(7))« 
BFGIN DS*LIT "#"| SI*LOc P 1 M I X * 

DS*2 OFCJ DS* 13 LIT " NO SORT MEMl"; 

DS*5 DFC» DS*9 LIT " WDS RQD*"J 
ENDI 



$ set omit = packets 
$ sft omit = not packets 

SPOUTERCI»OfO)l % JOB MfSSAGE PAGE ONLY 

STRFAM(PlMiX, A*I*SPaCE(6))J % SIMULATE OPERATORS REPLY 
BFGIN DS*20 LIT "+0PfRAT0R KEYED INl "I 
SI*L0C PIMIX; DS*2 DECI 

ds*?6 lit " ou okI,., try disk sort***; 



X713« 
X713- 
X713- 
X713- 
X713- 
|713« 
X713- 



18740700 
18740800 
18740900 
18741000 
18741100 
18741200 
18750000 
18750100 
18750200 
18760000 
18760100 
18760200 
18760500 
18770000 
18770100 
18770200 
18770300 

18770400 
18770500 
18770600 

18770700 
18770800 
18770900 
18771000 
18780000 
18780100 
18780200 
18780300 
18780400 
18780500 

18780600 
18780700 
18780800 
18780900 
18781000 
18790000 
18790100 
18790200 
18790300 
18790400 
18790500 
18790600 
18790700 
18790800 
18790900 
18791000 

18791099 
18791609 
18791610 
18791620 
18791630 
18791640 
18791650 



0134 
0138 
0144 
0146 
0149 
0153 
0153 
0153 
0154 
0155 
0155 
0155 
0155 
0155 
0155 
0159 
0160 

0163 
0168 
0169 

0169 
0169 
0169 
0181 
0181 
0181 
0185 
0187 
0190 
0195 

0198 
0204 
0206 
0214 
0217 
0217 
0217 
0221 
0224 
0225 
0229 
0230 
0234 
0235 
0237 
0239 

0239 
0239 
0239 
0240 
0243 
0246 
0246 



13 
13 

10 
?1 
iO 
10 
12 
12 
13 
H 
tl 
U 
Jl 
13 
13 
»1 
tl 
18770300 

to 

»3 

tl 

18770400 

12 

J2 

12 

tl 

13 

t3 

13 

10 

10 

II 

18780300 

<1 

12 

12 

12 

10 

12 

12 

13 

13 

»3 

?0 

12 

11 

lO 

U 

to 

18790700 

II 

II 

II 

12 

12 

11 

13 



DI*f)I*?6; DS*? FILL? 
END; * OF STREAM 

SPOUTER(!»0»0)l % MESSARE PAGF ONLY 
J*ll % ASSUME "OU OK" IS OPERATORS RESPONSE 
POP OMIT 

GO TO C2t{ 

fnd; 



% 

C22» 



% 

c?5: ; 



% 

C?6t i 



GO 
SOR 
UN 
DO 
FOR 
GO 
RFT 
ART 
MrA 
IF A 
GO 
INV 

If 

str 

bfg 



LOG 
ROO 
FXP 

EXI 



TO INITIATE? 

T STORAGE RETURN 

4f0] INX U 

FORGETSPACE^Mt I 3) UNTIL C I *M[ I 1 . [ 181 153 >«OJ 

GFTSPACE(NflrOl); N4C0K0I 

TO INITIATE* 

URN OLD COPY OF OWN ARRAY 

N(A5,R4)J 

5.Crri]*A*PRTtPlMlX»l7j*PC.A5.L00)[l8il8ll5]| 

.r?«ll THFN MtA.tCF]«l].[CF]«-A&i[FFJl 

to initiate; 

AlTD ARGUMENTS TO ALgOL INTRlNSlCS 

C I * R4)>0 THF.N 

EAM(A *R4, I*I*SPACEf 10))) 

IN DS-LIT "-"J * 



I 

Tl 
I 

J 
T» 



CJ«-CI+AJ 

GO LOG J 

DS*3 LIT 

DS*2 

DS*4 

DS*3 

DS*3 

ns*8 

IF 
IF 



GO ROOT; 
M C0S"j 



LIT 
LIT 
LIT 

lit 

LIT 

SC>P3 
SC<0? 



GO 
GO 
GO 
CO 
GO 



log; 

exit; 

exit; 

exit; 

exit; 



go exp; go sin; 



DS*2 LIT 



END 



-SQRT M ; 

H EXP"; 

"SlN"> 

" ARGMNT »j St#-L0C a; s i*s I +7 ; % 

THE N DS*5 LIT «> 158" ELSE 

THEN DS*-5 LIT "NfgTV" ELSE DS«-4 LIT 

M *"} % 



% COBOL INVALID INDEX 



"ZERO"; 



X713. 
X713- 

*7l3- 
X 7\ 3« 
*7i3« 



SWF 



%7H0> 

XWF 

XWF 

SWF 

SWF 

XWF 

SWF 

SWF 

*740- 

X740- 

%7HQ> 

*740. 



C?9! J 



IF I * (-7) THEN 
BFG IN 

R4 * R5» R5 *■ r6j 
ERR0RFIXERC4); % INVALID INDEX CHECK 

END? 

TfRMtNatecPimix); TfRMtNalmessage(-i) j iwf 

commfnt this communicatf provides for ds-ing an object program 

and/or spouting a message about a program. 

r4 is used to specify the message required. 

R5 SeT TO TRUE SPECIFIES P1MIX jS To BE DS-ED. 
T IS THE ADDRESS OF ThE MESSAGEf WHI CH ENDS WITH A "*"). 
VARIABLES MAY BE USED AS DESlREDJ 



REMAINING 
T «- SpACEd?)? 

if ra < ? Then 
begin; 
strfam(jit); 

BEGIN 

DS * 9 LjT 

J ♦ DI» 



% ?9 m l 
% 29"? 

■dfc eRR« m ; 



18791655 
18791660 

18791670 
18791680 
18791681 
18791700 
18791800 

18791900 
18800000 
18800100 
18800200 
18800300 
18800400 
18810000 
18810100 
18810200 
18810300 
18810400 
18820000 
18820100 
18820200 
18820300 
18820700 
18820800 
18820900 
18821000 
18821100 
18821200 
18821300 
18821400 
18821410 
18821420 
18821430 
18821500 

18821600 
18821700 
18821800 
18821900 
18822000 

18822100 
18830000 
18830100 
18830200 
18830300 
18830400 
18830500 
I883O6OO 
18830700 
18830800 
18830900 
18831000 
18831100 
18831200 



C 
C 

C 
C 
C 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
P 
C 
C 
C 
T 

T 

T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0250 
0250 

0251 
0252 
0253 
0253 
0253 

0253 
0254 
0254 
0255 
0259 
0261 
0261 
0261 
0263 
0267 
0273 
0273 
0273 
0275 
0278 
0279 
0279 
0281 
0282 
0282 
0283 
0284 
0285 
028A 
0289 
0291 
0292 

0292 
0293 
0293 
0295 
0296 

0296 
0297 
0298 
0298 
0298 
0298 
0298 
0298 
0300 
0301 
0301 
0302 
0302 
0304 



1 
3 

8791630 



1 





2 

8790500 

2 





1 
3 
1 
3 
3 
1 
2 
1 
3 
3 
1 
3 
1 
3 


3 
3 
3 
2 

1 



2 



8820300 

1 

1 

3 

1 



8821700 



3 













1 



2 

3 
3 

1 



end; 



% 29-2 



18831300 T 



J «■ PJ 

if R4«i Then 

BEGIN) % 29-3 

STREAM(T1«-(R6<0)»R6*ABS(R6),J); 

BFGIN I 29-4 

DS*17 LM "ARRAY DIMENSION" 



"JT1CDS* 1 L I T "-"1)1 



S! ♦ 
DS * 
DI * 
pS * 
OS * 

end; 



LOc R6J 

fl dec; 
Di-e; 

7 FILL* 

2 LIT " 



*DI I 



DI - 
29-4 



J* 



FND 



X 29-3 



FlSF 



BEGIN; 
STREAMCR6, J); 

BEGIN 



% 29-5 
X 29-6 



DS 

ST ♦ 
DS «■ 
DI ♦ 
DS * 
OS * 

END) 



-15 LIT "NO, 

* LOC R6J 
«■ 8 DEC; J 

* di-8; 
- t fill; di 

* 2 LIT " *"; 
% 29-6 



DISK ROWS' 



Oil 



JJ 



end; 



END! 



X 29-5 
% 29-1 



IF R4=3 ThfN 
BEGIN 

>STREAM(T); 
BFGIN 

ps *■ 18 lit "-exp argmnt >1 58 j *■*• j * *740- 

end; 

end; 
if r4 x 4 then stream(t)« begin 

DSl-37 LIT"ILLEGaL PERFORM - RETURN OR RELEASE* «•"> 

fnd;; 

IF R5 THEN 

BFGTN % 29-7 

TERMlNATECPlMlXj; 

TERMlNALMESSAGEf 'T)l 
END % ?9-7 

ELSF 

SPOUT? T)» 
GO TO INITIATE; 
C38«» % RETURN STORAGE AND AUXILIARY MEMORY FOR CODE OR DATA SEGMENT 
IF A4.mil THEN % CODE SfGMeNT 



18831400 
18B31500 
18831600 
18831700 
18831800 
18831900 
18832000 
18832100 
18832200 
18832300 
18832400 
18832500 



18832700 
18832800 
18832900 
18833000 
18833100 
18833200 
18833300 
18833400 
18833500 
18833600 
18833700 



18834000 
18834100 
18834200 
18834300 
18834400 
18834500 



18834700 
18834800 
18834900 

18835000 
18835100 
18835200 
18835300 
18835400 

18835500 
18835600 
18835700 
18840000 
18840100 



18832600 T 



18833800 T 
18833900 T 



18834600 T 



030412 

18831000 
030413 
03051 1 
030610 
030612 
030812 
030812 
031211 
031212 
031310 
031311 
031313 
031411 

18831800 
031412 

18831600 

031412 

031412 
031510 

031610 
031610 
031811 
031812 
031910 
031911 
031913 
0320U 

18833000 
032012 

16832800 
032012 

18830800 
032012 
032111 
032113 
032212 
032212 
032510 

18834300 
032511 

18834100 
032511 
032711 
033211 

18834700 
033212 
033213 
033311 
033410 
033510 

16835100 
033510 
033510 
033613 
033711 
033810 



BFGTN A * PRTtPiMlX,*] j 
DO IF T . r 5 I 1 ] then 
IF T.[6lll THEN 



18580410 



UNT[L 
ADOR * 



ACCIDENTAL fNTRY AT 1 



T * NFLAGCA4 4 ( 1*0} [5151 1 J ) I 

f * T.fFFJ ELSE 

I * T, [7*U3 ELSE 

T * NFLAGCACT. [71 11] ]) 



I INX A[43; 
IF ADDR[0].[3U3 THEN 

COMPLfXSLEEPCCNOT 



ADDR[0J,[3«1 3))) 



ADDR[03.r3»23 * 2; 

comment turn off auxiliary memory flag. and turn 
on the "do not touch" flag for 
Re-entrant presence-bit protection! 

if not stqrfdy then sleepc t togle 3 » st0remask3j 

locktogcstoremask); 



IF (I * 

REG IN J 

$ SET OMIT * NOT(AUXMEM) 



(T «. ADDRf03).[FF3)>l023 THEN % PRESENT 
* Mrl-13> P(0LAY(I-2)» DEL3 END 



S SET OMIT 

S POP OMiT 
S SET OMfT 



AUXMEM 



ENDJ 



NOT(AUXMEM) 

ADDR[03.r3«l3«.0; 

COMMFNT 3'1 «0# NOT BEING MASSAGED BY PRESENCF BIT 

452 *2» ASSIGN AUXILIARY MEMORY NEXT OVERLAY; 
UNLOCKTOQf STOREMASK); 

GO TO INITIATE 
% OF CODE SEGMENTS 



if not storedy then 
locktogcstoremask}; 



SLEFPctT0r,LE3» stoRemask}; 



IF fT 

begin 



t set omit 



* NFLA6(M[J * A4,rFF33)},[?U] THEN 

^C J] • C 3 * 3 J*7' XMARK AS "READ-ONLY", ALREADY WRITTEN 

M[T J NX NOT 03 «■ f*P(DUp}} & C ( I *PC DUP) , [FF 3 ) OR 1HCTF31 

AITL * M[T INX MOT 1 3 . [ ? : 1 3? 

PC0l,AY(T,[CF3-2))j 

* NOTCDFBUGGING} 
PCDEL3 



C39« » 



C47: I 



% MEMORY 
C48: * 



END ELSE AITL*((I*T,[CF])«1)I 

IF I>511 THEN DlSKRTNM. T.C6|10])I 
MrJ3 * FLAG(T80[2»42»63sAfTL[cTc3)l 
UNLOCKTOGrSTOREMASK); 

GO TO INITIATE* 

* BASIC ARRAY RETURN 

ARTNfN4[03,R5}J % RETURN R5 DIM ARRAY 

GO TO C3A; * TO REMOVE FROM A [T 

PRT[P1MIX,83 «• FLAGCR8)>X00NE ONLY AT END OF TNTERRliPTFR 
P(8 INX PRTrPlMIX,TSX3.DUP,L0D*0,FFX»XCH»STD)l 

so to initiate; 

DUMP OR TRACE F^OM ThE INTRINSICS 



INTRIN 



18840200 
18840300 
18840400 
18840500 
18840600 
18840700 
18840800 
18840900 

18841000 
18841100 
18841200 
18841300 
18841400 
18841500 

18841600 
18841700 

18841800 
18842200 
18842300 
18842400 
18842500 
18843400 
18843500 
18843600 
18843700 

18843800 
18843900 

18844000 
18844100 

18844200 
18844300 
18844400 
18844500 
18844600 
18844700 
18845100 
18845200 

18845300 
18845400 
18845500 

18845600 
18850000 
18850100 
18850200 
18860000 
18860100 
18860200 
18870000 
18870100 



0339JO 
034311 
0345«3 
034813 
035010 
035211 
035313 
035412 



036H 
03621 
03621 
03621 
0362) 
03651 

1 
03691 
03711 

1 
03751 
03751 
0375! 
03751 
03751 
03751 
03771 
03771 
03771 

1 
03811 
03811 

1 
03811 
03841 

1 
03881 
03911 
03941 
03991 
04021 
04041 
04041 
04041 

1 
04071 
04091 

04131 
t 
04161 
04171 
04171 
04181 
04181 
04211 
04241 
04241 
04241 





3 

3 

3 

3 

3 

6841500 

I 

3 

8841700 

3 

3 

3 

3 

3 

3 

2 

2 

2 

8843700 



2 

6840200 

2 

2 

8844100 



2 

3 

2 

1 



1 

8844300 



3 



8845500 

2 







2 





2 

2 



$ STT 0MfT a N0T(DUMP OR DEBUGGING) 

IF 14 NE"Q THEN 
$ SET OMIT * NOTCDEBUGGING) Of* OMIT 

ELSE 0UMPN0W(R5); 
$ POP OMIT 

GO INITIATE!* 
pN0 OF COMMUNICATED; 



18870?00 
18870300 
18870400 
18870700 
18870800 
18870900 
18872000 



T 042412 
T 0424»2 
T 0425*3 
T 0425«3 
T 0430(0 
T 043010 
T 043012 

18700100 
SIZF» 0431 WORDS 



PRTC643) ■ ^0M2 



STACK(F-4) t R4 
STACKfF-5) = A5 



SAVF PROCFDUHE COM?; 



RFC IN 

real R4»-4; array a5=-5[*]J 



SLFFPf fMr A5j3,R4)l 

go to rfturn; 
fnd com?* 



X721- 19300000 C 0000*0 
START OF SAVE SFGMFNTj BASE ADDRESS ■ 00652 



* SLFEP FUNCTION (ALGOL 



WAIT) 
*72l' 



*7?1- 
X721- 
*7?1- 



19301000 
19302000 



19303000 
19304000 
19305000 



0000*0 
0000*0 



C 0000*0 
C 0002*1 
C 0002*3 

19301000 
SIZE* 0003 WORDS 



PROc 
BET, 1 



fdure shortcOmmunicatei 

N RfAL R4«-4,R5 = -5»R6*-6,R/' = -7,R8a-a,R9a-9{ 



STACKf F-4) 

STACKfF-5) 

STACKfF-6) 

STACKfF-7) 

STACKfF-10) 

STACKfFMl) 

STACKfF-4) 
STACKfF-5) 
STACKf F-6) 

STACKfF-4) 
STACKfF-5) 
STACKfF-6) 



START OF REL 
% (SHM) 



19500000 

segmfnti disk 

19501000 



T 0000*0 
ADDRESS « 
T 0000*0 



00553 



STACKfF-4) 
STACKfF-5) 
STACKfF-6) 



STACKfF+1) 
STACKfF+?) 
STACKfF+3) 
STACKfF+O) 

STACKfF+4) 
STACKfF+4) 
STACKfF+4) 

STACKfF+4) 
STACKfF+5) 
STACKfF+6) 

STACKfF+7) 



: R4 

s R5 
i R6 
. R7 
a Rfl 
s R9 

• !« 
« 15 
■ 16 

: A4 

t A5 
> A6 



STACKfF-7) * A7 



N4 
N5 

N6 



I 
J 
T 
RCW 

AIT 

AITL 
A 

FIB 

FPB 
H 

ADOR 



INTEGER [1=*1» !5*-5» j6=-6; 

ARRAY A4s-4[*J»A5a-5r*]>A6s-6r*]» 

ARRAY A7=-7[*JJ 

NaMF N4 = -4»N5«s-5»N6a-6; 




ARRAY A I Tf * 3 J REAL, A I TL = A f T> ARRAY A«AIT(*]J 



ARRAY FIB«AlT[*3tFPB£*J»H[*]»LABEL CHANGENAMEJ 



NAMF A0DR5 

DFFINF. BITSsfiF SB THEN 0S*SET ELSE DS*RESET1 SKIP SB)#J 
ChECKSTACkSPACEJ* 

if P(PRT[pimix,9], oup) < o then 

begin pfdfdj terminatc(pimix)! term ]n aimessagec 81 ) end) 

go to ccpj; 

SL* Pf.cOMMUNKATEl )? GO OjFFcOMJ 



SWF 



19502000 T OOOOJO 



19503000 T 000010 



19504000 T 
19505000 T 



19506 
19507 
19508 
19508 
19511 
19512 
19513 
19513 
19515 
19517 
19518 
19519 



000 
000 
000 
OlO 
000 
000 
000 
OlO 
000 
000 
000 
000 



19523000 T 

19525000 T 

19525100 T 

19525200 T 

19526000 T 

19526100 T 



0000*0 
0000*0 



0000*0 
0000*0 
0000*0 
0000*0 
OOOOJO 
OOOOJO 
OOOOlO 
0000*0 
OOOOlO 
0000*0 
0000*0 
0000*0 



19520000 T 0000*0 



19521000 T 0000*0 



19522000 T OOOOJO 



0000*0 
0000*0 

19525000 
0006*0 
0007*3 

19525200 
0010*0 
0035*3 



TW: PC. COMMUNICATE*)); GO DtFFcOm; 

% SLFFP 

C2* Pr.COM?)> GO TO CN ? 

% RfTURN SPFC IF I C ARRAY 

% EOJ 

C5s P(.C0M5); GO TO CNJ 

* f?ll with inquiry 

C9 I 

$ SET OMIT = NOT(DATACOM) 
% BLOCK EXIT 

C 10 J Pf.ASR)J GO TO CN; 
% ALGOL I/O FUNCTIONS 

cm 

IF R^sO THEN F!LeOPfN(0»a5,CCFJ>* 
IF R4 = 6 THEN 

BEGIN FILECLOSECNFLAGf A5))l GO TO INITIATE END; 



*7?1- 



tf 



R4s4 THEN 

BEGIN 

IF A5f 43 THEN % FILf IS IN ■ DIRECTORY 

FORGET SPACEC 01 REC TORY SEARcH(R8 f R7,-(A5.[CF])4R6[CTF])) 

BEGIN 

IF (T;*R9,ntJl5J) 6 TR THEN * EU SPECIFIED 
TJ»(IF T GTR ?0 THEN ELSE -T) ELSE 

IF CT|«R9,[16»2]) QTR THEN X SPEED SPECIFIED 
TJsClF T GTR 7 THEN ELSE T) ELSE 

TJpOJ * NO SPEED OR EU SPECIFIED 

A l 5tR6]»=PETUSERDtSK(A5r8J»T); 

end; 



GO TO 

end; 



INITIATE' 



% 

C13» 
% 
C14I 



% 

C18: 

S SET 

Cl9» 
X 

C23«> 
% 

C24J i 
S SET 

$ POP 
$ SFT 

% 

C27J t 



P(.COMtl); GO TO DlFFCOM; 
COBOL I/O FUNCTIONS 
P(.C0M13); GO TO CN; 
INVERT OVeRLAYABLE STATUS 

IF NOT N4[0].t2:iJ THEN MaKEPRESENTC I N4[ 0] ] ]NX 0); 
MfN/jrO] TNX NOT 1 ] «-P ( D'JP . LODHP ( OUP , LNG) T 2 » 2 » 1 ] ; 

go to initiate; 
frr0r - inquiry write 

OMIT a NOTCDATACOM) 

go to initiate; 
print back-up 
p(.c0m19)) go to cn; 

LOAD CONTROL 

P(,C0M23); GO TO C N * 

RrTURN ONE ROW OF A DISK FILE 

TjsAAtRSl; A4tR53»»0; 

OMIT ■ SHAREDISK 
FORfiFTUSER0ISK(T»A«[8])i 

OMjT 

OMjT * NOT(SHAREDISK) 
GO TO INITIATE' 
COBOL OATACOM I INTERROGATE 



% (SHM) 

% (SHM) 

X (SHM) 

X (SHM) 



X (SHM) 
X (SHM) 
X (SHM) 

ELSE 

% (SHM) 
(SHM) 
(SHM) 
(SHM) 
(SHM) 
(SHM) 
(SHM) 
(SHM) 



X (SHM) 
* (SHM) 

% (SHM) 



19526200 
19541100 
19542000 
19543000 
19552000 
19553000 
19559000 
19560000 
19561000 
19565000 
19566000 
19567000 
19568000 
19569000 
19570000 
19571000 

19572000 
19573000 
19574000 
19575000 
19576000 
19576100 
19576200 
19576300 
19576400 
19576500 
19576600 
19576700 



19578000 
19579000 
19580000 
19581000 
19582000 
19583000 
19584000 
19584200 
19584300 
19584400 
19584700 
19585000 
19586000 
19587000 
19588000 
19589000 
19590000 
19591000 
19592000 
19592001 
19593000 
19595000 
19601000 
19602000 



T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



19577000 T 
19577100 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 



0036 
0037 
0037 
0038 
0038 
0038 
0038 
0038 
0036 
0038 
0038 
0039 
0039 
0039 
0042 
0043 

0045 
0046 
0046 
0047 
0051 
0051 
0053 
0056 
0059 
0062 
0063 
0065 

0065 
0066 

0066 
0067 
0067 
0067 
0067 
0070 
0074 
0074 
0074 
0074 
0074 
0075 
0075 
0076 
0076 
0076 
0076 
0079 
0079 
0080 
0080 
0080 
0081 
0081 



2 

1 

1 







3 

3 

3 

3 

3 

2 

2 

2 

2 

1 

9571000 

2 

1 

3 

1 



2 

1 

3 



1 
2 
3 

9576000 

3 

1 

9573000 

1 


3 
3 
2 
1 
3 
3 
3 
3 
1 
1 


3 
3 
1 
1 
2 
2 
2 





S SFT OMtT * NOTCDATACOM ) 
GO INITIATE? 
% ALGOL DATACOM I INTERROGATE 

C2fl* I 
S SET OMIT «s NOTCDATACOM ) 

GO INITIATE* 
C34M IF CT«-R4) > THEN STREAMc R4, T*T#-SPACEC 1 7) ) * 

bfgin si*R4i ds«-i7 wds end? 
tfRMtNate(PimiX);?! 

TrRMlNALMESSAGE(-T)JS! 
C35:» if R4,rl8l4]«l ThfN P( . L I BRARYZERO ) 

ELSF PC.LIRRARYCOPY)? 
GO TO CNJ 
C36H % TYPE 19 DATACOM ]/o INTERFACE 
$ SFT OMtT = DATACOM 

go to initiate; 

$ POP OMIT 

$ SET OMjT e NOTCDATACOM ) 

c3r*» 

AlT*JARROW[PlMlX]j 
IF AlT[9],[ F FlaO ThfN a I T C 9 ] '. [ FF 3 «-GETeSPD I SK J 
M*f MrSPACEC5)13»5[8i38i 10] J 

Hrn*R5iH[2]*R4i 

S SFT OMjT x NOT(OATACOM ) 
S SET OMIT ■ DATACOM 

H[3]*0J 
$ POP OMIT 

diskwaitch inx 0, 5, a i t [ 9 ] . t ff 3 ) ? 

forgetspacech)? 

fi o to initiate; 

C40:» IF R5.[8I10]»1023 THFN 

BFGIN M[R5.tcmi»PRNTARtFtK5.CFFni60 iMTlATriEND ELSE 

IF R5.[CF]s0 THEN 

BFGIN LlNKUP(R6,R5»*R5.rFF] )» 

SLEEPCrMfRS] ],(S1000000000000000)J GO RETURN; 
END FLSE 

IT R5.ri5il5]«0 THEN 
BFGIN 
$ SET DMiT a NOTCDATACOM ) 
$ SET DMiT a DATACOM 
M [ R 5 1 t ■ i 
t POP OMIT 

GO INITIATE? 
END FUSE 

IF RS.tFF 1**77777 THFN 

BFGIN M[R53»«MOD3lOS» GO INITIATE? END ELSE 

BFGIN INDFPENDENTRUNNERCP(.DKBUSINESS)»R5»128)I SLEEP t [ Mf R51J . 1 ) ? 

GO RETURN? 
END? 

C«lll I0RFQUFST(R7,R6»FLAGCR5))J GO INITIATE? 
C4?:» Pr.^TlSKTASK)) c,0 TO cMi 



19603000 
19637000 
19638000 
19639000 
19640000 
19668000 
19680200 
19680300 

19680400 
19680500 
19681000 
19681100 
19682000 
19683000 
19683499 
19683500 
19683501 
19684000 
19685010 
19685015 
19685020 
19685025 
19685030 
19685035 
19685050 
19685055 
19685060 
19685065 
19685070 
19685075 
19685340 
19685350 

19685360 
19685370 
19685380 
19685390 

19685400 
19685410 
19685419 
19685429 
19685430 
19685431 
19685440 
19685450 

19685452 
19665456 

19685460 
19685470 
19685480 

19685550 
19685560 



T 0081 * 


T 0081? 


T 008H 


T 0081? 


T 0081? 


T 0081? 


T 0082? 


T 0087» 


T 0088? 


T 00891 


T 00901 


T 0093? 


T 00931 


T 0094? 


T 0095? 


T 0095? 


T 00951 


T 00951 


T 00951 


T 00951 


T 0097? 


T OlOU 


T 0105? 


T 0107? 


T 0107? 


T 0107? 


T 0l08» 


T 0108? 


T 0111? 


T 0112? 


T 0113? 


T 0114? 


T 0118? 


T 0119? 


T 0122? 


T 01241 


T 0124 J 


T 0128? 


T 01281 


T 01281 


T 01281 


T 0130? 


T 01301 


T 01301 


T 0130? 


T 01321 


T 01351 


T OHO? 


T 0140? 


T 0140? 


T 01431 



;o 
to 

?2 
?2 
?2 
12 
?2 
«3 
19680300 

2 
»1 
?1 
10 
13 
«1 
(0 
(0 
>2 
12 
?2 
?2 

to 

?1 
10 
?2 
?2 
?2 
»3 
13 
(2 
?2 
10 

?i 

19685350 
10 
?3 
?1 
»3 

19685370 
>3 
?i 
13 
13 
13 
«1 
?I 
13 

19685410 
13 
12 

19685456 
12 
?1 
13 

19665460 
13 




C«3« » 



C44* I 
C46: « 



Pr 

Pr 



M * PRTrPlMTX»TSXU % SET 

mth * JARtPiMtx,oj; Hr 2 J 
h r 3 J *• ? i h r 4 ] . 

no m initiate; 
..pickthelock); go to cnj 

,.rVFNTANDTNTERRUPT)l GO TO 



TASK ATTRIBUTES 

* JARtPlMlX»lll 

* PlMIXI 



H[6] 



2> 



CNi 



END OF SHORT COMMUNICATE'* 



* ATTACH* DETACH* CAUSE STMTS 



19685570 
19685580 

19685585 
19685590 
19685595 
19685596 
19686000 



T 01431 3 
T 0145*2 
T 0149:2 

T 0153*1 
T 015313 
T 0154J3 
T 0155«3 

19501000 
SIZE" 0156 WORDS 



PROCEDURE TlSKTASKj 



% 
% 
% 
% 
% 
% 
* 
% 
% 
% 
% 
% 
% 
% 
% 
X 

% 
% 
% 

% 

% 
* 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
* 
% 
% 
% 
% 
% 
% 
% 
% 
* 
% 
% 



A 

PRO 

OR 

ITS 

THE 



COBOL OR 
CfSS. CAL 

EVENTS (A 

CODF FIL 
FORMAT 
TSKArOl 
TSKAU J 
TSKATPJ 
TSKAT3J 



TSKAT4] 

TSKA[5J 
TSKAT6] 



TSKAT7] 



TSKAC8] 



ALGOL 
L, OR 
LGOL) 
F AS 
F THE 



PROGRa 
RUN/EX 

» will 

HAVING 
TASK A 
a T 

■ 7 

■ 7 
' S 



- S 
*HE 



[3M]»0 OF 



EOJ) 

BUT FAILED 



SEG 



MFNT FO 

s r 2 1 . c 

sm.r 



NOTE: 



FO 



sm.r 
sm.r 

THAT 
OR E"S 
Sr8] 



sr9] 
RMAT of f 
(RCGfN 
ri5»l5 



R IPC 
.I'll 

411] 
? * 3 J 

THIS 
-ED A 



PROGRa 



■ JARf? 
JOB MAY 
ND LOCK 



START OF REL 
M WHICH EITHER CONTAINS OR IS INVOKED 8Y A 
ECUTE STATEMENT, OR MANIPULATES LOCKS (COBOL) 
BE FLAGGED IN SEGMENT (WORD 2 
A TASK ARRAY, 

RRAY (MYSELF AT PRT(TSX]) IS AS FOLLOWS 
ASkVaLUEi PROVIDED FOR USER 
ChR MFID OF CODE FILE 
ChR FID OF CODE FILE 
TATUS* IsSCHEDULED 
PsACTlVE 
-1«TERMINATED (DS-ED OR 
-2« INIT I AT ION ATTEMPTED 
TACKNO: MIX INDEX IF RUNNING 

SCHEDULE-ID IF SCHEDULED 
AD OF LIST OF LOCK-ITEMS IN CONTROL OR QUEUED 
YPf» 0*ASYNCHRONOUS DEPENDENT (PROCESS) 
ASYNCHRONOUS DEPENDENT (CALL) 
2-INDFPENDENT ( RUN/EXECUTE) 

ALL STATF« 0»INITIAL 

\u e:X I T PROGRAM/ 

EXjT PROGRAM RETURN HERE 
2-C0NTINUED OR RE-CALLED 
IFF JUST EXECUTED INTERRUPTER INTRINSc 
AND SFINTQ IS NON-EMPTY 
2«lJ*l IFF SFINTQ IS NON-EMPTY 
3*11*1 IFF INTERRUPTER INTRINSIC IS RUNNING 
41)3 « SFINTQ INTERLOCK BIT (ON TO START) 
FF] ■ ABSOLUTE ADDRESS OF OLD iRcW 
CFJ 8 HEAD OF LIST OF DECLARED INTERRUPTS 
M FILES « 

si IF THERE ARE DECLARED INTERRUPTS 
=1 FOR AN IPC PROGRAM FILE 
(EITHER INVOKING OR INVOKED) 
■1 FOR AN INVOKED IPC PROGRAM FILE 
3,(5133. JARC23. (6113*1 INDICATES To C0M5 
HaVe DEPENDENT TASK DESCENDENTS TO BE DS-ED 
QUEUES TO BE CLEANFD Up WHEN IT TERMINATES, 
NUMBER OF TASK PARAMETERS TO BE RECEIVED 
( * N BELOW), 

PARAMETER DESCRIPTION SEG 
SFGMENTl 



s C 



» riH 1*1 



(ONLY 



1-DIME 

rflt 103 

f'33'15 



T|S 
SPE 

THE 



task make 
ctfifd in 

F- CELLS 



DISK ADDRESS OF 
NTRY IN PARAMETER DESCRIPTION 

ning in wORn i) 

] I TYPE " TASK ARRAY - NAME 

1 EVENT/LOCK - NAME 

2 PRT CELL - NAME 

3 PRT CELL - VALUE 

4 fSAVF) ARRAY • NAME 

5 ARRAY - VALUE 

NSIONAL ARRAYS CAN Bf PASSED AS TASK PARAMETERS). 

« SIZE - StZe OF ARRAY FOR TYPES 4 AND 5, ELSE 
3 l LOCATION-PRT LOCATION FOR TYPES 0-4, FOR TYPF 51 
-RpUATIVF DISK ADDRESS OF TYPE-2 SEGMENT 
S A TEST FOR AGREEMENT BETWEEN THE TASK PARAMETERS 
THF PARAMETER DESCRIPTION SEGMENT AND THOSE SPECIFIED BY 
(SEE BELOW). uACK OF AGREEMENT EITHER DS-ES THE PARENT 



19687000 

SEGMENT) DISK 
19687100 

19687120 
19687140 
19687150 
19687200 
19687300 
19687400 
19687500 
19687600 
19687610 
19687650 
19687680 
19687700 
19687750 
19687780 
19687800 
19687840 
19687850 
19687860 
19687870 

19687872 
19687874 
19687876 
19687878 
19687880 
19687882 
19687883 
19687884 
19687885 
19687886 
19687887 
19687888 
19687889 
19687890 
19687892 
19687894 
19687896 
19687898 
19687900 
19687910 
19687920 
19687925 
19687930 
19687935 
19687940 
19687945 
19687950 
19687955 
19687957 
19687960 
19687965 
19687970 
19687975 
19687977 
19687980 



OOOOlO 
>DDRESS « 00559 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
0000(0 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 

000010 

OOOOlO 
OOOOlO 
OOOOlO 



I OR CAUSES A 1 To BE RETURNFD (IN THE CASE OF A COBOL PROGRAM WHICH 

% CONTAINS AN "ON EXCEPTION" CLAUSE). 

% TISKTASK COPIES THE CODE FILE* FILLING NAME AND VALUE PARAMETERS INTO 

% THE NEW PRT AND WRlTjNG OUT VALUE ARRAYS AS TYPE"2 SEGMENTS, THE JOB 

% is entered in the schedule and the schedule-id is entered in the 

% TASK ARRAY. THE NEW SHEFT FNTRY tS FLAGGED A GO JOB (AS FROM A 

% COMPtLE-AND-GO). 



STACKfF-4) 
STACKfF»5> 



STACK(F«6) 



BEGIN 

REAl, MFTr)x-4»F|D*-5, 



MFID 
FID 



N*-6J 



% FILE ID OF CODE FILE TO BE INVOKED 



% MFID<0 IF ON EXCEPTION CLAUSE IS PRESENT 

% FID<0 IF CALL OR CONTINUE STATEMENT 

% NUMBER Of F- PARAMS BETWEEN F-7 AND MKSCW 



there will be a pair of f- cells for 
each task parameter. f(»l) contains 
the name or value of the parameter. 

Ff-f!*t>) CONTAINS ThE TYPE 

(AS IN SEGMENT 0), 

(TSKA IS THE FIRST TASK PARAMETER) 



STACKfF+1) » PARM 



STACKfF+2) 
STACKfF+3) 
STACKfF+4) 
STACKfF+5) 
STACKfF+6) 



S 

R 
H 
D 
W 



ARRAY NAME PARM! 

ARRAY Sf*]iBt*3»H[*]»Dr*]»Wr*J# 



STACKfF-7) = TSKA 



TSKAa-7[*]J 



J! TASK ARRAY DESCRIPTOR FOR PROCESS* CALL 



STACKfF+7) 
STACKfF+lO 
STACKfF+U 
STACKfF+12 
STACKcF+13 
STACKfF*14 
STACKfF+lb 



% TNTEGER * TASK ARRAY LENGTH FOR RUN 
REAl T,T1.T2.T3»T«,0NEXCEPTt0N,CALLED0RC0NT» 



STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 
STACKf 



F + 16 
F+17 
F + 20 
F + 21 
F*22 
F + 23 
F + 24 
F + 25 
F + 26 
F + 27 
F + 30 
F*3t 
F*32 



* Ti 

* T? 
« T3 
s T4 

* onexception 

* callfoorcont 

VARRAY,IOD#IOD1 »NR,SR,hADDR.PHTRLOC»PRTSZ»ERR.SZ.S1»CR,PRTSI 
<s VARRAY 
s I0D 

* 1001 

* NR 

* SR 

■ HADDR 

« PRTRLOC 

a PBTSZ 

* FRR 
B SZ 

* SI 

* CR 

» PRTS 

LABFL LI, ERROR. NEXTR0W,L2pXyT* 
INTfGFR paddR»adorj 



19687982 
19687984 

19687990 

19687995 

19687997 

19687998 

19687999 

19688000 

19688050 



19688060 T 
19688070 T 
19689000 T 



19689010 
19689020 
19689030 
19689040 
19689050 
19689060 
19689070 
19691000 



19692200 
19693000 



19695000 
19696000 



OOOOtO 
OOOOlO 

OOOOtO 

0000«0 

OOOOlO 

OOOOtO 

OOOOlO 

OOOOlO 

OOOOlO 



OOOOlO 
OOOOlO 
OOOOlO 

OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 



19692000 T OOOOlO 



19692100 T OOOOlO 



OOOOtO 
OOOOlO 



19694000 T OOOOtO 



T OOOOtO 
T OOOOlO 



STACK f F*33) 
STACK(F+34) 

STACKfT+35) 
STACK(F*36) 
STACKfF+37) 
5TACKfF*-40) 
STACKfF*4l) 



1110- 



s PAODR 
a AOf)R 

REAL common, f»estprocestio,stksz; 

* COMMON 

» F 

■ FSTPROC 
» FSTJO 

■ STKSZ 

DEFiNF CONTtNUfD a VARRAY#, SAVpBjT * I0D1#I 
ONEXCEPTjON ♦■ MFID<0> MF1D «• ABSfMFID)! 
CALUERORCONT ♦ FID<0? FID * ABS(FID); 
CONTINUED - N<OJ N * ABS(N)I 
PARM * [N]J 

if call.edorcont then x caul or continue statement 

begin if continued thpn if tska[3j#2 or tska[73m then 

pfgin err * ll terminatfcp1mix&98[ctf]}| go xytj 

end; 

IF TSKA[3]«2 7HFN IF TSKAt73»l THEN 
BEGIN TSKAC7] * 21 GO XYT; 
END ELSf ELSf TSKAC7] * OJ 

END! 



U» 



IF (T«BDIRErT0RYSEARcH(MFlD»FlDt3)) GEO 64 THEN 
REGTN TF SecURJTYcwECK(MFID»FIO»USERCOOECP1HIX]»T)bO 
BEGIN L'RR - II 

IF T GF.Q 64 THEN FORGETSPACFf T ) I 

GO ERROR! 
FNDf 



THFN 



END F.I.SF 



IF MfT 
GO LI J 



inx «3.c9»?]^3 then go hi a; not executable code 



IF TSKA.PBlT THEN IF TSKAC3m THEN GO LH 
S * rM[GETSPACEC30»?»0) + J>J]&30t8»38! 10]I 
% READ SEGMENT ZERO INTO S 

DlSKWA!T(«S.[CFJ#30»MtT INX 101)1 
IF Si 6 ]/N THEN 
L2» BEGIN FORGETSPACE(S); 
GO L 1 J 
END; 

W * CMfGETSPACECT3*N Dl V 2+1 ,2 » 0) + 2 ] ]&T3[ 8 t 38 » 1 0] I 

% Read iPc parameter description segMfnt into w 

DTSKWAiT(-W,CCFl#T3#AD0R * M[T INX ( 1 0+( ( T2*Sr9 ) ) 

D! V (SR«.MfT INX 83)))] + ( T2 MOD SR)); 
FOR Tl ♦ 2 STEP 2 UNTIL N DO 

IF PARM[NOT(Tl-l)J#WtTl DT V 2].tFF] THEN 
BEGIN FORGETSPACECW); 
r,0 L2I 

end; 
% read prt into r 

R ♦ tMrGETSPACE(Sr3].2,0)*2]]SS[3)[8l38ll03l 

DlSKWAlT(»R,[CFJtS[3]»PA0DR * M[T INX ( lO+( (PRTS*St 2] . I CF3 ) 
DIV SR))] + fPRTS MOD SR))I 



19696100 C 0000*0 



19696500 
19696600 
19696700 
19696800 
19697000 
19697200 
19697300 
19697400 
19697500 



19698000 
19699000 
19700000 
19700500 
19701000 
19702000 



19704100 
19705000 
19706000 
19707000 
19708000 
19709000 



197 
197 

197 
197 
197 
197 
197 
197 
197 
197 
197 



0000 
1000 

1100 
1200 
1300 
1400 
3000 
4000 
4100 
4200 
4300 



19697600 T 

19697700 T 

19697800 T 

19697900 T 



19703000 T 
19704000 T 



19718000 T 

19719000 T 

19720000 T 

19721000 T 



0000:0 
0000:0 
0010:2 
0012*3 
0015 : 
0015J3 
0016«0 
0019:2 
0022«2 

19697400 
0022»2 
002510 

00271 1 

19697700 
0029>2 

19697300 
002912 
003113 
0034*2 
003513 
003713 
003811 

19700000 
0038 ( 1 
0041U 

19699000 
0041 <1 
0044»1 
004810 
004810 
0051 ? 2 
0052*2 
0054(0 
005412 

19709000 
005412 
005913 
0059«3 
0062 11 
0068(1 
006910 
007212 
0074S0 
0074»2 

19714100 
0076*3 
007613 
0081(0 
0083<3 



FOR 



BEGIN 



end else 

BEG tN 



END; 



Tl «• ? STEP 2 UNTIL N DO 
IF PARMrN0T(Tl-i)]-5 THEN 
PARMrNOTCTI-1 )] ♦ W[Tl DfV 
VARRAY * VARRAY+lJ 



% PASS-BY-VALUE ARRAY 
23. [CM) % RELATIVE DISK LOCA- 
I TION OF TYPE-2 SEG 



RtWCTl DIV 2],[nF3] * *CPARM[N0T(T1-2)3]IS PLACE NAM? 
P*RMrNOT(TJ-|)J * -P77777) % OR VALUE IN PRT 



♦ NR+ll X NR s # ROWS 



X RUJLP HFAPFR FOR NEW CODF FtLf IN H 

H * [MrGETSPACEf 30.2,0) + 2]U30[8i38«l0]l 

MOVEC30.T JMX 0»[H3)J 

Hf23 * H[53 * Ht6] *• Oj 

T4 ♦ MrT i MX 9], [«3i 5J-1 ; 

WHILE MtT INX flO+NR)3/0 AND NRST4 DO NR 

T4 * NR + 9J 

Hr4],r 161203 * 0; 

HT 93 ♦ NR; 

FOR Tl «- 10 STEP 1 UNTIL U DO H[Tl3 * GETUSERDI SK( SR ) | 

HADDR «- GEfFSPniSK; 

30>HApDR)J 
* SAVE LABEL EQUATION ENTRIES 



INX 0-1 



DlSKlOf IOD»H 
F ♦ SE 1 53 I 
ESTPR0c:aSI 163; 
EST JO 8 * St 17] I 
COMMON * SM93; 
STKSZ:* SC PI 1 * 
CP - S[73,tFF3» 
PRTRLOc «• PRTS DIV SRI 
PADDR *(PRTS MOD SR>> 
PRTSZ «-rCS[33+?9) ni V 



SAVE 

SAVE 

SAVE 

SAVE 

% 

% 

% 

30) J % 



TIME 



SLFFPf r I0D3»?0MASK)! 
S1 ♦ ■ SR-li % 

FOR T1 := i0 STEP 1 UNTIL T4 
PEG IN 

FOR T3 J= STpP i UNTIL 
RFGlN 
DlSKWAlTf-S.rCF3,30,MCT 

TFCTjaioj then if(T3b0j 



ESTIMATED PROCESSOR 

ESTiMATFD I/O TIME 

COMMON VALUE 

STACK SIZE 

SAVE CORE REQ. 

ROW PRT IS LOCATED IN 

WHICH SEGMENT IN ROW 

NUMBER OF SEGMENTS IT OCCUPIES 



XllO- 
XI 10- 
XI 10- 
XllO- 
XI 10- 



diskwa1tc 
end; 



S.fCF3,30,H[T13 



NO, OF segs/row - 1 

DO % COPY CODE FILE CHANGE I NGX11 0- 

% PRT & PASS-BY-VALUE SEGMENT 

Si DO X COPY ROW X171- 

XllO- 
INX TU + T331 X READ SEGMENT XllO- 
THEN S[?3,[3I23 ♦ 3) X INVOKED 



+T3){ X WRITE IT 



BACKX110- 
X110- 



tfcti-io)«prtrloc Then % prt is in this row 

DlSKWA jT(R, r CF3,pRTSZx30,H[Ti3+PADDR)J X WRITE OUT 
IF VARRAY > THEN X LOOK FOR TYPE-2 SEGMENTS IN THIS 
FOR T2:s2 STEP ? UNTIL N DO 
IFf Tt-l0)=(PARMlN0T(T2-i )]DIV SR) THEN 
% WE HAVE A TYPE-? SEGMENT IN THIS ROW 

BEGIN X MOVE SFGMENT TO CODE FILE ROW 

SZJ.(W[T2 DlV g],[B!]0]+29) DIV 30) 

D«bPaRM[N0T(T2-2))I 

ADDR»»(PARMtNOT(T2-l)3MOD SR)J 

varrayjsvarray-u 

WHILF D.PBIT»0 do 

MAKEPRESENTf[T3 INX(NOT l))l X ADDRESS OF D 
SAVFBTTJaMtO INX (NOT 1)3, [2)13) 
PrM[D INX (NOT 0))); 



XllO- 

PRT 

ROW 
XI 10- 
XllO- 
XllO- 
X110- 
XllO- 
XI 10- 
XllO- 
XI 10- 
1110- 
XI 10- 
XllO- 
XltO- 



19722000 
19723000 

19724000 

19725000 

19726000 

19727000 
19728000 
19729000 

19730000 

19731000 

19732000 

19733000 

19733400 

19733600 

19734000 

19735000 

19735050 

19736000 

19737000 

19738000 

19738100 

19738110 

19738120 

19738200 

19738210 

19739000 

19740000 

19741000 

19742000 

19743000 

19744000 

19746000 

19747000 

19748000 

19749000 

19750000 

19750100 

19751000 

19752000 

19753000 
19754000 
19755000 
19756000 
19757000 
19758000 
19759000 
19760000 
19761000 
19762000 
19763000 
19764000 
19765000 
19766000 
19766100 



T 
T 

T 

T 

T 

T 
T 
T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

C 

C 

C 

C 

C 

T 

T 

T 

T 

T 

T 

P 

P 

P 

P 

P 

C 

P 

P 

P 
P 
C 

c 
c 
P 
p 
c 
c 
p 
p 
p 
c 
p 
c 



0086)2 
0090)0 
009211 
009611 
0097)2 

19724000 
0097)2 
0102)0 
010412 

19727000 
010613 
0106)3 
0110*2 
0112)3 
0116)0 
0119)0 
0126)0 
0127)1 
0129)3 
0131*0 
0136)1 
0137)1 
0140)0 
014110 
0142)0 
0143)0 
0144)0 
0145)0 
0146)2 
0147)3 
0149)0 
0151)0 

0l52«2 
0153)3 
0155)0 
0155)0 
0156)0 
0156>0 
0160)0 
0165)0 
0167)3 

19749000 
0170)0 

0171)1 
0175:0 
0175)3 
0177)0 

0180)1 
0180)1 
0l80»3 
0183)3 
0186)0 
018813 
0190)0 
0192)0 
0194)0 
0197*0 



M[D I MX (NOT 1)1.12! l]l»ll 

t)lSKWAlT(0,[CFl»SZx30»H[Tl]+ADDR)l 

MtD INX (NOT 0)J|»P(XCH)» 

M[D INX (NOT 1)].[2I13I«SAVEBIT| 

FTNDI 

end; 

f0rr,et5hacf:(r)j forgetspacec t ) » f orget$pace< w ) i 

X RUILO SHFFT SKFLfTON iN s 

STRfaMcS)IBRGIN 30(dS * 8 L. ! T "0")* END* 



xi to- 

XI 10- 
XI 10- 

xuo- 

X110- 
X110- 



Sr?0] 
sr?5] 
sroi 
srn 



«- cr; 
- haddr; 

* MFTP5 

* FID, 



X WRTTF 



sr?i * st iai «• PRyoRrPiMiX]! 

OUT DUMMY CONTROL CARD FOR LOGGING ROUTINE 
STRFAM(X*SC?4}+USFRC0DFtPlMlX]t MFID» FID* WHC233 )> 
BFRTN SI*LOC X; DS*9 LjT "fC USER ■ "; 

si«-si + i; ds*7 chR' os+9 lit w *e*ecute h * 

2CSt*SI+1I DS»7 CHR; DS*LlT "/")* DI*DT-1J 



END 



DS*6 

strfam; 



LIT "JFNn.*"J DS*26 LIT 



X722- 
X722- 
X722- 
X722- 

X722- 



HfO] *• 0; 

H r 1 3 * 10; 

ST63 •■ 6ETESPDISK & lO [CTFl* 

|)TSKWAlT(H.tCFl»ll»Sr6] INX 0)* 



* SET OMIT 

X PUT DUMMY 

IF 



X ITS A PACKET JOB 



X110- 
XllO- 
XllO- 
XllO- 



s NOT PACKETS 

CONTROL CARD IN PACKET PAGE ALSO 

(T*PSEUDOMiX[Pl*"lXJ> GEO 32 TrEN 

REfilW 

STREAM(A*r JARIP!M|X,013,M*P1MIX,B*[H[2]].T1*T1*SPACE(10))I 

BEGIN XllO- 

DS*3 LlT">>>"; SUB; DS«-30 CHR; DS*14 CHRI X722- 

DS*13 LIT", INVOKfD BY »* SI*A1 SI*SI + 1 * DS*7 CHR ; DS*L I TV"! 

si*si + u ds*7 chRj ds-ltt w * w ; Si*LOC MJ DS*2 DEC* XI 10- 
DS*LIT LFFTARROWJ di*di-3; ds*fill; XI 10- 

fnd; xno- 



S POP 



SPOliTER(Tl»T»0)| 
END; 

OMJT 

SLFFP(rTOGLEl.SHEETMASK); 



LOCKTOG(SHEFTMASK); 



X110- 

xno- 
xno- 



STRFAMf A*0 I B«-P(, SCHEDULE IDS)) J 
BFGIN SI+B* 

47CSKJP SB) SKIP DBJ TALLY*TALLY+1 J 

IF SB THEN BFGjN END ELSE JUMP 0UT)> 

DS*SFTJ A*TALLYj 

end stream; 

Tl «• P; Sr 3 1 ♦ 0*TH8*38U03I 
St233««0&( 



19766200 C 

19766300 C 

19766400 C 

19766500 C 

19766600 c 

19766700 C 

19766800 C 

19767700 T 

19767750 T 



19767760 
19767800 
19767900 
19768000 
19768050 
19768100 
19768200 
19768300 
19768400 
19768450 
19768500 
19768550 

19768600 
19768650 
19768700 
19768750 
19768760 
19768762 
19768764 
19768766 
19768768 
19768770 
19768772 
19768774 
19768776 
19768778 
19768780 



X110- 



19768782 C 

19768784 C 

19768786 C 

19768800 T 

19768900 T 

19768950 T 

19769000 T 

19770000 T 

19771000 T 

19772000 T 

19773000 T 

19774000 P 



0199:0 
0202J3 
0206:0 
0208*2 
0212*1 

19759000 
0214*2 

19747000 
0216*3 
021912 
0219:2 

19767750 
0222»2 
022313 
0225»0 
022611 
022712 
023010 
0230(0 
023310 
023413 
0236*3 
0238*2 
0243*0 

19768300 
0243*1 
0244*2 
0245*3 
024713 
0250*2 
0250*2 
0250*2 
0252*0 
0252*2 
0257*0 
0257*0 
0258*2 
0261*3 
0263*1 
0264*1 

19768770 
0264*2 
0265*3 

19768766 
0265*3 
0265*3 

19768800 
0270*3 
0272*0 
0272*1 
0273*1 

19770000 
027413 
0275«i 

19768950 
0275*2 
0278*1 



S STT OMjT = MOT PACKETS Z110* 

!FfT*PsrunoMTXtPiMix])<»o thfn t xno- 

FLSE XllO- 

* pop omtt xno- 

$ sft omit s mot datacom XI 10- 

26)12542:6] UlO- 

I SFT OMyT ■ NOT OATACOM XllO- 

laCLOcK + P(RrR)) OIV 60)[24«24l24]; XllO- 

S SFT OMjT « MOT PACKETS XllO- 

IF r GFQ 32 THFN PACKETACTrT-32)*PACKFTACHT-32] + lJ XI 10- 

$ POP QMfT si 10* 

Sr24]'*USFRC0DF[PtMlXJ* IllO- 

Sfl2]»s:5l?; XllO- 

Srt5J «• FJ X PUT LABFL EQUATION ENTRIES IN SHEET XtlO- 

Sfl6] :«ESTPROC? XllO- 

5ri7JJ*ESTl05 XI 10- 

Srl9] * COMMON; % ANf) COMMON X110- 

sr2U!=»STKsz; xno- 

HADDR «■ GETESPOISKJ 
IF SHEETCOJ.tCFl^O ThEN 
BEGIN OlSKWATTc-H.CCF)^ 30.T2 4- SHEET t J . [ FF3 ) J 

Hr?9] * haodr; 

niSKHAlT(Ht[CK3>30f T2)I 
FNO ELSE SHFETrOl * HADDRf 

SHFFTtOl.tFF] * HADDR5 
Sr29] ♦ 0; 

nTSKWAIT(S.^Cf']»30,HA^0R)' , 

UNLOcKTOGf SHEETMASK); eORgeTSP ACEC S ) ; FORGETSPACE CH) I 

FRRORl » 

if tska.pbjt then 

REGtN TSKAT31 •■ l-3*ERRf % STATUS* SCHEDULED OR ERROR 

IF NOT ERR THEN TSKArft] * Ti» % SCHEDULE-ID 
END! 



IF ERR AND MOT 
PARMtNOTCN+t )] 



18840900 



onexception then terminate(Pimix&94[CTF]) else 
* errj % placf boolean in word below mkscw for 
3! on exception branch in cobol 

p(r>trfct0rysearchrnabs(mfld>>fid.13)»del);kl0se,f0rget header 

IF NOT ERR then selection* 

XYTi» tF CALLFDORCONT AND NOT ERR THEN COMPLEXSLEEP( ( TSKA t 7 ] AND 1) 

or (TermSet(pimix)))* xno- 

ACCIDENTAL ENTRY AT 1 
END TiSkTASK; 



19774050 
19774100 

19774150 
19774200 
19774250 
19774450 
19774500 
19774650 
19774700 
19774750 
19774800 
19774850 
19775000 
19775100 
19776000 
19776010 
19776100 
19776110 
19777000 
19778000 
19779000 
19780000 
19781000 
19782000 



19783000 T 

19784000 T 

19785000 T 

19786000 T 



19787000 
19788000 
19791000 
19792000 
19793000 

19796000 
19797000 
19798000 
19799000 
19799050 
19799060 
19799070 



C 0279:0 
C 027950 
C 0281«0 
C 028i:3 
C 028113 
C 0281 J 3 
C 028210 
C 028210 
C 0285U 
C 0285«1 
C 029111 
C 0291U 
P 029253 
C 029410 
P 029551 
C 0296:2 
C 029713 
C 0299J0 
T 030051 
T 030151 
T 030253 
T 0306>3 
T 030810 
T 031080 

19779000 

031153 

0313J3 

0315»0 

0317»0 

19786000 
T 032212 
T 032252 
T 0324:0 
T 032653 
T 032950 

19791000 
T 032950 
T 033153 
T 033452 
T 033452 
T 033611 
P 0338*2 
C 034050 



19800000 T 034753 

19688000 
SIZE" 0348 WORDS 



procedure: picktheloc*; 
rfgtn commfnt this proc 

LOCK-iTFM 
OF A h AI T 
FyRST PRO 

released 
the lock- 
entries a 

ARE IN TH 

r 1 1 1 ] = 1 . 
r2»i]*i» 

t 3 * 1 3 = 1» 

aQ, 

r«M ]= o 

r8M01=M 
= R 

I 

rt8Jj5]a 
r 33* 15]* 



RFAL 
STACKfF-4) s LOCKPTR 

Real 

STACKfF+1) ; Q 

STACKfF+2) = R 

STACKfF+3) * S 

STACK(F+4) 3 T 

STACKcF+5) r U 

STACKfF+6) = V 



"LOCKPTR" 
T i « 1 J*0, 

r?M J = i» 

r 33 : i5]a 

Lockptr=-/»;j5PaRam 

q,r,s»t»u,v; 



edurf; 

S FOR 

QUfU 

cess 

BY AN 

ITEM 

RE MA 

E PRT 

MEAN 

IN C 

ORlG 

A CO 

UEUE 

IX TN 

ELATI 

N CON 

POINT 

POINT 

POINT 

IS T 

MEAN 
w 

Retu 
relat 
eter 



start OF 

handles locking/unlocking of 

tasking, it also handles the maintfnance 
f. and passing control of the lock to thf 
in the wait queue, after it has been 
other process, the head of the queue is 
of the process currently in control and 
DE AT the end of the queue, lock-items 

AND HAVE THE FOLLOWING FORMAT* 
S LOCKEDCLOCK BIT.ORIGINAL ONLY) 
ONTROLCCONTROL BIT) 
INAL L0CK»ITEM(0RIGINAL BIT) 
PY 

INTfRLOcK(ORigINAL ONLY) 
DFX OF PROGRAM IN CONTROLC OR I G I NAD 
Vf PRT ADDRESS USED TO LINK ALL LOCK-ITFMS 
TROL OR IN WAIT QUEUES(COPY) 
ER TO NEXT PROCESS IN WAIT QUEUE, ELSE 
ER TO HEAD OF QUEUECOR I GI NAL ) 
ER TO ORIGINAL LOCK- ITEM( COP Y ) 
HF PARAMETER PASSED AND HAS THE FORMATl 
S LOCK, ELSE UNLOCK 

T F ST LOCK BIT, LOCK IF UNLOAD AND 
RN A 0, ELSE RETURN 1 
IVE PRT ADDRESS OF LOCK-JTFMJ 



19900000 
REL SEGMFNTJ DISK 
19900010 
19900020 
19900030 
19900040 
19900050 
19900060 
19900070 
19900080 
19900090 
19900100 
19900110 
19900120 
19900130 
19900140 
19900150 
19900160 
19900170 
19900180 
19900190 
19900200 
19900210 
19900220 
19900230 
19900240 
19900250 



T OOOQIO 
ADDRESS 



STACKfF+7) a A 



ARRAY At*]> 

DEFINE DSFD=TERMSfT(P1MIX)#, I MASK«?200000000000000#| 

SUBROUTINF LINKITJ 

BEGIN TE(V»rAT5])xO THEN A r 5 ] » .LOCKPTR INX 

ELSE BEGIN WHILE PRT r Pi M I X , V ] , f 8 * 10] NEQ DO 
Vl«PRTfPjMlX,V].r8»lO]J 
PRT[PiMIX,V].[8M0]«*L0CKPTR INX 01 
END; 



END* 



Ol»rPRTtPlMlXt LOCKPTR INX 0]] INX 0; 
R*NFLAG(MtU«-Q]); 

s«-if R.t3H] then q else cR inx O); xaddR of original 

AI«PRT[P1M!X»TSX]I*TASK ARRAY 

IF MOT H[S],[4lll THEN SLfEPCCM[S]]» IMASK); 

M[S],r4M]»«0» 

IF LOCKPTR, T2M J THEN XTEST & LOCK 
BEGIN IF NOT H[SJ t tHll T H F.N XUNLOCKED 

BEGIN MCS3»»NABS(MCS])»U[CTC]*P1M1X[8I38I10]| 
M[U]«s(MrU] OR M)gO[CTF]f 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



19900280 
19900290 
19900300 
19900310 
19900320 
19900330 
19900340 



19900360 T 



19900370 
19900380 
19900390 
19900395 
19900400 
19900410 
19900420 
19900430 
19900440 
19900450 



000010 
000010 
0000«0 
000010 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
000010 
000010 
0000*0 
000010 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 



00571 



19900260 T 0000*0 



19900270 T 0000*0 



T 000010 

T 0000*0 

T 0001*0 

T 0003*3 

T 0007*3 

T 0010*1 

T 0013*3 

19900310 
0013*3 

19900300 

T 0014*0 

T 0018*1 

T 0020*2 

T 0023*3 

T 0025*1 

T 0029*2 

T 003211 

T 0033*0 

T 0035*1 

T 0039*3 



19799070 



if u/s then begin Mtui.cet io]*o; 

LINKITJ 
END* 

LOCKPTRtxO; 
FND ELSE UOCKPTRisH 

M[S]l«(*P(OUP)) OR lMASK> 

P(X T T)j 

FNDJ 

IF LOCKPTR GTR THENXLOCK 

IF NOT M[U],r2:U THENXNOT \H CONTROL 

PEGJN IF NOT MfSl. tlM] ThEN 

REOlN M[S]«*NABS(NrS])&U[ r Tc]&PlMlX[e«3B:10]> 
M[IJ]:=C(*P(DUP)) OR M)&0[CTF3l 
IF U*S THEN PFGIN MfU] . t 61103*01 

LfNKlTl 
END) 

FNf) ELSE 

BEGIN 

TJsMTS] f NX 0; 

WHILE M[T].fFFJ NfQ 00 T»"M( T J , [FF3 I 

MrT],rFF] j*u; 

MtU3,rFFJ«»0l 

if u/s then begin MfU] ,[8no]*bi linkjt enoi 

M[SJI«(*P(DUP)) OR iMASK; 
COMPLFXSLEEPCDSED OR M[U].t2H])| 
ACCIDENTAL fNTPY AT 1 

jf MruJ.r?»i] thfn 

M[S]*f C*P(DUP))&PlMiXt8l3BI 103) OR JMASKJ 
P(XlT)> 

FNDJ 

ENp ELSE ELSE XUNLOc* 

BEGIN IF MtSl, [HI] ThrNSLOcKEO 

BEGIN M[TI«M[S3 1 NX ] , [ 2i 1 ] I «0 I XTURN OFF CONTROL 
IF T*S THEN 
BEGIN 

AlsPRT[V»»MtS].r8U0].TSX]l 
R»»AT5]; 

IF T NEQ C[PRT[V»R3] INX 0) THFN 
BEGIN 

WHILE M[SI,[CFl NE« ([PRT[V,R]] JNX 0) 00 
BEGIN Ul«R) 

Ri»PRT[y/»R), [811031 
END! 

PRT[V,U!,[8I10]|"PRT[V»R).C8»10]I*DEUNK 
END EL.SE A[5]IbM[T],[6U0]| 

end; 



19900455 
19900460 

19900465 

19900470 
19900480 

19900490 

19900500 
19900510 

19900520 
19900530 
19900540 
19900550 
19900560 
19900565 
19900570 
19900575 

19900580 

19900590 
19900600 
19900610 
19900620 
19900630 
19900650 

19900660 
19900670 

19900675 
19900680 
19900690 
19900700 

19900710 

19900720 
19900730 
19900735 
19900740 
19900745 
19900750 
19900755 
19900758 
19900760 
19900770 
19900780 
19900790 

19900800 
19900805 



00431 
00471 
0048? 

1 
00481 
0048« 

1 
00511 
00541 
0054! 

1 
00541 
0055! 
00571 
00591 
00641 
0066! 
0070! 
0072! 

t 
0072! 

1 
0072! 
00741 
0076! 
0081! 
0083! 
0085! 

1 
00911 

0093* 









9900455 



3 

9900440 

3 



1 

9900430 

1 



1 

2 



3 

3 



9900565 



9900550 









1 

2 

9900650 



1 



0101 
0102 
0106 
0106 

0106 

0109 
0111 
0116 
0116 
0117 
0120 
0121 
0123 
0124 
0127 
0128 
0130 

0131 
0135 



19900810 T 0138 



U 

13 

12 

13 

19900590 

!3 

19900540 

!0 

!0 

10 

!3 

11 

!2 

12 

12 

>0 

• 3 

12 

12 

19900770 
10 

U 

19900758 
U 

19900740 



MtS J.tCF3«"CTi«M[T] f [FFDl 

IF T NEQ THFN 

BEGIN M[T]*(*P( D UP)) OR M{ PCX I T ) END 

ELSE MtS)l»ABSCM[S])J 



END? 
ENDJ 
M[S] J»f *P(DUP)) OR jMASK; 



19900815 
19900820 
19900830 

19900840 
19900850 



end> 



19900855 T 



19900860 
19900870 



T 01381 1 

T 014211 
T 014310 

19900830 
T 014610 
T 0149J0 

19900730 
014910 

19900720 
T 014910 
T 0151U 

19900010 
SIZE* 0153 WOROS 



PROCEDURE EVENTANDINTERRUPTJ 



BEGIN 

Real type*-4» 

STACK(F-4> * TYPp 



STACK(F»5) = RFLfNT 
STACKfF-6) = ABSEVT 



STACKfF+l) 3 K 

STACKfF*?) = T 

STACKfF+3) * A 

STACKfF+4) « SIZE 

STACKfF+5) ■ MfX 

STACK(F+6) . J 

STACK(F+7) * J 

STACKfF+6) = ABSOLD 



RFLINTb-5. 
ABSFVTs-6j 



START OF REL 
% TYPr» l'ATTACH INTERRUPT (AT REL.ADOR RELlNT) 
% TO EVENT (AT ABSOLUTE ADDR ABSEVT) 

% 2»DFTACH INTERRUPT (AT REL.ADOR RELlNT) 



19900900 
SEGMFNTJ DISK 

19901000 
19901100 



X 3»CAUSE EVENT CAT ABSOLUTE ADDR ABSEVT) 
RFAL K.T,A»SIZE»MIX#J»I»ABS0LD«J; 



LABEL ATTACML#DETACHL»CAUSEL#0N,L1»L2,L3#L4,D0NEJ 
SWITCH S » ATTACHL»DFTACHL,CAUSELJ 

ARRAY SFlNTQ[*]»TSKAr*3 J 
STACKfF+lO) s SFINTQ 
STACKrF+11 ) * TSKA 

NAME BlGGERQl 
STACK(F+12) * BIGGERQ 

DEFINE IMASK * P?00000000000000# » EMASk s P?000000000000000# J 
SUBROUTfNF DETACHINTI 
BEGIN IF (ABSOLO»PRTtPlHlX«RFLlNT].[FFJ)#0 THEN 

BEGIN WHILE NOT Mr ABSOLD J . [51 U DO 
ABSOLD ♦ MCABS0LDJ.CFF1I 
IE MUBSOLD]*0 THEN SLEEP( CMC ABSOLD] ] * EMASK ) » 
M[ABS0LD) * P(DUP,LOD»SSP); 
< * T ♦ PRTrPlMlX,REL!NT], tFFJI 
A ♦[PRT[PlMiX,RELlNT]] INX 0] 
WHILE M[T].rFF3#A DO T * M[T].CFF]» 
M[T] # rFFl ♦ IF T«K THEN ELSE K* 
PRTtPlMlXiRFLINT] t [FF] «■ OJ 
MCABSOLD] * P(DUP,LOD»SSN)J 
END? 



end detachintj 



% FORMAT Of INTERRUPT (IN PRT) 

% UPPER WORD (LINK W0RD)I 

* rllll«l IFF INTERRUP 
% rFF]» ABSOLUTE ADDRE 

* FVENTS ATTACH 

* THIS INTERRUPT 

* rCFJ» RELATIVE PRT A 
% INTERRUPT FOR 

% LOWER Wc-RDI PROCEDURE DES 
% FORMAT Of EVENT (IN PRT)! 

% "ORIGINAL" EVENT-ITEM (AT 
% rltlJt EVENT INTERL0 

% r5UJ«i DISTINGUISHE 

* ATTACHED JNT 



I 



T IS DISALLOWED 

SS OF NEXT INTERRUPT ON 

LIST OR OF THE EVENT IF 

IS THE LAST ON LIST 
DDRESS OF NEXT DECLARED 
THIS PROCESS 
CRIPTOR FOR INTERRUPT 

ABSOLUTE AODR ABSEVT)$ 
CK BIT (ON TO START) 
S THE EVENT FROM 
ERRUPTS 



T OOOOlO 
ADDRESS ■ 
T 0000:0 
T 0000:0 



00577 



19901200 T 0000:0 
19901300 T OOOOJO 



19901400 
19901500 



T 000010 
T OOOOlO 



19901600 T 
19901700 T 
19901800 T 



19901850 
19901900 
19902000 
19902100 
19902120 
19902130 
19902140 
19902150 
19902190 
19902200 
19902300 
19902350 
19902360 
19902400 



19902500 T 



19902501 
19902502 
19902503 
19902504 
19902505 
19902506 
19902507 
19902508 
19902509 
19902510 
19902511 
19902512 
19902514 
19902516 



OOOOlO 
000010 
OOOOlO 



19901840 T OOOOlO 



T 0000»0 

T OOOOlO 

T 0001*0 

T 000312 

T 0006»1 

T 000813 

T 001213 

T 001413 

T 001711 

T 0019U 

T 0026«0 

T 003011 

T 003213 

T 0034»3 

19902100 
003413 

19902000 

T 0035»0 

T 003510 

T 003510 

T 003510 

T 003510 

T 003510 

T 003510 

T 0035*0 

T 0035«0 

T 003510 

T 003510 

T 0035*0 

T 0035*0 

T 003510 



* % % % 

ATTACHL! 



detachli 

CAUSELl 

BEGIN 



% % % % % 
GO TO StTY 
OETACHINTJ 

TF MfABSEV 
Mf ABSEVTJ 
TF (T*MCAB 
PPTrPtMlX, 
MFABSEVT] 
P(XlT); 
DFTACMINTj 
MTABSEVT], 
IF MfABSEV 

if Mr 

MrABS 
A * M 

while 
bfgtn 



% rFr]« 

% 

% ri7'i 

% "COPY" EVE 

% rCF3« 

% contents or t 
I [niiii if 

% t2U] = l IF 

% r3«u*i if 

% 141 1] I SF I 

% [FF] s ADD 

I CCF3 * REL 

* LIS 

%%%%%%%% 
PE-lJf 

* AN 

o Then 



as 
of 



A PARAMETER)* 
ORIGINAL EVENT 



ABSOLUTE ADDRESS OF FIRST INTERRUPT 

ON ATTACH LIST 
]l HAPPEN BIT 
NT-ITEM (RECEIVED 

ABSOLUTE ADDRESS 
SKAT8] » 
F INTERRUPTER HAS JUST RUN AND 

SFINTQ fS NON-EMPTY 
F SFINTQ fS NON-EMPTY 
F INTERRUPTER IS RUNNING 
NTQ INTERLOCK BIT (ON TO 
RESS OF OLD IRCW 
AT-1VE PRT ADDRESS OF FIRST 
T OF DECLARED INTERRUPTS 

%%%%%%%%%%%%%% 



START) 



IN LINKED 



% % % % % 



T]> 

4- P 

SEV 

REL 
* P 

P( 
[47 
Tl. 

ABS 

EVT 

TAB 

A* 

MIX 

IF 

REG 



ATTAC 

SLEEP 
(DUP,LOD»SSP 
T],[FFl)sO T 

INT] «. PRT[P 
CDUP,LOD»[PR 



H DOES AN IMPLICIT DETACH 

(rM[ABSEVT]],EMASK)j 

)> 

hfn t •■ absevt; 
1mix,relint]at [c tf ]&pl mi x 
t[plmix,relint]]»cfx,ssn)> 



t 8 * 3Q • 1 3 J 



X I T ) | 

\\\ + 11 XSET HAPPEN B! T I AWAKEN ALL YE WHO WAIT 
[FF3#0 THFNX tF THERE ARE INTERRUPTS ATTACHED 
EVT]>0 THEN SlEEPC t Mf ABSE VT 3 ] » EMASK ) I 

] «• p(dup.lod,ssp); 

sevtj.cfF); 

absevt do % insert attached interrupts in thf 

X RELEVANT SFjNTQS 
«• (T*Mr A]) t (8»l0)l 
TERMSETfMlX) THEN 
IN IF T,[FF]i«ABSEVT THEN 

DO MIX * CT*M[A*T.[FF]]),[8I10] 

UNTIL NOTERMSET(MIX) OR T , [ FF 3-ABSEVT) 

IF TERMSET(MlX) THEN 

BEGIN MCABSEVT]«.P(DUP,LOD»SSN)> P(X1T)IEND| 

END1 

TSKA - PRTrMiX.TsX]! 

IF NOT TSKA[B].t«»l J THEN SLEEPC t TSKA t 8 ] ] . I MaSK ) J 

TSKAC8J.C4|1 J * OJ 

SIZE * cSFtNTQ*PRT[MIX,SfINTX]),[8«10]-1; 

j * k * o; 

IF NOT TSKAC 8 J . C 3 1 1 J THEN* IF INTERRUPTER INTRINSIC NOT RUNNING 

WHILE J<SiZE DO % COMPACT SFINTQ, PUSHING ALL NON-ZERO 

BEGtN I ENTRIES TOWARD THE FRONT OF THE ARRAY 

IF SFTNTQrJl»0 THEN % AND ZEROING OUT REMAINDER 
BEGIN 

i *• if K/o Then k+2 else j+ij 
l1 * if i>size then go done; 

if sfintqc t ]«o Then begin i * i + d go to lu endj 



19902520 

1990252? 

19902524 

19902526 

19902527 

19902528 

19902529 

19902530 

19902540 

19902550 

19902560 

19902570 

19902580 

19902593 

19902600 

19902700 

19902800 

19902850 

19902860 

19902900 

19903100 

19903200 

19903300 

19903400 

19903500 

19903600 

19903650 

19903660 

19903670 

19903700 

19903800 

19903810 

19903820 

19903825 

19903830 

19903850 

19903860 

19903865 



19903900 
19903907 
19903908 
19903910 
19903915 
19903917 
19903920 
19903930 
19903940 
19903950 
19903960 
19903970 
19903980 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

r 

T 
T 
T 
T 
T 



19903870 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



L?« 



K * I ? GO TO L3J 

IF K>SIZE THEN GO TO L4J 



19903990 T 
19904000 T 



0035'0 

0035*0 

0035*0 

0035'0 

0035:0 

0035*0 

0035>0 

003510 

003550 

0035*0 

003510 

003510 

003510 

003510 

003510 

0035*0 

004012 

004210 

0046*0 

004810 

0051»3 

0055 .'3 

005910 

005911 

0060*1 

0063<0 

0065*0 

0069>2 

0071 »2 

007312 

007413 

007413 

007711 

007813 

008012 

008410 

008810 

008912 

19903865 
0092*1 

19903825 
009211 
009313 
009711 
009913 
010213 
0104 10 
0105U 
010710 
010710 
010810 
010812 
0112U 
011312 

19903980 
0H810 
011911 



I.3» 



1.4 * 



END; 



DONF 



IF SFINTQUI/O then 

BEGIN SKINTQLJ] * SFINTQtKj; 

J * J+i; K * K + 1J GO TO L2; 
ENDJ 

K •■ K-ll 

FOR I «■ J STfP 1 UNTIL K DO SF I NTQC I 3 * 01 
END FLSf J * J+iJ 



IF SFINT<HSIZEl#0 THEN % QUEUE FULL--GET MORE SPACE 

IF SIZE + 6M023 ThEN 
BEGIN TERMlNATF(MlX&i03tCTFJ){ 

TSKAI8] «■ *P(DLlP) OR JMASKI A * T.TFFIIGO ONI 
END ELSE 

BEGIN PRT[M|X#SFTNTX] * BIGGERQ *FLAGC U t PRTT Ml X, SF I NTX 3 ] 

rCTFHfSfZE + 6) CTOSIZEJ)* 
MAKEPRESrNTd I] INX 3>;»GFTS SPACE AND ZEROS TT OUT 
M[BIGGERQ INX NOT U,r9l6.1 * M I XI 
M0VE(SIZF+1»SFINTQ,BIGGER0)> 

forgetsp a ce;(Sfintq inx O); 

SFINTQ «- BtGGERQI 



end; 



K + OJ WHILE SFINTOtK]#0 DO K * K + ll 

SFtNTQtK] * A-l> X ABSOLUTE ADDRESS OF INTERRUPT PD 

A * T.tFMl 

TSKAF8] * *P(DUP) OR ?1 200000000000000; 

IF MlX»P2MjX THEN 

begin halt; noprocesstog * noprocesstofi-l i 

end; 



ONI 

END- 



MtABSFVT] * P(DUP.LOo»SSN); 



fnp? 
fNd evfntandintfRRupt; 



19904010 
19904020 
19904030 
19904040 

19904050 
19904060 
19904070 



19904100 T 



19904300 
19904340 
19904350 
19904360 
19904370 

19904400 
19904450 
19904600 
19904650 
19904700 
19904850 
19904860 
19904900 

19905000 
19905100 
19905200 
19905300 
19905310 
19905320 
19905330 

19905340 
19905350 

19905360 
19906100 



19906300 T 



T 0120*2 
T 0121 12 
T 0123J2 
T 0126J2 

19904020 
T 0126*2 
T 0127*3 
T 013212 

19903950 
0134:1 

19903930 
T 013413 
T 013513 
T 013712 
T 0139*1 
T 0144*0 

19904350 
T 014410 
T 0146*2 
T 0149*3 
T 0l5i:0 
T 0154'2 
T 0156*3 
T 0158 » 1 
T 0159*0 

19904400 
T 0159*0 
T 0163*0 
T 0164*3 
T 0166*0 
T 0168*0 
T 016813 
T 0171*0 

19905320 
T 0171*0 
T 0171*0 

19903800 
T 0173*0 
T 0175*0 

19903650 
017510 

19901000 
SIZE* 0176 WORDS 



% 
% 
% 
% 
% 
% 
% 
% 
* 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



THE 



FORMAT 
SrO] 
Sri 1 

sm 
Sr 31 

sm 
sr5] 

S[6], 
Sr 63 

sm. 

Sr73. 



OF segment 



1 1 » u 



r 33 J lbl 

srn.riaijsi 

TF S[2J < 

s r i. 5 1 



sr 16] 
Srirj 

s r 1 8 ] 
Srt9] 
sr?0] 

Sr?U 



THEN 



ZERO OF PROG 
LOCATION 

SIZE OF S 

LOCATION 

SIZE OF P 
LOCATION 

SIZE OF F 

1 FOR NEW 

STARTING 
FORTRAN F 
NUMBER OF 

core requ 
the job was 
disk addr 
presented 
applicabl 
fstimated 
fstimated 
priority 
common va 
fstimated 
stack siz 



PROCEDURE SFLECTRUN1J 



PRT(644) = SELECTRUN1 

BEGTN 

Real 

5TACKfF-2) a MSCW 
STACKfF-1) * F 
STACKfF-1) s MYMSCW 
STACKfF+O) => RCW 
STACK(F+1) = I 
STACK(F+2) r T 
STACKfF+3) = L 
STACKfF+4) ; DT 
STACKcF+5) x MJX 
STACKfF+6) = HDR 
STACKfF+7) = LEVEL 
STACKfF+10) . MCPJOB 
STACK(F+11) * OLAYOfSK 
STACKfF+1?) a THlSLiNK 



RAMSX 

OF SEGUE 

EGMENT D 

OF PRTX 

Hit 

OF FILE 

IUE PARA 
FORMAT 

SEGMENT 

AULT FLA 

FILES! 
IREMENT 
COMPILED 
ESS OF L 

WHEN PR 
E TO ALL 

PROCESS 

I/O TIM 



LUE 

CORE 
E 



RE 



NT DICTIONARY* 
ICTIONARYX 



PARAMETER BLOCKX 
METER BLOCKX 
SEGMENT 0. ELSE 
NUMBERX 
G 

/ 64X 

BY COBOL* 
ABEL EQUATION ENTRIES 
OGRAM WAS COMPILED AND 

EXECUTIONS 
OR TIME (FROM 
F (FROM 

(FROM 

(FROM 
QUIREMENTS(FR0M 

(FROM 



COMPILATN} 
COMPlLATN) 
COMPILATN) 
COMPILATN) 
COMPILATN) 
COMPILATN) 



START OF REL 



MSCW 


s 


m 7* 


F 


s 


"1» 


MYMSCW 


s 


-1» 


RCW 


3 


+ 0» 


I 


X 


+ 1» 


T 


S 


+ 2* 


L 


■ 


+ 3» 


DT 


3 


+ 4» 


MT'X 


at 


+ 5» 


HDR 


• 


*6» 


LEVEL 


m 


+ 7t 


MCPJOB 


= 


+ 8# 


OLAYDISK 


3 


+ 9» 


THISLINK 


3 


+ 10, 



20000000 T OOOOlO 

20001000 T OOOOlO 

20002000 T 000010 

20003000 T 0000»0 

20001000 T 000010 

20005000 T OOOOlO 

20006000 T OOOOlO 

20006500 T OOOOlO 

20007000 T OOOOlO 

20007100 T OOOOlO 

20008000 T OOOOlO 

20009000 T OOOOlO 

20010000 T OOOOlO 

20010100 T OOOOlO 

20010200 T OOOOlO 

20010300 T OOOOlO 

20010400 T OOOOlO 

20010500 T OOOOlO 

20010600 T OOOOtO 

20010700 T OOOOlO 

20010800 T OOOOlO 

20010900 T OOOOlO 

200H000 T OOOOlO 

200H100 T OOOOlO 

200H200 T OOOOlO 
SEGMENT! DISK 

20011300 T OOOOlO 

20011400 T OOOOlO 

20011500 T OOOOlO 

20011600 T OOOOlO 



ADDRESS * 00583 



20011700 T 
20011800 T 
20011900 T 
20012000 T 
20012100 T 
20012200 T 
20012300 T 
20012400 T 
20012500 T 
20012600 T 
20012700 T 
20012800 T 



OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 



STACK(F+13) * NEXTLJNK 

STACK(F+145 * PR^VLlNK 

STACKfF+15) * TYPE 

STACKfF*16) s STACKLOC 

STACKfF+17) * ShEETLOCKfP 

ARRAY 
STACK(F+20) * S 

STACK(F+21) a SEGO 

STACKfF+22) ■ TRP 

STACKfF+23) > LBL 

PRT(Ul) * SD 

PRTC161) » TSKA 

NAMf 
STACK(F+24> * AOOR 

HEAL 
STAC*(F+25> ■ PASSLrVEL 



STACKfF*25) * SVA-LUF 
STACKfF*26) * RfTURNMSCW 
STACKfF+27) * RETURNRCW 

DEFINE SHEETMAX * MjXMAX#; 



NEXTLINK 
PRE VL INK 

TYPF 

stackloc 
Sheftlockfd 

S 

SEGO 

TRP 

LBL 

SD 

TSKA 

ADDR 

passlevfl 

svalue 

returnmscw 

RETURNRlW 



» +1 1» 

» +t2, 

s +13, 

= +14, 

* +t5; 

■ 4- 1 6 r * 3 • 

* +17[*]» 

* +l8[*] » 

■ +19[*J, 

* NT2[*]# 
» NT2r*]» 

* LBL +U 

■ ADnR + 1. 

■ PASSLEVEL* 
» PASSLEVEL + 1» 
s RETURNMSCW + II 



%%%% ***MOTF**** 

%%%% THE VARIABLFS OECLARfD ABOVE MUST CORRESPOND EXACTLY To 

%%%% THOSE DECLARED IN PROCEDURE SELECTRUN. 



Real 

STACKrF+30) 3 EUVAL 

STACKfF + 3n * FBADRS 

STACK(F+32) * FPBVERSiOn 

STACKfF+33) « FT 

STACK<F+34) • LlNDX 

STACKfF+35) « LfNK 

STACKfF+36) » SENSEVAL 

STACKfF+37) s SPDVAL, 



FUVAL 

FBADRS 

FP8VERSI0N 

FT 

LlNDX 

LINK 

sensfval 

SPDVAL 



■ RETURNRCW + 1 

■ EUVAL * 1 

* FBADRS + 1 

■ FPBVERSION+ 1 

* FT + 1 

= LlNDX + 1 

■ LINK ♦ 1 

* SENSFVAL + 1 



20012900 T 

20013000 T 

20013100 T 

20013200 T 

20013300 T 

20013400 T 
20013500 T 

20013600 T 

20013700 T 

20013800 T 

20013900 T 

20014000 T 

20014100 T 
20014300 T 

20014400 T 

20014500 T 

20014600 T 

20014700 T 

20014800 T 
20014900 T 
20015000 T 
20016100 T 
20016200 T 
20016300 T 
20016400 T 
20016500 T 
20016600 T 

20016700 T 

20016800 T 

20016900 T 

20017000 T 

20017100 T 

20017200 T 

20017300 T 



000010 
000010 

000010 

000010 

0000*0 

OOOOtO 
0000(0 

000010 

000010 

OOOOtO 

000010 

000010 

0000 »0 
0000 1 

000010 

000010 

000010 

OOOOtO 

OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
000040 
OOOOtO 

OOOOtO 

OOOOtO 

OOOOtO 

OOOOtO 

OOOOtO 

OOOOtO 

OOOOtO 



STACK(F+40) e S? 
STACK(F+41) a FB 
STACK(F+42) ■ FPB 

PRT(160) b fTI 
PRT(162) s TYPEDlSK 



S2 


= SPnVAL 


♦ 1» 


FB 


s S? 


+ 1» 


FPB 


* FB 


+ 1; 


FTI 


= NT t , 




TYPFDlSK 


* NT3* 





Real 



COMMENT THE VALUE OF "TYPf" DETpRMlNES WHICH PORTIONS OF 

this procedure will be exfcuted. this procedure can also 
detfRmtne which portions of procedure "selfctrun* will be 
fxecutfd by assigning a negative value to "type" before 
returning to that procedure, 
end of comment! 



DEFINE STARTING 


c 


]*• 


CONTINUE IMG 


e 


2*' 


QUITTING 


s 


3#» 


RUNING 


s 


4#> 


PASSING 


s 


5#. 


EQUATING 


= 


6#J 



DEFiNF XCLOcKTlMF = 

(f (NT?Jb(XcLOCK DIV 3600)) MOO 60 + (NT2 DI V 60)xi00 + 
0,5 ) oiv n#t 

DEFtNF ACTUALDlSKADDRESSf ACTUALDISKAD0RFSS1 ) * 

f (JAR[M1X,( (NT4«*ACTUALDISKADDRE.SS1) DjV {NT 3* ■ JAR[ M I X, 83 > > + 103 
+ CNT<| MOD NT3) + . <j ) D I V l)#> 

£ SFT OMIT a NOT(PACKETS) 

DEFINE UNlTNO ■ S[ P3 3 , f 2 J 63 # i % ORIGINATING UNIT 
S POP OMIT 

LABFL CONTINUE. DLX. EXtT, LfrM. RMSG» UNBLK. STOP! 

SUBROUTINE DELlMK; 

* delinks The sheet entry and RfTurns Sheet disk space 

BEGIN 
STREAM(A«*Sr33,[8»l03.Bf»P(.SCHEDULEIDS))l 

BEGIN % MARK SCHEDULE SlOT "OPEN" 

SKIP A db; DSl.RESET? 

end; 

IF F * then % sheet entry not passed as parameter 

BEGIN 

IF NEXTLINK«0 THFN SHEETC LE VEL 3 . [ FF 3 1 «PREVLI NKI 

IF PREVLINKsO THFN 

BEGIN 

SHEET[LEVEL3.rCF3«*NEXTLINKl GO DLX! 

FNDJ 

IF LBLeO THEN 



20017400 T 0000*0 

20017500 T 000010 

20017600 T 000010 

20017700 T 0000*0 

20017800 T 0000*0 

20017900 T 000010 



20018000 


T 


0000*0 


20018100 


T 


0000*0 


20018200 


T 


0000*0 


20018300 


T 


0000*0 


20018400 


T 


0000*0 


20018500 


T 


0000*0 


200)8600 


T 


0000*0 


20018700 


T 


0000*0 


20018800 


T 


0000*0 


20018900 


T 


0000*0 


20019000 


T 


0000*0 


20019100 


T 


0000*0 


20019200 


T 


0000*0 


20019300 


T 


0000*0 


20019400 


T 


0000*0 


20019500 


T 


0000*0 


20019600 


T 


0000*0 


20019700 


T 


0000*0 


20019800 


T 


000010 


20019900 


T 


ooooto 


20020000 


T 


0000*0 


20020100 


T 


0000*0 


20020H0 


T 


0000*0 


20020119 


T 


000010 


20020120 


T 


0000*0 


20020121 


T 


ooooto 


20020200 


T 


0000(0 


20020300 


T 


0000*0 


20020400 


T 


ooooto 


20020500 


T 


000010 


20020600 


T 


0001*0 


20020700 


T 


0001*0 


20020800 


T 


0001*0 


20020900 


T 


0002*3 


20021000 


T 


0002*3 


20021100 


T 


0003(2 

20020900 


20021200 


T 


000313 


20021300 


T 


0004(2 


20021400 


T 


0005*0 


20021500 


T 


0008*1 


20021600 


T 


0009*0 


20021700 


T 


0009*2 


20021800 


T 


0012(0 

20021600 


20021900 


T 


0012*0 



DLXI 



BEfilN 

M[(LBLl«rM[SPACE(30)]]*30[8l38llO]) I NX NOT U,[9«6]i»0? 

END} 

0lSKWAlT(-(L8L I NX 0)# 30, PREVLINK)J 

LBLr29jtsNEXTL!NKj 

DlSKWAfTf (LBL JNX 0)» 30, PREVLlNK)? 

FORgETfSPOISK(THISLtNK); 

end? % jf sheet entry not a parameter 



END DFLfNK» 



P(MyMSCW# STF)? 

P(0, 0, 0, 0. 0, 0, 0, 0. 0, 0, 0); % FOR VARIABLES LOCAL TO THIS 

* PROCEDURE ONLY 

TF TYPEsCONTINUeJNr THEN GO TO cONTyNUE* 

IF TYPEbSTARTtNg THEN % SEARCH THE sheet oufue TO FIND A CANDIDATE 

% FOR SfLECTioN 

BEGIN 

PASSLEVEL.:*RESTARTIMG{ 

COMMENT "PASSLEVEL* WILL BE NEGATIVE WHEN A JOB IS BEING RE-STARTED. 

UNDfR THIS CONDITION. THE TeST FOR "LEVEL GEO PASSLEVEL" WILL 

FAH, AND NO OTHER JOBS WILL BE SELECTED UNTIL THE RE-START JOB 

HAS BEEN PROPERLY INITIATED. 

END OF COMMENT? 

FOR LFVEL«*0 STEP 1 UNTIL ShEETmAX DO % FOR ALL "SHEET PRIORITIES'' 
BEGIN 

PRFVLlNKS=NEXTLlNK»*Oj % RESET FOR EACH "LEVEL" 
% IF THERE IS AN ENTRY IN ThE SHEET, SEE IF IT WILL FIT 
!F(THlSi,fNK»«SHEET[LEVEL3tCCF]) NEQ THEN GO TO LF-M; 

CONTINUE* 

% "NFXTLINK" OBTAINED FROM "SHEET [ 29] n BELOW 

* IF THERE IS ANOTHER ENTRY AT THIS LEVEL, PROCESS IT NOW 

IF(THlSLINKt*NEXTLlNK) NEQ THEN GO TO LEM? 

END? 

TYPf I* -QUITTING? % END OF SHEFT SEARCH 
GO TO FXjT? 



LEMI 



% AT THIS POINT, THERE IS A CANDIDATE FOR SELECTION 
IF S * THEN % NO SHEET SPACE OBTAINED YET 

B F C I N 

S »* [MfTYPEDSPACEf31,SHEETAREAV)]3 & 3O1SIZEH* 

END* 



*t67- 



% . 

% READ SHEET ENTRY INTO CORE AT "S" 
% . 



20021910 


T 


0013*0 


200219*0 


T 


001312 


20021930 


T 


002012 

20021910 


20022000 


T 


0020J2 


20022100 


T 


002213 


20022200 


T 


0024(0 


20022300 


T 


0026(0 


20022400 


T 


0026»3 

20021300 


20022500 


T 


0026*3 

20020700 


20022600 


T 


002710 


20022700 


T 


0027*0 


20022800 


T 


0027*3 


20022900 


T 


0027(3 


20023000 


T 


003012 


20023100 


T 


0030*2 


20023200 


T 


003012 


20023300 


T 


0031*3 


20023400 


T 


0032*2 


20023500 


T 


0032*2 


200?3800 


T 


0033*0 


20023900 


T 


0033(3 


20024000 


T 


0033*3 


20024100 


T 


0033*3 


20024200 


T 


0033*3 


20024300 


T 


0033*3 


20024600 


T 


0033(3 


20024700 


T 


0035*0 


20024800 


T 


0035(0 


20024900 


T 


0036(1 


20025000 


T 


0036*1 


20025100 


T 


0038(3 


20025200 


T 


0038*3 


20025300 


T 


0038*3 


20025400 


T 


0038*3 


20025500 


T 


0036(3 


20025600 


T 


0038*3 


20025700 


T 


0040*2 

20024700 


20025800 


T 


0042(3 


20025900 


T 


0043*3 


20026000 


T 


0044* 1 


20026100 


T 


0044*1 


20026200 


T 


0044*1 


20026300 


T 


004411 


20026400 


T 


0044* 1 


20026500 


T 


0045*1 


20026600 


P 


0045*3 


20026700 


T 


0049*2 

20026500 


20026800 


T 


0049(2 


20026900 


T 


0049*2 


20027000 


T 


004912 


20027100 


T 


004912 


20027200 


T 


0049*2 



DISkWA ttc-cs inx 

NEXTLTNKI-Sr29]l 



0). 30» -THISLINK); 

* NEXT ENTRY IN SHEET 



QUEUE AT THIS LEVEL 



% 
% 

% 
% 
% 



IF 



% 

% 
% 

% 
% 



***** *** * ***** 

* * * * 

*** * * ***** 

* * * * 

* *** ***** ***** 



* * **** ***** 

* * * * * * 
***** * * ***** 

* * * * * * 

* * * * * * 



H0Rl«r,rTSPACF.(30 + (Sr0l<0),D!SKHFADERARFAV.t) + 2> % SfO]<0 COMPILF 
% TwE FXTRA WORD IS FOR COMPILATIONS (JAR[30]=FID OF OBJECT FILE) 
D|SKWAlT(-HDR# 30, St25]5; % READ FILE HEADER INTO CORE AT "HDR" 
BO TO FXlTJ 

end; * if type « starting or conTinueing 



type b passing then 
begtn 



3! pass this entry without delinking 



***** ***** ***** ***** 

***** * 

***** ***** ***** ***** 

* * * * * 

* * * ***** ***** 



IF 



5 SFT 



( I l«S[ 
RFC. IN 

s r 2 ] i 

S[3] : 
TF F* 
3! WRj 

diSkw 

IF SC 

B F G I N 

strea 
omit = 



% xs/es or first time through 
or es-fd. 



2I<0) OR S[3J>0 THF N 

«ABSCS(?])S * M ARK IT NOT XS-FD 
sNABS(Sr31); % MaRK IT SCHEDULED 
THEN X SHEET ENTRY NOT PASSED AS PARAMETER 

tf thf Shee t fntry back out with sr 3] "marked" 

A|T((S INX 0), 30. THISLINK)J 

HEDMSC. OR I OR ( S[?3].r9UJ NEQ 0) THEN 



*166- 



SCHo: 
SET OMIT 
REASON! 

SFT OMIT 
L2« 

LI I 

L0« 

EXIT' 



MC I f 
NOT 
Q: 
EG IN 
T laL 
I»«B 
T IcA 
IIsS 
S:«L 
I l»C 
Sis) 

St.t 
NQT 

S««? 

I'»C 
NOT 

S«*l 

SJsl 

SJs 

I««D 



L» CJaLEVEL, AS'Sr*]. 
CDCSPO AND DaTaCOM) 
«XCL0CKTiME» W;sSt?0]x64» 



IDJsS[33tt8MO]» 

B»-HDR)| 



% 
% 
% 



oc r; [)S;«6Dfc; di»*di-6; dsi*5fillj 

! DM*DI+6I nSi»LlT"l"l 

J Sl»sSl+i; DSt«7CHR' 

UlJ DS J «l lTt./tt; DS»«7CHRJ 

tT"="; Sn*L0C ID; DS««2DEC« 

UN GO To schd; 

LIT" NOT XS-ED"! GO To REASON) 

i lit" scheduled ♦•; su*loc q; ds:=4 dec; 

(DCSPO AND DATACOM) 

lit-. "; 

I+L; GO TO LOJ GO TO Ll> 
BREAKOUT 

4 LIT"T00 MANY JOBS*"; GO TO EXIT; 
3 LIT"N0 OLAY DISK*"; GO TO EXIT; 

5 LIT W NEEDS"; SI **LOc k; DS««6 DEC) DS l»L I T"*" ) 

1-7; dssss ft^l; 



% PRIORITY 



MFID 

FID 

SCH.NO. 



% TIME 



end strfam; 



20027300 
20027400 
20027500 
20027600 
20027700 
20027800 
20027900 
20028000 
20028100 
20028300 
20028400 
20028900 
20029000 
20029100 

?0029?00 
20029300 
200?9400 
20029500 
20029600 
20029700 
20029800 
20029900 
20030000 
20030100 
20030200 
20030300 
20030350 
20030400 
20030500 
20030600 
20030700 
20030760 
20030780 
20030800 
20031000 
20031500 
20031600 
20031700 
20031800 
20031900 
20032000 
20032100 
20032150 
20032200 
20032250 
20032400 
20032725 
20032750 
20032775 
20032875 
20032900 
20032925 
20032930 
20032950 
20033000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0049 
0051 

0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0056 
0056 
0058 
0058 

0058 
0058 
0059 
0059 
0059 
0059 
0059 
0059 
0059 
0059 
0059 
0062 
0063 
0064 
0066 
0067 
0067 
0069 
0072 
0073 
0075 
0075 
0081 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0091 
0091 
0091 
0092 
0092 
0094 
0097 
0099 
0099 
0099 



2 
3 

3 

3 

3 

3 

3 

3 

3 

3 

1 

1 



2 
20023500 

2 

2 

1 

3 

3 

3 

3 

3 

3 

3 

3 

2 



3 

2 

1 

1 

3 

3 

1 

3 

3 

2 

2 

2 

2 

1 

1 

1 



3 





2 

2 

2 

3 





2 

2 
20031600 



S SFT OMfT ■ N0T( OATACOM ) 

SP0UTfR(HDR»UNITN0,5ChEDMSG OR 
FND * IF SrHFT>UUE MfSSAGF IS 

else forgetspacechdR); 

END % IF XS/ES OR FtRST TtMF 



1)1 

SPOUTED 



X166- 



FLSf 
IF F 



forgetspacf(hdr); 

NEQ THEN X SHEET FnTRY PASSED AS A PARAMETER 
BFG1N 

Dl5KWA!T(F.rcn»30»T:«GETESp0lSK)l * WRITE SHEET ENTRY TO OlSK 
F0RGETSPACE(S[7])» 2 CORE ADDRESS OF SEGMENT ZERO IN SC 73 
IF SEGO*5[73 THEN SEGO»eO; % AVOID "DOUBLE "FORGETSPACE" 
NOT SHEETLOCKED THEN 
BEGIN 
SLEEP ( T TO GLE)» SHEET MASK)) 

LOCKTOGCSHEETMASK)* 



IF 



SHEETLOCKED *» 

END; 



1 



tf (L»»sr?].rcF] 3 gtr Sheetmax then l*«sheetmaxj 

% SHFETf2].fCF] = "SHEET" PRIORITY 

IF SHEFTTLl.rCF] NE« THEN % SHEET QUEUE ALREADY EXISTS 

BEGJN % LINK IN ThIS ENTRY 

D!SKWA|Tt-F.rCF3»30,I ««SHEET [ L3 . C FF ] J I ITAIL OF QUEUE 

Sr29JJ«T) % LINK TO THIS ENTRY 

DjSKWA|T(F.[CM#30»I)» X REPLACE ENTRY 

FMO 

ELSE SHEETtLIIbT; % ESTABLISH NEW SHEET QUEUE 
SHFETrLj.tFF] t«TI % LINK IN AT END OF QUEUE 

type * = -quitting; 

go to exitj % dont process any more entries 

fno; 

if passlevel»1023 then pas5level s -level* 

prevLinkj*thislink; 

if mix leq mixmax then 

RFG IN 

TYPE '* -CONTiNUEING) 

GO TO continue; 

END 

FLSf 

BEGIN 

TYPE I" -QUITTING; 

GO TO EXITJ 

end; 
fno* x tf type * passing 



IF TyPF«RUNING THEN % SPECIAL HANDLING FOR "RUN" JOBS 



20033200 T 

20034000 T 

2003^050 T 

20034060 C 

20034100 T 



20034 
20034 
20034 
20034 
20034 
20034 
20034 
20034 
20034 
20035 



200 
300 
400 
500 
600 
610 
700 
600 
900 
000 



20035300 
20035400 
20035500 
20035600 
20035700 
20035800 
20035900 
20036000 

20036100 
20036200 
20036300 
20036400 
20036500 

20036800 
20037100 
20037200 
20037300 
20037400 
20037500 
20037600 

20037700 
20037800 
20037900 
20038000 
20038100 



* 

% 

% 



***** * 
* * * 
***** * 



* * 

* ** 

* * * 



* 

* 



* ***** **** ***** 

* * * * * * 

* * * * **** ***** 



20038300 
20038500 
20038600 
20038700 
20038800 
20038900 



20035100 T 
20035200 T 



20038200 T 



009913 
009913 
010213 

20030780 
0]02I3 
010613 

20030300 
010613 
010810 
Ol08>3 
010911 
011113 
011213 
0115*1 
0115*3 
011611 
011713 

20035000 
012111 
0122*0 

20034800 
012210 
0125U 
0125*1 
012613 
012711 
013012 
013H3 
013312 

20035600 
0133(2 
01351 t 
0137U 
013811 
013853 

20034400 
013613 
0140*3 
0141*2 
0142*1 
0142*3 
014313 
014411 

20037300 
014411 
01441 1 
014413 
0145*3 
0146*1 

20037600 
014611 

20029400 
0146*1 
014611 
014710 
0147*0 
014710 
0147*0 



% 

% 



* 
* 



* * 
***** 



* 
* 



* * 
** 



* * 
**** 



* * 
***** 



* * 
**** 



* 
***** 



B F I N 

IF Sr?l.C2l 11 

FOR I««l STF.P 



IF JARTI,*] NEQ THEN 
IF (SrO] EQV 

csrn eqv 

PRYoRtl] 



NfQ i ThFN % St?].[2M 1*1 
1 UNTIL MyXMAX DO 



S SFT 
RMSg* 



OMjT 



% JOB RUNNING 
jARt!»0])«fN07 0) AND 
JARCIM ])«CNOT 0) AND 
GEO THFN 



WHEN ES-ED 
AT THIS MIX INDFX 



$ SFT oM?T * 



BFGJN t JOB IS ALREADY RUNNING 

NOT(DCSPO AND DaTaCOM ) 
IF BOJMFSS THEN 

BEGIN 
s NOT fpCSPO AND nATACOM) 
RFGjN 

STREAMfC««Srl8], A « sJARROWf I 3 , I. % S[18]*PR lOR \ TY 
Q $* XCLOCKTIME* B «* HDR)* 
BEGIN 

Sll»LoC C; DSIb6DEC> 0It«0I"6J DSl»3FIULI IPRIOR 
DUbPj D I * =D I +65 DS**LlT"»"; 
S I :*A* S I ■ «S I + 1 1 DS»*7CHR; DSlsLIT"/"* 
S I |«S I + 1 * DS»s7CHR» 
SlteLOC II DS**LlT"s»* DS**2DEd 



DSIs9lIT w RUNNING "I 
DS$s4dFCJ DSJsLIT"*."; 

END STRFAMI 



DI »sD1-16J 



1! MF ID 

X FID 
% MIX 
1161- 
DSjsFILLI* time 



J SFT OMtT * 



SP0UT(HDR8Sr23lr9l9J9])j 

END X IF BOJ MESSAGE SHOULD BE SENT 

NOT fDCSPO AND DATACOM) 
END I IF BOJMpSS 



ELSE FORGETSPACE(HOR)* 

* PUMP OPEN COUNT BACK nOWN 

F0RGFTSPACECD1 RECTOR YSEARCHC ABSCSrO]), 

IF SCO! LSS THEN "DISK " ELSE Sf 1 J» 13))» 
F0Rr.FTESPDlSK(Sr6l yNX 0)J * CARD IMAGE FOR LOG 
T«sSri3]» % SAVE LINK To LABEL EQUATION CARDS 
WHILE T NEQ 00 J! FORGET LABEL EQUATION SEGMENTS 

BEGIN 

DlSKWAITC-f S (NX 0), 30» T)J 

FORGFTESPDISK(T); 

T«»Sf29]; 
FNO* 

DELINK; J! DELINK THf ENTRY FROM THF SHEET QUEUE 

IF F*0 THEN % SHEFT ENTRY NOT PASSED AS A PARAMETER 

BEGIN 

TYPF *» -CONTfNUElNrJ 

GO TO CONTiNUFl 

END 



Fl.SE 



BEGIN % 
TYPE l« 



SHEET ENTRY 
-QUITTING* 



PASSED AS A PARAMETER* DONT CONTINUE 



20039000 
20039100 
20039200 
20039300 
20039400 
20039500 
20039600 
20039700 
20039800 
20039900 
20040000 
20040100 
20043000 
20043100 
20043200 
20043600 
20043700 

20043600 
20043900 
20044000 
20044100 
20044200 
20044300 
20044400 
20044500 
20044600 
20044700 

20044800 
20044900 

20045000 
20045300 

20045400 
20045500 
20045600 
20045700 
20045800 
20045900 
20046000 
20046100 
20046200 
20046300 
20046400 
20046500 

20046600 
20046700 
20046800 
20046900 
20047000 
2004^100 

20047200 
20047300 
20047400 



T 014710 

T 0147*0 

T 014710 

T 014710 

T 014712 

T 014910 

T 015110 

T 0152*0 

T 0l55»0 

T 0157*3 

T 0159*0 

T 015912 

T 015912 

T 016011 

T 0160«3 

T 0160*3 

T 0160*3 

T 0162*1 

T 0167*0 

T 0167*0 

T 0168*0 

T 0169*0 

T 0170*1 

T 0170*3 

P 0l7l*3 

T 0173*1 

T 0174»2 

20043900 

T 0174*3 

T 0177*1 

20043600 

T 0177*1 

T 017711 

20043100 

T 017711 

T 0180*3 

T 018013 

T 0182*0 

T 0l85«2 

T 0187*0 

T 0188*0 

T 0189*1 

T 0189*1 

T 019112 

T 0192*1 

T 0193*1 

20046100 

T 0195*0 

T 0196*0 

T 0196*3 

T 0197*1 

T 0198*1 

T 0198*3 

20046800 

T 0198*3 

T 0198*3 

T 0199*1 



fiO TO EXIT; 

fnp; 
f N d ; 

END OF SPECIAL HANDLING OF RUN CARDS* 



IF TYPE » EQUATING THEN 
BEG?N 



% ****** ***** 

% * * * 

% **** ***** 

% * * 

% * * 



***** 

* * 
***** 

* * 

Q ***** 



fpbr*typedspacfcsfg0[5] inx l.fpbakeav)* x167* 

% Sfgot 11 )] * size of the ftLf parameter block on disk 

% SFGOrai a RELATIVE DfSK ADDRESS OF THE FILE PARAMETER BLOCK 
% SFG0r7] a NUMBER OF FILfS IN THE F.P.B, 
% ETRLNT, a NUMBFR OF WQRdS PER FILE USED IN THE F.P.B. 
MfSFGOrS] INX FPBJ8=0J % SET TO ZERO TO INSURE THAT STREAM STATEMENT 

I! USfD TO BUILD "IN-CORE" FPB WILL NOT SKAN 
% PAST ThE END OF THE COMPILER GENERATED FPB. 
FB»;GETSPACE(SEGO[7].[CF JxETRLNG»FPBAREAV,} ) + ?) *167» 

% "fR" WILL RE "IN-CORE" FILE PARAMETER BLOCK LOCATION 

DlSKWAITf-FPP. SEG0I5] INX 0# ACTUALD I SK ADDRESS( SEGOT 4 ] . r CF ] ) ) ; 

COMMENT FORMAT OE 



THRU 
THRU 



COMPILER GENERATED FPB: 
! AND 7. « FILE NUMBER (12 BIT BINARY) STARTING WITH 1 

3 » FILE TYPE 

10 = MFID 
17 » FIO 

* LENGTH OF INTERNAL FILE NAME (6 BIT BINARY) 
N » INTERNAL NAME 
1 ( VERSION NUMBER IN SEG0[5] , T 1 18] ) 
NEXT TWO CHARACTERS FOLLOWjNG INTERNAL NAME CONTAIN: 

rfto: 1 ] = sfnS|T T ve bit 

r 41 ; ? 3 »= DISK SPEED (1=FAST. 2«SL0W» OeUSPEC I F I FD ) 

[43*5] = EU NUMBER + 1 

COMMENT FORMAT OF "IN-CORE" FPB ( 5 WORDS FOR EACH FILE ENTRY ) 



CHRS 

CHR. 

CHRS 

CHRS 

CHR 

CHRS 

FOR 



4 
11 
18 

19 THRU 
VFRSION 



t 



END 



woRoroi 
woRnti i 

W0RD[?J 
W0RDC2] 
W0RDt3] 
W0RDC33 
W0RDC3] 
W0RDT3] 
W0RDT3] 
W0RDf3].t83ll 1 
H0RDC3],t24M?l 
WOROC33. 13616 1 
HoROt3J.t«3«5 1 
OF COMMENT! 



61421 
614?] 

r ni7) 

t 18: 30] 

t 1*5 1 
r 6*171 

r 15 1 1 i 
r 1 6 1 2 i 

[1«*5 1 



MFID 

FID 

REEL NUMBER C3 BCL DIGITS) 

CREATION DATE (5 BcL DIGITS) 

CYCLf NUMBER (BINARY) 

prn (Physical reel number) for non-disk files 

SpNSjTiVE BIT (DISK FILES ONLY) 
DISK SPEED (DISK FILES ONLY) 
EU. NUMBER+1 (DISK FILES ONLY) 
10 CODE (INPUT*0.0UTPUT«1) 
NUMBER OF ERRORS 
LOGICAL UNIT NUMBER ♦ 1 

unit Type 



20047500 T 0200 

20047600 T 0200 

20047700 T 0200 

20047800 T 0203 



20048000 
20048100 
20048200 
20048300 
20048400 
20048500 
20046600 
20048700 
20048800 
20048900 
20049000 
20049100 
20049200 
20049300 
20049400 
20049500 
20049600 
20049700 
20049800 
20049900 
20050000 
20050100 
20050200 
20050300 
20050400 
20050500 
20050600 
20050700 
20050800 
20050900 
20051000 
20051100 
20051200 
20051300 
20051400 
20051500 
20051600 
20051700 
20051800 
20051900 
20052000 
20052100 
20052200 
20052300 
20052400 
20052500 
20052600 
20052700 
20052800 
20052900 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0203 
0203 
0203 
0204 
0204 
0204 
0204 
0204 
0204 
0204 
0204 
0207 
0207 
0207 
0207 
0207 
0209 
0209 
0209 

021 
021 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 
022 



1 
3 

0047300 

3 
20040000 


20039300 





3 

1 

1 

1 

1 

1 

I 

1 

1 

1 

1 

1 
1 
1 
2 
2 
2 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



FPBVERSlONImSEP,OC53.[li8]| % NEWER VRSN . CONT A I NS EU»SPD»ETC. 
STRrAM(TOR»«fFPBVERSI0N«l)»Tl*"0»T2*«0»Ci«O»FPB»FB)> 

PEGT.N 

SIJbFPRJ 

ll: tf sc="0- then * first digit of file number 

PER IN 

si « »si + i j if sc=»0" Then go to lp* % end of fpb 

END ELSE Si SsSl+iJ 



LOCATION 

XINT.NAME SIZE 



XXlTJ 



Si:»ST+1> Tl!*Si; Si«*SI+1? % FILE TYPE 

?rnS:sLlT"0"} DS:=7CHR)» * MfID»FID 

TPlsOIl DI»«LOC C* 01 * = D J +7; DSleCHRJ DI*«T2* 

nSl»l5LIT M 0"j J! ZERO OUT REEL* DAI E. CYCLE » ETC , 

T2»a»S i ; SjIiTD DSIbCHRJ SllsT?! % FILE TYPE 

fiO TO SK; L1 i GO TO LL» L2* GO TO XXjTl SKI 

SMsSl+C; % SKIP OVER INTERNAL NAME 

TOGf T2««DI » DT(*DI"6* SKlP 3DB* SKIP 4SB* 

if sb then dss»set else ds*»reset; skip sbi * sensitive 
pc if sb then ds:»spt else dsl«resetj skip sb)* % speed 

5MF SB THEN DSIsSeT ELSe DS»bRESET> SKIP SB)* % EU 

DI isT?)» 
nSl«8LlT"0"l * ZERO OUT FIFTH WORD OF FB 
f,0 TO Ll) 
fNID STREAM STATEMENT; 



IF MCPJOB THEN GO TO STOP; % NO LABEL EQUATION FOR "SYSTEM" JOBS 

%%% LABfL fquaTjon processing 

COMMENT LABEL EQUATION RECORD FORMAT; 



wordt 

WORD! 

wORnr 



03 
13 

2 



WORDT 3] 



WORDf 43 



wordt 

WOROC 



WORDt 
W0RD( 



53 
123 



HI 
?93 



3. CI 117] 
.[18130] 
.[42*1 J 

. r i*5 

.[15»« 
. T23 s 1 

.T42U 

.[43*5 

.[ 016 

.[ 6142] 
THROUGH 

,[15?1 ] 

.[1612 1 

.[1815 ] 
« START 
= LINK 



W 

s 
a 

B 



TO 



MFtD ( ZERO* IF NONE GIVEN ) 
F ID 

REEL NUMBER ( 3 BCL DIGITS ) 

CREATION RATE ( 5 BCL DIGITS ) 

MARKER FOR FILE OPEN ( 1 * CDATE GIVEN ) 

CYCLE NUMBER 

NUMBER OF COPIES -1 

PACKETS 

"FORMS" REQUESTED 

UNIT TYPE 

SIZE OF INTERNAL NAME 

FIRST SEVEN CHARACTERS OF INTERNAL NAME 
ORDttll * REMAINDER OF INTERNAL NAME 

SENSITIVE BIT 

DISK SPEEO (1»FAST#2*SL0W*0*N0T SPECIFIED) 

^[) NUMBER + 1 
F NEXT LBL.EQN, ENTRY (14 IF NO MORE ENTRIES) 

NEXT ESP SEGMENT FOR LABEL EQUATION 



END OF COMMENT? 



FOR L >* 1 STEP 1 UNTIL 2 DO 
BEGIN 

LINKJslF L THEN SU53 FLSE St 1331 
* SE 153 * RELATIVE DISK ADDRESS 



% EQN FROM COMPILE/EXEC. 
IN CODE FILE FOR LABEL 



20053000 


T 


0221«2 


20053100 


T 


022112 


20053200 


T 


022310 


20053300 


T 


0225«2 


20053400 


T 


022512 


20053500 


T 


0225*3 


20053600 


T 


022611 


20053700 


T 


022611 


20053800 


T 


0227*1 

20053600 


20053900 


T 


022713 


20054000 


T 


0228*2 


20054100 


T 


022913 


20054200 


T 


0231 »0 


20054300 


T 


0233*1 


20054400 


T 


0234*1 


20054500 


T 


0235*0 


20054600 


T 


0235*2 


20054700 


T 


0237*0 


20054800 


T 


0238*2 


20054900 


T 


0240*2 


20055000 


T 


0242*2 


20055100 


T 


0243*0 


20055200 


T 


0244*1 


20055300 


T 


0244*2 

20053300 


20055400 


T 


0244*3 


20055500 


T 


0244*3 


20055600 


T 


0245*3 


20055700 


T 


0245*3 


20055800 


T 


0245*3 


20055900 


T 


0245*3 


20056000 


T 


0245*3 


20056100 


T 


0245*3 


20056200 


T 


0245*3 


20056300 


T 


0245*3 


20056400 


T 


0245*3 


20056500 


T 


0245*3 


20056600 


T 


0245*3 


20056700 


T 


0245*3 


20056800 


T 


0245*3 


20056900 


T 


0245*3 


20057000 


T 


0245»3 


20057100 


T 


0245*3 


20057200 


T 


0245*3 


20057300 


T 


0245*3 


20057400 


T 


0245*3 


20057500 


T 


0245(3 


20057600 


T 


0245*3 


20057700 


T 


024513 


20057800 


T 


0245*3 


20057900 


T 


0245*3 


20058000 


T 


0245(3 


20058100 


T 


0245*3 


20058200 


T 


0246*0 


20058300 


T 


024810 


20058400 


T 


0250(3 



% EQUATION ENTERrn AT COMPILE TjMF 

% S[131 * ACTUAL ESP DISK AnDRFSS Or LABEL EQUATION ENTfRFD 
I! AT RUN TiMf, 

S? »= NOT LI % TRUE, IF LBL.eQN. ENTERED AT RUN TIME 
WHILE LTNK NEQ DO % \Y LBL. EQN. EX I STS 

RERIN 

IF LRL=0 THEN 

BEGIN 

M[CLRL'»ARRAYDE:SCC30»LBLEQNAREAV)) InX NOT U.AREAMlXFIaOl 

FNDI 

% IF UINK-SI153.READ FROM CODE FILE ELSE READ FROM ESP DISK 
DISKWA1T(-(LBL INX 0). 30, 

IF L THFN ACTUALniSKADDRESS(LlNK) ELSE L|NK)| 
I 8s 0; % START AT REftlNNjNG OF SFGMFNT 
IF NOT L THEN FORGETESPDI SK(LINK) J 
LINK l« LBLC29]; li NEXT LlNK 

if s? then % run time larfl equation 

BEGIN 

% IF A COMPILE JOB, SAVE FID OF OBJECT FILE NAME IN 

% JART30] TO PRINT MIX MESSAGE OF THE FORM! 

* w ALGOL"/<MFlD>/<FlD> 

IF JAR[MIX,0J LSS ThfN JAR[ MfX* 30) IbLBLC 1 1 1 

S28«0» % USE THE FIRST EQUATION ONLY 

END* 

IF LBL[0] s 14 ThEN GO TO STOPJ 
UNBLKJ LlNDXl.fXiftl * INDEX INTO LABEL EQUATION SEGMENT 
STREAMCFNJsO J FTl?rFT]t 7ER0»*0. T?8*0» 

TOG«s(FPBVERSiON*l). FPB. F 8 = [ LBLC LI NDX + 4 J J , Ct«0)J 
BFGIN 
SI :s FJ DP»LOC C; DlJ«DI+7 1 DS»«CHRI % LBL. NAM, SIZE 

si »s fpb; 

LI DM=L0C FN; Dl8=f>I+6; DSi = 2 CHR* * FILE NUMRER 
DI »a LOC ZERO* Si : *S I -2 J 

IF ? SC * DC THEN GO TO XX I T> % FILE NUM8ER*0 
DIlxFT; DS:«CHRJ Sji-St+14; % SAVF FILE TYPE FOR CHK BFLOW 
DI :* F» % Si AT FPB INT. NAM, Dl AT LBL. EQN. 
IF SC = DC The* % SAME STRING SlZF 
BEGIN 

if c scbDc then go to xxitj % all characters match 

END 

ELSE 

BEGIN % NOT ThE SAME S I Z E 

SiibSi-11 DI'aLOC T?J DI»«DI+7| DS:*CHRJ 

Sli«Sl+T2l % SKIP OVER FPB FNTRY 

end; 

T0fi(Sil»Sl*2)l % SPEED AND EU CHARACTERS IN FPB(VERSlON P 
GO TO L» 

xx! ti end; 



IF (Tl*P) NEQ THEN X VALID LABEL EQUATION 
BEGIN 
FBADRS«»(T-1 )xETRLNG+FBJ % ADRS OF FB FILE ENTRY 



20058500 


T 


0250»3 


20058600 


T 


025013 


20058700 


T 


025083 


20058800 


T 


0250;3 


20058900 


T 


025P3 


20059000 


T 


0253*0 


20059100 


T 


025310 


20059H0 


T 


0254*0 


20059120 


P 


0254*2 


20059130 


T 


026i:2 

20059110 


20059200 


T 


026182 


20059300 


T 


026U2 


20059*00 


T 


0263*1 


20059500 


T 


0270J3 


20059600 


T 


027182 


20059700 


T 


027311 


20059900 


T 


0274*1 


20060000 


T 


0274*2 


20060100 


T 


0275*0 


20060200 


T 


0275*0 


20060300 


T 


0275*0 


20060400 


T 


0275*0 


20060500 


T 


027980 


20060600 


T 


0279J3 

20060000 


20060800 


T 


027913 


20060900 


T 


0281 « 1 


20061000 


T 


0282*2 


20061100 


T 


0284*0 


20061200 


T 


0286*2 


20061300 


T 


028612 


20061400 


T 


028712 


20061500 


T 


0287 8 3 


20061600 


T 


0288*2 


20061700 


T 


028980 


20061800 


T 


028983 


20061900 


T 


029012 


20062000 


T 


0290*3 


20062100 


T 


029181 


20062200 


T 


0291»1 


20062300 


T 


029281 

20062100 


20062400 


T 


0292*1 


20062500 


T 


0292*2 


20062600 


T 


0292*2 


20062700 


T 


0293*2 


20062800 


T 


0294*0 

20062500 


20062900 


T 


0294*0 


20063000 


T 


0295*0 


20063100 


T 


0295! 1 

20061200 


20063200 


T 


0295*2 


20063300 


T 


0295*2 


20063400 


T 


029612 


20063500 


T 


029780 



% FT fS FILE TYPf F«OM FPB OBTAINFO ABOVE 

IF CFTl»*LBLaiNDX + 3).r43»5J) NEC *37 THEN FT I *FT 1 ; *NeW TYP 

FTiBFT.r43»5]| % RfMOVe "FORMS" BjT 

TYPFDTSK «- (FTslO) OR (FT=12) OR (FT*l3) OR CFT*26); 

STrfaM(X1»[UBL[L?NdX]],TOG»«(TYPeDISK AND (FPBVERSiON.i ))» 

fbadRS); 

BEGIN 

SitsX; dS««3WdS> DSisCHRi % MF I D» F I D» REEL* DATE* CYCLE 

T06CSI I.Si+21 SKIP 5SB> DUsDl+2; SKIP 5DB* 

if sb then ds**sft elsf ds$=reset; skip sbj 
jump out to 1)1 % save eu/speed specs for disk 

DSlr3CHR* 
L» DSls3CHR» 

if sc nfo »*" Then % new type specified 

IF SC NEQ "»•" THEN DS*»CHR ELSE DSl = SEt; 
END STREAM STATEMENT; 

SENSEVAL * = (EUVaL ** LBLrLINDX+l23ttl5t8]).[ftO«l)l 
SPDVAL ** EUVAL, [41*2]; 
EUVAL is EUVAL AND P37; 
IF SPDVAL GTR THEN 

M[FBADRS-t-3] J*C*P(DUP))«SPDVAL[16:46»2]J 
IF SENSEVAL THEN % FILE SENSITIVE 

M[FBADRS + 3H*(*P(DUP))&SENSEVALtl5i4J , li J J 
IF EUVAL GTR ThEN % NEW EU NUMBFR REQUESTED IN LBL.EON. 

M[FBADRS+3]t»f*P(DUP))iEUVAL tl 8*43*5]; 
END' % IF VALID LABEL fQUATION 



IF ( I iilM) 

end; % while 
stop; fno; % for l 



* l then if 

LINK NE« 



LBLtl«] NE« 14 THEN GO TO UNBLK; 



rORfiETSPACFCFPB); 

TRPr33 «* CHCFB31 & C SEGOr 7] . CCF ] xETRLNf.) [ 8 I 38 « 10] ; 

END; % IF TYPE * FQUATlNG 



FXlTJ 

PfTRETURNRCW]. STS. 0, RrS, 
ENH PROCFDURF SELFCTRUNJ* 



0, XCH» P«P[CTF]# STF); 



20063600 
20063700 
20063800 
20063900 
20064000 
20064100 
20064200 
20064300 
20064400 
20064500 
20064600 
20064700 
20064800 
20064900 
20065000 
20065100 

20065200 
20065300 
20065400 
20065500 
20065600 
20065700 
20065800 
20065900 
20066000 
20066100 

20066200 
20066300 



20066400 T 



20066500 
20066600 
20066700 

20066800 
20080000 
20080100 
20080200 



T 029911 

T 0299M 

T 0303*0 

T 0304*1 

T 030812 

T 031012 

T 0311«0 

T 0311*0 

T 031U3 

T 0313* I 

T 031413 

T 031512 

T 031513 

T 0316;0 

T 031612 

T 0317:3 

20064200 

T 0318*0 

T 0321»0 

T 0322«t 

T 0323:2 

T 0324*1 

T 0328:0 

T 0328*1 

T 033210 

T 0332*3 

T 0336*2 

20063400 
T 0336*2 
T 0340«1 

20059000 
034210 

20058200 
T 0344*1 
T 0345*0 
T 034910 

20048200 
T 0349*0 
T 0349*0 
T 0349*0 
T 0351*3 

20011300 
SIZE" 0352 WORDS 



PROCEDURE SFl-ECTRUN?* 



PRT<645> » SELFCTRUN2 

RFGIN 
REA|. 
STACKfF-2) x MSCW 

STACKfF-1) = F 

STACK(F-l) * MYMSCW 

STACKfF+O) s RCW 

STACKfF+1) = I 

STACKfF+2) * T 

STACK(F+3) = L 

STACK(F+4) * OT 

STACKfF+5) s MjX 

STACKfF+6) = HDR 

STACKfF + 7) x LPVEl. 

STACKfF+lO) * MCPJOP 

STACKfF+11) ■ OLAYOlSK 

STACKfF+12) = THlSLlNK 

STACKfF+13) » NFXTLlNK 

STACKfF + H) s PRpVUlNK 

STACKfF+15) = TYPE 

STACKfF*16) ■ STACKL.OC 

STACKfF+17) * ShFETLOCKfD 

ARRAY 
STACKfF+20) ■ S 

STACKfF+21) * SFGO 

STACKfF+22) * TRP 

STACK(F+23) s LBL 

PRT(161) « SO 

PRT(161) » TSKA 



MSCW 

F 

MYMSCW 

RCW 

1 

T 

L 
DT 

mix 

HDR 

level 

MCPJOB 

OLAYDISK 

THISLINK 

NF.XTLINK 

PRFVLINK 

TYPE 

stackloc 

sheetlocked 

s 

SEfiO 

TRP 

LBL 

sd 

TSKA 



* -?• 

■ "1 » 
s -\ , 

» +0» 

* +t » 
B + 2» 

■ + 3» 
= + 4» 
» +5» 
« +6» 
= + 7. 

* +8# 

* + 9. 

* +1 0, 
= +11. 

* +12, 

* +13, 
s +1 A, 

* + l5* 

■ +l6[*] » 

* +l7t*l» 

* +l8[*] P 

* + 1 9 r * ) » 

* NT2r*3» 

* NT2[*3» 



20080300 T 0000*0 

20080400 T 0000*0 

20080500 T 0000*0 

START OF REL SEGMfNTI DISK ADDRESS » 00595 

20080600 T 000010 

20080700 T 0000*0 

20080800 T 0000*0 

20080900 T OOOOlO 

20081000 T 0000*0 

20081100 T 0000*0 

20081200 T 0000»0 

20081300 T 0000*0 

20081400 T 0000*0 

20081500 T 0000*0 

20081600 T OOOOlO 

20081700 T 0000*0 

20081800 T 0000*0 

20081900 T 0000*0 

20082000 T 0000*0 

20082100 T OOOOlO 

20082200 T 0000*0 

20082300 T 0000*0 

20082400 T 0000*0 

20082500 T OOOOlO 

20082600 T OOOOlO 

20082700 T 0000*0 

20082800 T 0000*0 

20082900 T 0000*0 

20083000 T 0000*0 

20083100 T OOOOlO 

20083200 T 0000*0 



NAMf 
STACK(F*24) = ADOR 

REAL 
STACKfF+25) * PASSLEVEL 



STACK(F*25) = SVAUUF. 
STACK(F+26) = RETURNMSCW 
STACKfF+27) ■ RFTURNRCW 

DEFfNE SHEETMAX * MlXMAX#; 



A01R 

passlevel 

SVAUUE 
RETURNMSCW 

RETURNRCW 



a L8L *H 

* ADOR + 1. 

* pasSlevel» 

' passlevel + 1. 

■ returnmscw + ii 



%%%% ***NOTF**** 

%%%% ThF VARIABLES DECLARFO ABOVE MUST CORRESPOND EXACTLY TO 

%%%% those declared in procedure selectrun, 

Real, mesagespace ■ returnrcw + i> % local to this procedure 

STACKrF+30) = MESAGESPACE 

LABFL DLX, PMSg. SKIP. EX t T J *127- 

DEFfNE XCLOCKTiME = 

((fNT2»x(XCL0CK IV 3600)) MOD 60 + (NT2 DlV 60)M00 + 
0.5 ) DlV 1 )*i 

OEFtNE ACTUALDfSKADDRESSCACTUALDlSKADDRESSl) ■ 

f CJARtMiX,f cNUi*AcTUALDlSKADDRESSl) DlV (NT3«sJAR[MIX,8]))+103 
+ (NT4 MOD NT3) ♦ . «> ) D IV 1)#J 

$ SET OMIT s NOT(PACKETS) 

DEFINE UNITNO c S[23 J . T2 »63# J X ORIGINATING UNIT 
$ POP OMIT 

DEFINE DALOCSIZE * 9#J 

% VaLUFS ASSOCIATED WITH "TyPE" I 



DEFlNF STARTING 

CONTjNUElNG 

QUITTING 

RUNING 

PASSING 

EQUATING 



x 



2#» 
3*» 

5*. 
6*1 



subroutine delink; 

* dfLinks The sheet entry and Returns Sheet disk space 

BEGIN 
STREAMCA«*Sm.[8»iO].Bl«P(,SCHEDULEIDS))J 

BEGJN % MARK SCHEDULE SLOT "OPEN" 

SKIP A DB; DSl.RESETI 

END; 

if f » o then % sheet entry not passed as parameter 

BEGIN 

IF NEXTLINK = THEN SHEET [ LEVEL 1 . t FF] I sPREVLI NKI 



20083300 T 000010 

20083500 T OOOOlO 

20083600 T OOOOlO 

20083700 T OOOOlO 

20083800 T OOOOlO 

20083900 T OOOOlO 



20084000 


T 


OOOO'O 


20084100 


T 


OOOOlO 


20084200 


T 


OOOOlO 


20085300 


T 


OOOOlO 


20085400 


T 


OOOOlO 


20085500 


T 


OOOOlO 


20085600 


T 


OOOOlO 


20085700 


T 


OOOOlO 


20085710 


T 


OOOOlO 


20085800 


P 


OOOOlO 


20085900 


T 


OOOOlO 


20086000 


T 


OOOOlO 


20086100 


T 


OOOOlO 


20086200 


T 


OOOOlO 


20086300 


T 


OOOOlO 


20086400 


T 


OOOOlO 


20086500 


T 


OOOOlO 


20086600 


T 


OOOOlO 


20086700 


T 


OOOOlO 


20086799 


T 


OOOOlO 


20086800 


T 


OOOOlO 


20086801 


T 


OOOOlO 


20086810 


T 


OOOOlO 


20087200 


T 


OOOOlO 


20087400 


T 


OOOOlO 


20087500 


T 


OOOOlO 


20087600 


T 


OOOOlO 


20087700 


T 


OOOOlO 


20087800 


T 


OOOOlO 


20087900 


T 


OOOOlO 


20088000 


T 


OOOOlO 


20088100 


T 


OOOOlO 


20088200 


T 


OOOOlO 


20088300 


T 


OOOOlO 


20088400 


T 


OOOOlO 


20088500 


T 


OOOllO 


20088600 


T 


OOOllO 


20088700 


T 


OOOllO 


20088800 


T 


000213 


20088900 


T 


000213 


20089000 


T 


000312 

20066 


20089100 


T 


000313 


20089200 


T 


000412 


20089300 


T 


000510 



DLXJ 



IF PREVLlNKsO THEN 
BEGIN 
SHEFT[Le:VeL3.[CF]»«NEXTL!NK| GO DLX* 

end; 

IF lBL*0 THEN 

BEGIN 

MrCLBLIsARRAYDESCf 30.LBLEQNAREAV)) JNX NOT 1 ] , AREAM j XF I *0* 

ENDS 

DlSKWAlTC-CLBL jNX 0)» 30. PREVLlNK); 

LBL[29]«*NEXTLlNKj 

OlSKWAlTC (LBL jNx 0>» 30, PREVLlNK)* 

FORr,ETFSPoiSK(THISLtNK)j 

end; % if sheet entry not a parameter 



FND DELINK* 



BOOLEAN SUBROUT 
BEGIN 

POLISHCFAUS 
IF JARTMIX, 
IF NOT (S[2 
FOR I«*l ST 
IF JART ! #*] 
IF (fJAR[Mi 
IF CfJARtM? 
Cf f JARCMIX. 
IF JARCI»tO 
IF JARtI»2] 
IF PRYORtl] 
NFOT( I-1)xn 

BEGIN 

COMMENT 

IF PRT[ 

BEG 

COM 

no 

MFO 
NFO 
C*P 
END 

FLSF 



INE REENTRY* 

E>> 

21, [8*10] NEO THEN X NOT 

J.c2:in then % not es-ed 

EP 1 UNTIL MjXMAX DO 

NEQ THEN 
X.O] EQV JARr I»0])) = (NOT 
X.O] USS 0) OR % COMPILER 
11 EQV JARM.im a (NOT 

] neo o Then % compiler 
,t8M0] neq o then % not 

GEQ OR 
DX+l].tFF] NEQ THEN % RUNNING 



"GO" FROM COMPILE AND GO 



0) THEN % SAME 



0))) THEN % 
OR SAME MFID 
"GO" PART OF 



SAME 



MFID 
FID 



COMP.& GO 



IN LINKED-LIST 
THEN % ALREADY 



STYLE* 
PRESENT 



MAKE THE FNTRY 
I>4].[FF] NFO 
?N 

MENT ENTER AT TAiL OF PREVIOUS LIST* 
NT* J* I UNTjLd «-PRTCI»ai,[24l61)»P77» 
r(MIX-l)xNDX+l H.TRP[4]IbPRT[NTi »4]J 
r(NTi-l)xNDX + l]i»PRTCNTl»4] l« 
(DUP)HMlX r 24*42»6J* 



REf I N 

COMMENT CONSTRUCT NpW LIST* 

NFOtC !"1)kNDX«1 ]l«PRT[lf4 3l« 

(*P(DUP))&I[l8l42»6]»MlX[24»42l6U 

NF0[CMlX-l)xNnX+lJl«TRP(4]l= 

PRT[I .4HP77[24;42I6]J 

END* 

POLISH(DEL.TRUE)* 
I »«MIXMAXI 

END; 



20089400 T 0008 

20089500 T 0009 

20089600 T 0009 

20089700 T 0012 

20089800 T 0012 

20089810 T 0013 

20089820 P 0013 

20089830 T 0020 

20089900 T 0020 

20090000 T 0022 

20090100 T 0024 

20090200 T 0026 

20090300 T 0026 

20090400 T 0026 



20090500 
20090700 
20090800 
20090900 
20091000 
20091100 
20091200 
20091300 
20091400 
20091500 
20091600 
20091700 
20091800 
20091900 
20092000 
20092100 
20092200 
20092300 
20092400 
20092500 
20092600 
20092700 
20092800 
20092900 
20093000 



2009 
2009 
2009 
2009 
2009 
2009 
2009 
2009 



3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 



20093900 T 
20094000 T 
20094100 T 



0027 
0027 
0027 
0027 
0027 
0029 
0031 
0033 
0034 
0037 
0039 
0042 
0044 
0047 
0048 
0052 
0052 
0052 
0054 
0055 
0055 
0058 
0063 
0066 
0068 

0068 
0068 
0069 
0069 
0072 
0075 
0078 
0081 

0081 
0081 
0082 



1 


2 


20089500 





2 

2 
20089810 

2 

3 





3 
20089200 

3 
20088600 









1 

1 







2 

2 

3 

3 

1 

3 



2 

2 

2 





3 

1 

1 

3 
20092400 

3 

3 

i 

1 

1 

3 

1 

1 
20093200 

1 

3 

2 
20092100 



rffntryi-polish; 

fnh rffntrant code link a gf fstabLishMfnt subroutine; 



20094200 T 
20094300 T 



F j (MyMSCW» STF)I 

P(0); f mfsage space* 



LOCAL TO THIS PROCEDURE 



% 

% 
% 

% 
% 



**** 

* * 
**** 

* * 
**** 



***** 

* * 

* * 

* * 
***** 



*** 

* 

* 

* * 

**** 



***** 

* * * 

* * * 

* * * 

* * * 



***** 

* 

***** 

* 

***** 



***** 
* 

***** 

* 

***** 



***** 
* 

* ** 

* * 
***** o 



set omft s not( dcspo and datacom ) 
if rojmess then 

TF MCPjOB.Clit] THEN * "SYSTpM" TYPE JOB 

IF NOT CAUTOMESS) ThEN * SUPPRESS BOj/EOJ MESSAGE 

if not fS[?3.r?Jin then * not es*ed 

IF S[2J,[4ll] THFN * SUPRESS BOJ/EOJ MESSAGE 

BEGIN 

STREAM(N»sS[0]. MIX, T » *T 1 *SPACE(4 ) ) ; 
BEGIN 

DSt«6LlT" AUT0- w > 
Sl»"LOc Nj SH=»Sj + i; dSI*7CHR» 
OS 8 «?Li T K s"> SllsLOC mix* DSl«2DEC; 
DS?aL!T M * M > nil»DI-3; DSt.FILU 

end; 

SPOUT(T); 

go to skip; 

end; 



SET 
SET 



omit 

OMIT 



packf 

= N0T(P 



IF (NOT MCPJOB 
OP OMIT % PACKF 
AND NOT S[2].t2 



PO 
AND 

BEGIN 

GlMFDATFf CD 

STRFAMfDAAT 

S SET OMjT s NQT(D 

C J»S 

QJ»X 

BEGIN 

Si JeLOC 

o i i» b ; 
sii«a; 

DSULIT 

SpasLOC 

SV«.Di; 
DSlsSLl 
DTOG(Sj 

3(0S««2 

$ SET OMIT * NQT(D 

DSlaLIT 

END STR 



TS 

ACKFTS) 

OR BOJMpSS) 

TS 

It] THEN % St21 ,t 21 U«t 



WHEN ES-ED 



n,CCF],-DT>; % CONVERT DATE TO "MMDDYY" FORMAT 
isDT, DTOGi«N0T(mCPJOB) AND T«UE» SV l«0, 
CSPO AND DATACOM) 

C 1 8 3 , AlsJARROW[MIX]# MIX* % Stl 8 ]«PRl OR I TY 
CLOCKTjME, BlaMESAGESPACEI*GETSPACE(l2»0,0)+?); 

C; DSI.6DFC; DIJkDT-6) dsi«5fill; % PRIORITY 
DI« = DI+6; OS l=L !T W » ,, S 

Si taSl+i; dSi*7ChR; X MFID 

"/"J Sij.Si+1* DS««7CHRI X FID 

MIX; DSi"LlT"""l DS»»2DEC; % MIX 

dii«di-?i dsi«fill; DIIkSV; 
T" BOJ "I DSjs4DeC; DS|«LIT" »i % time 
i=LOC DAATj SI««SI*2» 

CHR; DSj*LlTw/ w ); DIlaDI-1); % CDATE 

CSPO AND DATACOM) 
»•«."; 
eam statement; 



20094500 
20094600 
20094610 
20094700 
20094800 
20094900 
20095000 
20095100 
20095200 
20095300 
20098900 



20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 

20 
20 
20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 
01500 
01600 
01700 
01800 
01900 



04600 
04900 
05000 
05100 
05200 
05300 
05350 
05400 
05500 
05900 
06000 
06100 
06200 
06300 
06400 
06500 
06600 
06700 
06800 
06900 
07000 
07100 
07500 
07600 



02000 T 
02100 T 
02200 T 



0084 
0085 

0085 
0085 
0086 
0087 
0087 
0087 
0087 
0087 
0087 
0087 
0087 
0087 
0087 
0089 
0090 
0092 
0093 
0094 
0097 
0097 
0098 
0099 
0100 
0101 

0101 
0103 
0103 

0103 
0103 
0103 
0104 
0104 
0106 
0107 
0108 
0110 
0110 
01 1 1 
0118 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0126 
0127 
0128 
0128 
0129 



3 


20090800 
1 
1 
3 









3 


2 

1 

3 

1 

3 

3 

3 

2 

2 
12 
20101400 

3 



2 
20101200 

2 

2 

2 





2 



3 
2 
2 
3 
2 
2 
2 
2 
1 
1 
I 
1 


3 
3 
1 
20106100 



S SET OMIT a MOTCDCSPO AND DaTaCOM) 
FND5 

SKiPJ 



% ***** ***** ***** 

% * * * 

% ***** ***** * ** 

% * * * * 

% ***** ***** ***** 



JARfMjX>2] 



***** 

* 
* 
* 
***** 



***** 

* 
***** 

* 
***** 



***** 

* * 
***** 

* * 

* * 



***** 

* * 

* * 

* * 
***** 



is (*P(DUP>) J Sf60[2JClUi2] & 
SEGOt2]t5|?i33 * 
SEG0C7][3:2H] ; 
% $FGOr?],U 51] = JOB COMPILED BY COBOL C 
% 5fG0[2],E2i31. SEG0m.t2»l] m USED FOR 
IF SFG0C2].t2»l] THEN SOFT I 5 «SOfT I + U 
IF SEG0r?].[4lj ] AND C MESaGfSPACE#0 ) THEN X INVOKED t.P.C, 
BEGIN * CHANGE BOJ TO ROT 



NO w OAT" ENTRY ) 
iNTER-PROGfCOMMUNfCATlON 



STRFAM(MFSAGESPACE)J BFGIN 01*01+28) DS*LIT"T"; ENDJ 

fNoj 

S 5ET OMiT * NOT(BREAKOUT) 



TASKX110- 
XI 10- 
X110- 

XI 10- 



% 
% 
% 
% 
% 



***** 

* 

***** 

* 

***** 



***** 

* 
* 

* 
* 



***** 

* * 
***** 

* * 

* * 



***** * : 

* * * 

* *** 

* * * 
***** * : 



***** ***** ***** 

* * * * * * 
***** ***** ***** * 

* * * * * 

* * * * 



IF MESAGESPACE NEQ THEN * BOJ MESSAGE BUILD 
BEGIN 

SPOUTER(MESAGESPACE,UNITNO,fBOjMESS AND NOT S[?] , [2t 1 ] ) ) I 

% sm,r?M J * t WHEN ES-ED 

MESAGESpACE«*0; 

end; 



M[STACKL0C3.[9l6] J * MIX; % PLACE MIX INDEX 

% COMPUTE THE ADDRESS FOR ThE PRT SUCH THAT 

Tl»f ((STACKL0CtsSTACKL0C+?>+SC2i ]) OR 63) * 

IF ( CIl«MCSTACKlOC-23.[Cm-CLl«SEGO[3] INX 

BEGIN % RETURN REMAINDER OF pRT SPACE 

TF NOT STOREDY THEN SLEEP ( [TOGLE 3 * STOREMASK) ; 

LOCKTOG(STOREMASK); 



IN MEMORY LINK 
PRTADRS,U2563»0 
1) % St2l3=STACKSIZE 
T)) GTR 10 THEN 



M[L1 5* I & (STACKL0C-2)[CTF3 
Mr T3,[FF] I* LI 

MrSTACKL0C-2].rCFJ «« L* 
UNLOCKTOG(STOREMASK); 



« MlXt9!42«6]J 



X NEW LINK 
* BACK LINK 
X FORWARD LINK 



forgetspacecl+2); 
F Nn? X IF PRT space 



WAS TOO LARGE 



X ZFRO OUT STACK TO FASF PROBLEMS OF CONGENITAL DUMP-ReaDfRS 



20107700 


T 


012912 


20108400 


T 


0129*2 


20108500 


T 


0129:2 

20105300 


20108700 


T 


012952 


20108800 


T 


012912 


20108900 


T 


012912 


20109000 


T 


012912 


20109100 


T 


012912 


20109200 


T 


012912 


20109300 


T 


012912 


20109400 


T 


012952 


20109500 


T 


012912 


20109600 


T 


012952 


20H0700 


T 


012912 


20110900 


T 


013251 


2011U00 


T 


013312 


20111200 


T 


013511 


20111300 


T 


0135U 


20111500 


T 


0135H 


20111600 


C 


0138)0 


20111610 


C 


014010 


20111620 


C 


014012 

20U1620 


20U1630 


C 


014211 

20111610 


20111800 


T 


0142U 


20H5200 


T 


014211 


20H5300 


T 


014211 


20115400 


T 


0142U 


20115500 


T 


014251 


20H5600 


T 


014251 


20H5700 


T 


014251 


20115800 


T 


014251 


20j 18350 


T 


014251 


20H8360 


T 


014350 


20H8370 


T 


014352 


20H8380 


T 


014752 


20H8390 


T 


014752 


20j 18400 


T 


014851 

20U8360 


20H8600 


T 


014851 


20118800 


T 


015150 


20U8900 


T 


015150 


20U9000 


T 


015452 


20H9100 


T 


015951 


20H9600 


T 


015953 


20H9700 


T 


016213 

20119700 


20U9900 


T 


016651 


20120000 


T 


016953 


20120100 


T 


017250 


20120600 


T 


0174* 3 

20120600 


20120800 


T 


017851 


20120900 


T 


017952 

20119100 


20121000 


T 


017952 



MrSTACKLOcJ » * *-3333 333333333 333 * 
MOVrf T-STACKLOf-l,STACKLOc»STACKLOC + l) J 



% 
% 

% 



% 
% 
% 

% 
% 



t 
% 
% 

% 

% 



READ IN PRT FROM DISK 



CTUALDlSKADDRESSCSE:G0C2],[CF]))i 
DRESS OF THE PRT IN THE CODE TILE 



DISKWAITC-T, SEGOC3].tCF], a 

* SrGOr?] * RELATIVE DISK AD 

* SFGOT3] = SIZF OF THE PRT 
TRPivPRTROWfMlXJ > «C MC T J ] &i 0?3 C 6 I 38 I 10J1 I! DESCRIPTOR TO THE PRT 

***** ***** ***** **** *** ***** ***** 

* * * **** * 
***** ***** * ** * * * * * 

** ** **** * 

***** ***** ***** **** *** ***** * o 



IF 



REFNTRY THEN 
BFGIN 
% REENTRANT jog, PRTr4] 

COMMENT BUILD PhONY ICW. 

M[STACKLOC] 

MrSTACKLOC+1 1 

MrSTACKLOC+?] 

TPPr8] 

TRPTIOJ 

END * RFENTRY 



POINTS TO FXISTING SEGMENT DICTIONARY 

IRCW, ft INCWJ 
?2222222222222222» 
-FLAr,(08i(TRP)[6l33l93)l 
-FLAfiCO) * 

-FLAr,(STACKL0C + 2)l 
TRP*f STACKL0C+1)[18»33«15JI 



ELSF 

BEGIN 

NFCt(MlX-l)xNDX+l] J* 

TRPt«]*«CM[T««GETSPACF(SEGOrl].[CFl#SEGDICTAREAVfl) + ?]Jl U67- 
DTSKWAIT(-T, SFGO [ 1 ] , r CF 1 » AC TUALD I SK ADDRESSC SEGO [ 0] . [ CF 1 ) ) 8 
% SEGOrO]* RELATIVE DISK ADDRESS OF SEGMENT DICTIONARY 
% SEGOril* SIZE OF THF SEGMfNT DICTIONARY 

MfTRPTA]] 8* SEGOttJ.rCF] -1* % SEGD I CTf 0]sS I ZE OF DICTIONARY 
$ SET OMIT = NOT(AUXMEM) 
END; % NOT REFNTRY 



**** ***** * 

* * * * * 

* * ***** * 

* * * * * 



***** ***** 

* * * 

* * * 

* * * 



**** 



* ***** ***** ***** 



STRrAM(D:»DALOcROW[MlX] t*SAVEARRA YDESC (0 ALOCS JZE .DALOcROWARr AV> ) > 
BEGIN 
Slt*D) S!laSI"8i DS»*DALOCSiZE HDS1 

end; 
if olaydisk nec then % 0lay disk obtained above 

BEGIN 

DALOCCMIX.OJ l: ?20000?l 

nAL0C[MIX»l] »* OLAYDISK; 

OLAYDISK :s OJ 



2012U00 
20121200 

20121300 
20121400 
20121500 
20121600 
20121700 
20121800 
20121900 
20122000 
20122100 
20122200 
20122300 
20122400 
20122500 
20122600 
20122700 
20122800 
20123000 
20123100 
20123200 
20123300 
20123400 
20123500 
20123600 
20123700 
20123800 
20123900 



20124 
20124 
20124 
20124 
20125 
20125 
20J25 
20125 
20125 
20126 



20126600 
20126700 
20126800 
20126900 
20127000 
20127100 
20127200 
20127300 
20127500 
20127600 
20127700 

20127800 
20127900 
20128000 
20128100 
20128200 



000 T 

100 T 

700 T 

900 P 

000 T 

100 T 

200 T 

300 T 

400 T 

400 T 



0179 
0181 
0184 
0184 
0184 
0184 
0184 
0184 
0192 
0192 
0192 
0195 
0195 
0195 
0195 
0195 
0195 
0195 
0195 
0197 
0197 
0197 
0197 
0199 
0202 
0205 
0207 
0210 

0210 
0210 
0215 
0217 
0222 
0230 
0230 
0230 
0233 
0233 

0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 
0238 
0238 
0239 

0239 
0240 
0240 
0242 
0244 



»2 

10 

JO 
:0 

to 

10 
10 
tO 
«2 
*2 
12 
13 
13 
13 
83 
83 
:3 
:3 
13 
:0 
82 
»2 
»2 
80 
13 
»1 

82 

to 

20123100 

tO 

tO 

tO 

80 

;0 

82 

t2 

• 2 

t2 

12 

20124100 

82 

82 
82 
82 

12 

82 

82 
12 

81 
81 

to 

20127500 

II 

80 

82 

(1 

tO 



% 
% 
% 
% 
% 



OLAYMAS* :* TWO(MiX) OR OLAYMASKJ % OLAYS NOW ALLOWABLE 



20128300 T 



***** 

* 
* 
* 
***** 



***** 

* * 

* * 

* * 

***** 



***** 

* * * 

* * * 

* * * 

* * * 



***** 

* * * 

* * * 

* * * 

* * * 



***** 

* * 

* * 

* * 
***** 



* * 
** * 

* * * 

* * * 

* ** 



* PLATF "COMMON" VALUE IN F?RST SjMPLe VARjABLe IN THE PR T 

NTl : = S[l9]» s; COMMON VALUE IN ShEET[19] 

FOR i)« P?5 STFP I WHILE NTl NEQ AND I LSS SEGO[3] DO 

if TRPriiaO then % simple variable cnot a descriptor) 

REG IN 

TRP[ I ] JaNTl J 

NT1 J*0 

end; 



DELtNKI X DELINK SHEET ENTRY FROM SHEET QUEUE 



Exm 



PCCRFTURNRCW]. STS. 0, RnS, 
END PROCEDURE SELF.CTRUN2* 



0. XCH» P&P[CTFJ» STF)> 



20128400 
20128500 
20128600 
20128700 
20128800 
20128900 
20129000 
20129100 
20129200 
20129300 
20129400 
20129500 
20i?9600 
20129700 
20129800 
20129900 

20130000 
20130100 
20140000 
20140100 
20140200 
20H0300 



0244)3 

20127900 

0244*3 
0246»2 
0246:2 
0246:2 
024612 
0246>2 
0246>2 
0246:2 
0246»2 
0246«2 
0247»2 
0252»3 
0253'3 
0254M 
0255«2 
0255«2 

20129600 
025910 
0260»0 
026020 
0260*0 
0260>0 
0262»3 

20080600 
SIZE" 0263 WORDS 



20140400 T 000010 

% FOR ADDITIONAL INFORMATION CONCERNING THE SHFET» SEE THE 20140500 T 0000*0 

% oOCUMfNT AT SfQUFNCE NUMBER 20512000 20J40600 T 0000;0 

20140700 T 0000*0 

PROCEDURE SELECTRUN(F)! VALUE F) REAL Fi 20140800 T 0000:0 

START OF REL SEGMENT! DISK ADDRESS * 00604 

BEGIN 20)40900 T 0000*0 

20J41000 T 000010 

REA|, MSCW = -?, 20141100 T 0000*0 
STACK(F-2) = MSCW 

F * -1» 20141200 T 0000*0 
STACK(F-l) s F 

MYMSCW * -i» 20141300 T 0000»0 

STACKfF-1) * MYMSCW 

RCW » +o# 20141400 T 0000:0 

STACKfF+O) = RCW 

I * +1# 20141500 T 0000:0 

STACKfF+1) * I 

T * +?* 20141600 T 0000*0 

STACKfF+2) s T 

L » + 3» 20141700 T 000050 

STACKfF+3) s L 

DT * +4» 20141800 T 0000*0 

STACKfF+4) = DT 

MIX a +5, 20141900 T OOOOlO 

STACKfF+5) = MIX 

HOR s +6# 20142000 T OOOOtO 

STACKfF+6) » HDR 

LEVEL * +7# 20142100 T OOOOlO 

5TACKfF+7) s LEVEL 

MCPJOB * + 8» 20142200 T OOOOtO 

STACKfF+10) ■ MCPJOB 

OLAYDISK * +9» 20)42300 T 0000«0 

STACKfF+11) s OLAYDISK 

THISLINK * +10, 20142400 T 0000:0 

STACK<F+12) * THISLINK 

NEXTLINK « +U, 20142500 T OOOOlO 

STACKfF+1 35 a NEXTLlNK 

PRFVLINK * + 12, 20142600 T OOOOlO 

STACKfF+14) ■ PRfVLJNK 

TYPE * +13, 20142700 T OOOOlO 

STACKfF+15) * TYPE 

STACKLOC * + t 4» 20142800 T OOOOlO 

STACK(F+16) » STACKLOC 

SHEETLOCKED * +15; 20142900 T OOOOlO 

STACKfF+17) s SHFETLOCKrD 



STACK(F+1) ■ EST 

STACKfF+20) s S 
STACKfF+21) * SEGO 
STACKfF+22) * TRP 



20142940 T OOOOlO 

INTFGFR EST "It * USED FROM 20163700 TO 20165300 20142950 T OOOOlO 

20143000 T OOOOlO 

ARRAY S * +l6r*]» 20143100 T OOOOlO 

SEGO * +l7r*3> 20143200 T OOOOlO 

TRP » +i8f*l* 20143300 T OOOOlO 

LBL * +i9r*]i 20143400 T OOOOlO 



STACKfF+23) = LBL 
PRTC161) * so 

PRTC161) » TSKA 

namf 

STACKfF+24) a ADDR 

Real 

STACKfF+25> « PASSLEVEL 



STACK(F+25) « SVAUUF 
STACKfF+26) * RFTURNMSCW 
STACKfF+27) a RETURNRCW 

DEFINE SHEETMAX * MlXMAXI; 



SD 
TSKA 

ADDR 

passlevel 

SVAI.UE 

rfturnmscw 
rfturnrcw 



* NT2r*J» 
■ NT2r*3» 

» LBL +11 

* ADDR ♦ 1* 

* passlevfl* 

* passlevel ♦ 1» 
■ rfturnmscw + ii 



%%%% ***NOTE**** 

%%%% RFTURNMSCW AND RETURNRCW ***MUST*** BE THE LAST TWO 

%%%% VARIABLES DECLARED |N THIS PROCEDURE. 

DEFyNE XCLOCKTIME ■ 

( ((NT2I=(XCL0CK DIV 3600)) MOq 60 + (NT2 DI V 60)xj00 + 
0.5 ) DIV 1 )#; 

$ SET OMjT s NOT(PACKFTS) 

DEFINE UNiTNO . S[ 23 ] , r 2 « 6 3# I % ORIGINATING UNIT 
t POP OMIT 

LABfL START, CONTINUE* LOAD, PASS, WINDUP* QUI Ti 

labfl jarspace, tryagain, ng; 

switch sw «a quit, start* continue* quit* quit. passi 

comment the value of "typp" may determine which portions of 

procfdurfs "selfctrunl" and/or "selectrun2" will be executed. 

procedure "sflectrunl" and *selrctrun2" may, in turn* specify 

the branch point in this procedure. 

the following defines are used to specify the branch point 

in switch "sw". 

end of comment! 



X12?> 



DEFINE STARTING 


r 


1#» 


C0NTINUE1NG 


a 


21* 


QUITTING 


s 


3** 


RUNING 


m 


4#> 


PASSjNG 


m 


5#, 


EQUATING 


* 


6#; 



20H3500 T 

20143600 T 

20143700 T 
20143900 T 

20144000 T 

20144100 T 

20144200 T 

20144300 T 



P(0, 0,0, 0*0, 0,0, 0,0, 0,0*0, 0,0, 0,0, 0*0, 0,0, 0)1 
RCW is RCW I P(,,SELECTRUN»LOD>rCTCJ* 

TYPF I* STARTING* 



20144400 
20144500 
20144600 
20U5700 
20145800 
20145900 
20146000 
20146100 
20146200 
20146300 
20146400 
20146410 
20146419 
20146420 
20146421 
20146500 
20146600 
20146700 
20146800 
20146900 
20147000 
20147100 
20147200 
20147300 
20U7400 
20147500 
20147600 
20147700 
20147800 
20147900 
20148000 
20148100 
20148200 
20148300 
20148400 
20148500 
20148700 
20149200 
20149300 
20149400 
20149500 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



OOOOtO 

OOOOtO 

OOOOtO 
OOOOtO 

OOOOJO 

000010 

OOOOtO 

000010 

0000 10 
000010 
OOOOtO 
000010 
OOOOtO 
OOOOtO 

000010 

000010 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
000010 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
000010 
OOOOtO 
OOOOtO 
000010 
OOOOtO 
OOOOtO 
OOOOtO 
000010 
OOOOtO 

000010 

OOOOtO 
OOOOtO 
OOOOtO 
OOOOtO 
0005tl 
000613 
000613 
000712 



START! 



PJM T X J* OJ 

if f nfo o then i! sheet entry Passed as a parameter 

BFGJN 

S s- IOOUF & FrCToi % shfeT entry 

hDR is F.rFF]! % CORE ADDRESS OF OBJECT FILE HEADER 

END 



FLSf 



BFGIN 

JF TYPE-STARTING AND NOT SHEETLOCKED THEN 

REG IN 

SLFFPCrTOGLEl»SHEFTMASK) J 

L0CKT0r,CSHFE T MASK)l 

sheetlocKed ** 1; 

end; 

PrrsvALUEJ» sts); 

SEI ECTRUN1 J 

IF TYPE LSS THEN 

GO TO SW[TYPE»"ABS(TYPF)]J 
FNfi; 



CONTJNUf* 



pim t x j= OJ 

IF fMCPJOB := S[?3.SSVSJOBF) THEN 

IF (MCPJOB = PRNPBTCODE AND AUTOPRINT) OR 
(MCPJOR m LDCNTRL.CODF AND CDONLY) THEN 
MCPJOB, [ 1*1] »■ 1* 

% note* a negative sign for mcpjob implies that this job 

* SHOULD BE STARTED RfGARdLESS OF THF AVAILABILITY OF 

* SYSTEM CORE, 

IF iNTSl7F«=0 TheN % NO INTRjNSicS FILE 

IF NOTrMCPjOB) THEN % NOT "SYSTEM" PROGRAM 
BEGIN 

STREAM(NT3!sNT3»*SPACE(4)); 
OS I *24 LlT"##NO INTRjNSicS FILE...*"? 
SPOUTfNT3)> 

SLEEP<UNTSIZE3»C"M777)» 
ENQI 



WHILE(NT?l*XCLOCK*P(RTR)) GEO WlTCHlNGHOUR DO MIDNIGHT* 



**** *** ***** * * 

* » * * * * 

* * * ***** *** 

* * * * * * 
**** *** ***** * * 



% 


***** 


* 


***** 


* * 


% 


* ik 


* 


* * 


* * 


% 


* * 


* 


***** 


* 


% 


* * 


* 


* * 


* 


% 


***** 


***** 


* * 


* 



20 


149600 T 


000712 


20 


149700 T 


0007*2 


20 


149800 T 


000712 


20 


149900 T 


0008U 


20 


150000 T 


000910 


20 


150100 T 


000912 


20< 


50200 T 


OOlltO 


20 


150300 T 


00l2«l 

20150000 


20 


150400 T 


001211 


20 


150500 T 


001211 


201 


50600 T 


001213 


201 


150700 T 


001411 


20< 


50800 T 


001413 


201 


50900 T 


001611 

20150900 


20 


151000 T 


001913 


201 


151100 T 


002012 

20150700 


201 


151200 T 


002012 


20i 


51300 T 


0021 * 1 


20l 


51400 T 


002113 


20] 


151500 T 


0022S2 


201 


51600 T 


002713 

20150500 


201 


151700 T 


002713 


201 


51800 T 


002713 


201 


51900 T 


002713 


201 


52000 T 


002713 


201 


152100 T 


002812 


201 


52200 T 


0030»0 


201 


52300 T 


003211 


201 


.52800 T 


003411 


201 


52900 T 


003612 


201 


53000 T 


0036 $2 


201 


53100 T 


003612 


201 


53200 T 


003612 


201 


53300 T 


003612 


201 


53400 T 


003612 


201 


53500 T 


O037M 


201 


53600 T 


003811 


201 


53700 T 


003813 


201 


53800 T 


0041»2 


201 


53900 T 


0045<0 


201 


54000 T 


0046! 1 


201 


54100 T 


004713 

20153600 


201 


54200 T 


004713 


201 


57700 T 


004713 

20157700 


201 


57800 T 


005511 


201 


57900 T 


005511 


20) 


58000 T 


0055U 


201 


58100 T 


0055U 


201 


58200 T 


005511 


201 


58300 T 


005511 


201 


58400 T 


00551 J 



IF NOT MCPJOR THEN X NOT "L I BMA I N«, "LDCNTRL" • "PRNPB T" 
IF OLAVDTSKsO THEN X NO OLAY DISK OBTAINED YET 
IF(0LAVDlSKlaPFTUSERDI5K(5OO OR M,l))«0 THFN X NO OLAY OlSK 

BFfijN 

L**t * 

GO TO PASS* 

END* X TF NO OLAY lS< 

COMMENT JOB WILL BF RUN ONLY jFt 

1) AN XS OR ES MESSAGF HAS BEEN ENTERED FOR THIS JOB* (IN WHICH 
CASE SHFETDIDDLER TURNED ON SC21 .C 1 t 1 ] AND CALLED SELECTION), 

or 2) the sum of this jobs corf requirements cst20]) plus the sum 

OF ThF CORE REQUIRfMfNTS OF ALL OTHER JOBS ACTUALLY RUNNING 
CCORF.CFF1) IS LESS THAN THE TOTAL AMOUNT OF CORE AVAILABLE 
FOR USER PROGRAM5 f T H E INITIAL SPACF AVAILABLE CCOReIcCFI) 
TIMES THE MULTIPROCESSING FACTOR ( CORE, [ 4 1 14 J > ) * 
OR -O "LDCNTRL/D!SK M IS BEING TESTED AND THE "CDONLY" OPTION IS SET 

OR 

"PRNPBT/OISK" IS BEING TESTED AND THE "AUTOPRNT" OPTION IS SET 

IF THE JOB BEING TESTED IS A "SYSTEM" JOB C LI BMA 1 Nt LDCNTRL* 
PRNPBT) AND THE ABOVE CONDITIONS ARE NOT SATISFIED* THE 
THF APPARENT AMOUNT OF AVAILABLE CORE CAS SHOWN IN THE "CORE" 
WORD) IS TESTED USING A FACTOR OF 1,1 TIMES THE ACTUAL FACTOR 
IN ORDER TO ATTEMPT TO FORCE THESF JOBS IN, 
END OF COMMENT} 



IF 
SET 



SC2J,C8»l0j«5 THEN X "RUN" JOB 
OMIT = NOTCDATACOM AND RjE ) 
BEGIN 

TYPF »■ RUNINGI 
PCrSVALUEl.STS)! 
SELFCTRUNi; 
IF TYPE LSS THEN 

GO TO SWtTYPE»*ABSCTYPE)]J 

rNni x tf a "RUN" RfQufst 



GETS SPECIAL HANDLING 



$ 



SET 
SET 



$ POP 



Tt B Sf?0]; 
IF (ESTsbCO 
IF EST>0 Th 

l»=o; 

if nomem ne 

if csm LS 

X MCPJOB.U 

* sr?].n»2 

IF (LEVEL G 

OMIT ■ NOT(B 

OMIT * NOT(W 

IF (WKSfTST 

OMJT X WORKS 

IF CORF.fFF 

X AN ATTEMP 

X TESTING T 



X USED UNT TL 20)78900 
RF,(CF]KC0RE.t«M4]/100)<T 

EN T»»EST; 



THEN X ESTIMATE > TO 
X SET IT TO TOT 



THEN GO TO PASS? 

S 0) OR (McPjOB.rlUJ) then GO TO JARSPACE* 

«l] = t MEANS RUN IT REGARDLESS OF CORE AVAILARIL 

1 JSI [0«N0RMAL» 1*N0T USED* 2*XS-ED» 3»ES-ED3 
TR PaSSLEVeL) THEN GO TO PASS? 

REAKOUT) 

ORKSET) 

OPJOBS NEC 0) OR WKSETNOSELFCT THEN GO TO PASSI 

ET 

]+t > (if mcpjob then estxi.i else est) then go 

T IS MADE TO RUN MCPJOBS EVEN WhEN CORE IS FULL 
HEM AGAINST A VALUE 10X HIGHER, 



TAL, 
AL, 
X125* 



ITY 

X140* 
X140- 



PASS; 

BY 



X 

X 



*** 

* 



***** 

* * 



***** 

* * 



***** 

* 



***** 

* * 



***** 

* * 



***** 

* 



***** 

* 



20 


158500 


T 


0055U 


20 


158600 


T 


0055;3 


20 


159100 


T 


0057«0 


20 


159200 


T 


006010 


20 


159500 


T 


006012 


20 


159900 


T 


0061H 


20 


160000 


T 


006l>3 

20159200 


20 


160200 


T 


0061 1.3 


20 


160300 


T 


0061 '3 


20 


160400 


T 


006113 


20' 


160500 


T 


006113 


20 


160600 


T 


006l»3 


20 


160700 


T 


006113 


20 


160800 


T 


006113 


20 


160900 


T 


0061 '3 


20< 


161000 


T 


0061 »3 


20 


161100 


T 


006113 


20 


161200 


T 


0061<3 


20 


161300 


T 


006113 


20 


161400 


T 


006113 


201 


161500 


T 


0061 13 


201 


161600 


T 


006113 


20' 


161700 


T 


006H3 


201 


161800 


T 


006113 


201 


61900 


T 


0061 «3 


20< 


[62000 


T 


006l»3 


20' 


62100 


T 


006113 


20 


162300 


T 


006153 


201 


62400 


T 


006311 


201 


162700 


T 


006311 


201 


162800 


T 


006313 


201 


62900 


T 


0064)2 


20] 


63000 


T 


0065 It 


20] 


163100 


T 


006513 


20] 


163200 


T 


006612 


201 


163300 


T 


007113 

20162700 


20i 


63600 


T 


007113 


201 


63700 


T 


0072«3 


201 


163800 


T 


007610 


20i 


63900 


C 


007812 


20) 


64000 


T 


007911 


201 


64200 


T 


008110 


201 


64300 


T 


008313 


201 


64400 


T 


008313 


201 


64700 


P 


008313 


20j 


64750 


C 


0085*0 


201 


65110 


T 


006510 


201 


65120 


T 


008510 


20j 


65130 


T 


0088*0 


20j 


65300 


T 


008810 


201 


65400 


T 


009113 


201 


65500 


T 


0092H 


20j 


66800 


T 


00921 1 


201 


66900 


T 


009211 


201 


67000 


T 


009211 



% * 
% * * 
% ***** 


***** 
+ * 
* * 


***** 

* * 

* * 


***** 

* 
***** 


***** 

* 
* 


***** 

* * 

* * 


* 
* 
***** 


***** 

* 
***** 


JARSPACF* 

















idlfTjme; 

% find a mix slot for this job 

TOR M I X : = 1 STEP 1 UNTIL MfXMAX qO 
TF JARtMlX f *J»0 THEN GO LOAD; 

* NO FREE SPACE IN JAR» PASS ENTRY WITHOUT DELINKING AND CONTINUE 

L«*?J 

GO TO PASS) 



% 
% 

% 

% 
% 



* 
* 
* 
* 
***** 



***** 

* * 

* * 

* * 
***** 



***** **** *** ***** ***** 

* * * * ***** 

***** * * * ***** ***** 

* * * ** * *** 

* **** **** * * * * 



* 
* 



LOAD' 



JARROWrMjXJ t= 
MrHnR-?3.[9»6] 

MrHnR-?i.r3i6] :* jaRRowarfav; 

CORF.fFF] *«= CORE.tFF] + TJ 
SET OMJT a NOT(PACKETS) 

IF£ | l*Sr?33 . C2I 61 D GEQ 32 T H EN 
POP OMIT % PACKETS 

JARrMix.o] :* StO] ; 

JARrMix* n is sn ] > 

JARr MI X,?] «*St? J8C IF 

% IF THIS IS A "RUN" 
JAR[MIX»?J,[BH0J 



10QUE & HDRTCTCJl * FILE HEADER BECOMES JAR ROW 
J* MIX? % PLACE MIX INDEX IN MEMORY LINK 

*167« 
% ADD IN CORE ESTIMATE 



PSEUD0M!X[MIX)I»I> X PSEUDO-RDR JOB 



% 
% 
% 
% 

* 



<NTli«SCZ3.C8ll03)»5 THEN 2 ELSE NTl ) [ 8 I 38 J 1 3 ; 

job* Change it to say "execute" 

SHEET[23.[8U03 ■ 





1 

2 
3 

5 



STRFAMfA In 
BEGIN 
SI ULOC 

fnoj 



"GO" PART OF COMPILE 

COMPILE AND GO 

EXECUTE 

COMPILE 

COMPILE 

RUN JOB 

»JARlhlX.3J»(30ll83» 



AND GO 



FOR SYNTAX 
TO LIBRARY 



Dj*[DT3)I % CREATION DATE FROM HDP 



A! nS«e8DECJ 



t SET OMIT * NOTCNFWLOGGING) 

PROcTfMf [MJX3 I* -( JAR[M IX» 33 l»St 163 )> % PROCESS LfMH *127- 

lOTyMf CMIX3 »= -( JAR[ M IX» A3 I »S[ 17 3 ) ; * J/0 LjMlT J5J27« 

STRFAMfDATE. A«*ri3)> % CONVERT DATE TO OCTAL FOR LOGGING 
BEGIN 

speLOC date; dsisboct; 
end; 

JARrM?X»5]ls(XCLOCK+P(RTR}3 & IrU25l23]f % DATE AND TIME 
JARrMlX»63 »» Sr63&St233[2»2»63j % CARD/PSFUDO RDR. UNITNO IN r?>63 
JARrMlX»71 l« 0; % IDLETIMF ENTRY 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 

20 
20 
20 
20 
20 
20 
20 

20 

20 
20 



67100 
67200 
67300 
67400 
67500 
67600 
67650 
67700 
67800 
67900 
68000 
68100 
68150 
68200 
68700 
68800 
68900 
69000 
69100 
69200 
69300 
69400 
69500 
69600 
69800 
69900 
70600 
70700 
70800 
70900 
71000 
71100 
71200 
71300 
71400 
71500 
71600 
71700 
71800 
71900 
72000 
72100 
72200 
72300 
72400 

72499 
72600 
72700 
72800 
72900 
73000 
73100 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
P 
P 
T 
T 
T 
T 



73200 T 
73300 T 
73800 T 



009211 
009211 
0092»1 
009211 
00921 1 
009211 
00921 1 
009213 
009213 
0095«0 
009813 
009813 
009613 
009912 
OlOOiO 
0100JO 
OlOOtO 
010010 
OlOOtO 
010010 
010010 
010010 
OlOOtO 
010010 
0102«0 
010511 
010812 
011013 
0110*3 
011412 
011412 
011612 
0118:2 
012312 
012413 
012413 
0124»3 
012413 
012413 
012413 
012413 
0124 I 3 
012710 
0127J0 
012712 

20172200 
0127 13 
012713 
O13H0 
013411 
0135«1 
013511 
013513 

20172900 
013610 
013911 
014212 



JARrMfX#9],rFF] »* 01 % ZFHO OUT "CHAIN" DISK ADDRESS FIELD 

* jaR[Mix.8j Through jarcmix.29j still contain contents of 
x Orjfct filf header as obtained above 

JARrMyX.9] is MTHDR INX 9],[CF] & MCP J0B[ 6 » 45 : 3 J & 

(S[2J,[4lj] AND N0T(S[2],[2IU OR AUTOMESS) ) [?U7 1 1 ] I 
X SC21.[4»1 J»1 MEANS SUPpRfSS BOJ/EOJ MESSAGES 
X MARK JARf9] WITH JOB CODE (1.3 OR 5 FOR SYS JOB) 
% INSURE THAT THIS JOB HAS A UNtQUE STARTING TIME (FOR LOG) 
TRYAGAIN* 

FOR 11*1 STpP j UNTIL MlXMAX DO 
BEGIN 

IF JARROWm NEB THFN % JOB RUNNING HERE 
IF I NFQ MtX THEN X NOT OUR JOB 
IF JARrMjXi5),[2<H24]«JARCl,5],[24l2<U THEN X 
BEGIN 
JARrMlXi53,r24:?4]i«JARrMiX»5l,r24l?4J+ll 

go 1ryagain; 

end; 



% 
% 
% 
% 
y 
x 
% 



% 
% 
% 
% 

% 
% 

% 



SAME START 
BUMP THE 



% 



TIME 

time 



end; 



***** ***** ***** 

* * * 

***** ***** * ** 

* * * * 

***** ***** ***** 



***** ***** ***** ***** 

* * * * * * 

* ***** ***** * * 

* * * * * * 

***** ***** * * ***** 



IF F NFQ THEN % SHEET ENTRY PASSED AS A PARAMETER 
BEGIN 

if sego neo o then forgetspacecSego); 

SEG0 Is S & S[7HCTC]| % SEG, ZERO PRESENT AT CORE ADDR. 

END 



X127- 
X127- 
X127- 
X127- 
*127» 
*1?7* 
1127- 
*1?7- 
X127- 
XI 27- 

"sr 7] w 

X127- 



elsf 



BEGIN 

if sego = o then % 

M[ fSEGO«»ARRAYDEScC30.SFGZER0ARFAV)) INX NOT 
DlSKWAlTf-fSEGO INX 0)»30#MrHDR INX lO])J X READ 
END; J! IF SEGMENT ZERO WAS NOT PRESENT 



X127- 

1127- 

X127- 

U.AREAMIXFlsOl 

SEGMENT ZERO 

X127- 



***** 
* 

***** 

* 

***** 



***** 

* 
* 
* 
* 



***** 

* * 
***** 

* * 

* * 



***** 

* 
* 
* 
***** 



* * 

* * 
*** 

* * 

* * 



* 
***** 

* 



***** 
* * 
***** 

* 
* 



***** 

* * 
***** 

* * 

* * 



stack size# ser,ot33 contains prt size 
Then % not a Restart job 



X Sr2l] CONTAINS 
IF SEG0T3] GTR 
BEGIN 
NF0rcMlX-t)xNDX+2] l« ( STACKLOC * »GETSPACE X 

(SEG0C33 INX S[?|) jnX 64* ST ACKPRT AREAV* 3) )+2 J 
IF STACKLOC = THEN X NO MEMORY 
BEGIN 
NG* JARROWCMIX] *» L I* 01 % 

CORE.CFF) »* C0RE.CFF3 - T> X 
« SET OMIT = NOT(PACKETS) 



X127- 
***** 
* 
* 
* 
* 

X127- 
X127- 
X127- 
X127- 
X167- 
X167- 
X127- 
X127- 
X127- 
X127- 
X127- 



20 


173900 


T 


014411 


20 


174100 


T 


0146»3 


20 


174200 


T 


0146*3 


20 


174300 


T 


014613 


20 


J74400 


T 


015013 


20 


174500 


T 


015512 


20 


174600 


T 


015512 


20 


174900 


T 


015512 


20 


175000 


T 


015512 


20 


175100 


T 


015512 


20 


175200 


T 


0157*0 


20 


175300 


T 


015710 


20 


175400 


T 


015810 


20 


175500 


T 


015911 


20 


175600 


T 


016310 


20- 


175700 


T 


016312 


20 


175800 


T 


016811 


20 


175900 


T 


0168*3 

20175600 


20 


176000 


T 


016813 

20175200 


20 


176003 


C 


017U0 


201 


76006 


C 


017110 


201 


76009 


C 


017JI0 


20] 


76012 


C 


017110 


20] 


176015 


C 


017110 


201 


76018 


C 


017110 


201 


76021 


C 


017110 


20j 


76024 


C 


0171 JO 


201 


760?7 


C 


Ol7lU 


20j 


76030 


C 


0172U 


201 


76033 


C 


017413 


201 


76036 


c 


017612 

20176027 


201 


76039 


c 


0176»2 


201 


76042 


c 


017612 


201 


76045 


c 


017710 


201 


76048 


c 


017810 


20i 


76054 


c 


0184*1 


201 


76057 


c 


0189*0 

20176042 


20j 


76060 


c 


0189*0 


201 


76063 


c 


0189*0 


201 


76066 


c 


0189*0 


201 


76069 


c 


0189*0 


20] 


76072 


c 


0189*0 


201 


76075 


c 


0189*0 


201 


76078 


c 


0189*0 


201 


76081 


c 


0169*0 


201 


76084 


c 


0189*0 


20} 


76087 


c 


0190*0 


201 


76090 


c 


0l90»2 


20l 


76093 


c 


0192*2 


20! 


76096 


c 


0l96*3 


201 


76099 


c 


0197*2 


201 


76102 


c 


0198*0 


201 


76105 


c 


0199*3 


201 


76117 


c 


0202*0 



S POP OMfT 



IF 
IF 



PSEUDOMiXtMjXJ s= 0) % 

GO TO pass; 

end* % if no memory 

NOT MCPJOB.tl'l) ThFN % D<5N-T AUTO-START SYSJOB 
STACKLOC GfQ P50000 THEN 
BEOTN X SAVE SPACF TO HIGH... 

forgftspacf.cstacklOc + 2)} X 

STACKLOC «= 0; % 
GO TO NG» % 

ENOJ 

FNn; X NOT RESTART 

XXX SFF ALSO "SfGMfNT ZERO" SrCTlON IN PROCEDURE "SELECTRUN2'' FOR 
XXX FURTHER ALTERATIONS TO THF JAR. 



X 

% 
X 
X 

% 



***** ***** **** 



***** ***** 



* 
* 
* 
* 



* * 

***** 

* * 

* * 



* * 
**** 

* * 
**** 



* 
* 
* 
***** 



* 
***** 

* 



* 
***** 

* 



***** ***** 



SET OMjT x NOTCSTATTSTlCS) 
IF Sr?J.t2«lJ OR cSt?l] LSS 128) THEN SC213 1*1261 

X Sf?].r2!l-l»1 WHEN ES-EO. SCZil CONTAINS STACK SIZE 
NF0r(MiX-1 J*NDX+2] 8= PCDUP.LOD) & T [CTF] & C ( CLOCK + P (RTR ) ) X 

01 V 60) [1I31M7J; X 
PRYoRTMiX] t« -i; 
SET OMjT * NOT(WORKSET) 

olaytimetmixj i= o; 

POP OMIT % WORKSFT 

SET OMIT ■ NOTCDATACOM) 





%%%%% 


% 


%%%%% 


XXX 


% % 




% % 


XX 


% % % 


% 


X % 


pi Mi x i *mi x; 


%%%%% 


% 


% % % 


% 


% 




% 


% 


% % % 


% 


% % 




% 


XXX 


XXX 


XXX 


% X 



X127- 
Xl?7. 
X127« 

Xl?7« 

Xl?7- 
X127. 
X127« 
X127- 
X127- 
X127- 
X127- 

X127- 



Xt?7- 
X127- 



Xl«l' 



STARTLOG(PIMIX); % BEGIN LOGGING FOR THIS MIX xi?7- 

USERC0nFCM!X]l«ARS(S[24J)l X USfRCODE IN S[24] 

CHANGEAB0RT(S[6]>* 

IF S[21.r8i lOlrO THEN F0RgETeSPdISKCS[25])J % FORGET OBJ,SKfLETON 

% sr2j.reuo]«o for »go w part of "compile and go* 

STRFAM(QJsFSR0WtMlX]:«SAVFARRAYDESC(4,FSAREAV))J X167- 

DSt«32L[T"0"J 
SET OMjT p NOT(AUXMEM) 

typf ««= continueing; 

x sflectrun2 is concerned wjth: 
x 80j message 

% SEGMENT ZERO 

% STACK AND PRT 

% SFGMENT DICTIONARY 



20176120 
20176123 
20176126 
20176129 

20176132 
20176135 
20176138 
20176H1 
20176144 
20176147 

20176150 

20176153 C 

20176200 
20176300 
20176400 
20t76500 
20176600 
20176700 
20176800 
20176900 
20t77000 
20177200 
20178100 
20178200 
20178900 
20178910 
20179100 
20179210 
20179220 
20J79230 
20179610 
20179700 
20179800 
20179900 
20180000 
20180100 
20180200 
20180300 
20180350 
20180400 
20180600 
20180800 
20180900 
20181000 
20181100 
20185300 
20185700 
20185800 
20185900 
20186000 
20186100 
20186200 
20186300 
20186400 T 0241*1 



C 020210 

C 0203U 

C 0203*1 

C 0203*3 

20176099 

C 020313 

C 020413 

C 0206*0 

C 020612 

C 020713 

C 0208*2 

C 0210*0 

20176138 
021010 

20176087 

T 0210*0 

T 021010 

T 021010 

T 021010 

T 021010 

T 021010 

T 0210J0 

T 021010 

T 021010 

T 021010 

T 021010 

T 021410 

P 0214*0 

C 0217* 3 

T 021912 

T 0221t0 

T 022110 

T 0222U 

C 0222U 

T 0222*1 

T 022211 

T 0222*1 

T 0222*1 

T 0223*0 

T 0223*0 

T 0223*0 

C 0223*0 

T 0225*2 

T 0227*1 

T 0228*1 

T 0231*1 

P 0231*1 

T 0236*0 

T 0240*2 

T 024012 

T 0240*2 

T 0241*1 

T 0241*1 

T 0241*1 

T 0241*1 

T 0241*1 



% DAt.OC 

3! COMMON 

P(rSVALUR3.STS)> 

SELrCTRUN2J 

IF TYPE l.SS THFN 

GO TO SwrTYPF.»=ABSf TYPE)]> 

IF fSFfiOC71.rCFJ«0) THFN % BUILD A DUMMy FILE PARAMETFR BLOCK 

TRPr3]»«tM[GETSPACF(ltFPBAREAV,l)+2]] Ei.SE* *167« 

BFGIN 

TYPE J* EQUATING* 3! BUILD FPB AND PROCFSS LABEL EQUATION 
Pf rSVALUE3.STS)> 
SFl ECTRUN1 J 

IF TYPE.fl»n THEN GO To SW[ TYPE * *ABS( TYPE )] * 

end; 



NFOrCMlX-DxNDX] l» TRPt3]l 

* TRPm VALUE SET BY SELFCTRUNl FOR NON-MCP TYPE JOB 

GO TO WINDUpf 



PASSI 



typf * = passing; 

PUSVALUFl»STS>; 

SEl-FCTRUNU 

IF TYPF LSS THFN 

GO TO SWfTYFFi«ABSfTYPE)3* ?! SELECTRUN1 DETERMINES BRANCH POINT 



WJNDUP: 



% 
% 
% 
% 
% 



*** 

* 

* 

* 

*** 



** * 

** * 

* * * 

* ** 

* ** 



*** 

* 

* 

*** 



***** 
* 
* 
* 
* 



*** 

* 

* 

* * 

**** 



***** **** 

* * * * 

* * **** 

* * * * 



***** 



**** 



$ SET OMIT = NOTCWORKSET) 

WKSfTSWJTCHTIMf J* CLOcK + P(RTR); * TIME OF LAST SELECTION 
$ POP OMjT X WORKSET 

* INITIALIZE OTHER PRT CELLS 

TRProi :* wordofease; 
TRp r 2] is memory; 

TRPflO] I* TRP«CSTACKLOC+l)[l&S33:i5]» 

IF jARfMlX»0] LSS THEN % COMPjLE job 
BEGIN 

IFfNTll*JARrMlX,2].[8tl0])sA THEN % COMPILE TO LIBRARY 
TRPrP26]«*Sr22] % SAVE FACTOR FOR OBJECT FILE IN SHEET[?2] 
ELSE IF NT j *3 ThEN % COMPILE FOR SYNTAX ONLY 
BEGIN 

TRPr*26]»*-l* % SaVe FACTOR « (-1) % DONT SAVE OBJECT 
JARrMjX#?],[BliO]i«?> % MARK IT AN "EXECUTE" JOB 
END; 

end; % COMPILE JOBS 

TRPr6H»FLA6(0g[TRPt6]][18i33»153*32t8l3Bll0]}> 



20 


186500 


T 


0241*1 


20 


186600 


T 


0241*1 


20 


186700 


T 


0241*1 


20 


186800 


T 


024111 


20 


186900 


T 


0242'0 


20 


187000 


T 


0242*2 


20 


187100 


T 


0243*1 


20 


187200 


T 


024812 


20 


187300 


T 


024812 


20 


187400 


P 


025010 


20 


187500 


T 


025353 


20 


187600 


T 


0254 H 


20 


187700 


T 


0255t0 


20 


187800 


T 


025513 


20 


187900 


T 


0256*1 


20 


188000 


T 


0262*1 

20187500 


20 


188100 


T 


0262*1 


201 


188600 


T 


0262*1 


20! 


188800 


T 


0264*3 


20 


188900 


T 


0264*3 


20 


189000 


T 


0265*1 


20 


189100 


T 


0265*1 


20; 


189200 


T 


0265*1 


20] 


189300 


T 


0265*1 


201 


189400 


T 


0266*0 


201 


189500 


T 


0266*3 


201 


189600 


T 


0267*1 


20] 


89700 


T 


0268*0 


20j 


[89800 


T 


0273*1 


201 


89900 


T 


0273*1 


20! 


190000 


T 


0273*1 


20! 


90100 


T 


0273*1 


201 


90200 


T 


0273*1 


201 


90300 


T 


0273*1 


201 


90400 


T 


0273*1 


201 


90500 


T 


0273*1 


201 


90600 


T 


0273*1 


201 


90610 


T 


0273*1 


201 


90620 


T 


0273*1 


201 


90630 


T 


0275*0 


201 


90700 


T 


0275*0 


201 


90800 


T 


0275*0 


201 


90900 


T 


0276*1 


201 


91000 


T 


027712 


201 


91100 


T 


0280*0 


201 


91200 


T 


0281*2 


201 


91300 


T 


0282*0 


201 


91400 


T 


0284*2 


201 


91500 


T 


0265*3 


201 


91600 


T 


0286*3 


20i 


91700 


T 


0289*1 


201 


91800 


T 


0290*3 


201 


91900 


T 


0293*3 

20191600 


201 


92000 


T 


0293*3 

20191200 


201 


92100 


T 


0293*3 



if jARrMjx»2] r,E«> o then x not cobol 

TRPr 113**FLAG(0&[TRPt It ]][ 181 33 « 153&6C 8 » 38 * 103 ) J X "OAT" FNTRY 
% BRl*G IN STARTING SEGMENT&BU I LD CONTROL. WORDS FOR INITIATE* 
MAKFPRFSENTf TRP INX POL I ShC SEGOf 6 ] , TRPt 4 ] , J NX , LOD) . t 8 J 10 ] ) 1 
X SFG0T6] * STARTING SEGMENT NUMBER 

* SFGD!CT[SEG0r6] J.r8«lO] * PRT LOCN, OF DFSC. FOR STARTING SEGMENT 
MrSTACKLOC+2 3** -FLA G{ POL I Sh( SEGOr. 6 ] . TRPC 4 ] » I NX * LOD ) . [ 16 M .5 ] ) I 
M[STACKL0C + 1]»* -FLAG(0J.(TRP)t6*33*93)* 
MfSTACKLOC] «» P2222222222222222* 

TRPrfl] le -FLAG(STACKL0C+2)J % INITIATE CONTROL WORD 
IF(NTil«TRPr4J,[lBl6J) NEQ ThfN 
lNTABLFROWrMlX]l«lNTABLEROWrNTl] 

ELSF IF NOTf JAR[MIX,9],SYSJ0BF) THEN % NOT "SYSTEM" JOB 
BEGIN 

I l = lNTSiZE> 

INTABLER0WrMIX]is[MrGETSPACF(I>l»l)+2)Hlt8l38ll0]J 

STREAM(A«*I»TlelNTABLER0WtMlX3); 

BEGIN 

Sp»Tl SIIBSI-6J DSl«A wdsj 

END* 

ENH» 



IF SC2]. 12*13 THEN X Sr2].l?»n.l when fs-fd. CALL TERMINATf 
BEGIN 

JAR[MIX,?].[?IU«*1J % MARK IT TERMINATED 
TFRMINATECMJX & 

(IF JARtMlX # 2],[7ll) AND (*P(TSX INX TRP)) f PBlT THEN 
90 ELSE 35>CCTF3)J 
END 



ELSr 

if jARrMix»23.r7in 

IF rT5KA**PcTSX INX 
BFGIN 

TSKAtl] :» 

TSKAC21 := 

TSKAT33 ** 

TSKAT43 J* 
END? 



then 
trp));prit 



X TASK WHOSE PARENT HAS 
THEN X DECLARED TASK ARRAY 



XI 10- 



JARfMlX,03j 
JAR[MIX,1]; 
7\ % STATUS: 
MIX? 



ACTjVe 



SFT OMIT s NOT(NEWLOGGING) 
SAVfMiX(MjX)} 

PRY0RTMIX3 t= SC18]; X PR|0RITY IN SHEETU83J 
IF F«0 THEN X SHEET ENTRY NOT PASSEO AS A PARAMETER 
BEGIN 

type *« (if sm.tnn then starting else continuing)* 

x if es-ed then re-start sheet search* otherwise»conTinue on 

GO To START* 
END* 



QUIT* 

PlMyX »* 0* 



20192200 
20192300 

20192400 
20192500 
20192600 
20192700 
20192800 
20192900 
20193000 
20193100 
20193200 
20193300 
20193400 
20193500 
20194100 
20194300 
20194400 
20194500 
20194600 
20194700 



20194800 T 



20194900 
20195000 
20195100 
20195200 
20195400 
20195500 
20195600 
20195700 
20196300 

20196400 
20196500 
20196600 
20196700 
20196800 
20196900 
20197000 
20197100 
20197200 

20197300 
20197600 
20198500 
20i99?00 
20199300 
201 99400 
20199500 
20199600 
20199700 

20199800 
20210000 
20210100 
20210200 



T 0297»0 

T 0298*2 

T 0302M 

T 0302«1 

T 0305*2 

T 0305«2 

T 0305*2 

T 030913 

T 0313*2 

T 03151 

T 0317*1 

T 031911 

T 0320;2 

T 032413 

T 0325»1 

T 032610 

T 033011 

T 0331*2 

T 0331*2 

T 0332*2 

20194500 
033213 

20193500 

T 033213 

T 0332«3 

T 0332*3 

T 0333* 3 

T 0334*1 

T 0337*1 

P 0337*3 

T 0341*1 

T 0343*1 

20195200 

T 0343*1 

T 0343*1 

P 0345*1 

T 0348*0 

T 0348*2 

T 0350*2 

T 0352*2 

T 0353*3 

T 0355*0 

20196700 

T 0355*0 

T 0355*0 

T 0355*3 

T 035711 

T 0358*0 

T 0358*2 

T 0361*2 

T 0361*2 

T 0363*0 

20199300 

T 0363*0 

T 0363*0 

T 0363*0 

T 0363*0 



TF SHFFTLOCKFD THEN UNLOCKTOG( ShEFTMASK ) } 

IF S NFO THEN FORGETSPACEf S ) t % SPACE FOR SHEET ENTRY 

if sEfiO neo o then forgetspacecsego)* % SPACE for segment ZfRO 

IF OLAYOlSK NEO ThEN FORGFTUSeRD I SK( OLAYDI SK» *500 ) t 

IF I.BL NFQ THEN FORGFT SpACEC LBL ) » % SPACE FOR LABEL EON. ENTRIES 

KlLLf IMSCW])» 

END SELECTION ROUTINE; 



20P10300 T 



20?i0rf»00 
20?j0500 
20?i0600 
20P10700 
20?U400 
20?H600 



0363*3 

20210300 
T 0368»0 
T 0370*2 
T 0373*0 
T 0375*2 
T 0378*0 
T 0378*3 

20H0900 
SIZE* 0379 WORDS 



$ SFT QMTT 



OFFINFX 

COMMA 

EQUAL 

PERIO 

SLASH 

QUEST 

POUNn 

RB 

LB 

SPFCI 

IDFNT 

UNLOCK V 

USE.V 

LOCKV 

FRFE 

OPEN 

packet 

USER 
RUNV 
COMPj 

FXFCU 

COPYN 

DUMP 

UNLOAD 

AODV 

UOAO 

RFMOV 

CHANf, 

ENDF! 

NOTCPAC 

WAITV 



$ POP QMlT 



10#. 
11*. 
12*. 
13*. 
14*. 
lb*. 
16*. 
\7t, 
19*. 
20*. 
21*. 
22*. 
23*. 

24*. 
25*. 
26*. 
27*. 
26*. 
29*. 
30*. 
31*. 
32*. 
33*. 
34*. 
35*. 
36*. 
37*. 
39* f 



X 



KFTS) 

= 40*. X 



DATAV 

larev 

SeTV 

ReSetv 

FILEV 

EXPIRED 

ACCESSD 

PROCF 

10 

PRIOR 

COMMONV 

COREV 

STACK 

5AVEV 

ALGOL 
FORTRAN 

TSPOL 

BASIC 
C0P0L6B 

WITH 
COBOL 

Libra 
synta 

FROM 
TOV 



41*. I! 
42*. X 
4 3*,X 
44*. X 
47*. J! 
48*. X 
49*.* 
50#,X 
51*. X 
52*. X 
53*. X 
54*. X 
55*. X 
56*. X 
60*. X 
62*. X 
63*. X 
64*. X 
65*. X 
66*. X 
67*. X 
66*. X 
69*. X 
70*. X 
71*. X 



RIGHT 
LEFT 



BRACKFT 



FOR 



EXCEPT 



XLP 1 



LIST 



a Switch label cfuno in 
securjtymaint uses the order of 
values of "unlockv" through "open", 



a store near the end of Rcc 
makes use of the order and valufs 

Of "PROCE m THRU "SAVEV". 

(Save *days on compile to library) 



20212000 
20213000 
20214000 
20215000 
20216000 
20217000 
20217500 
20217600 
20217700 
20218000 
20219000 
20219050 
20219060 
20219100 
20219200 
20219300 
20219310 
20219400 
20219500 
20220000 
20221000 
20221500 
20222000 
20223000 
20224000 
20224500 
20225000 
20225500 
20226000 
20226099 
20226100 
20226101 
20226500 
20227000 
20228000 
20228100 
20228200 
20228300 
20228400 
20229000 
20230000 
20231000 
20232000 
20232500 
20233000 
20233500 
20234000 
20235000 
20235050 
20235075 
20235080 
20235099 
20235100 
20236000 
20237000 
20238000 
20239000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
P 
P 
T 
T 
T 
T 
T 
T 
T 
T 
P 
P 
T 
P 
P 
P 
T 
T 
T 
T 



ooooto 

0000:0 
0000:0 
OOOOJO 
000080 
0000*0 
OOOOtO 

ooooto 

OOOOJO 
OOOOJO 
OOOOJO 
000010 
000010 

ooooto 
ooooto 
ooooto 

000010 

ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 

000010 

ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 

OOOOJO 

ooooto 
ooooto 
ooooto 
ooooto 

000010 

ooooto 
ooooto 
ooooto 
ooooto 
ooooto 

000010 

ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 
ooooto 



ONV 
FORM 
LINFS66 
NO 

DISK 

TAPE 

punch 
print 

RACK 

SPECIAL 

RpMOTT 

EU 

SLOW 

B6500 

FAST 

MaXV 

FRFEF 

FIXED 

SFNSF 

Latestv 

FXCEPT 
AS 

nohash 
paper 
comment rfswds contai 
definf hfclarfccvariab 

REAL MSCW a 

CARD = 

RCW » 

PROCVAL a 

A « 

CADDR = 

CARDLOC = 

CDEX a 

CMPLR « 

CM * 

KOUNT * 
UASTSCAN 
LIBNO 

KM = 

N2 * 

N3 * 

N4 a 

OPTN = 

OPTNN a 

PADDR « 

PDEX = 

PPCPROCFSS * 

SOURCF * 

SPOUTUNIT s 
ST 

Tl a 

UNJTNO 9 

useRid » 

array accum * 

crON ■ 

CMM a 



s 
n 



e 
s 
s 



72*»X X1 48- 

« 75**% SWITCH D(PCC)"FORM"-*SPEClAL" *846- 

a 77*, % 66 LINES PER PAGE X724- 

79*,% 

80*,* 

61#,X 

B2#, X 

83#,X 

85#»X 

90*. 

89*. 

91*. I 

92#,X 

93#.X 

94#. 

96#, 

97*,% 

98#, 

100f, 

101#» 

102#» 

103#» 

1041* 

QU*t% 

ns reservfd words for control cardsjx 
les * 

-2. 

MSCH+l* MYMSCW a CARD» 

+ 0, 

RCW+1, XIN CASE OF 

PROCVAL+1. T a 

A+l, SFID ■ 

CADDR+t, 

CARDL0C+1» SDEX ■ 

CDEX-ft* 

CMPLR+1* 

CN + i * 

KOUNT+i, 

LASTSCAN+I. 

LIBN0+1, 

Nl + 1. 

N2 + 1, 

N3+l# U ■ 

Nfl + 1, 

OPTN+i* 

OPTNN+l, SFH « 

PADDR+1* SMID ■ 

POEX+i, 

PPCPROCFSS+I, 

SOURCF+1* 
SPOUTljNiT + 1, 
ST + 1» 
TUli 
UNlTNO+l? 

USFRln+lt*3, 

ACCUM+l[*3t 
CEQN+lC*]* 



TYPED PROCEDURES 
a A » 
a CADDR* 

» CDEX, 



N4i 



PADDR, 
PDEX# 



20239100 

20240000 

20240020 

20241000 

20242000 

20243000 

20244000 

20245000 

20246000 

20247000 

20247500 

20247600 

20247700 P 

20247800 P 

20247900 

20247920 

20247930 

20247940 

20247950 

20247960 

20247970 

20247980 

20247990 

20248000 

20249000 

20288000 

20288100 

20288105 

20288H0 

20288115 

20288120 

20288125 

20288130 

20288135 

20288140 

20288150 

20288155 

20288165 

20288170 

20288175 

20288185 

20288190 

20288195 

20288200 

20288205 

20288210 

20288215 

20288220 

20288225 

20288240 

20288245 

20288250 

20288255 

20288260 

20288265 

20288270 

20288275 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



NAMf 
BOOLEAN 

REAL 



*i 



niRFCT 
PFQN 

PROG 

addr 

ABORT 
TOG 

RftuRnmscw 

rfturnrcw 

rfturnval 



CMM+lr*]» 
DIRECT+1C*]. 

peqn+1 r*]; 
prog + i I 

AODR+l» 
ABORT + H 
TOg+J, 

Returnmscw+i 
RetuRnRcw+i 



X THFSF LOCALS MUST BE THE LAST 
% THREE LOCALS Of CONTROLCARD 



S SFT OMIT = NOT(PACKETS) 
PROCFOURF PR|MTHECOVER(CARD»UNlTNO»PS)J 

START OF REL 
PRTC646) a PRINTTHECOVER 

valuf r ard»unitno»ps? Real card»unitno,psi 

% to alter Size of one-area packet page change define at 02113091 
begin label tryagain; *178- 

real buf»t,tp,xi 



20288280 T OOOOlO 

20288285 T 000010 

20288295 T 000010 

20288300 T OOOOlO 

20288305 T OOOOlO 

20288310 T OOOOJO 

20288315 T OOOOlO 

20288320 T OOOOlO 

20288325 T OOOOlO 

20288900 T OOOOlO 

20289000 T OOOOlO 

20?89009 T OOOOlO 

20289010 T OOOOlO 
SEGMENT! DISK 



ADDRESS « 00617 



stack<f+d ; B 

STACKfF+2) » T 

STACKfF+3) * T 

STACKfF+4) s X 

STACKfF+5) * I 

STACK(F*6) = P 

STACK(F*7) * H 



UF 



AGEAD 
EADER 



DR 



IMTFGFR I.pAGEADDRJ ARRAY hEADER[*]J 



SUBROUTINE BUILPHEADER; 
PFGIN 

hEADFR»«iOQUE & BUFtCTclJ 

MrBUF]sso; 

MOVFf 29.BUF.BUF+DJ 
STRfAM(DATe#H3I=HEADER INX 3)1 

BEGIN Su»L0C DATE* OSI=8oCTJ X 

DII«H3* DSls2LlT"+#"l I 

Slt*H3l SiisSf+5) DSI«3CHRI % 
END! 



CREATION 
SAVE 10 
ACCESSED 



t SFT 



HFADER[0]l*P00l3200i3?000l03l % 90,90. 1#3 

HEADFRM ]I«(XCL0CK + P(RTR)> 8 HEADER[3]r6t30U8]? 

HEADER t?3 •■HEADER[53UMCP,[6U2]I 

HFADERr4]»«0t(Pl00i)[2i38il0]»SVSN0C4U6»2]l 

OMIT » NOTCDATACOM AND RjE) OR OMIT 

HEADER[7jl* ( PAGESIZE DfV 3)"il 

HEADER[8]l»PAGESlZEl 

HEADER[9]lstl 

HEADERrlO]»»PAGEADDR; 

FND BUILDHEADERI 



TRYA6AIN* 



ClDTARLFtUNiTN0-32»6]l s TP«* OOl & NEXTCDNUMC 1 ) r 6 I 24 I 24 J I 

if diRectorysearchc m pbd ",tp»5)*o then go tryagajn; 
bufi*space(90)» 



BUfi*SPACE(90)» 

PAGEADDRl»GETUSERD!SKf PAfiESTZE)! 
r,c..,r CAR0.r9l9]«0 THFN 

"' " THEN "CRA" ELSE IF pS.j THEN "CRB* 
THEN TlNU[UNlTN0),t3O»i8] ELSE 



pSl 



'IF 
IF 
IF 



PSeO 
PS*2 



ELSE 



20289020 T 

20289025 T 

20289030 P 

20289035 T 



OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 





20289040 


T 


OOOOlO 




20289045 


T 


OOOOlO 




20289050 


T 


000110 




20289055 


T 


000110 




20289060 


T 


000212 




20289065 


T 


000410 




20289080 


T 


000610 




202B9085 


T 


000713 




20289090 


T 


000811 




20289095 


T 


000910 




20289100 


T 


000913 

20269085 




20289105 


T 


OOlOlO 




20289H0 


T 


001 1 t 1 


X131- 


20289113 


P 


001411 


X112- 


20289H5 


P 


001812 




20289117 


T 


002113 




20289120 


T 


002113 




20289125 


T 


002410 




20289130 


T 


002511 




20289135 


T 


002612 




20289U0 


T 


002713 

20269050 




20289142 


T 


002910 




20289144 


T 


003013 




20289146 


T 


003510 




20289H8 


T 


003712 




20209150 


T 


003913 




20289152 


T 


004111 




20289153 


T 


004212 




20289154 


T 


004710 



IF PS«3 THE 
S SET OMIT * NOTCDATA 

« ft J 

STRFAM(CARO»TP! 

, Hi 

RFGfN DS»*8LIT" 

Si :»LOc n* 



n "Zip" 
com and 



ELSE 
RjE) 



OR 



" ELSE 
OMIT 



Si 

rs 

S] 

di 

si 

DS 
01 
SI 
DI 
54 
DI 
OS 
SI 
Si 
HO 



sLOc n; 
a7LlT"I 
aLOC PS 
bBUF* 4 
«LOC Tp 
«8LIT"P 
aBUFJ 4 
•CARD! 
cBUFI 4 
DS:«LIT 
sBUFi 4 
» 1 6 L I T « 
«LOC TP 

•card; 

DSI.LIT 



*CIDT 
sClDT 

-; s 

DP* 
Si :« 

NPUT 
J Si : 
(DI*» 
J Si t 

AC«ET 
(DI *» 

DS!*9 
(DI »« 
"I"); 

(DIU 
+ ABOR 
I Si i 
DS**9 
»0")| 



ABLE[UNiTN0-32,2],PS 

ABLEtUNiTM0*32»7]*l,BUF)l 

I**BUF* 2(DS»»44 WDS)» 

LOc HI DS»«8QECJ DI*»L0C N| DS**8FILL* 

Sl+3» DI»«BUF; Dl»«DI+12* 

"J DS:*5CHRJ DSi*i?LIT h CARDS FROM »* 
«Si*5» DS»«3CHR* 

DI+34)* DS»«8LlT"*x£l4000"J BUF*»DI» 
*Si+p; D I i «D 1+12* 

"I DS»*4CHR* D!I«DI"4I DS**3FILL* 
DI+34)* DSJ*8LlT"txM4000"J BUF*«DI* 
WDS* 
DI+34); DSl«8LjT»lxil2000 w | BUF»=DI* 

DS'ellLiT" ABORTED H * 55( DS *«L I T"i" ) * 
014-34)* DSl*8LlT"lxJi:l2000"; BUF *»0 1 1 
TEDOPAGE "* DSI«9LIT»»0PACKET 0»> 
*Si*?; DS«*4CHRI Dl»«Dl+3> 

WoSl 



FNDI 

MTBU 
DISK 
STRF 

BEGT 



F+87]:sMCP* 
WAlT(BUF»90»PAGFADnR) i 



X131- 



X131- 



WAlT(BUF»90»PAGFADnR) * 

AM(A» = I»Br(NTl »b((XCLOCK+P(RTR)) Di V 3600)) MOQ 60 
+ C NT 1 DIV 60)xi00),DATEiWr"*"" ■---•— -' 

H 




FNDJ 

ntSKWAlT(BUFt90»PAGEADDR+3); 

X »=6I MrBl»F+l7]««0j 

IF (T»*DlRECT0RYSEARCHf"MESSAGE"»*OTHEDAY w »5))#O THEN 

REG IN 

FOR I*«0 STEP l WhILE (I<6) AND NOT MIBUF+17J DO 

BEGIN 

DlSKWAlT(-BUF»90,MrT+lO]43xI)| 

DlSKWAlT(BUFi90»PAGEADDR+6*3xj); 
XI-X+3J 
ENDJ 



ECI 



*178» 



FORGETSPACE(T); 



fNd* 



STRFAM(ML 5sMARKLEVEL»PL*bPATCHLEVEL»LLi«L0CALEVEL 
» lL»«Mt3]#BUF»=BUF+54)» 



20?89i55 


T 


004913 


20289156 


T 


005212 


20289159 


T 


005212 


20289160 


T 


005311 


20289163 


T 


0055*1 


20289165 


T 


005810 


20289170 


T 


006011 


20289175 


T 


006112 


20289180 


T 


006212 


20289185 


T 


006513 


20289190 


T 


006612 


20289195 


T 


006910 


20289200 


T 


006913 


20289205 


T 


007113 


20289210 


T 


0074*1 


20289215 


T 


0074»3 


20289220 


T 


0077*1 


20289225 


T 


008110 


20289230 


T 


008312 


20289235 


T 


008711 


20289240 


P 


0088*1 


20289245 


T 


0088*3 


20289250 


T 


0089*3 

20289165 


20289252 


C 


0090*0 


20289255 


T 


0092*3 


20289260 


T 


0094*0 


20289265 


T 


0096*0 


20289270 


T 


0099*3 


20289275 


T 


0099*3 


20289280 


T 


0102*2 


20289285 


T 


0104*2 


20289287 


T 


0106*0 


20289290 


T 


0106*3 


20289295 


T 


0108*3 


20289300 


T 


0110*0 


20289305 


T 


0111*3 


20289310 


T 


0114*1 


20289315 


T 


0116*0 


20289320 


T 


0118»1 

20289270 


20289325 


T 


0118*2 


20289335 


P 


0120*1 


20289340 


T 


0123*0 


20289345 


T 


0125*1 


20289350 


T 


0125*3 


20289355 


T 


0131*3 


20289360 


T 


0131*3 


20289365 


T 


0135*2 


20289370 


T 


0138*1 


20289375 


T 


0139*2 

20289355 


20289380 


T 


0148*0 


20289385 


T 


0148*3 

20289345 


20289390 


T 


0148*3 


20289395 


T 


0149*3 



B5700 
Sj l*Sl+l 



BUF»«DII 
DCMCP MARK «; 

ELSE DSisCHR 



RFGTN DS«*8LlT» •♦; SpaBUFf nS»=34 WdS; DI**BUFJ 
np*Pl-8* DS*=8LlT"*xOQ0803** 
DJUPi + i?J PSJ»18LIT W #N0 MESSAGES TODAY** 
OISsbBUf; '4(DflsOI + 3«)J dSIb8LiT»»Jx>12002"; 
DI«»DI+8; DS**31L|T M *** BURROUGHS 

SjULOc ml; if sc ge« * " thenj 

8(!F TOGGLE T HEN IF SC»"0" THEN 

ELSE DSJsCHR); DStsLlT".") 
Sj l«LOC PL* IF SC GEO * " THEN! 
6(IF TOGGLE. THEN ?F SCs"0'» THEN SjlsSl + 1 ELSE DS*«ChR 

FLSE DSl.CHR); 0Si*2ChR» 

siuloc ll; if sc geq h - then; 

8ciF toggle then if sc*»o w then 

flse ds*«chrp ds»»2ilit* and 

Slisl.OC ML* IF SC GFQ * h THENI 
8(IF TOGGLE THEN IF SC*"0" THEN 

ELSE DS*=CHR)i oSt»LlT"."* 
Sl««LOC IL> S I » »S t + 1 * IF SC>"0" THEN 
SH»5l + il DS«*2CHR» DSU4L.lT* ***"* 
DIUBUF) 1(D!l»0U34)> DS:*6LlT»»Jx>1200l*J 
FMDI 



SII-SI+1 ELSE DS* 
INTRINSICS MARK " 



«CHR 



SI jsSI+1 ELSE DS:*CHR 
DSUCHR ELSE 



END 



DlSKWAlTcBUF»9OtPAGEAD0R+X); 

BUILDHEADFRJ 

FNTFRUSFRFILE( M PBD * * TPf BUF* 1 ) ) 

pSFUDOfUNiTNO-32] • " ( *Pf DUP > H 

1H8I38M0]* % PACKETPBD 

MF T#0 THEN 3 ELSE 2>[l8»45l3]» % packetrec 

lt2l*47*l]& % PACKETFRFE 

(PAgEADDR + XH22i22»26J> % PACKETPAGE 
FORfiETSPACEfBUF)* 

pRtntthecovfR* 



20?89400 
20289405 
20?894l0 
20289415 
20P89420 
20289425 
20289430 
20289435 
20289440 
20289445 
20289450 
20289455 
20289460 
20?89465 
20?89470 
20289475 
20289480 
20289485 
20289490 
20289495 
20289500 

20289510 
20289520 
20289530 
20289540 
20289550 
20?89560 
20289570 
20289580 
20289590 
20289600 



T 0151*3 

T 0153*3 

T 0155*1 

T 0158*0 

T 0160*2 

T 016510 

T 0165*3 

T 0167*2 

T 0t68*3 

T 0169*2 

T 0171 » 1 

T 0172*1 

T 0173*0 

T 0174*3 

T 0178*2 

T 0179*1 

T Ol8l»0 

T 0182*1 

T 0183*3 

T Ol 85 »0 

T 0187*1 

20289400 

T 0187*2 

T 0189*1 

T 0l90«0 

T 0l92*0 

T 0193*2 

T 0194*2 

T 0197*2 

T 019812 

T 0200*2 

T 0201*1 

20289030 
SIZE" 0205 WORDS 



PRT(6fl7) * FETCH 



STACKfF+1) * T 
STACKfF+2) * E 



S POP OMfT 
COMMENT FFTCH READS THE NFXT CONTROL CARD > SETS SOURCE TO BEGINNING 
OF CARD . SFTS LAST WORD Of CARD TO PERIOD. 1% 
PROCEDURE EFTCMCUNlTNO.CARDLOC.SOURCE)) 

START OE REL. 

VALUE Un!TNO»CArDlOC) 

REAL UNlTNO,CARDL,OC»SOURCE J 

REGIN* 

real t»e; 

ElB»1«ftUNlTN0r45MM]f UNI TNO I «ABS( UNI TNO ) I 
IF fUNjTNO OR 1)*31 THEN X DCOM OR ZIP 

M [ SOURCE » = CARDL0C]:«Pi425/*524 323737 37 
ELSE 

begin % not dcom 
» set omit « packets 
s set omit * not(packets) 

if unitno gf« 32 then 

DO UNTfL NOT E,t45M) OR Ti« 

$ POP OMIT 

READEMER0MdISKCCIDR0WCUNiTN0«3?],| 

rMrCARDL0C]]&l0[6{38U0J) ELSE* 
DO BFGIN T* 

WAlTyOfCARDLOC |NX *40000000»E »UN I TNO) ; 
IF UN|TN0*30 OR T«t«5MJ THEN 
S1RFAM(0*12,CARDL0C){ 
BEGIN SI*L0C 0|Si*SU7|DS*CHRIDS*4 LIT "END," END! 

IF UNITN0*25 THfN 

RFGIN 

STREAM(T*0«CARDLOC)J* 

BEGIN Sl*CARDLOclni*LOC T ; Dl *D I +6) S I *Sl -1 } DS*2CHR| S I *S I -II 
ni*CARDL0ClDl*Dl-HDS*LIT ,t < M l8(60(IF SC*"*" THEN 
BEGIN DS*ChR?JUMP OUT 2 TO L ENOMF SC*"<" THEN 

BEGIN OT*t)T-lMF SC#DC ThEN DI*DI-1 END ELSE 

DS«.CHR)) J 

L» D!*CARDLOC|Ol*Dl-l>SI*LOC Tj Sl»Sl+6IDS*CHRl 
END! 

END ELSE PCO)| 

FND UNTIL P,[42l6j#3l J 

MTCSOURCE ♦ CARDL0C)+9]|..0&»,"n »43J5]|* 
END* % NOT DCOM 



20289601 
20290000 

20291000 

20292000 

SEGMENT! DISK 



OOOOJO 
0000«0 

OOOOJO 
0000 10 



ADDRESS » 00624 



20?92100 T OOOOtO 

20292200 T 0000*0 

20293000 T OOOOJO 

20294000 T OOOOJO 



20294800 
20295000 
20?95l00 
20295200 
20295300 
20295999 
20296099 
20296100 
20296200 
20296201 
20297000 
20298000 
20298100 
20298m 
20299000 
20299020 
20299030 
20299040 

20299H0 
20299H1 
20300000 
20301000 
20301100 
20301200 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 

T 
T 



0000 
0003 
0004 
0006 
0007 
0009 
0009 
0009 
0009 
0011 
0011 
0012 
0015 
0016 
0016 
0018 
0020 
0021 

0023 
0024 
0024 
0026 
0027 
0029 



20301300 T 0031 



20301400 
20301500 
20301600 



0032 
0033 
003 



JO 
Jl 
J2 
J3 
«1 
JO 
JO 
10 
J3 
Jl 

n 

12 
J3 

Jl 
»1 

J2 

Jl 

J3 

20299040 

>2 

Jl 

J3 

JO 

J2 

12 

20301200 

JO 

20301300 

Jl 



END 



J 35 



110 

Jl 

20301000 
20301700 T 003412 

202991U 
20302000 T 0036 J 1 

20298100 
20303000 T 003713 
20303900 T 004112 

20295300 
20304000 T 004112 

20293000 
SIZE" 0042 WORDS 



COMMENT thf scan routine is used for control card scanning** 
scan Returns the following Rfsults t* 

4 for identifiers which are not Reserved* 
o for period* 

1 FOR SLASH* 

2 FOR QUESTION MARK* 

5... FOR IDENTIFIERS IN DIRECT.! 

3 FOR OTHER SPECIAL CHARACTERS,* 

13 FOR "PRIORITY* 1% 

REAL PROCEDURE SCNC UN I TnO»C ARDLOC * SOURCE » ACCUMiKOUNT , LA ST SCAN . 



20305000 
20306000 
20307000 
20308000 
20309000 
20310000 
2031 1000 
20312000 
20313000 
20314000 



OOOOJO 
OOOOtO 
000010 
000010 

ooooto 

0000<0 

ooooto 
ooooto 
ooooto 
ooooto 



PRT(650) b SCN 



START OF REL SFGMENTt DISK ADDRESS « 00626 



KOUNT, LASTSCAN J 



STACK(F+2) n I 



DIRECTS 

value unitno.cardloc 
rfal unitno,cardl0c#source. 

ARRAY ACCUMr*]»DlRECT[*]J 
RFGlNX 

LABEL GOf,0» TyPeOi TyPEI * TYPE2 t X 
SWITCH TYPE * TYPE0.TYPE1#TYPE2 i% 
DEFINE DSiZE * 56**% 
RFAL It* 

LABEL PERPFR;* 
GOGOt* 

IF LASTSCAN THEN* 

BEGIN IF LASTSCAN < OR UNITnO b 31 THEN* 

begin i ♦ quest; lastscan * o? go to typei fnd* 

FFTCH(UNlTNO,CARDLOC»SOURCE)J 
LASTSCANtsO 
S SET OMiT s NOT(PACKETS) 

*1[2U7I1]I 

$ POP OMIT 

FNDJ* 

I * IDFNTt* 

STRFAM ( J*0»K*-0»S0URCE : ACCUM)?* 

BEGIN* 

Si «• SOURCE ; Or «• accum ; Dl*DI+lt* 
L: IF Sc = M " THEN BEGIN S I *■ S I + 1 ; f,0 L ENDt* 

if sc * alpha Then* 

BEGIN* 

if sc *Pi4 then go to L3>* 
ds «- chr t tally * it* 

Lit 63(IF SCaALPHA ThEN BEGIN DS*CHRtX 

TALLY*TALLY+1 END ELSE JUMP OUT)** 

K*TALLYt TALLY*Oj J*TALLY? DS*8 LIT" »)% 
END* 

ELSE IF SC = M " w THEN* 

BEGIN Si * Sum 

30c IF SC«"» W THEN JUMP QUTl 

DSt«CHRt TALLY»«TALLY+1)J 
IF TOGGLE THEN X FOUND CLOSING QUOTE 

BEGIN DSta>8 LIT" "J SflaSl + ll 



2031 
2031 
2031 
2031 
2031 
2031 
2031 
2031 
2031 



4050 
4100 
4200 
4300 
5000 
6000 
7000 
8000 
9000 



20320000 
20321000 
20322000 
20323000 
20324000 

20325000 
20325100 
20325109 
20325110 
20325111 
20326000 

20327000 
20328000 
20329000 
20330000 
20331000 

20332000 
20333000 
20334000 
20335000 
20336000 
20337000 



20338000 T 
20339000 T 



20340000 
20341000 
20342000 
20342250 
20342500 
20342750 



T OOOOtO 

T OOOOtO 

T OOOOtO 

T OOOOtO 

T 000010 

T OOOOtO 

T OOOOtO 

T OOOOtO 

T OOOOtO 

T OOOOtO 
T OOOOtO 
T 0000t2 
T 000Qt3 
T 0003t0 

20324000 
T 000513 
T 000711 
T 000711 
T 0007ti 
T 000911 
T 0009tl 

20323000 
T 0009tl 
T OOlOtO 
T 0012J0 
T 0012«0 
T 00121 3 

20331000 
T 0013 J 3 
T 0014* 1 
T 0014U 
T 00l5t0 
T 00l5t2 
T 00l6t2 

20336000 
00l7t3 
00l9t3 

20333000 
T 0019t3 
T 0020t2 
T 0020t3 
T 0022t0 
T 0022t3 
T 0023t0 



K t vTALLYI TaLLY)*1J J)sTALLYJ 
END 



ELSE 



% INVALID STRING 



BEGIN 

S I *S 1-3 l ; GO L3* 

END) 



END* 



ELSE BEGIN* 



L31* 



TALLY * 2J J*TALLY; DI*LOC K| DI*DU7) DS*CHR 1% 



)* 



SOURCE * Sill 
FNDJX 

COMMFNT STACK NOW CONTAINS I FOR IDENTIFIER & NO, OF CHRS* 

1 FOR "ID" & NO, OF CHRS* 

2 FOR SPECIAL ChR & ACTUAL CHR 
P(CS0URCEJ»O J 
P(tKOUNT),*); 
GO TO TYPEtPOLlSHJlX 

TYPFOJI 

BEGIN 

t*-2j while oirectt i*i+2i#o do* 

IF CDlRECTfl] F.QV ACCUM[0])s NOT THEN! 

BEGIN IF QlRFCTri+n #QUEST OR UNITN0»25 OR UNlTN0*30 THEN 
BEGIN WDIRECH I + l])GO TO TYPE1 END END)* 



GO 

TYPF2JX 

IF 

IF 



peRpfr? 



I «• JDENT ) END)* 
TO TYPEl 1% 



0" OR KOUNT) 



IF 



KOUNT*"*" THEN ACCUMtOJ* •» 
KOUNT*"*" OR* 

kount s"," then* 

BEGIN LASTSCAN * 1)* 

I * PrRlOl GO TO TYPED* 
FND)* 

kount»"» w then begin if uniTno*32 then 

if cidtablecunitn0-32.33> 

Cl0rABLEtUNlTN0-32»7] THEN 
BEGIN I*ENDFI) GO TO TYPEl END) 

IF UNITNQ u 31 THEN 

BEGIN I*PERI0| GO TO TYPEl END) 

FFTCH(UN i TNO.CARDLOC. SOURCE)) 
STREAM(CARDLOO) 
BEGIN Si*CaRDL0C) 

2C36(if scb w >" Then 

begin cardloc*smdi*cardloc)ds* lit "•" end) 

IF Sc="*" THEN 





20343000 


T 


0024)2 




20343250 


T 


0025 n 

20342750 




20343500 


T 


002511 




20343750 


T 


0025)2 




20344000 


T 


0025)2 




20344250 


T 


0026)0 

20343750 




20345000 


T 


0026*0 

20341000 




20346000 


T 


0026)0 




20347000 


T 


0026«1 




20348000 


T 


0026)1 




20349000 


T 


0027)2 

20346000 




20350000 


T 


0027)2 




20351000 


T 


0027)3 

20329000 




20352000 


T 


0028)0 




20353000 


T 


0026)0 




20354000 


T 


0028)0 




20355000 


T 


0028)0 




20356000 


T 


0028)2 




20357000 


T 


0029)0 




20358000 


T 


0031*1 




20361000 


T 


0031)1 




20362000 


T 


0031*1 




20363000 


T 


0034)3 


THEN 


20364000 


T 


0036)3 




20365000 


T 


0040)1 

20365000 
20364000 




20366000 


T 


0043<3 

20361000 




20367000 


T 


0044)2 




20368000 


T 


0045)0 




20368100 


T 


0045)0 




20369000 


T 


0048)0 




20370000 


T 


0048)3 




20371000 


T 


0049)3 




20372000 


T 


0051)1 




20373000 


T 


0054)0 

20371000 




20374000 


T 


0054)0 




20374100 


T 


0056)0 




20374200 


T 


0058)0 




20374300 


T 


0059)3 

20374300 




20374310 


T 


0061)2 




20374320 


T 


0062)1 

20374320 




20374400 


T 


0064)0 


*890. 


20374401 


c 


0065)2 


*890- 


20374402 


c 


0066*1 


*890* 


20374403 


c 


0066)2 


J890- 


20374404 


c 


0067)2 

20374404 


X890* 


20374405 


C 


0068)2 



BEGIN CARDL0C*SIID1*CARDL0C;DS* LIT •»"•» ENO> *890- 



20374406 C 



si*si + tn) 

EMD> 

S SFT OMjT * NOT(PACKETS) 

IF UNTTNO GEO 3? AND NOT LASTSC AN , f2 1 1 ] THEN 
BFGTN STRfaMcCARDLOC, I * I *SPACE ( lO) ) J 
BEGIN DS*5LlT w >"; 

sl*cardl0c» 2cds*36 chr)j 0s*lit"* m ; 
end; spouterc i,unitno#64); 

end; 



X890- 
*890- 



S POP OMJT 



GO TO GOqO; 



enq; 



|F KOUNT = 

begin 



w »" thfnx 

LASTSCAN * -II f,0 TO PERPER END»X 



I 



TYPFU 



IF KOUNT »"/" THFN SLASH ELSE* 

(if kount * ?i4 Then quest elsex 

(if kount *"#" then comma elsex 

(if kount • "*•♦ then equal else * this 

kount = "]" then rb else 

kount » *r H Then lb else 

kount * «•#" Then pound else speci))))))i 



IS AS IN SYMBOL 



(IF 
(IF 

(IE 
SCNM » 

END 



SCAN 1% 



20374407 C 

20374408 C 



20374409 
20374410 
20374415 
20374420 
20374425 
20374430 



20377000 
20378000 
20379000 
20380000 
20380100 
20380200 
20380500 
20381000 
20382000 



T 
T 
T 
T 
T 
T 



20374435 T 

20374436 T 
20374500 T 
20374600 T 

20375000 T 

20376000 T 



0069;0 

20 

0070*0 

0070»3 

20 
0071*0 
0071*0 
0073- *0 
0076»2 
0077*2 
0079*0 

20 
0080?2 

20 
008012 
008012 
0081 tO 

20 
008l»0 
008113 

20 
0084<0 
008610 
008810 
009010 
009210 
0094*0 
0096*0 
0098*3 
0099*2 

20 
SIZE» 0100 



T 
T 
T 
P 
T 
T 
T 
T 
T 



374406 
374402 



374420 
374415 

374000 
376000 



315000 
WOROS 



STACKfF+1) s NB 



STACKfF+2) ; 

STACKfF*3) . 

STACKfF+4) ; 

STACK(F+5) i 

STACK(F+6) , 

STACKfF+7) : 

STACKfF+10) 
STACK{F+11) 
STACKrF+12) 
STACKfF+13) 
STACKrF+14) 



procedure seeknamca»b»c#d»f»n,xlst)» value a»b! 
Real a»b#c»o»e»n; array xlstc*]; 

BEGIN 

LABEL FIND,L* 

ARRAY NB[*]; 

REAL I,K»T»Xj INTEGER J! BOOLEAN INXLST! 



START OF REL 



I 
K 
T 
X 
J 
INXLST 

■■ Jl 

» J2 

» J3 

i Kl 

> K2 



20382010 

SEGMENT! DISK 

203S2015 
20382020 
20382030 
20382040 



T 0000*0 
ADDRESS * 



00630 



INTEGER J1 »J?»j3*Kl#K2f 



LABEL RESTART; 

IF C»0 THFN 

BEGIN N:»SPACE(60)-1| 

Jl»=J3»«0; Kl lsK2l«M00ULUS-l» 

IE A GFQ THEN Jll«Klla(A,C6tl8]+A, [24124]) 

IF B GE« THEN J3**K2*«(B.[6«18]+B, [24*24] ) 

END ELSE 



MOD 
MOD 



MODULUS! 
MODULUS! 



BEGIN Tts(1laH[N]). [421611 

Jl *«T, [36*63! J?J«T,C30t6)! J3*> 
Kl SaT.[24»6j! K2l«T.tl8«63! 

end; 



<T. [12*63! 



NR:s[MfN + l ]U60C6i38i 10 J f 
IF C NfQ THEN GO TO RESTART! 
FOR JllsJl STEP I UNTIL Kl DO 
FOR J2»sJ3 STEP I UNTIL K2 DO 
BEGIN J»»SCRaMbLE( J1.J2)! 
DO BFGIN 

DISKWAIT(-N-1»60, J)! 
FOR I IsO STEP 3 UNTIL 57 DO 
BEGIN 

IF CT!*NBri]) NEO PH THEN 
IF CT EQV A)*NOT OR A<0 THEN 
IF (NBtMH E^V b)«NOT OR B LSS THEN 
IF (X»*XLSt. [8*103-2) GEQ THEN % EXCEPT LIST FXISTS 
BEGIN INXLST*=FaLSE> 
FOR Kl.O STfP 2 UNTIL X DO 

IF (XLSTCKl E^V T)»NOT OR XLST[K] LSS ThEN 
IF <XLST[KMl EQV NB[I + 1])«N0T OR XLSTfK + H LSS 
THEN BEGIN I NXlST **TRUE! 

IF NOT CXLSTCKJ.mi] OR XLST[ K + l ] , [ 1 I 13 ) 
THEN BEGIN XLST [ K 3 **XLST[ X ] ! 

XLST[K*l]l»XtSTtX*UI 
XLST, [8110] !«XLST,[ 8! 103-?! 
END! 



20382054 
20382056 
20382058 
20382060 
20382062 
20382064 
20382066 



20382068 T 

20382070 T 

20382072 T 

20382074 T 



20382076 
20382095 
20382100 
20382110 
20382120 
20382130 
20382140 
20382150 
20382160 
20382165 
20382170 
20382200 
20382220 
20382240 
20382260 
20382280 
20382300 
20382320 
20382340 
20382360 
20382380 
20382400 
20382420 



OOOOJO 
0000:0 
0000*0 
000010 



20382050 T 0000*0 



20382052 T 0000*0 



T OOOOJO 
T OOOOJO 
T 0003 i 3 
T 0007*1 
T OOlOU 
T 0014*3 
T 00l9«l 

20382058 
00l9»l 

002211 
0026»0 

002812 

20382068 

T 0028J2 

T 0031*1 

T 003212 

T 0034J0 

T 0035J0 

T 004210 

T 0042*0 

T 0044*0 

T 0045*0 

T 004510 

T 0046*2 

T 004912 

T 0053*1 

T 0056*1 

T 0057*2 

T 0059*0 

T 0062*0 

T 006612 

T 0068*2 

T 0070*1 

T 0073*2 

T 007610 

T 007911 

20382360 



Restarts 



END I 



ENDJ 

TF INXLST THEN rLSE GO FIND! 
END ELSE r,0 FlNfW 

end; 
end until (ji«nbc2],[ff3)"oi 



FfNn» 



forgetspacecnb); 

IF c*0 THFN N»«0 F LSr C**Oj 
00 It 

0*=N8r T D; E»*NBCI + 1]| 

C»*NBf I+2],[CF J» 

MrN]l«i*Ji [361 4Z«63iJ2r 3014216 J 4KU24 I 42l63lK?t 1814216] 4 
J3[12:ft2s6]j 



Lt 



end; 



% seekname 



20382440 T 
203B2460 T 

20382480 T 
20382500 T 

20382520 T 

20382540 T 

20382560 T 



20382580 
20382600 
20382620 
20382640 
20382660 
20382680 
20382700 
20382720 
20382740 
20382760 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

SIZE 



0079J1 
008010 

20382320 
008281 
O083S0 

20382240 
0083<0 

20382160 
008511 

20382130 
0087J3 

20382120 
009211 
00931 1 
009710 

0097»2 
009712 
010012 
0102*3 
0107«3 
0109U 
0109:1 

20382020 
■ 0110 WORDS 



PRT(651 ) ■ PPC 



RFAL PROCFDURE PPC 20383000 T 000010 

START OF REL SEGMENT* DISK ADDRESS « 00634 

(ADDR.FQN»X»DEX.TyPF.UNlTNO»CARDLOc«SOURCE»ACCUM»LASTScAN# 20384000 T 0000*0 

DIRECT)* 2038*100 T 000050 

VALUF TYPE»UNITN0#CARDL0C ; 20385000 T 0000*0 

REAL ADDR, DEX»TYHEpUNITNO»CAKDLOc. SOURCE. LASTSCAN ; 20386000 T 0000«0 

ARRAY F0Nr*).X r *1»ACCUMf *T»DlRECTr*]* 20386100 T OOOOlO 

BEGIN* 20387000 T 000050 

RFAL !OD»KOUnT? 20388000 T 0000«0 



STACKfF+2) « IOD 
STACKcF+3) ■ KOUnT 

LABEL EXiT»ERROR,NEXT,LF"ORM.LNO»LDlSK»LTAPEfLPUNCH#LPAPER.« 20369000 T 0000*0 

ROUND.PROTECT, 20390000 T OOOOlO 

SFRlAL»UP[)ATE.SpO»DSKCHECK» X (SHM) 20391000 T OOOOlO 

DOWN,LREMOTE» 20392000 T OOOOlO 

LDUMMY. X846- 20392870 C 0000*0 

LLINES66. % X724- 20392880 C OOOOlO 

LRANDOM, X603- 20392890 C OOOOlO 

LSPECIAL»LPRlNT,LBACK,LCOPY»LFREEJ 20393000 T OOOOlO 

SWITCH D*LFORM» X603- 20394000 P OOOOlO 

LDUMMY. 1846- 20394070 C OOOOlO 

LLINES66. X724- 20394080 C OOOOlO 

LRANDOM, X603- 20394090 C OOOOlO 

LNO»LDISK,LTaPE»LPUNcH»LPRINT»LPaPeR» X603- 20394900 C 0000*0 

LBACK. SERIAL, UPDATE* SPOiX 20395000 T OOOOlO 

LRFMOTE.LSPECIAL.FRROR. ERROR, ERROR. ERROR, LCOPY, ERROR, 20396000 T OOOOlO 

LFREF.FRROR.PROTECTJ 20396010 T OOOOlO 

RFAL NOLBL.TPNO i% 20397000 T OOOOlO 

STACKfF+4) * NOLRL 

STACK(F+5) > TPNO 

DOOLFAN FAROUT; 20397050 T OOOOlO 
STACKfF+6) = FAROUT 

RFAL SUBROUTINE SCAN; 20397100 T OOOOlO 

BEGIN SCAN«-SCN(UNiTNO,CARULOC, SOURCE. ACCUM. KOUNT, LASTSCAN, 20397200 T OOOllO 

DIRECT) 20397300 T 000310 

END) 20397400 T 000312 

20397200 

JF TYPE b FILEV ThfNX 20398000 T 0004*3 

BEGIN? 20399000 T 0007*1 

IF ADDR =0 THFN A0DR*X[13]«-GETFSPDISK IX 20400000 T 0007»3 

IF DEX « 2 THENX 20401000 T 0011*1 

BEGINS 20402000 T 0012*0 

EON [29] * GETESPDlSK;x 20403000 T 0012*2 

D 1 5 K 1 ( IOD . EQN INX 0-t .30, ADDR)»X 20404000 T 0014*0 

ADDR «• EQNr29]JX 20405000 T 0016*3 

DEX * OU 20406000 T 0018*0 

SLEEP([IOD). IOMaSk)*X 20407000 T 0019*0 

ENDJX 20408000 T 0020*2 

20402000 

IF (TYPE*=SCAN) < IDENT THEN GO TO ERROR! 20409000 T 0020*2 

EQN * (14 x DE X) INX EQN *X 20410000 T 0023*2 

EQN[12]»«0J X ZfRO OUT EU/SPEED CELL X (ShM) 20410100 T 0025*2 

STREAMS KOUNT, ACCUM, Z * tE«Nt4]])JI 20411000 T 0026*3 

BEGINX 20412000 T 0028*2 

SI «■ LOC KOUNT f Si*Su7| DT*ZJ DS*CHRJ* 20413000 T 0028*2 

SI ♦ ACCUM * SI*SI+1* DS* KOUNT CHR i% 20414000 T 0029*2 



END J* 

IF XrO]<0 THEN IF K0UNT*4 AND ACCUMt 0] . C 6 « 24 3*"C ARO" 

THEN FAROUT *■ TRUE) 
IF SCAN * EQUAL ThEN GO TO ERRORJ 
IF SCAN < IDFNT ThEN r,0 TO ERRORI 
F0N[2] ♦ F Q Nr3]«.X 
EQN[0)*0; EQN[U ♦ ACCUMCO] I X 
IF (TYPE«-SCAN)s SLASH THEN* 
BEGIN IF SCAN>iDFNT THEN* 

BEGIN EQNt 0]*-EQNt 1 J ! EQNfl 3*ACCUMr 3 
» END ELSE GO TO ERROR** 



20415000 T 



5* 



TYPE «• SCAN END** 



IF 



TYPE ■ COMMA ThEN* 
BEGIN* 
!F(TYPF*-SCAN)# iDFNT OR KOUNT >3 THEN GO TO ERROR** 
STREAM ( S ♦ 3-K0UNT#K0UNT#ACCUM, T* [EQNr 23 3 ) J X 
BEGIN SI'ACCUMJ Sl*Sl+l* DI*DI+SI DS*KOUNT NUM** 
END** 

IF(TYPE*SCAN)« COMMA THEN* 
BEGIN* 

IF(TYPE*SCAN)# IDENT OR K0UNT>5 THEN GO TO ERRORI* 
STREAMC S*8-K0UNT.K0UNT»ACCUMi T«- £EQN [ 23 3 > I X 
8EGIN SI*ACCUMJ Sl*Sl+l> D I *D I +S J DS+KOUNT NUMX 
END** 



• II* SO FILE 
COMMA THEN* 



OPEN KNOWS ITS LABELEQUAT 



rON[2] f [42tl ] « 
IF(TYPE*SCaN)* 

BEGIN* 
IF(TYPE*SCAN)/IDFNT OR K0UNT>1 THEN GO TO ERRORl 

STREAM(S«-1-K0UNT.K0UNT.ACCUM»T*[EQN[ 333)1 

BEGIN. Sf*ACcUMI S I «- S 1*1 * D I »DI +S I DS*KOUNT NUMI* 

END! TYPE * SCANIX 

END* CYCLE ;X 
FND* CREATfON DATE »'* 

endixReel number** 

TPN0*P37*X 
NOLBL * 0;* 
ROUNDS* 

WHILE TYPE NE« PERIO AND 

((type lss form and type neq copyn) or type gtr freed do 
typf»*scan) 

if type « perio then go to exltjx 
if type ■ copyn then go lcopyj 
go to ditype-f0rm3;* 
nfxti type*scan* go to roundix 
ldummyi tpn0»)1l x " form sp0" - dummy file x846- 

LFORMJ* 

E0Nf33.C42«l]«-ll qO TO NEXTlX 
LNOjX 



20415 
20415 
20416 
204J6 
20417 
20418 
20419 
20420 
20421 
204?2 



100 
200 
000 
500 
000 
000 
000 
000 
000 
000 



20424000 
20425000 
20426000 
20427000 
20428000 
?042'000 

20430000 
20431000 
20432000 
20433000 
20434000 
20435000 

20435500 
20436000 
20437000 
20438000 
20439000 
20440000 
20441000 



20445000 
20446000 
20447000 
20448000 
20448050 
20448100 
20449000 
20449100 
20450000 
20451000 
20451900 
20452000 
20453000 
20454000 



20423000 T 



20442000 T 



20443000 T 
20444000 T 



0030:2 

20412000 

0030»3 
003411 
0036:0 
0038*0 
004010 
004110 
004413 
004710 
004912 
005310 

20421000 
0053»0 

20420000 
0054«2 
0055*1 
0055*3 
0059*3 
0062*1 
0063*3 

20428000 
0064*0 
0066*0 
0066*2 
0070*3 
0073*1 
0074*3 

20434000 
0075*0 
0077*2 
008010 
0080*2 
0084*3 
0087*1 
0068*3 

20440000 
0090*2 

20437000 
0090*2 

20431000 
0090*2 

20425000 
0090*2 
0091*1 
0092*0 
0092*0 
009213 
0096*1 
0099*0 
0100*1 
0101*2 
0115*2 
0118*0 
011813 
0118*3 
0121*3 



NOLBL + 1) GO TO NEXT)* 
LDISK)* 

TpNO+1?) GO TO DSKCHFICKJ X "DISK" MEANS DISK SERIAL 
LTAPE)* 

TPNO ♦ 2) GO TO NEXTjX 
UPUNCHI* 

TPNO)*0) 

IF CTYPFlaSrAN)*PfRlO THEN GO TO EXIT* 

IF TYPF»FRFFF THEN GO TO LfREE ELSf 

if tyPe=back then 
tpno«-?« else 
bfgin tpn0*2u if type«c0pyn then begin 
tpn0«-22) go lcopy end else 



X603- 



JF SfAN#BACK THEN r,0 ERROR) 



END) 



IF SCANpPeRIO THEN GO pRROR) 

if ctype*scan)sPerio then 

TPN0*TPN0+4 P LSf 

if typf*frfff then go to lfRee ELSf 
if type*disk then 

TPN0*TPN0+2 else 
if TYPFsCOPYN then begin tpno*2?; go lcopy end else 

if type*tape then go error; 

if type#pf.Rio then go next else go exit; 
lpaperjx 

typf «• scan) tpno «■ 71 go to next)* 

LSPfCIAD* 

TPNO * 3) r,0 TO NEXT)* 
LUNES66I % 

EQNfOl * "FULLPGE" ) XSET UP MFID FOR FULL PAGE 
LPRiNTt* 

TPNO:»l) 

if (tvpe»«scan)aperio then go to exit) 
if type*freef then go to lfree else 
if type*back then 
lback-. tpno«.6 flse 
bfgin tpno*4; tf typescopyn Then begin 
tpn0*15) go to lcopy end else 



IF SCAN#BACK THEN r,0 ERROR) 



END) 



IF SCANbPeRIO THEN GO ERROR) 
IF (TYPE«-SCAN)*PERlO ThEN 

tpno*2?-tpno else 
if type-freef then go to lfree else 
if type«d!sk then 

tpn0*-21-tpn0 else 
if typescopyn then begin tpn0*16) go lcopy end else 

if type#tape then go errorj 

if type *perlo thfn go next else go exit) 

LFRFEI 
S SET OMJT a NOT(PACKETS) 



X603- 
X603- 

X603- 

X603- 



1603' 



X724- 
%7?1> 



%P 
%P 
X603- 
X603- 

X603» 
X603* 

XP 
XP 
XP 

XP 
XP 
X603- 

XP 



20455000 
20456000 
20457000 
20458000 
20459000 
20460000 
20460100 
20461000 
20461050 
20^61100 
20461200 
20461300 
20461310 

20461320 
20461330 

20461400 
20461500 
20461600 
20461650 
20461700 
20461800 
20461810 

20461900 
20461950 
20462000 
20463000 
20464000 
20465000 
20465050 
20465100 
20466000 
20466100 
20467000 
20467100 
20468000 
20469000 
20470000 
20470100 

20470H0 
20470120 

20471000 
20472000 
20473000 
20473100 
20474000 
20475000 
20475100 

20476000 
20477000 
20478500 
20478504 



T 012113 

T 0123)0 

P 0123)0 

T 012411 

T 012411 

T 0125)2 

T 0125)2 

T 0126)1 

T 0128)2 

T 0129)1 

T 0130)2 

P 013U3 

C 0134)1 

20461300 

C 0135)2 

C 0138)0 

20461300 

T 013810 

T 0140)0 

T 0142)0 

T 0143)3 

T 0145)0 

T 0146)1 

C 0148)0 

20461810 

T 0151)0 

T 0152)3 

T 0154)2 

T 0154)2 

T 0157)3 

T 0157)3 

C 0159)0 

C 0159)0 

T 0160)1 

T 0160)1 

T 0161)0 

T 0163)2 

T 0164)1 

T 0165*2 

P 0166)3 

C 0171)0 

20470000 

C 0172)1 

C 0175)0 

20470000 

T 0175)0 

T 0177)0 

T 0179)0 

T 018013 

T 0182)0 

T 0183U 

C 0185)0 

20475100 

T 0188)0 

T 0189)3 

T 1 9 H 2 

T 0l9i)2 



s pop omit 

LCOPYI 



EQN[3],f 23»l]*ll 

go To next; 

IE CTYPElaSCAN) NE<3 IDENT OR KOUNT GTR 3 THEN GO TO ERRORJ 

STREAM(A»sOtKOUNT. ACCUM); 

BFGIN SI JsACCUMjS! :«Si+UDIi«UOC A»DS»«KOUNT OCT FNDI 



20478505 T 019112 



OR 
TO 



P(XCH)USS 

NEXT? 



l then go error? 



IF 
IF 



ELSE 
GTR 



2 THEN 



IFCTYPE«"PCDUP>> fiTR ?56 
F0N[31,tl5«8]i.TYPE-l)G0 
ERRoRt* 

PPC*TRUE»r,0 OOMNIK 
SPO: TRNOt-lHGO TO NrXTJX 

lremotf* rpNO*. 19; go next; 

LRANDOMt TPN0*10; GO TO OSKCHECK; 
SERTALJ TPN0i*12! GO TO DSKCHECK? 
UPOATF' TPN0*13; GO TO OSKCHECK; 
PROTECTS rPN0*26; 
DSKrHFCKJ 

(TyPe«=scaN) 3 comma then go to oskcheck; 
Typebfu Then 

BFGIN 

IF SCAN NfQ F^UAL THEN GO TO ERROR 
IF (TYPElsSCAN) NEQ IDENT OR KOUNT 
STREAM cKOUNT,ACCUM,T:*tTYPE]>; 

BEGIN 

SltsACCUM; SlIsSUH OI:*T* DS»»KOUNT OCT; 

ENO; 

EQM1?]. [18153 J-TYPE + U 
GO TO DSKCHECKI 
END X IF EU 

flse if tyPesfast or type»slow then 
bfgtn 

E0NCl2J«tl6l?]l»l+(TYPE«SU0W)l 

GO TO DSKCHECK; 

END 

FL.SE IF TYPE * SENSE THEN 
BFGIN 
EQN[ 12] • C 1 5 » 1 3 l*i; 

go to dskcheckj 

end; 



EXlTt* 
IF 



go to round; 
nolbl then tpno ♦ 

(IF TPNO 

(if tpno*7 then 8 
( if tpno*037 thfm 



if tpno«2 then 9 

•3 then 5 else* 

elsfx 

9 else tpno)))u 



ELSE* 



X 
% 
% 
% 
% 



X603- 
(SHM) 



(SHM) 
(SHM) 
(SHM) 
(SHM) 
(SHM) 

r,o ERROR; 

X (SHM) 

X (SHM) 

X (SHM) 

X (SHM) 

X (SHM) 
X (SHM) 
X (SHM) 

X (SHM) 

X (SHM) 

X (SHM) 

X (SHM) 



X (SHM) 



IF FAROUT THEN IF UNtTnO*32 
ELSE IF UNiTN0»23 
ELSE IF UNlTN.0s2ft 
E©Nt3),t43»5]«-TPN0;X 
DEX «- DEX+JJX 
ENDX 



THEN CIDR0W[UNITN0-32J.[3»5] 
THEN READERA,[FF] * 
THEN READERB.tFF] ♦ Oj 



20478506 
20478508 
20478510 
20478520 
20478530 

20478540 
20478550 
20479000 
20480000 
20481000 
20481100 
20481900 
20482000 
20483000 
20483100 
20484000 
20484050 
20484100 
20484150 
20484200 
20484250 
20484300 
20484350 
20484400 
20484450 

20484500 
20484550 
20484600 

20484650 
20484700 
20484750 
20484800 
20484850 

20484855 
20484860 
20484865 
20484870 
20484875 

20484900 
20485000 
20486000 
20487000 
20488000 
20489000 
20489100 
20489200 
20489300 
20490000 
20491000 
20492000 



T 019410 

T 019410 

T 019412 

T 019810 

T 020012 

20478530 

T 0202*0 

T 0205*0 

T 0208»2 

T 020812 

T 0209*3 

T 021l»0 

C 02121 1 

T 021312 

T 021413 

T 021610 

T 0216* 3 

T 021613 

T 0219J2 

T 0220*1 

T 0220*3 

T 022212 

T 022610 

T 0228*1 

T 0228U 

T 0229*2 

20484350 

T 022913 

T 023213 

T 023311 

20484150 

T 0233*1 

T 0235»2 

T 0236;0 

T 023912 

T 0240»0 

20484700 

T 0240»0 

T 0241U 

T 024113 

T 0244*1 

T 024413 

20484860 

T 0244«3 

T 02451 1 

T 0245*1 

T 0248«0 

T 025010 

T 0252»0 

T 025413 

T 0257*3 

T 0261*2 

T 0265*3 

T 0268*1 

T 0269*3 

20399000 



FLSE* 



00 

IF 



UN 
10 



TIL MOD ♦ SCAN) e equal or i od « perio;* 

« Pf.RlO THF^ fiO TO fRROR»I 
I0D ♦ SCANJX 



I0D ♦ SCANJX 

STREAM (K*Ot A * t ACCUMf 03 3 » KOUNT) » X 

BEGINS 

-- ♦ A | St*SI+1> di*loc kix 

■UNTCIT Sc<"0" THEN BEGIN DS*LJT"**> 

jump out To eRR* end; S I *S I + 1 5 1 



SI 
KOI 



DS * 
ERR« 



Si*Si-KOUNT* 
KOUNT OCT t% 



F.HOl% 



IF CTPN0*P),[1»1] THFN GO TO ERROR; 

IF TYPE»PROCF OR TYPp»iO ThEN X [ 16+TYPE-PR0CE3 *TPNOx3600 

ELSE IF TYPE*C0REV ThEN 

BEGIN X[?03 * TPNO OIV 64; 

00 UNTIL (100 * ScAN)*MAXV OR lOO*PERlOJ 

IF IOD»MAXV THEN PC I Xf 20 J 3 » I OR ) ELSE GO TO DOWN; 

END 

fl.sf if type>prior and typfssavev then 

x[18 + type-pri0r]«-tpn0 else go to error; 

00 until scan * period 
fno;* 



D0WN1X 

fnd;x 





20493000 


T 


0269»3 




20094000 


T 


026913 




20495000 


T 


0271 10 




?0496000 


T 


027412 




20497000 


T 


0275»3 




20498000 


T 


027712 




20499000 


T 


02791 1 




20500000 


T 


027911 




20500100 


T 


028010 




20500200 


T 


028H2 

20500100 




20500300 


T 


028212 




20501000 


T 


0283»0 




20501100 


T 


0283*2 




20502000 


T 


028312 

20499000 




20503000 


T 


028313 




20504000 


T 


0285«2 


X512- 


20500500 


P 


028912 


*512» 


20505000 


P 


029213 


X512- 


20507000 


P 


0295«0 


X512- 


20507100 


P 


029812 


*512- 


20507200 


P 


0300)2 

20505000 


*512- 


20507300 


P 


030012 


*5l2* 


20507400 


C 


030213 




20508000 


T 


0305»2 




20509000 


T 


030810 

20494000 




20510000 


T 


0308)0 




20511000 


T 


0308«0 

20387000 




; 


>IZ 


F« 0309 WORDS 



PROCEDURE STCURlTYMAlNTc TYPE . SM I D» 5F ID» CMM, SFH» C ARD ) I 



START OF REL 



PRT(65?) = SECURlTYMAlNT 

VALUE TvPF.SMir),SFTD»SEH#CARD; 

REAL TYPE»SM!D»SFlD»SrH»CARDl 

ARRAY CMMr*3? 

BEGIN 

DEFINE SPOUTUNIT = CARD #J % TO ALLOW "LIBERR" TO WORK X589- 

REAL Nft,OPTN»Tll 
STACKfF+1) 3 N4 
STACKfF+2) x OPTN 
STACKfF+3) * Tl 

REAL ER1»ER?»ER31 LABEL ERSYS; *169- 

STACKcF+fl) * ERl 
STACK(F+5) = ER2 
STACK(F*6) * ER3 

REAL T«TYPEJ 
STACKfF-6) = T 

LABEL SfC3,FUNCO,FUNC1,FUNC2>FUNC3,SEC4>EXYT» 
LABEL ERR. ERROR, FUNCj;* 

SWjTCH FUNC*FUNCJ»FUNCO t FUNCl#FUNC?,FUNC3lJ! 
LABEL EXIT* % 

ERll» M )* "t* *169- 

N4t» ABS(CMMt5])l 

IF (CCMMC03EQV "DECK ")*NOT 0) AND 

((fCMMrilAND ?77000000007777)EQV Pi 20000000037 14 }«N0T 0) 

OR SYSTEMFILF(CMM[0],CMM[13> THEN* *169- 

RFGIN FRSYSJ ER1«* W SYSTEM " ; FR2 t*"F I LE ) ♦ M > GO ERROR END; *169- 

fF TYPE ■ USEV AND 

<(cmm[03eov smid)«not and (cmm[13eqv sfld)*n0t 0) thfn 

begin rrl»*"same fi w )er2'«"le)* " i go error end x169- 

fl.se 

IF (OPTNiBDIRECTORYSEARCHCcMMrO]iCMMtl3»4)) GEO 64 THEN 

BEGIN 

IF TYPE*USEV AND M[0PTN+2]<0 THENX X169- 

BFGIN ERH»"SECURIT , 'JER?»*"Y F I LE ) "J ER3 I «"♦ "; GO ERR END) 

IF (TU((N4 EQV McP)«NOT 0) OR (CMM [ 53=NOT (-0 ) ) ) OR 

(M[0PTN+2J>0 AND(N4 E&V ABSC M[0PTN+2 3 ) )*N0T 0)THEN 
GO TO SFC3 ELSE 

BEGIN FR1»«"!NVAL?D W >ER2»* H USER)**;* X169- 

ERR« FORGETSPACECOPTN})* *169- 

F0R6ETsPACECDlRECT0RYSEARCH(CMMf0],CMM[l],14)); 
ENDJ 

END ELSE IF 0PTN«2 T H EN GO ERSYSX P LlNE 205U190 *t69- 

ELSE IF 0PTN»1 THFN BEGfN ERll»"lN USE)"; ER2 t«»* " END 

ELSE IF OPTN»0 THFN BEGIN ERH«"NOT ON "; ER2I «"D I SK )* " END; 



20511100 
SEGMENT; DISK 

20511110 
205U120 
20511130 
20511140 
20511148 
20511150 



T 000010 
ADDRESS » 00645 



ERROR: 



STREAMf AU[CMM[0]],ERU[ERt 3 »B * *( OP TNI *SPACE( 1 0) ) ) ; 
BEGIN SltsAt St *«S I + 1 1 DSt.LlT" «; DS«»7 chr; 
Sii«Si+i; DSJaLlT"/"; DS»»7 CHR; 



*169- 
X169« 



205 
205 
205 
205 
205 
205 
205 
205 
205 
205 

205 
205 
205 

205 
205 
205 
205 
205 

205 
205 
205 
205 
205 
205 
205 

205 

205 

205 

205 
205 

205 
205 



OOOOtO 

oooo;o 

000010 
000010 
OOOOtO 
OOOOtO 



20511152 C 000010 



20511155 T 000010 



1160 T 000010 
1165 T OOOOtO 

1170 T OOOOtO 

1171 T OOOOtO 
1175 C OOOOtO 

1181 T 0002tl 

1182 T 000312 
1184 T 000511 
1188 P 0007t0 
1190 C 000912 

20511190 
1295 T OOldtO 
1300 T 00l8»3 
1303 C 0022>3 

20511303 

1305 T 0028:0 

1306 T 002810 

1311 T 0031 « 1 

1312 P 003lt3 

1313 C 003413 

20511313 
1315 T 004lt0 
1320 T 0045t2 
1330 T 005lt0 
1335 C 005l«0 
1340 P 005311 
1350 T 0054t0 
1360 T 0056tl 

20511335 

1363 P 005611 

20511311 

1364 C 005913 

20511364 

1365 P 006310 

20511365 

1366 C 0068:3 
1370 P 0068t3 
1380 T 0072tl 
1390 T 0073t2 



END 

SPO 
GO 
SEC3* 

GO 

FUNCjtMrO 

cmm 

GO 
FUNCO* 

mto 

Mrs 

GO 

FUNC1! 

IF 
SMI 

Mro 

CMM 
FUNC?8 
M[OPTN t NX 5 

CMM 

FUNC3* 

M[0 

CMM 

SECflJ 

DIS 
PCD 
$ SFT OMJT 
STR 



0SJs25 LIT 
3(SJ**SI+1I 

stream; 



» SfCURITy MAINT IGNORED C"» SI*«ERJ* 
DS|*7 CHRm 



UTF„R(0PTN«CARD[9:9«93#CARD#LIBFRR)I 
TO FXYTJ 



*t69' 

S169- 



*149« 



TO fUNC[TYPe-UNL0cKV1 * 
PTN INX 5]*M[0PTN T MX 6) 
[23 Is " UNLOCK"* CMMC3] 
TO SEC4J* 

PTN INX 51IC-SM1D} M[OPT 
r 23 « a " SECURE"! C^Mt 3] l 
FH + 23 J* PCDUP,LOD»SSB)J 
TO SEC4; 

(TUT1 AND CM[0PTN+2]«0) 
D»*M[0PTN*5]* SFID'*M[0P 
PTN INX 5J** MfOPTN INX 
[2]*" L0CKED W JCMM[3]«- W F 



J*MrOPTN INX 
[23»* H FREE 



2]. C6I423I 
F"{ CMMC 33 « 



PTN INX 5]l= ?14; M[0 
f?3:» » PUBLICJCMM[33l* 



KWAIT(0PTN.[ 
IRECTORYSEAR 
* PACKETS 
EAM(At«A8S(S 
AND (T#UN 
XlafSFID* 
AND T LSS 
Y*T«L0CKV 
NOT 0)) A 
BFGIN SI l>C! SI 
3C S ! I «S I + 
XCDI **DI- 
QCDS»*LlT 
Sl*Sl+l I 
Yf X(DI*Dl 
Sl«.Sl*9 

END stream; 



CF3»30»OPTN, 
CH(-CMM[03»C 



MID). 
UOCKV 
OR 
FREE 
AND( 
ND Tl 
**SI + 
i; DS 

1\ DS 
" "JS 
DS*7 
-18); 

» DS* 



B«*SFID 
) AND f 
ABSCSFT 
AND T# 
CCN4 EG 
,D*OPTN 
1) DSI* 
**7 CHR 

1*2 Lit 

I l.LOC 
CHR)» 

Si«-cn 
7 chR); 



♦P14JX 
:= ♦•ED** ";% 



N INX 6]«5» SFIDJ 
* "D WITH "i 



) THEN M[0PTN*2]*CMMC6J» 

TN+631 

6]*«0* 

ROM •*ICMM[4]* W WITH «"*G0 TO SEC4* 

MtOPTN INX 21*M[0PTN INX 6]*0» 
* "ILE** "I GO TO SEC4; 

PTN INX 6J»» 01 

" FILE**"* 

CFF3)| 
MM[13»14}*DEL)J 

iCl*CMM,Q|«(T LSS FREE)* 

ABS(SM!D)*12)#X 

D)«12) % 

UNLOCKV.X 

V MCP)«NOT 0)AND((CMM[6] EQV MCP)# 

*OPTN INX 0)1 

LjT" "J DSl*7 CHRJ DS**LIT"/"I 

)> 

w ** w ); 

A>Sll«Si + l)DSla7 CHRJ DStsLlT"/"* 

(Sl*Sl+8)ISI*Sl+llDS*7 CHR> 
DS* LIT **"* 



SP0UTER(0PTN4CARDt9J9»93»CARD#SECMSG)» 
$ SET OMJT « PACKETS 
FXYTl 
FND SECUTiTYMAlNTJ 



2051 


1400 


P 


0074J2 


2051 


1405 


c 


0078*1 


2051 


1410 


T 


0079*1 

20511380 


2051 


1420 


P 


007912 


2051 


1430 


T 


008313 


2051 


1440 


T 


008710 


2051 


1450 


T 


008710 


2051 


1455 


T 


009110 


2051 


1457 


T 


009413 


2051 


1459 


T 


0097*1 


2051 


1460 


T 


01 00 10 


2051 


1470 


T 


0100*0 


2051 


1460 


T 


0104*1 


2051 


1490 


T 


0106*3 


2051 


1500 


T 


010911 


2051 


1510 


T 


011210 


2051 


1515 


T 


0112*0 


2051 


1520 


T 


011713 


2051 


1525 


T 


012113 


2051 


1530 


T 


012512 


2051 


1540 


T 


0133*0 


2051 


1550 


T 


013310 


2051 


1560 


T 


0141(1 


2051 


1570 


T 


014710 


2051 


1580 


T 


0147*0 


2051 


1590 


T 


0151*0 


2051 


1600 


T 


0153*2 


2051 


1610 


T 


0153*2 


2051 


1620 


T 


0155*3 


2051 


1639 


T 


015810 


2051 


1660 


T 


0158*0 


2051 


1662 


T 


0160*1 


2051 


1663 


T 


0162*2 


2051 


1664 


T 


016412 


2051 


1665 


T 


016612 


2051 


1666 


T 


0171*1 


2051 


1670 


T 


0174*2 


2051 


1680 


T 


0176*1 


2051 


1685 


T 


0177*1 


2051 


1690 


T 


0178* 3 


2051 


1700 


T 


0181*0 


2051 


1702 


T 


0181 13 


2051 


1704 


T 


0i84*3 


2051 


1710 


T 


0l86t0 

20511670 


2051 


1720 


T 


0186*1 


2051 


1729 


T 


0189*0 


2051 


1800 


T 


0189*0 


2051 


1810 


T 


0189*0 

20511140 




S 


»IZ 


E« 0192 WORDS 



COMMENT THE prt 
*** ENTRIES I 
Sf 0] 

• t 
sr i] 
sr ?i.t 



CELL ' 
N THF. 

211 ] 

11 23 



sr 
sr 
sr 



23. r 
23. r 
23. r 



411 3 
513 1 
8110] 



sr 
sr 
sr 

sr 
sr 
sr 
sr 
sr 



23. ri 
23, r3 
3},r 



3] 
3] 

53 
6] 
7] 



8115] 
3115] 

111 ] 

21 1] 
8 I l 3 



Sr 133 



sn«] 



sri5] 



sr 16] 

Sr 173 

St 163 

sr 19] 

ST20J 

sr20].c 

.f3 

sr?n 
sr?2j 
sr?3].r? 
s r ? 3 ] . r 9 
Sr?3].r? 

Sf24] 
ST25] 

sr?6] 
sr?7j 
sr?9] 

*** FNTRlfS F 

fcoj 
Frn 

Ft?3.ro» 
rr?3 • c l 6 

FT 33 . CO* 



SHEET" GfVES DjSK 
SHEET ARE AS FOLL 
a 1ST NAME (7 CHR 

■ "CANDE" JOB (TS 
a 2ND NAME (7 CHR 

■ NORMAL 

2 JOR HAS BEEN 

3 JOB HAS BEEN 
a SUPPRESS BOJ/EO 
a NORMAL. 1 LIB 

* GO JOB (FROM 
= 1 COMPILER (FOR 

* 2 EXfCUTE JOB 
a 3 COMPILER (FOR 

* 4 COMPILER (FOR 
= 5 RUN JOB 
a SKELfTONS DISK 

a PRIORITY. SAMF 

a Sri BY selfctru 

IS SrNT (IF SCH 
a 1 RESTART JOB 

= SCHEOULE-ID FOR 

a starting Time f 

a LOCATION OF LAS 
a CORF ADDRESS OF 

Sheet is passed 

a DISK ADDRESS OF 
APPLICABLE TO T 
= ACTUAL MFID OF 
BE DIFFERENT FR 
WHICH ARE START 
= DISK ADDRESS OF 
PRESENTED WHEN 
APPLICABLE TO A 
a ESTIMATED PROCE 
a ESTIMATED \/0 T 
» PRIORITY 
a COMMON VALUE 
a ESTIMATED CORE 
= "CAN-T EXPAND" 
a ESTIMATED CORE 
a STACK SIZE 

a save factor for 

a UNITN0 OF CARD/ 

a Remote station 

a Time job put in 

a user code 

* disk address of 

= LOGLiNe (TSS) 

* fid for compile 

a DISK ADDRESS OF 

OR LABEl* EOAT, ARE AS F 

a MULTI-FILE ID ( 

« FILE ID (7 

lfi] « Reel no o c 

1301 a CREATION DATE 
6] a CYCLF (1 CHR 



of 1ST sheet entry 



2U 3 

3115] 



'63 
:9] 
4124] 



ADDRESS 
OWSl 
S) 

S ONLY) 
S) 



XS-ED (FORCED RUN) 
ES-ED (FORCED RUN AND DS) 
J MfSSAGES FOR SYSTEM JOBS 
MAIN. 3 LDCNTRL. 5 PRNPRT 
COMPILE & GO) 
COMPILE & GO) 

SYNTAX CHECK)(SET TO 2 LATFR) 
COMPILE TO LIBRARY) 

ADDRESS (IF St23.C8ll0] * 1,2.4 
AS S C 183 

N WHEN "SCHEDULED" MFSSaGE 
EDULEO) 

this job 
or log 
t part of log 

segment zero (when the 

to selectrun as a parametfr) 

label equation entries 
his execution only (see below) 
job (tss only), this may be 
om sco] for some jobs 
ed by cande. 

label equation entries 
program was compiled and 

LL EXECUTIONS 

ssor time 

IME 



REQUIREMENTS 
BIT (TSS) 
REQUIREMENT 

OBJECT FILE (COMPILATIONS) 
PSEUDO READER IN CONTROLCARD, 
ADDRESS. ELSE 

SHEET(FOR TS MSG) 

FILE HEADER FOR THE JOB 



S.TAPE NAME 
NEXT SHEET 

OLLOWSl 

7 CHRS) 
CHRS) 

HRS) 

(5 CHRS) 

) 



FOR LIBMAIN, 
ENTRY («0 IF 



LAST) 



20512000 


T 


0000 


10 


20512400 


T 


0000 


10 


20512800 


T 


0000 


10 


20513200 


T 


0000 


10 


20513600 


T 


0000 


to 


20514000 


T 


0000 


10 


20514400 


T 


0000 


10 


20514800 


T 


0000 


10 


20515200 


T 


0000 


10 


20515400 


T 


0000 


10 


20515600 


T 


0000 


10 


20516000 


T 


0000 


10 


20516400 


T 


0000 


10 


20516800 


T 


0000 


10 


20517200 


T 


0000 


!0 


20517600 


T 


0000 


10 


20518000 


T 


0000 


10 


20518400 


T 


0000 


10 


20518800 


T 


0000 


>0 


20519200 


T 


0000 


fO 


20519600 


T 


0000 


10 


20520000 


T 


0000 





20520400 


T 


0000 


10 


20520800 


T 


0000 





20521200 


T 


0000 


(0 


20521600 


T 


0000 


10 


20522000 


T 


0000 





20522400 


T 


0000 


10 


20522800 


T 


0000 


.0 


20523200 


T 


0000! 





20523600 


T 


0000 





20524000 


T 


00001 





20524400 


T 


00005 





20524800 


T 


00001 





20525200 


T 


OOOOi 





20525600 


T 


00001 





20526000 


T 


OOOOI 





20526400 


T 


OOOOI 





20526800 


T 


OOOOI 





20527200 


T 


0000 





20527600 


T 


OOOOI 





20528000 


T 


OOOOI 





20528400 


T 


OOOOI 





20528800 


T 


OOOOI 





20529200 


T 


OOOOI 





20529600 


T 


OOOOI 





20530000 


T 


OOOOI 





20530400 


T 


OOOOI 





20530800 


T 


OOOOI 





20531200 


T 


OOOOI 





20531600 


T 


OOOOI 





20532000 


T 


OOOOI 





20532400 


T 


OOOOI 





20532800 


T 


OOOOI 





20533200 


T 


OOOOI 





20533600 


T 


OOOOI 





20534000 


T 


OOOOI 






rr33.ri5«8] 

FT33.f?3:j ] 
FT 31 • T42I 1 3 

Fr33.rfl3«53 



rr«3.ro»6] 

Ft43,r6!42] 

rrt?3.ti5in 

Ftl?J.tlBl51 
FTH3- FT251 

ft?9] 
**** also see procedure "selec 

**** FURTHER INFORMATION ON La 
**** PARAMETER BLOCK, 



= NUM COPIES OF PBD OR PUD FILE 

* \, IF "FREEF" PBD PACKET FILE 
« I FOR FORMS REQUIRED 

* FOR CP (FILE TYPES ) 

1 FOR LP 

2 FOR MT 

3 FOR SPECIFIC UNIT 

4 FOR LP (MAY BACKUP) 

5 FOR SPFCIFIC (UNLABLED) 

6 FOR LP (MUST BACKUP) 

7 FOR PT 

6 FOR PT (UNLABLED) 
9 FOR MT (UNLABLED) 
10 FOR DISK 

* NO Of CHARS IN INTERNAL NAME 
■ INTERNAL NAME (MAY CONTINUE TO F(ll]) 
« "SENSITIVE" BIT 

* DISK SPEED 

* eu number + l 

SAMp AS ABOVf FOR NEXT FILE CF 1 143"1* IF 
DISK AORS.OF NXT,LBL,E0UAT.ENTRY(eO IF 
TRUN1" (SEQ.NO. 20055600) FOR 
BEL EQUATION AND THE FILE 



NO NEXT) 
NONE) 



**** CONTENTS OF 
JARrOl 



JARrt 1 
JARr?3 



JARr3] 
JARrA] 

JARr53 
JARfAl 



JARf^3 
JARrH 



1 
? 
6 

1 
? 
6 
1 
? 
3 

4 

5 
6 
7 
6 
18 
33 



1 3 
1 3 
423 
1 3 
t 3 
423 
1 3 
1 3 
1 3 
1 3 
1 3 
1 3 
1 3 
103 
153 
153 



1 '23 3 

?4?243 

1*1 3 

2*6 3 
18M5] 
33115] 



JAR(8] 

JARr9].t 1*1 3 

.t ?'l 3 

.t 3:i J 



THE JAR' 
COMPHf 
"CANOE" 
MFID OF 
JOB IS 
JOB IS 
FID OF 
COBOL J 
DECLARF 
JOB HAS 
NOT USE 
DECLARF 
INVOKED 
INVOKED 
SAME AS 
DISK AD 
PRIORI! 
PROCESS 
?0 TjMr 
STARTIN 

startin 

JOB IS 
PSEUDO- 
SIZE of 
disk An 
IDLeTIM 
MFID Of 
FROM J 

Length 

REEL Ch 
SUPPRES 
JOB HAS 



(COMPILATIONS 



JOB 
JOB (TSS ONLY) 
THE JOB 

being ds-ed 
being es-ed 
The job 

OB 

D SOFTWARD INTERRUPTS 

MAINTENANCE LOG ENTRY 
D 
D SOFTWARE INTERRUPTS 

OR INVOKING IPC PROG. FILE 

IPC PROGRAM FILF 

St23.[BMO] ABOVE 
DRESS FOR THE SKELETON SHEET 
Y 

TIME LIMIT 

LIMIT 
G DATE (OCTAL) 
G TIME (OCTAL) 
SD-ED 

Reader number 

log information (batch) 
dress of first record for the log 
e entry (batch) 

job (tss only). this may be different 
ar[0] for some jobs started by canoe, 

of code file row 

ange tn progress due to "rc" message 
s printing of boj/eoj messages 

been "stopped" (wqrkset on batch) 



20534400 
20534600 

20535200 
20535600 
20536000 
20536400 
20536800 
20537200 
20537600 
20538000 
20538400 
20538800 
20539200 
20539600 
20540000 
20540400 
20540800 
20541200 
20541600 
20542000 
20542400 
20542800 
20543200 
20543600 
20544000 
20544400 
20544800 
20545200 
20545600 
20546000 
20546400 
20546800 
20547200 
20547600 
20548000 
20548400 
20548800 
20549200 
20549600 
20550000 
20550400 
20550800 
20551200 
20551600 
20552000 
20552400 
20552800 
20553200 
20553600 
20554000 
20554400 
20554800 
20555200 
20555600 
20556000 
20556400 
20556410 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



10 
10 
10 
10 

to 

10 

to 

10 

to 
to 

10 
10 
10 

to 
to 
to 
to 

10 

to 
to 

10 

to 
to 
to 
to 

10 
tO 

to 

10 

to 

10 

JO 

to 
to 
to 
to 
to 
to 
to 

10 
sO 

to 

;0 
to 

tO 
10 

to 
to 
to 
to 
to 

10 

to 
to 
to 
to 

:0 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



(F-2) 
fF-1) 
( F - 1 ) 
fF + O) 

rF+D 

(F + 2> 
<F*2) 
(F*3> 
f F + 3) 
fF + 4) 
(F*5) 
(F + 5) 
(F + 6) 
(F + 7) 
fF+tO 
fF+U 
f F + l? 
fF + 13 
<F*14 
(F + 15 
fF + 16 
<F+16 
(F+17 
fF + 20 
fF + 21 
fF + 21 
(F + 22 
fF + 22 
fF + 23 
(F + 24 
(F + 25 
(F + 26 
(f + 27 
fF + 30 
fF + 31 
<F*32 
fF + 33 
(F + 34 
(F*35 
fF + 36 
rF + 37 



, t 1 S» 1 53 
. T 33* 15] 

JARr 10 3 THROUGH 

JARr 30] 

END OF COMMeNTJ 
REAL PROCEDURE CCLlB* 



[ 4M 1 s KEYBOAKD INTERRUPTS ARE ALLOWEO 
t 55 1 1 » A KEYBOARD INTERRUPT HAS OCCURRED 
r 6!3 ] « NORMAL JOB 

« 1 libmain 

= 3 LDCNTRL 

* 5 PRNPBT — ODD VALUES FOR BOOLEAN TESTING 
<= DISK ADDRESS FOR "CHAIN" IF NON-ZERO 
= NUMBER FOR DISK ROWS IN CODE FILE 
JARt?9] » DISK ADDRESS OF CODE FILE ROWS 

* FID OF OBJECT FILE (BATCH COMPILES ONLY) 



PRTf653) » CC 



* 

s 

f 
a 
3 



LIB 

BEG I 
DECL 

MSCW 

CARD 

MYMSCW 

RCW 

PROCVAL 

A 

T 

CADDR 

SFID 

CARDLOC 

CDEX 

SDEX 

CMPLR 

CN 

KOUNT 

LASTSC 

LIBNO 

Nl 

N2 

N3 

Nil 

U 

OPTN 

OPTNN 

PADDR 

SFH 

PDEX 

SMID 

PPCPRO 

SOURCE 

SPOUTU 

ST 

Tl 

UNITNO 

USERID 

ACCUM 

CEON 

CMM 

DIRECT 

PFQN 

PROG 



START OF REL 



20556420 
20556430 
20556700 
20556710 
20556720 
20556730 
20556800 
20557200 
20557600 
20558000 
20558400 
20566000 
SEGMENTI DISK 



0000*0 
OOOOlO 
0000*0 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 

0000:0 

OOOOtO 
OOOOlO 



ADDRESS « 00652 



n label next»loop> 
areccvariarlesj 



20566011 T 0000«0 
20566100 T OOOOlO 



AN 



CESS 
N 1 T 



STACKfF+40) s ADOR 

STACK(F+41) * ABORT 

STACK(F+42) = TOG 

STACKfF+43) * RETURNMSCW 

STACK(F+4A) a RETURNRCW 

STACKfF*45) « RETURNVAL 

REAL, CNT 

STACKfF+46) » CNT 



STACK(F*47) a HOLDl 

STACKfF+50) a HOLD? 

STACKcF+50) « X! 

STACKfF+51) « HOLD3 

STACKfF+52) * REPEAT 

STACKfF+52) « XLSTSZ 



HOLDl 
HOLD? 

HOLD3 

RFPEAT 

TYM 



Returnval+i. 

CNT+1. 

HOLD1+1. 

H0LD2+1* 
H0LD3+1* 



* BEGIN LOCALS TO CCLIB 



XI 



HOLD?, 



XLSTSZ 

HME 



REPEATi 
TYMJ 



* Repeat+i* 

STACKfF+53) a TYM 
STACKfF + 53) * HME 

BOOLEAN FIRSTIME 
STACKfF+54) * FIRSTIME 

ARRAY XLST 
STACKrF+55) « XLST 

REAL FPOMHLH 
STACKfF+56) * FROMHLD 

TOHLD 
STACK(F+57) m TOhLD 

rfmembeR 
STAcKfF+60) • Remember 

NAMECNT 
STACKfF+6i) « NAMECNT 

BOOLEAN DfDGETESPDfSK* NAMECnT + U 
STACKrF+62) = D I DGETESPp I S« 

INTEGER I » DIDGETESpDlSK + 11 S148- 

STACK(F*63) * I 

%** + ** + + + ** + + *** + + * + * + *** + * + + ** + ** + * + + * + + ****** + ** + *** + **+.*** + + + + * + i<* + * 

% 



TYM+l; 

FlRSTf Mp*lt*3 I 

XLST+i, 

FROMHLD+1* 
TOhLD+1. 

Remember+u 



% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



CCLtB WAS BEEN EXPANDED TO HANDLE NEW FACILITIES AVAILABLE 
THROUGH USE OF THE "COPy" CONTROL CARD AND THE EXTENSION OF 
"EXCEPT" LISTS 10 "REMOVE" CONTROL CARDS. 



U COPY CONTROL CARDS 

PERFORMS SYNTAX ANALYSIS (SEE DOCUMENTATION) 

SETS UP LINKED LIST OF ESPDlSK SEGMENTS PROVIDING DATA AND 
NAMES NECESSARY FOR LIBRARY MAINTENANCE PROCESSING 
(INCLUDING "EXCEPT" AND "AS" LfSTS), 

21 RFMOVE CONTROL CARDS 
SCANS "EXCEPT" LtST ASSOCIATED WiTH ANY PARTICULAR NAME 



20566245 T 0000:0 

20566247 T 0000:0 

20566250 T 0000:0 

20566255 T 0000:0 

20566260 T 0000*0 

20566265 T 0000:0 



20566270 


T 


0000:0 


20566280 


T 


OOOOlO 


20566290 


T 


0000»0 


20566300 


T 


0000:0 


20566310 


T 


OOOOlO 


20566320 


T 


0000:0 


20566330 


T 


0000:0 


20566340 


C 


0000:0 


20566350 


T 


OOOOlO 


20566352 


T 


oooo:o 


20566354 


T 


OOOOlO 


20566356 


T 


OOOOlO 


20566358 


T 


ooooso 


20566360 


T 


000010 


20566362 


T 


0000 to 


20566364 


T 


OOOOlO 


20566366 


T 


0000:0 


20566368 


T 


OOOOlO 


20566370 


T 


OOOOlO 


20566372 


T 


OOOOlO 


20566374 


T 


OOOOlO 


20566376 


T 


OOOOlO 


20566378 


T 


OOOOlO 


20566380 


T 


OOOOlO 


20566382 


T 


OOOOlO 


20566384 


T 


OOOOlO 


20566386 


T 


OOOOlO 


20566388 


T 


OOOOlO 



% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
I 
% 
% 
% 
% 
%** 



PAtR passing said lists to procedure "SEEKNAM"* which in 

TURN USES THE "EXCEPT" LlST WHEN DETERMINING WHETHER OR 
NOT TO RETURN SPEC I F IC NAMES FQR REMOVAL, 



CMMM9].[?MJ 

. r 3« 6] 

. r 9193 



INDICATES ORIGINATOR 

UNJTNO FOR PACKETS 

USER SPECIFIED MAXIMUM NUMBER OF FILES PER 

OUTPUT UN iT 

XLST DESCRIPTOR TO "fXCEPT" LIST ASSOCIATED WITH 

A PARTICULAR NAME PAIR 

REMFMBFR USED FOR CORRECT PLACEMENT OF "FROMHLD". 

"TOhLD". OPTIONS AND NAME COUNTS WITHIN THE 
LINKED LIST OF ESPDISK SEGMENTS,., 

.I3H5] FIRST ESPDISK ADDRESS 

.IFF] OFFSET INTO ,tCF] 

.[CF] ESPDISK ADDRESS OF OPTIONS AND NAME COUNT WORD 

NAMFCNT.TFF] 
.[CF] 
FR0MHLD.ri»5] 

.16142] 

T0HL0,tl»5) 



COUNT OF "EXCEPT" LIST PAIRS AND "AS" CLAUSE 
PAIRS FOR A PARTICULAR SOURCE 
COUNT OF NAME PAIRS 

INPUT UNIT NUMBER + 1 *148« 

if ,cii5] * o then input from any tape *t48« 

that has the correct name *148> 

if disk then o xhs- 
if tape then tape name 

OUTPUT UNtT NUMBER + 1 X148- 

IF .£115] * THEN OUTPUT TO ANY SCRATCH X148« 
TAPE. *148- 

IF DISK ThEN .[4051] SPECIFIES TYPE FAST 

.[4H1] w * SLOW 

.U2I6] " EU # 

if tape then ,[6«42] has tape name xi48- 



********************************************************************* 

UABfL CCA»QUIT»POwiE»CHAN,RFMO,iNcSC#GETEM,ENTEfLCOPY,SEEK,lNlTt 
LABfL DOWNR,OUTRf SCNX,NEXTL,MlRiD> 

switch sw»slcopy#lcopy,lcopy#ente.ente.remo,chanj 

DEFINE ZlPMiXsCARD.[l8»6]#» 

DEFlNF UniTnUm * [i«5)#> H48- 

% 

£************************************************** 

subroutine checkj 

BEGIN 

IF (CNT»«CNT+2) GTR 26 THEN 

BFGIN 

PR0Gt?9]l«GETESPDlSK; 

dtdgeTfspdiski*truej 

DISKWAiT(PR0g I NX 0,30,LIBN0); 

LlBN0UPR0Gr29]J 

CMTlaO; 



20566390 
20566392 

20566394 
20566396 
20566398 
20566400 
20566402 
20566404 
20566406 
20566408 
20566410 
20566412 
20566414 
20566426 
20566428 
20566430 
20566432 
20566434 
20566436 
20566438 
20566440 
20566442 
20566444 
20566446 
20566448 
20566449 
20566450 
20566451 
20566452 
20566454 
20566455 
20566456 
20566457 
20566458 
20566460 
20566462 
20566464 
20566466 
20566468 
20566470 
20566600 
20566610 
20566620 
20566630 
20566640 
20566650 
20566655 
20566660 
20566665 
20566670 

20566675 
20566680 
20566685 
20566687 
20566690 
20566695 
20566700 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
C 
P 

c 

T 
T 
C 
P 
C 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0001 
0002 
0003 
0004 
0005 
0007 
0008 



tQ 
:0 
to 
to 
;o 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 

10 

to 
to 
to 

10 

to 
to 
to 
to 
to 

10 

to 

10 

to 

10 

to 
to 
to 
to 

10 

to 
to 
to 
so 
to 
to 
to 
to 

10 
10 

to 
to 

10 
t3 

tl 

(3 
12 
<2 
12 



end; 
endj % check 



7*4^********+************************************** 

% 

X - FINAL PREPARATIONS BEFORE EXITING 

* " PLACEMFNT OF FINAL INPUT SOljRCF AND DESTINATION 

% 

% 

SUBROUTINE BOTH) 

BEG?N C M MfO] ts»»LlB M AlN w ; c M M 1 1] I « W D I SK « j 

CMMT2] *« & LlBMA?NcODEr5U5»3] & 2[8l36llO]J CMM[13]l«Oj 

$ sft omit •= packets 

t set ohit « not(packets) 

rMMt23] t«0RCARD[9«9j9]i(i F ZlPMfX NfO THEN PSEUOOMl XC 71 PMf X ] 
ELSE UNiTN0)[2M2l6]) 
£ POP oMfT 

CHECKJ PROGrCNT]|«PiAj 
IF T GE® COPYN AND T LfO LOAD THEN 

BEGIN PROG[CnT+1]:«FROMHlDI CHECK* PROGt CNT ] : sPl 14 I 
IF LIHN0*REMEMBER,r3»l5] THEN PROGt 1 ] J *TOHLD * 
FMDI 

OPTNJsCNj PR0C,r29]! s 0j 
DTSKWAITCPROG I NX 0,30»LIRN0)* 
|F T GEO COPYN AND T LrG LOAD THEN 
IF LIPNO NE« REMFMBFR.C3I15] THEN 
BEGIN DTSKWAlT(-PR0G.tCF]»30tREMEMBER.[3«l5]); 
PROGrt3»"TOHLDl 

DTbKWAlT(PKOf, JNX 0, 30.REMF.MBER , t 3 * 1 5 J ) J 
END* 

LIBNOIbABS)CCMM[193)I 
END OF BOTH! 

X 

ft************************************************** 

% 

Real subroutine scan; 

scan»scn(unitno.caRolOc.souRce»accum,kount»lastscan, 
DIRECT); 

REA|. SUBROUTINE S«AN' 

BEGIN 

STRFAM(X}=s0 5CNl«Ot ACCUMJ) 

R FT T W 

Si i«ACCUM;Si :*si+i; 

8(if sc geQ w o* then begin si»«si+i *Tally*«Tally+i* end else 

IF SCe" " THEN JUMP OUT ELSE BEGIN TALLY I *0* JUMP OUT END)! 

CN'»TALLYJSII»SI-CNIDI «sLOC XIDS*»CN OCTI 

END? 

SKAN*»P* 





20566705 


T 


000911 

20566660 




20566710 


T 


000911 

20566670 




20566744 


T 


0009*2 




20566745 


T 


000912 




20566746 


T 


0009*2 




20566747 


T 


000912 




20566748 


T 


000912 




20566749 


T 


000912 




20566750 


T 


000912 




20566751 


T 


0009*2 




20566752 


T 


000912 




20566755 


T 


0010»0 


0) 


20566760 


T 


001212 




20566765 


T 


001710 




20566780 


T 


001710 


PMIX] 


20566785 


T 


001710 




20566790 


T 


002012 




20566795 


T 


0023*2 




20566805 


T 


002312 


*543- 


20566807 


P 


0026*1 




20566810 


T 


0028*0 




20566812 


T 


0032*1 




20566815 


T 


0035*1 

20566810 


*1?3- 


20566817 


C 


0035*1 




20566820 


T 


0037 11 


X543- 


20566822 


P 


003911 




20566825 


T 


0041*0 




20566830 


T 


0042*3 




20566835 


T 


0046*0 




20566840 


T 


0047*1 




20566845 


T 


0049*3 

20566830 




20566850 


T 


0049*3 




20566855 


T 


0051*0 

20566755 




20566864 


T 


0054*0 




20566865 


T 


0054*0 




20566866 


T 


0054*0 




20566875 


T 


005410 




20566900 


T 


0054*0 




20566902 


T 


0056*0 




20566905 


T 


0057*1 




20566910 


T 


005810 




20566915 


T 


0058*0 




20566920 


T 


005913 




20566925 


T 


0059*3 




20566930 


T 


0060*1 

20566930 




20566935 


T 


0061(3 

20566935 




20566940 


T 


006410 




20566945 


T 


0065*2 

20566920 




20566950 


T 


0065*3 



END OF SKAN; 



% 

% - CRFATFS AN EXCEPTION LIST OF FILE NAMES WHICH ARE 
J! ASSOCIATFD WITH A PARTICULAR PRECEDING FILE NAME 
% 

% 

SUBROUTINE SCANEXCFPTJ 

BEGIN IF XLSTsO THEN XLST | « f M [SPACE (XLSTSZ 1*30 ) ] H 30 [ 8 I 38 I 10 ] > %\77> 
SCNX* IF CXpsXl + 2) GEO XLSTSZ 

THEN BEGIN % EXPAND EXCEPTION LIST SIZE 

STl«SPACE(XLSTSZ»»XLSTSZO0)J 

MOVE C XLS TSZ-30* XLST, ST) I 

FORGETSPACE(XLST)J 

XLSTl«[M[ST]HXLSTSzt6l38llO]J 

END* 



20566955 T 



IF CCNJ»SCAN)=E6UAL 

then begin xlsttx i 3 1 »-i 1 

IF HME *■ 2 
THEN BEGIN 



IF Tl,U6*l3 THEN GO POWIE* 
XLSUXI] * IF Tl. [45*13 THEN CMM[0] 

ELSE PR0GICNT3J 



END END 



ELSE IF CN GEQ IDENT THEN XLSTr X \] * *ACCUM[ ] 

ELSf GO POWiE* 
IF SCAN NfQ SLASh ThEN GO POWm 
TF (CN!sSCAN)*EOUAL 
THEN BEGIN IF XLST r Xy ] , r 1 1 13 THEN GO POWIE* 
XLSTrXl+l]ls-i J 
IF HME * 2 
THEN BEGIN IF Tl THEN GO POWIEI 

XLST[Xun * IF Tl, [45113 THEN CMM[13 

ELSE PR0G[CNT+13J 
END END 



ELSE IF CN GEO lOENT THEN XLST [X i ♦ 1 3 » *ACCUM[ 03 

ELSE GO POWie; 
TF (CNIsSCAN)sCOMMA ThEN GO SCNX 

ELSE IF CN NEQ RB THEN GO POWJE* 
END; % SCANEXCEPT 

% 

|** ************************************************ 

% 

% - LOOK FOR TAPE UNIT ASSOCIATFD WITH AN INPUT OR 

* OUTPUT FILF NAME 

% 

X* ************************************************* 

% 

Real subroutine scanonj 



%792< 
%792' 
%792' 
X792* 
J5792- 



*792- 
*792" 
X792- 
*792- 
*792« 



11*8" 
X148. 
%148« 
XI 48- 
*148- 
X148- 
X148. 
X148« 
*148- 



20566984 
20566985 
20566986 
20566987 
20566988 
20566989 
20566990 
20566991 
20567000 
20567005 
20567010 
20567015 
20567020 
20567025 
20567030 
20567035 
20567040 

20567045 
20567050 
20567055 
20567056 
20567057 
20567058 
20567060 



20567065 
20567070 
20567075 
20567080 
20567085 
20567090 
20567095 
20567096 
20567097 
20567098 
20567100 



20567105 
20567U0 
20567115 
20567120 
20567125 

20567140 
20567142 
20567144 
20567145 
20567146 
20567148 
20567150 
20567152 
20567154 



006610 

20566910 
0066*1 
0066*1 
006651 
006611 
0066<1 
0066*1 
0066U 
006611 
006611 
0067*0 
007213 
0074*0 
0075*0 
0078*1 
0080(2 
008H2 
0083*3 

20567015 
0083*3 
0085*3 
0088*0 
0088*2 
0090*3 
0092*3 
0094*2 

20567056 

20567050 
0094*2 
0097*0 
0097*3 
0100*0 
0101*3 
0104*1 
0106*1 
010613 
010812 
0111*0 
0113*1 

20567096 

20567085 
0113*1 
0116*1 
0117*0 
0119*0 
0120*3 

20567005 
0121*0 
0121*0 
0121*0 
0121 10 
0121*0 
0121*0 
0121*0 
0121*0 
0121*0 



BEGIN TFfCNlaScAN} * IDENT THEN GO POWIE* 
CN»«ACCUMtO],[6li8j| 
FOR I JsO STEP 1 UNTfL 15 DO 

IF TINUC I J.C30H63-CN THEN 
BEGIN 

pci + dj 

end; 



IF \*\7 ThFN 

cnjsScan; 

SCANON:aPJ 
SCANONJ 



GO TO POWIEJ 



*148- 
X148- 
1148- 
*148- 
%148* 
X148- 
X148- 
1148- 

1148- 
X148» 
X148- 
X148- 



FND 

SUBROUTINE SCANDSKTyP* 
BEGfN 

IF f CN»sScAN)»ELJ 

then begin 

if fcni=scan) neq idfnt then go powjej 

if p(skan«oup) gtr 19 then begin ptdet,)! go powjej end; 

CNIbP+U T0HLD.[42«6]«»CN; 

IF CN GTR NEUP.NEUF THEN GO POWJE* 

END 

flsf if cn*slow then tohlh* r«i H3 i«i else 

IF CN.FAST THFN T0HLD.[40llJ««l euse 
IF T NEQ COPyN THEN GO POWiE ELSE 
IF CN*DISK THEN EL&E 
IF CN NEO TDENT THEN GO POWIE ELSE TOHUD » *ACCUMr 0] J 
IF CCN*»SCAN)»0NV THEN 1148- 

IF TOHLO.UNITNUM/C THEN GO POWIE X148- 

ELSE K148- 

BEGIN X148- 

tohld.unitnumuscanon; M48- 

END; X148- 

end of scandsktypj 
% 

%**m*********************************** ********** 

% 

% - PUCFMENT OF OPTIONS AND NAME COUNTS INTO CORRFCT 

1! WORD OF CORRECT ESPDISK SEGMENT 

% 

%*t*******************t***************************^ 

% 

SUBROUTINE SETUP* 

BEGtN 

IF LIBNO NEQ REMEMBER, rCF] THEN 

BEGIN DISkWAjTcPRog ?NX 0,30,LIBN0)* 

DlSKWAlT(-pROG.tCF]t30,REMEMBER,[CF3)l 

PROG [REMEMBER. [FF]]l»(*PCDUP))4NAMECNTn 8 I18M 5] &NAMECKjTtCTC3» 

DISKWAITCPROG I NX 0. 3O, REMEMBER , C CF ]) I 



20567158 
20567160 
20567162 
20567166 
20567168 
20567170 
20567172 
20567174 

20567176 
20567178 
20567180 
20567182 

20567200 
20567201 
20567202 
20567205 
20567210 
20567215 
20567??0 

20567225 
20567230 

20567235 
20567240 
20567245 

20567250 
20567255 
20567260 
20567265 
20567270 
20567271 
20567274 
20567276 
20567278 
20567280 
20567282 



20567285 T 



20567300 
20567305 
20567310 
20567311 
20567312 
20567313 
20567314 
20567315 
20567316 
20567320 
2056^325 
20567330 
20567335 
20567340 
20567345 



C 0121 10 

C 0123*2 

C 0125*0 

C 0126»0 

C 012712 

C 012810 

C 012813 

C 0129*2 

20567168 

C 013113 

C 013310 

C 013412 

C 013413 

20567158 

T 013510 

T 013510 

T 013510 

T 013510 

T 013510 

T 0135J0 

T 013613 

T 013712 

T 014012 

20567230 

T 014410 

T 014613 

T 0148*2 

20567220 

T 014812 

T 015210 

T 0155«2 

T 0156«3 

T 015812 

C 0161U 

C 0163*0 

C 0164S3 

C 016413 

P 0165U 

C 0168* 1 

20567278 
016811 

20567210 

T 016812 

T 016822 

T 0168*2 

T 0168*2 

T 0168*2 

T 016812 

T 016812 

T 016812 

T 016812 

T 016910 

T 016910 

T 0170U 

T 017213 

T 0175*2 

T 017812 



OlSKWAlT(-pR06,[CF]»3O»LlBNO)l 
FND ELSE 

PR0fi[REMEMBrR»tFFj]l«(*P(nuP))*NAMECNTri8ll8M5]iNAMECNT[CTC]> 
FND OF SFTUPJ 

* 

g****************** START HE R F ****************** 

P(RrW.MYMSCW»STF)> 
RCWjwRrW & P(XCH)CCTC3; 

P(0, 0,0.0, 0,0, 0,0, 0,0, 0,0,0); % ZERO LOCALS OF CCLIB 
PCO)> *148- 

GO SW rT-COPYNJJ 
LCOPYt 
FNTF* 

PROGCOJ JsPR0G[2]*a0; CNT5»2; 
TF (CN:»SCAN)siDENT THFN 
BEGIN 
IF (ST«mSKAN)*0 THEN ST>*5H ELSE CNIsSCANl 
IF ST GTR 511 THEN ST l«5l t I 
END ELSE ST»*5lll 

RFMEMBFR.r3*15] JsLIBnOjsGETESPDISKI 

niDGETFSPO!SK»*TRUE; 

CMMf 19] IsOiC IF UNtTN0s?3 OR UNITN0*24 OR UNITNO GEO 32 THFN 

UNjTNO ELSf 0)r3U2l6J*ST[9i39l9]4 

LI BNOfCTc 3 &1 f ?J 47 J 13; 

FR0MhLd.UNiTNUMIM91 T0hLd.UNiTNUMi«i9> % 19«0ISK UN I TNO* 1*148- 
PROG[CNT+l]»»Oj X148- 

namecntj»oj 

IF T*A[)DV THEN PR0GICNT + I).[6ini«ll 
IF T.UNLOftD THEN PROrst CNT + i 3 . C^l 1 1 »«1 I 
S SET OMIT * NOT 86500L0AD 
IF T NeQ COPYN THFN 

if cnatov and t gtr unload then 
scandsktyp; 

TF CN'LATfSTV THEN 
PFGlN PROGTCNT+13 . [5M 3 »«1 J CNl.SCAN; END? 

IF CN*FXPlRED THEN 
BEGIN PROGtCNT+l 3.UM3 «»1 .1 CNI.SCANJ END? 

IF CNiaACCESSD THEN 
BEGIN PROGtCNT + 13.[3M3I*l J CNIsSCANJ END* 

IF CN-AODV THEN 
BEGIN Pf*0GfCNT+n,C6liJ««H CNl-SCANl END» 

IF CNaNOHASH THEN 
BEGIN PROGCCNT+13.[7»l3**i; CNl*SCAN> NAMECNT , [ t 7 I 13 S » II ENDI 

IF CN.UNLOAD THEN 
BEGIN PROGrCNT+13.[8»l3»»l» CNlaSCANJ NAMECNT , t 1 7 i 1 } l »n FNDJ 



20567350 T 

20567355 T 

20567360 T 

20567365 T 



NEXTLl 



20567510 
20567511 
20567512 
20567520 
20567530 
20567540 
20567550 
20567600 
20569200 
20569230 
20569240 
20569260 
20569290 
20569320 
20569350 
20569380 

20569400 
20569410 
20569420 
20569440 
20569460 
20569520 
20569522 
20569525 
20569527 
20569528 
20569529 

20569530 
20569590 
20569610 
20569630 
20569650 
20569670 



IF T NEC COPYN THEN 



20569690 T 
20569710 T 

20569730 T 
20569750 T 

20569770 T 
20569780 T 

20569790 T 
20569800 T 

20569802 T 
20569804 T 

20569810 T 



018110 
0183*1 

20567330 
018311 
018613 

20567320 
018710 
018710 
018710 
018710 
0188; 1 

0l89»2 
019213 
019310 
019810 
019810 
0l98t0 
020110 
020310 
020312 
020912 
021112 

20569290 
021213 
02151 1 
021610 
021912 
0222»3 
022413 
022413 
0228J1 
023010 
023013 
0235»0 
0239U 
02391 1 
024010 
02421 1 
024410 
024413 

20569670 
0249«2 
025011 

20569710 
025512 
0256U 

20569750 
026112 
026211 

20569780 
026712 
026811 

20569800 
027511 
027610 

20569804 
028311 



GETFMI 



fF SCAN NE9 IDEM 

thfn go powie 

else if t lfq unload 

then begin tohld»=accumto]j js148- 

if ccnj»scan).onv thfn tohld.unl tnum* = sc anonj 1148. 

END XH8. 

ELSE BEGIN FROMHLDl «ACCUMt } J %\4&> 

if (cnj.scan)bOnv Then fromhld.unitnumjsscanonj 

ENDJ X148. 

RFMEMBF.R»*REMEMBER8L|8N0[CTC]&(CNT*l)rCTF]> 

CHECK 5 

fl,[«6H]»H0LD3*(CN*FQUAl.)l 

IF H0LD3 THEN PROGC CNT] I *-l FUSE 

IF CN GEO IDENT THEN PROGCcNT ] »*ACCUMt 0] EL.SE GO POWlEl 

TF SCAN NfQ SLASH THFN GO POWIEJ 

Tt ,[47in ♦HOLDS* (fCN*Sc AN). EQUAL )l 

JF H0LD3 THEN PROfi [ CNT+H i«-1 ELSE 

IF CN GEO IDENT THEN PROGr CNT + 1 ] J sACCUMt 0] ELSE GO POWJEJ 
NAMECNT,[CF3J=NAMECNT,rCF]+2; 
HMEUPR0GrCNTJ,[lll] + PR0GtCNT+n t tlll3l 
H0L03'«1J 
IF (CNl*SCAN)=EXCEPT THEN BEGIN CNl*SCANJ H0LD3»e0j 



*543" 
*543< 
*543« 

X543" 
*543' 



END) 



IF CN«LB THEN IF hME NpQ THEN 
BEGIN XI l*-2J 

SCANEXCEPTl 

for st«=0 step 2 until xj do 
begin check; 



PROGf CNT] J»XLSTcST]&i r 5»47* 11* 
PROGrCNT + i]l*XLST[ST + l JMC5U7I1 J» 
NAMECNT.tFF3»*NAMECNT.[FF3+?; 



FNDJ 



FN!) 



cn»sScan; 
forgetspace(xlst)} 
flse go powjf 



XLSTlaO; 



*543- 



else if hOLd3=o Then go powie» 
if cn»as then 

BEGIN 

IF HME*2 OR TsUNLOAD OR NAMECNT , n 7 1 1 ] THEN 
IF CCN*SCAN)*EQUAL THEN IF Tl.t46ll] THEN 

BEGIN CHECK) PROGI CNT] I *- 1& 1 r 41 47 * 1 ] J END ELSE 



GO POWIEJ 

GO POWIE 



FLSE IF CN GEO IDFNT THEN |F Tl,[46*l] THEN GO POWIE 

ELSE BEGIN CHECK? PROGtCNT] »«Af,CUMr 0] & l[ 4 J 47 I 1 ] I END 

ELSE GO POWIEJ 
IF SCAN NeO SLASh ThEN GO POWIEJ 

if ccn«.scan)«equal Then if ti then 

PR0GrCNT + n*«-l«it4'47»n ELSE GO POWIE 
ELSE IF CN GEO IDENT ThEN IF Tl THEN GO POWIE 
ELSE PROG CCNnnt.ACCUMCOl&H 4147 I1J 
ELSE GO POWIEJ 



X543- 



X543* 



X543- 
X543- 



20569830 T 

20569835 T 

20569840 T 

20569845 P 

20569846 C 

20569847 C 

20569850 P 

20569860 C 

20569870 C 



20569890 
20569920 
20569925 
20569930 
20569935 
20569940 
20569950 
20569960 
20569965 
20569970 
20569975 
20569980 

20569985 
20569990 

20570000 
20570010 
20570015 
20570020 
20570030 
20570040 
20570050 
20570055 
20570060 



20570090 
20570100 
20570H0 
20570120 
20570130 
20570HO 



20570170 
20570180 
20570190 
20570200 
20570210 
20570220 
20570230 



20570065 T 
20570070 C 
20570080 T 



20570150 P 
20570160 T 



0284*0 
0286*1 
028612 
028712 
028911 
029411 

20569845 
0294*1 
0295*3 
0301M 

20569850 
030111 
030312 
030312 
0305»0 
030713 
031010 
03131 1 
031510 
0318*3 
0321»2 
03251 1 
032712 
033013 
0331*2 

20569990 
0337 1 1 
0339J1 
034013 
034210 
034310 
0344«0 

034612 
035010 
0352*1 

20570030 
035412 
0356*2 
035811 

20570010 
035811 
036010 
0360*3 
036111 
036413 
0368 I 1 

20570140 
037212 
037510 

20570160 
037912 
037912 
0382*0 
038413 
038811 
039011 
039213 



NAMFCNT.rFFJ I 

CNIsSCAN; 

ENDJ 



; NAMECNT,[FF]+2» 



IF CNspOMMA THEN BEGIN CNJsSCANi GO GETEM; END; 



FLSE 



ELSE 



M I R I D I 



IF CNaPERfO OR CNsPOuNp 

then if t^copyn then go powle else go quit 
if t neo copyn 

Then go powie 

IF CN*TOV 
THEN BEGIN 

FIRST iMe tsrTRUEJ 

SCANDSKTYP; 

IF FIRSTIME AND 

THFN GO POWiE 

ELSE TF CNsPERjO OR CN 
THFN GO QUIT ELSE 

END 



(T0hLD,UNITNUM«i9) 



POUND 
GO POWIE 



*148« 



ACCUM[0]| 



else if cn neq from 
then go p o w i e 
else begin 

if (cn**scan)*disk 

THFN FjRSTIMEIsTRUE 

flse if cn neq ident 
then go powie else fromhld* 

IF CCNt*SCAN) n ONV THEN 

fromhld.unitnumisScanon; 

TF CNkPOUND OR CNePERlO 

THEN IF FIRSTIME THEN GO POWJE 

ELSE GO QUIT 
FLSE IF CNsTOV 

Then go miRjd 
else if cn nfq comma 
then go powie 

ELSE BEGIN 
SETUP! 

CHECKJ PROGCCNT] »s?H> 
PROGCCNT+1] j»fRomhld* 
cnibScan; 

check; progccnT]iso> 
go nextl; 
end* 

FNDJ 



*148- 
?148« 
SS148- 



QUIT! 



SFTUPJ BOTH* 
STREAM(Ai»T0HL0»Bl«T0HLD,r42l63-l.CI«T0HLD i [42l6]#0# 
DJb[CMM[273])I 
BEGIN 

sm*loc a* skip sbj 
if sb then 

BEGIN 

SK T P 39 S R l 

if sb then dsi*8 lit m ofast " 



X122- 
*122« 
*122« 
*122« 
*122- 
*122« 
X122« 
*122« 



20570232 
20570235 
20570240 



20570250 T 



20570270 
20570280 
20570290 
20570300 
20570310 
20570320 
20570330 
20570340 
20570350 
20570360 
20570370 
20570380 
20570390 

20570400 
20570410 
20570420 
20570430 
20570440 
20570450 
20570460 
20570462 
20570464 

20570470 
20570480 
20570490 
20570500 
20570510 
20570520 
20570530 
20570540 
20570550 
20570560 
20570570 
20570575 
20570577 
20570580 
20570590 



20570600 T 



20571500 
20571600 
20571700 
20571702 
20571710 
20571720 
20571730 
20571740 
20571750 
20571760 



T 039410 
T 0396*1 
T 039712 

20570110 

0397*2 

20570250 

040110 

0402U 

040510 

040610 

0406»1 

040711 

040810 

040813 

041010 

041112 

041113 

041313 

041511 

20570320 

041511 

041611 

041612 

041710 

041813 

041913 

042111 

0423*0 

0425(0 

042811 

042912 

043013 

043113 

043213 

043310 

043410 

043411 

043413 

043610 

043811 

044010 

044112 

0444*1 

044413 

20570540 

044413 

20570420 
T 044413 
T 044413 
C 044710 
C 045010 
C 045013 
C 045013 
C 045UI 
C 045113 
C 045113 
C 0452*0 



Li 



ELSE 

BEGIN 

SKIP SB; 

IF SB THFN DS«*e UIT M 0SL0W " 

ELSE 

BEGIN 

C(SI»»L0C B» 

DS»*6 L|T"OEU # H J DSl-2 DEC* 

JUMP OUT TO L)J 

DS»*8 L?T«OOISK "| 

END 

END 



END 

ELSE 

BEGIN 

SKjP 5 SB! 

DSt*LlT n O"| DS'»7 CHRl 

end; 

END! 

GO IN IT I 

POWiFJ 

IF didgetfspdisk then 

BFGIN 

IF CMMf 19],tCFJ#LjBN0 THEN % MORE THAN ONE SEGMENT USED 

BFGIN 

0lSKHAIT(-PR06,tCF]»30»CMM[l9],[CF])l 

F0RGFTESPDISK(CMM[19].[CF3)I 

CMM[i9UPR0G[29]; 

GO POWIEJ 
END! 

FORGETESPDISKCLIBNO)* 

END* 



RfMO« 



GO INCSCJ 

IF XLST NfO THEN BfGtN FORGETSPaCE(XLST ) » XLSTt*Oj END1 *543- 



ELSE GO POWIE? 



T!.[fl6ll] * ((CN ♦ SCAN) s EQUAL)) 

if ti, [46iii Then cmM[Oj*-i else 
if cn gfq ident then cmm[ ] « *accum[0 j 
if scan nfq slash thfn go powiei 
ti.[47ii] ,. (( C n «. scan) ■ equadj 

IF Tl THEN CMMCU*-! EL5F 

IF CN GEfl IDENT THEN CMM[ 1] »*ACCUMr 0] EUSf GO P0WIE) 

HMCI»CMM[0] f [1113 + CMMtIJ.tlini 

x f i = -?j 

IF (CNJsSCAN)fPERiO OR CNscOMMA 
THEN hOLD1'*CN 
FLSE BEGIN 

IF CNsEXcEPT Then CNibSCAN; 

if cn«lb then if hme neq o then else go powie 



S122- 


20571770 


C 


0453*3 


*122- 


20571760 


c 


0454*0 


X122- 


20571782 


c 


045410 


X122- 


20571790 


c 


0454U 


*122« 


20571800 


c 


045610 


1122- 


20571810 


c 


0456*1 


JS122- 


20571820 


c 


045631 


%122» 


20571830 


c 


045710 


X122- 


20571840 


c 


045811 


X122- 


20571842 


c 


045910 


1122* 


20571850 


c 


046011 

20571610 


X122- 


20571860 


c 


0460*1 

20571780 


S122- 


20571870 


c 


046011 

20571740 


*1?2- 


20571880 


c 


04601 1 


X122- 


20571890 


c 


046012 


SK122- 


20571900 


c 


046012 


*122- 


20571910 


c 


046013 


X122- 


20571920 


c 


0461*2 

20571890 


*122- 


20571930 


c 


046112 

20571710 




20572100 


T 


046113 




20572200 


T 


046211 




20572210 


T 


046211 




20572220 


T 


046311 




20572300 


T 


046313 




20572400 


T 


0465U 




20572500 


T 


046513 




20572700 


T 


046813 




20572800 


T 


047011 




20572900 


T 


0471*3 




20573000 


T 


047211 

20572400 




20573100 


T 


047211 




20573110 


T 


047310 

20572220 




20573200 


T 


047310 




20573300 


T 


047312 


*543- 


20573350 


c 


0473*2 

20573350 


*552- 


20573400 


P 


047711 


*552- 


20573402 


C 


048H1 




20573410 


T 


048410 




20573420 


T 


048711 


1552- 


20573430 


P 


046910 


X552- 


20573432 


C 


049211 




20573440 


T 


049412 




20573450 


T 


049713 




20573460 


T 


050012 




20573470 


T 


050H2 




20573480 


T 


050412 




20573490 


T 


0505 J 2 




20573500 


T 


050613 




20573510 


T 


050912 



Seek* 



dOwnRj 



ELSE rO POWiE! 
T1.C45U] *■ \j % FLAG FOR SCANF*CEPT. ON REMOVE * K552- 
SCANFXCEPTl 
XLST,[8ti0j:*Xf+2; 
HOLOt JaSCAN; 
ENDJ 

CM:*T»«0» 

TF CCMMtO] OR CMMrlJ) USS THEN 

SFFKNAM(CMMr0]»CMM[l]»CN»CMM[2J»CMM[3]»0PTN,XLST) ELSE 

8FGIN 

CHM[2llsCNH(0]| 
CMM[3JI«CMM[1]| 

CN:=i ; 
FN'DJ 

IF CN NEQ 

THEN TJpIF SYSTEMFTLE(CMM[2]»CMMf3]) 
THEN 2 

ELSE DINFCT0RYSEARCH(CMM£23»CMM[3].5> 
ELSE IF OPTN NEO THEN GO OUTRI 
IF T GF.Q 64 THEN 
BEGIN IF H0LD3t*N0T(MtT+4],[44U]) THEN BEGIN FORGETSPaCF f T ) I 

T:aDlRECT0RYSFARCHCCMM[23»CMM[3]&(UNITN0»25 OR UNITN0*30> 
[H47ll]*4)f ENIDI 

IF T GEG 64 THFN *508- 

IF M[T + «].[43I2)«3 ThEN BEGIN FORGETSP ACEC T > J Tl«lJ pNDJ 

END? 

IF CARn.CBil] THEN GO DOWNR* 
IF T LSS 2 
THEN IF T*l 

THEN LBMESS(ABS(CMM[2])»CMM[3],-7,45.0.SP0UTUNIT»LIBERR) 
ELSE LBMESS(CMM[0]»CMM[1],-7,15#0#SPOUTUNIT.LIBERR) X149- 
ELSE IF T*2 

THEN LBHESS(CMM[2J,CMMr3].-7,25.0tSP0UTUN!T.LIBERR) *149- 
FLSE IF T Gf«J 64 

Then begin 

if mct+21 neq and (userid eqv mcp) neq 

NOT AND (USERID EOV ABS(MtT+2])) NE« 
NOT 
THEN BEGIN 

LBMESS(CMM[2],CMMr3]»-7,4l, 

0, SPOUTUNIT. LIBERRJIX149. 
FORGETSPACE(DlRECT0RYSEARCH(CMMt23» 

CMMt3],14))> 
END 

ELSf IF M[T + 4], [43123 NE<3 
THEN BEGIN 

IF NOT FIRSTIME THEN 
BEGIN FIRSTIMEI»1I 
CMMtl93U(LIBNO»» 
GETESPDlSK)«,ltl8l44t43> 



20573520 


T 


0512»0 


20573525 


C 


051210 


20573530 


T 


051313 


20573540 


T 


051510 


20573760 


T 


051712 


20573770 


T 


051912 

20573490 


20573850 


T 


051912 


20573900 


T 


052013 


20574000 


T 


052212 


20574100 


T 


0523<0 


20574200 


T 


052712 


20574300 


T 


052610 


20574400 


T 


052912 


20574500 


T 


0531J0 


20574600 


T 


053U3 

20574200 


20574700 


T 


053l»3 


20574750 


T 


0532(0 


20574800 


T 


053410 


20574850 


T 


0534J2 


20574875 


T 


053711 


20574900 


T 


053913 


20574905 


T 


054012 


20574910 


T 


054510 


20574915 


T 


0547?2 

20574905 


20574917 


C 


054913 


20574920 


T 


055012 

20574920 


20574922 


T 


055512 

20574905 


20574925 


T 


055512 


20574950 


T 


0557*0 


20575000 


T 


055711 


20575050 


P 


0558J2 


20575100 


P 


056412 


20575150 


T 


057050 


20575200 


P 


0571 JO 


20575250 


T 


057613 


20575300 


T 


057713 


20575350 


T 


0578J3 


20575400 


T 


058211 


20575450 


T 


058512 


20575500 


T 


058512 


20575550 


T 


058710 


20575600 


P 


058910 


20575650 


T 


0592»0 


20575700 


T 


0592»3 


20575750 


T 


0594U 

20575500 


20575800 


T 


05941 1 


20575850 


T 


059613 


20575900 


T 


059713 


20576000 


T 


059811 


20576050 


T 


059912 


20576100 


T 


060010 



I SET OMTT = MOT (PACKETS) 



S POP OMjT 



DIDGETESPDlSKI»TRUr> 

END> 

MtT*4] , [4312 J I «1 I 

DlSKWAlT(T,rCM»30#T.[FFJH 

IF HOU03 THEN FORGETSPACEf 

DlRECTORYSEARCH(CMMr23f 

CMM[3J#14))> 

CHFCKI 

PR0G[CNTJ»*CMM[2]J 

PR06tCNT*l]l«CMM[3]» 

END 

ELSE FORGET SPACE (01 Rector yseaRchc 
CMM[23»CMMt3]i6 

&SP0UTUNiT[9:9:9] 
4SP0UTUNiTr24U2«6] 

)); 



OUTRJ 



IF 
IF 
IF 



foRgetspace(T); 

ENOJ 

CN NEQ AND CCMM[0] OR CMMU)) LSS THEN GO SEEKl 
(CM«»H0LDI)«C0MMA ThEN GO RENO! 
CNbPeR|0 then 

IF FIRSTIMf THEN 

BEGIN BOT H > 

M[CaROLOC-2]«bOI 
M[CARDLOC-13«»lOJ 

CMMr6]l=GETE$PDlSK & 10J 181 33» 15] J 

S SET OMIT a NOTCDATACOM AND RjE) 

DISKWAITCCARDL0C-2.11.CMM[6J 
GO JNJTJ 

END 



INX 0)1 



ELSE GO POWIE; 



FLSE GO CCA 



CHAN! 



AS BIT MASK FOR SYNTAX CHECK 

1 UNTtL 3 DO I SCAN INPUT REQUEST 



X SHIFT PREVIOUS VALUE LEFT 



TJsOl % T USED 
FOR CN:*0 STEP 

BEGIN 

OPTn ;* SCAN* 

T is COPTNsEOUAL) & T[<I3I44»4]J 

if t then cmM[cnj «* c-n else 

IF OPTN GEQ IDENT ThEN CMMCCN] :* ACCUMtO] ELSE 
GO TO INCSC; % INCORRECT REQUEST 
OPTN Is SCAN? % SKIP "/»i»<" OR "J" 
END; X SCANNING INPUT RfQUEST 

TF (T NEQ 0) AND fT nEQ 5} AND (T NEQ 10) THEN GO JNCSCJ 

% Ts5 FOR s/<NAMEl> TO s/<NAME2> 

% T*lO FOR <NAME1>/* TO <NAME2>/» 

% T«0 FOR <NAME1>/<NAME2> To <NAME3>/<NAME4> 

IF (REPEATtsCT GTR 0)) THEN 

BEGIN 

H0LD1 «s CMM[0]J H0LD2 I* CMMC1JI TVMfall CNI«0» 



20576125 
20576150 

20576200 
20576210 
20576215 
20576216 
20576217 
20576220 
20576230 
20576240 
20576250 

20576300 
20576350 
20576395 
20576400 
20576405 
20576410 
20576415 
20576450 
20576475 

20576500 
20576600 
20576700 
20576710 
20576720 
20576754 
20576756 
20576758 
20576760 
20576768 
20576770 
20576780 

20576790 
20576800 
20576850 
20576900 
20576925 
20576950 
20576975 
20577000 
20577025 
20577050 
20577075 
20577100 
20577125 

20577150 
20577175 
20577200 
20577225 
20577250 
20577275 
20577300 



T 060212 

T 060311 

20576000 

T 0603: 1 

T 060612 

T 060813 

T 060913 

T 061012 

T 0611»3 

T 0613J0 

T 0614«2 

T 061612 

20575850 

T 0616«2 

T 061711 

T 0618»2 

T 061812 

T 061910 

T 062010 

T 0620»0 

T 062111 

T 0622»0 

20575300 

T 062210 

T 0625«2 

T 062711 

T 0628J0 

T 062813 

T 063010 

T 063210 

T 063410 

T 063610 

T 063610 

T 063812 

T 063910 

20576720 

T 063910 

T 063910 

T 063910 

T 063910 

T 063913 

T 064110 

T 064110 

T 064212 

T 0644«3 

T 064710 

T 065011 

T 065011 

T 065112 

20576950 

T 0653»3 

T 065711 

T 0657U 

T 065711 

T 0657U 

T 065812 

T 065910 



LOOP* SEFK NAM C HOLD 1 »H0Ld2, CN, CMMt 0] , CMMti ] » H0LD3 , PC 0) ) J 
TF CN * THEN % NOT FOUND IN DIRECTORY 
BEGIN 

IF TYM s 1 THEN * FIRST PASS* NULL SEARCH 
BEGIN 

LBMESS(H0LD1# H0LD2* -5, 15, INOT CHANGED, NOT ON DISK 
0, SPOUTUNIT, LIBERR)* f 1«9- 

fndj 
go to next! 

END? 

TYM 1* ?! 

IF HOLDl LSS THFN CMM[2] >* CMM[03 ELSE 

IF HOLn? LSS THFN cMMr3] 1 = CMM[U; % USF NaMe "FOUND" 

FNOJ 

IF (T!«DlRFCT0RYSEARCH(CMMt2],CMM[3],5)) NeQ THEN 
BEGIN 

FORGFTSPACE(T)J 
LBMESS(CMM[0], CMMrl]* -5* 29, % NOT CHANGED* DUP FILE 

0, SPOUTUNIT* LIBERRH *149- 

END ELSE 

BFGIN 

TJslF SYSTENFlLECCMMtO)»cHM[l3) THEN 2 ELSE 

DJ RECTOR YS EARC H(CMM[0],CMMtl], 5) > 
IF T GEQ 64 THEN 
BEGIN IF N0TCM[T + 4],[«4!1]> THEN BEGIN FORGETSPACE C T ) J 

T*DlRECT0RYSFARCH(CMM[0],CMMnH(P(UNlTN0,DUP) 3 25 OR 
P(XCH>»30)rl«47«l 1,4)1 END* *508- 

IF T GEO 64 THEN S508- 

IF MrT+4],r43s?]*3 THEN BEGIN FORGETSPACEC T 3 ; Tjatl 

ENDJ 

END? 

IF T LSS 2 THEN 

LBMESSCCMM[0],CMMn],-5,i5+CCT«l)x30>» % NOT CHANCED 
% 45 = IN USE, 15 « NOT ON DjSK 

0, SPOUTUNIT* LIBERR) *149- 

ELSE IF T*2 THEN 

LBMESSCCMMrO], CMMf 1 3 • "5. 25. X NOT CHANGED. SYSTEM FILE 
0, SPOUTUNIT* 1 ) * 

ELSE IF M[T + ?3 NEO aNd J! NOT FREE FILE 

CUSERTD EQV MCP) NEQ NOT AND I NOT MCP 

(USERID EQV ABS(MrT+23)) NpQ NOT THEN * NOT CREATOR 
BEGIN 
LBMESS(CMM[03» CMMrl 3 • "5* 41* J! NOT CHANGED* INVALID USFR 

0, SPOUTUNIT* 1 )) % 

IF MfT+4].[43«23 Nf« 1 T H EN 

FORGETSPACEC I RECTORYSEARCHC CMM[ 3 » CMM[13» 14 ) ), 
FORGETSPACECT). 
END 

ELSE 



20577325 
20577350 
20577375 
20577400 
20577425 
20577450 
20577475 
20577500 

20577525 
20577550 

20577575 
20577600 
20577625 
20577650 

20577675 
20577700 
20577725 
20577750 
20577775 
20577800 

20577805 
20577810 
20577815 
20577820 
20577823 
20577826 
20577827 

20577828 
20577829 
20577832 



20577835 
20577875 
20577900 
20577925 
20577950 
20577975 
20578000 
20578025 
20578050 
20578075 
20578100 
20578125 
20578150 
20578175 
20578200 

20578210 
20578225 



T 
T 

T 
T 
T 
T 
P 
T 

T 
T 

T 
T 
T 
T 

T 
T 
T 
T 

P 
T 

T 
T 
T 

T 
T 
P 
P 

C 
T 
T 



20577833 T 



20578250 T 



066212 
066611 
0667*0 
066712 
066811 
066813 
0670*1 
067311 

20577425 
0673*1 
0673»3 

20577375 
0673'3 
0674(2 
0677:1 
068012 

20577275 
0680>2 
06831 1 
0683«3 
066492 
068612 
068912 

20577700 
0689*2 
069010 
069213 
069510 
069513 
069913 
070210 

20577823 
0704*3 
0705*2 
071012 

20577829 
071012 

20577823 
071012 
0711H 
0715*1 
0715*1 
0718*0 
0719*2 
0722*0 
0722*3 
0725*2 
0728*0 
0731*1 
073113 
0733*3 
0734*3 
07371 1 
074010 
074013 

20578100 
074013 



BEGIN % CHANGE OK 

MCT + 4]l«(*P(f»UP))i3[ii46i?3l 

Tl*T*rUF(-CMM[2j,CMMt3JtT INX 0"1 ) t 1« « 33U5] I 

r0Rr,FTSPACF([)lRrCT0RYSEARCH(CMMc0],cMM[l],8)); 

HEADFRUNL.OCK(CMMr2j»CMM[3l#T)l 

set omit * packets 

ubmessfcmmto], cmmc1j, 52* x changed to 

cmmt2], cmm[3], spoutunit, libmsg)» 
pbcount:spbcount-((c(cmmro] eqv "pbd ")*not 0) or 
((cmmto] eqv h pud ")*not 0)) and ( cmm[ 1 ] . [ cf j* 1 >) 

+(tf(CMM[2] E»V "PRD «)«NOT 0) OR 

((cmm[23 eqv w pud ">*n0t 0)) and <cmm[ 3] . (cflm > ) i 

end; 



NEXT* 



1 Nf T : 

iNcsr 

CCA* 



end; % 



endj 
if repeat then fio to loop* i find remaining files 



ELSE GO INCSCJ 



IF OPTN*COMMA THEN GO CHAN* 
IF OPTN«PFRIO THEN GO TO CCA 
CCLlBl*LlBNOl GO CC AS 

cclib«»i; 
caddri=cdex«»0; 

IF XLST NfQ THEN FORGETSPACECXLST ) ; 

TF (LIBNOlaPROcVAL).rCE] GTR 1 THEN PR0CVALl*2 

if lirno then pr0cval:*6 else pr0cval»«0> 
rfturnval»bPROcval; 

Pf rRETURNRCW],STS,0»RDS»0,XCHtP&PrCTF]«STE)» 
CCLIB PROCEDURE 



ELSE 



20578275 
20578300 

20578375 
20578400 
20578425 
20578450 
20578525 
20578550 
20578575 
20578600 
20578625 
20578650 
20578675 



20578700 
20578725 
20579900 
20580000 
20580100 
20580200 
20580300 
20580302 
20580305 
20580310 
20580330 
20580340 
20580350 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0740 
0741 

0744 
0748 
0750 
0753 
0753 
0754 
0756 
0758 
0762 
0764 
0769 



20578685 T 0769 



0769 
0770 
0770 
0771 
0773 
0777 
0777 
0779 
0781 
0784 
0787 
0788 
079i 



»3 

M 

12 

J2 

i3 

50 

50 

»2 

13 

:3 

II 

S2 

:0 

20578275 

(0 

20577805 

10 

tO 

to 

tl 

to 

(0 
t3 
tO 
t2 
»2 
'3 
J2 



II 

205660H 
SIZE* 0792 WORDS 



REAL PROCEDURE CCSET; FORWARD; 



PRT(654) « CCSET 

PROCEDURF CCFlMlSH) 

PRT(655) m CCFJNtSh 

BEGIN 

DECI.ARECCVARIABLES; 
= MSCW 
a CARD 

sew 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



fP-2) 
f F-l 5 

fFM) 
fF + O) 
fF + 1) 
fF*2) 
fF + 2) 
(F + 3) 
(F*3) 
fF*4) 
(F + 5> 
fF*5) 
(F + 6) 
fF + 7) 
(F + 10 
(F + ll 
fF + 12 
fF + 13 
fF+H 
(F + 15 
f F + 16 
fF+16 
fF + 17 
fF*20 
CF + 21 
CF + 21 
fF + 22 
fF + 22 
fF + 23 
fF + 2* 
fF + 25 
fF + 26 
tf + 27 
fF + 30 
fF + 31 
(F+32 
(F + 33 
(F + 34 
CF + 35 
(F + 36 
fF + 37 
fF + 40 
fF + 41 
fF + 42 
fF + 43 
fF + 44 
fF + 45 



m 

¥ 
s 



MSC 

CAR 

MYM 

RCW 

PRO 

A 

T 

CAn 

SFI 

CAR 

COE 

SDE 

CMP 

CN 

KO 

LA 

L! 

Nl 

N2 

N3 

N4 

U 

OP 
OP 
PA 
SF 
PD 
SM 
PP 
SO 
SP 
ST 
Tl 
UN 
US 
AC 
CE 
CM 
Pi 
PE 
PR 

AD 
AB 
TO 
RE 
RE 
RE 



20580400 T 000050 

START OF REL SEGMENT! DISK ADDRESS * 00679 

20580800 T OOOOJO 

START OF REL SEGMENT! DISK ADDRESS ■ 00679 

20580852 T OOOOJO 

20581000 T OOOOJO 



CVAL 



DR 

D 

DLOC 

X 

X 

LR 

UNT 

STSCAN 

BNO 



TN 

TNN 

DDR 

H 

EX 

ID 

CPROCESS 

URCE 
OUTUNiT 



ITNO 

ERID 

CUM 

ON 

M 

RECT 

QN 

OG 

DR 
ORT 



iTURNMSCW 
•TURNRCW 
iTURNVAL 
REAL TFMP 
STACKfF+45) ■ TEMP 



a RETURnRCW+1! % BFGIN LOCALS OF CCFINJSH 



20581080 T 0000:0 



P(RCW. 
RCWt*R 

P(0); 
PPCPRO 
CNtsTJ 
IF OPT 
BEGIN 
C 
P 



MYMSCW.STF); 
CW & PfXCH)rCTcl» 
% ZERO LOCAL OF CCFfNlSH 

cfssjko; 



N 



PERIO OR OPTN • LIBRA THEN 



then 32767 



MM[?2lta PR0GT22]* 

ROGr?].CCF]J« TF PROG[l«J > 32767 
FLSE PR0GC18]J 
IF PR0GC20] > 512 THFN PR0r,[20J*« 5121 
IF PADDR NEQ THEN 
BEGIN 
PEQN[29]J« 01 

if pdex»o then pfqn[OJ **i4; 
if pdex*i then peqnci4]i« 141 

DlSKWAIT(Pp0N.CCFl»30»P*0DR)l 

ENOJ 

PR0Gt29]». Oj 

CMM[2J.tFFU»NTll»GETESPDISK| 

rnSKWAlT(PR0G.[CF]»30»NTl); 

FNDJ 

IF CAHOR NfQ THEN 
BEGIN 
CFQN[29]:« o> 

if cdex*o then ceqn[0]»« hi 
if coex*i then ceqnchji* 14; 

DISKWAIT(CfON.[CF3»30»CADDR)I 

eno; 
complfxsleepccschfduleios/not 0) ano sheetfref)' 

19900670 ACCIDENTAL fNTRY AT 1 

locktogcsheftmaskj; 



CDEX»= GETESPDISK) 

CMMt2].rCFJl» IF CMMrl8] > 32767 THEN 32767 
PHEX:= IF CMM[l8] > MJXMAX THEN MJXMAX ELSE 
IF LIBN0 NEQ THEN CMM[l9]«s: LIBNOJ 

streaM(Ai*o:si=P(.schEduleiDS)>; 

BFGIN SflaS) 

47fSKiP sb; skip dbi tally»*tally-u» 
if sb then bfgin end else jump oimj 



ELSE CMM(18]» 

cMMrifl] ; 



dsjb set; 
fnd stream; 



a** Tally; 



TEMPI. P; CMM[3]I« OiTEMPr8:38llO]; 
CMMt23).r24l24 3*(CL0CK*P(RTR))DlV 60; 
TF SHEETrPDEX].[CF3 NfQ THEN 
BEGIN 

OlSKWAlT(-PROG.rCF3'30»PADDRI«SHEET[PDEXJ,tFF]); 
PR0GC29l»a CDEX; 

DlSKWAlT(PROo.[CF]f 30,PADDR); 
END 



20581900 T 

20581950 T 

20582000 T 

20582050 T 



20581125 T OOOOiO 
20581130 T OOOiJO 
20581140 T 000251 
20581150 T 0002*2 
20581200 T 0003*1 
20581250 T 0004*0 
20581300 T 0005*3 
20581350 T 000611 
20581400 T 0007:3 
20581450 T 000913 
20581500 T 0012*1 
20581550 T 0015*0 
20581600 T 001513 
20581650 T 0016U 
20581700 T 0017*2 
20581750 T 002010 
20581800 T 002212 
20581850 T 002452 

20581600 

0024*2 

002513 

002812 

0030:2 

20581300 
20582100 T 003012 
20582150 T 0031*1 
20582200 T 0031 * 3 
20582250 T 0033*0 
20582300 T 0035*2 
20582350 T 0038*0 
20582400 T 0040*0 

20582150 

0040*0 

0047*0 

20582450 
20582500 T 0050*2 
20582550 T 0051*2 
20582600 T 0056*0 
20582650 T 0059*1 
20582750 T 0061*3 
20582800 T 0063*0 
20582850 T 0063*1 
20582900 T 0064*1 

20582900 
0065*3 
0066*1 

20562800 
20583050 T 0066*2 
20583100 T 0069*1 
20583150 T 0072*3 
20583200 T 0074*1 
20583250 T 0074*3 
20583300 T 0078*1 
20583350 T 0079*2 
20583400 T 0081*2 

20583200 



20582440 T 
20582450 T 



20582950 T 
20583000 T 



END 



ELSE SHEFTfPDE*]!* CDEX* 
SHFFTrPDfXl.rtBt 15 3** CDEX; 
CMM[?9]>r 0; 
PTSKWAlTccMM,[CF],30 # CDEX); 

unlocktogcSheeTmask)? 

Pf rRETURNRCW],STS,0»RDS»0,XCH»P&PtCTFl»STF)< 

ccfinish; 



20583450 
20583500 
20583550 
20583600 
20583650 

20583700 
20583710 
20583750 



T 0081*2 
T 0084*1 
T 008611 
T 0067»2 
T 0089J2 

20583650 
T 0093*0 
T 0093*3 
T 0096*2 

20580852 
S!ZE» 0097 WORDS 



PRTC656) a 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



fF-2) 
fF-1) 
fFM) 
fF + O) 
fF+1) 
fF*2) 
fF + 2) 
<F + 3> 
fF + 3) 
fF + 4) 
fF + 5) 
fF + 5) 
fF + 6) 
rF + 7) 
fF+10 
fF+11 
fF+12 
fF + 13 
fF + 14 
fF + 15 
fF + 16 
f F + 16 
(F + 17 
(F*20 
(F + 21 
(F + 21 
fF + 22 
(F + 22 
(F + 23 
fF*24 
fF + 25 
fF + 26 
fF + 27 
fF + 30 
fF + 31 
(F + 32 
(F + 33 
fF + 34 
fF + 35 
fF + 36 
fF + 37 
fF + 40 
rF*4l 
fF + 42 
fF + 43 
fF + 44 
fF + 45 



REAL PROCEDURE CCCOMPlLE* 

START OF REL 

CCCOMPILE 

BEGIN COMMFNT SETUP OF cOMPiLfR LABFL EQUATION CODE« PN1/PN2J 
DECLARrrCVARlARLESJ 

* MSCW 
» CARD 

a MYMSCW 

x RCW 

s PROCVAL 

. A 

a T 

u CAODR 

m SFID 

> CARDLOC 

3 CDEX 

* SDEX 
a CMPLR 

* CN 

■ KOUNT 

s LASTSCAN 

■ LIBNO 

■ ni 

* N2 

* N3 

■ N4 
= U 

» OPTN 

■ OPTNN 

■ PADDR 
» SFH 

* PDEX 

■ SMyn 

= PPCPROCESS 

■ SOURCE 

= SPOUTUNJT 

* ST 

* Tl 

* unttno 
a usERin 

* ACCUM 
a CEQN 
3 CMM 

a DfRECT 

s PEQN 

s PROG 

b AOOR 

■ ABORT 

■ TOG 

* RETURNM5CW 
a RETURNRCW 
a RETURNVAL 

REAL SUBROUTINE SCAN.' 

SCAN«-SCN( UN I TNO. CARDLOC* SOURCE, ACCUM, KOUNT* LASTSCAN. DIRECT) I 
LABEL SkN,fXjT) 
DEFINE 7lPMlXBCARD.rl8»6]*J 
DEFINE OISKTYPE « \0#l% 



20583800 
SFGMfNTI DISK 

20583860 
20584000 



T OOOOtO 
ADDRESS ■ 00683 



0000:0 
0000*0 



20584150 


T 


0000:0 


20584200 


T 


oooi so 


20584250 


T 


0004*1 


20584275 


T 


0004 J 1 


20584300 


T 


000451 



PfRC 
RCW: 
CCCO 
Tt*S 
CFON 
Tl*S 
T I »S 
CFQN 
CFQN 
CEQN 

cfon 
cfon 
cdex 

IF ( 
PFC, I 



CFON 
IF U 
IF U 
IF U 
END I 



W,MYM 
aRCW 

MPll.E 

can;x 
[0]: = 
can;* 

CANiX 

r?3»- 

[ 3 ] « * 

Mils 

[123* 

Is 

(UNIT 

N CFQ 
CFQ 

ti«3l 

NITNO 
NITNO 
NITNO 



scw.stf); 

& PfXCH)tCTp]; 
*0J 

ACCUM[0J|» 



ACCUM[0]JK 

DIS 
042 

= o: 

II* 

N0 + 
N[l 
N[l 



KTYPF.IX 

3462425606060}* 
X EU/SPFFn CELL 



1JAN0 24)»?4 OR UNITNO GFQ 32 THEN* 
4]t»CF0Nrl6]»*CF0N[173t»0>X 

5]:* "CARD 00" OR ((IF UNjTNO GEO. 32 THEN* 
M C/" ELSE P57r2) + UNITN0)>X 
*P4232l5l24000000; CDEX(«2;X 

GFQ 32 THEN C I OROWtUNI TN0-32] , [ 3 ( 5 ] I »1 ELSE* 
s23 THEN READERA»[FF] * 1 ELSE 
*2'4 THFN READERB.TFF] ♦ 1) 



WHILE (CNIbSCAN) LSS ALGOL OR CN GTR COBOL DO 

IF CNsPERtO THEN REGlN CCCOMPl LE » «1 J GO EXIT END! 



IF CN^WITH THEN 
IF (CN*SCAN)bPeRiO 



then begin cccompile*i? go exit 



if cn<algol or cn>cobol then 

IF(T»*DIRECT0RYSEARCH(ACCUM[03, W DISK w »5))#0 
BEGIN IF NOT M[T*4].[6I1] ThEN 

BEGIN LBMeSS(aCCUM[0),«DISK -,-22,0, 
0, SPOUTUNiT, LIBERR)' 

forgetspace(T); cccompilfm; go exit; 
end; forgetspace(T); 

FNDJ 

comment set up nominal values for program parameters?* 

CMMrOj:«-(CMPLRS*ACcUM[0]); CMMtU»«CEQN[0]J 

CMMt2]S=0J 

CMMmiSe caddRj* gfTespdisk; 

S SET OMiT ■ PACKFTS 

S SET OMiT * NOT(PACKETS) 

CMM[23]»«0&CARDt9»9j9]4(i r ZlPMjX NeQ THEN PSeUdOMi 

FLSE UNlTN0)[2»42l6]| 
S POP OMjT 

CMMt27]»«CEQNf 13 1 2SFID FOR SCHED MESS, 
% GET OPTION (GO, SYNTAX CHECK, OR LIBRARY) 

SKNJ DO OPTNlsSCAN UNTjL OPTN«PfRiO OR OPTN-SYNTA OR 0PTN*LlBRA 
OR OPTNaOUESTI % IN CASE OF HYPHEN IN COMMENT PORTION 
IE OPTNbUUEST THEN 

IF S0URCE*(CARdL0c&1[30»45»33) THEN 
BEGIN 

OPTNIwPFRlO; SOURCE««CARDLOCI 
END ELSE GO TO SKN5 





20584325 


T 


0004 J 1 




20584330 


T 


0006*1 


*510- 


20584340 


C 


000712 




20584350 


T 


0008*1 




20584400 


T 


0009:2 




20584450 


T 


001 1 10 




20584500 


T 


00l2»2 




20584550 


T 


0014>2 




20584600 


T 


0016(0 




20584650 


T 


0017U 




20584700 


T 


001812 


* (SHM) 


20584710 


T 


001913 




20584750 


T 


002150 




20584800 


T 


002113 




20584850 


T 


0024*2 




20584900 


T 


0028:1 




20584950 


T 


002913 




20585000 


T 


0032»2 




20585050 


T 


003412 




20585100 


T 


003813 




20585125 


T 


0047(2 




20585150 


T 


005012 

20584850 




20585200 


T 


0050(2 




20585250 


T 


0054(2 

20585250 




20585300 


T 


0057."2 


END! 


20585350 


T 


0058*1 

20585350 




20585355 


T 


0062*3 


EN 


20585360 


T 


0064(2 




20585365 


T 


0067*2 




20585370 


T 


0070«1 


X149- 


20585375 


P 


0072*2 




20585380 


T 


0075(2 




20585385 


T 


0079J0 

20585370 




20585390 


T 


0079J3 

20585365 




20585400 


T 


007913 




20585450 


T 


0079(3 




20585500 


T 


0083:2 




20585550 


T 


0084*3 




20585599 


T 


008613 




20585609 


T 


008613 


ZIPMIX] 


20585610 


T 


0086(3 




20585620 


T 


0090»1 




20585621 


T 


0093» t 




20585630 


T 


009311 




20585650 


T 


009413 


RA 


20585700 


T 


0094(3 




20585705 


T 


0098(3 




20585710 


T 


010013 




20585715 


T 


010H2 




20585720 


T 


0103*3 




20585725 


T 


0104(1 




20585730 


T 


0105(3 



% SET UP 



cMMrPi.cenO] :s if nPTNePpRjo then i else 

IF OPTN = SYNTA THEN 3 ELSE 4 t % (OPT NI = L I BR A ) 

IF OPTn neq synta thfn 

PROG ARRAY FOR COMPILE AND GO OR COMPILE TO LIBRARY JOBS 
BEGIN 

PROGtOU* CEQNtO] I 
PROGtm* CEONIllj 
PROGt21« B PROG[153:= Oj 
PR0Gtl6]«*PR0G[l7]l» 9377777777777; 
PROGU83ls CMIXMAX + D DIV 2j 
Oj 
-1J 

512; 
10; 

CMMI23]; 
USERlOi 

end; 



PR0G[l9]ls 
PR0Gt20] «« 
PR0GC211I" 
PR0G[2?]«* 
PR0GC233 I* 
PR0G[24]I= 



EXIT: ReTURNVAL|*PROcVAL; X ADJUST RESULT OF TYPED PROC 

P([RETURNRcW3.STS,0»RDStO.XCH»P*PtCTF]»STF)l 
END CCCOMPjLF? 



20585750 
20585800 
20585850 
20585900 
20585950 
20586000 
20586050 
20586100 
20586150 
20586200 
20586250 
20586300 
20586350 
20586400 
20586450 
20586500 
20586550 



20586600 T 
20586625 T 
20586650 T 



0105 
0108 
0112 
0113 
0113 
0113 
0115 
0116 
0118 
0121 
0123 
0124 
0126 
0127 
0128 
01 30 
0131 

0131 
0132 
0134 



SIZE" 01 



20585720 
(3 

«3 

«1 

10 

10 

12 

10 

12 

13 

10 

«1 

!2 

10 

d 

12 

10 

II 

20585950 

11 

10 

13 

20563860 

37 WORDS 



PRT(657) 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



fF-2) 
fF-1) 
f F-l ) 
(F + 0) 
fF+1) 
(F + 2) 
(F + 2) 
fF + 3) 
(F + 3) 

rF + 4) 
rF+5) 

fF*5> 
fF + 6) 
fF + 7) 
fF + 10 
(F+ll 
(F*12 
(F+13 
(F+H 

er+15 

CF + 16 
(F + 16 
fF + 17 
(F + 20 
fF + 21 
fF + 21 
fF + 22 
rF + 22 
fF + 23 
rF + 24 
fF + 25 
tF*26 
fF*27 
rF + 30 
fF + 31 
fF + 32 
fF + 33 
(F + 34 
(F + 35 
(F+36 
(F + 37 
f F + 40 
<F + M 
fF*«2 
fF*43 
fF + «4 
fF*45 



STACKfF+46) 



REAL PROCFDUPF ! Ml T I AL I ZF I T ; 

START 
INJTIALIZFIT 

BEGIN LaRFU TRYaGA 1 N» LS, SPLAT, SPOT , fX I T ; 

declareccvaRiables; 

b MSCW 

x CARD 

a MYMSCW 

• RCW 

B procval 

= A 
» T 

s CADDR 
■ SFID 
a CAROUOC 
s CDEX 
s SDEX 
i CMPLR 
z CN 
> KOUNT 

* LASTSCAN 

■ LIBNO 

* Nl 

■ N2 

* N3 
= N4 
= U 

OPTN 

OPTNN 

PADDR 

SFH 

PDE* 

SMTD 

PPCPROCESS 

SOURCE 

SPOUTUNlT 

ST 

Tl 

UNyTNO 

USeRiD 

AC CUM 

CEQN 

CMM 

DIRECT 

PEQN 

PROG 

ADDR 

ABORT 

TOG 

returnmscw 

RfTURNRcW 
RETURMVAL 

REAL CMMi = RETURnVAL+11 * BEGIN LOCAL TO I N I T I A L T ZET I T 
CMM 1 

REAL SUBROUTINE SCAN; 

SCAN^SCN (UN I TNO»CAROLOC SOURCE, ACCUM,KOUNT»LASTSCAN^ DIRECT)? 
PfRCW, MYMSCW, STF); 



20586700 T OOOOlO 

OF REL SEGMFNri DISK ADDRESS * 00688 

20586715 T OOOOlO 

20586800 T OOOOlO 



s 
s 

3> 
X 



20586950 T OOOOlO 



20587050 
20587100 
20587HO 



OOOOlO 
OOOllO 
000411 



RCWJsRCW * PfXCH)[CTC]J 

PfOJI J! 7fR0 LOCAL TO I N I T I AL ! ZF. I T 

PpOGrl.^]«*PAODR«*PDEX:=0> X IN CASE PROGRAM NOT IN DIRECTORY 

TRYAGAIN* 

IF ( Tl.DTPFCTORYSEARCH(ABS(CMMrO])tCMMH«IF CMM[0] LSS THFN 

"DISK « ELSE CMM[1]»3))"0 THEN 
BfGIN 

IF CMMt?] .SSYSJOBF * LlBMAlNCODE THEN 

BFGIN 

fmtersysfilecdj 
go tryagain) 

fnd; 

if caro.[9«9]*o then go to ls; 
s set omit a notcdatacom) 

BFGIN 
LBMESS(ABS(CMMr0])#CMMl#-l5»0,0.SP0UTUNlT.LlBEKR)J 



LSI 

SPLATJ 



S149- 

IF UNlTNO GEQ 3? THEN BEGIN I N 1 T I AL IZE I T I *5 J GO EXlT END* 

END? 

DO T*SCAN UNTIL TMDENT AND TSRESETVJ 
IF UNlTNOs31 THEN BEGIN I N I T I ALl ZE I T t *7; GO EXIT* END! 

INJTJALIZEITJ*! J GO FXlTJ 
END? 

IF MrT JNX 4].r9l?]«2 T H EN 
BFGIN FORGETSPACE(T); 

GO TO SPOT1 
END* 

if sfcurpycheck(abs(cmm[0])» 
cmmi »usfrid»t)bO then 

BFGIN 

OPTNlsOj cMMr23l"T» 
P(DlRECTORYSEARCHCNABS(CMMt03)»CMM[l]l»CMMiil3)tDEL)l 

tnit!alizeit|*«» 
go to exit; 
fnd» 

oiskiocn1 .-(peon inx 0-1 ) » 30»m[ t+10] ) i 

PfMfT INX 4],t9l?]«3)l FORGETSPACECTJUNOTE FOR BELOW 
CMMT?4]|b USERIO* 
CMMr?5]ls T.rEF]J 
SLEEP? [Nil. IOMASK); 
FOR TSaJ STEP 1 UNTIL 4 r>0 
IF (NOT ABSCPEfiNtTl&OCCTcl)) N EQ NOT THEN Tl* 1\ 

if PF«Nf3i ge q o then * skip if Restart filf xio6- 

IF ABS(PE«Nt3])>lOp3 THEN PfDELtT*0)l I PRT>1023 NO WAYI202- 
% SET OMIT s NOT(BREAKOUT) 
$ SET OMjT » BREAKOUT 

if PEQNrsiani] then P(DEL#Tt«om can-t restart; 

$ POP oMfT 

IF PE0Nt21,t3«n Then * I.P.C, XI 10- 

IFCPeON[81>23 THEN P(DEL,T*0)J X I.P.C. - NEEDS PARAMETERS 
IF NOT (P OR T) THFN *NOT CODE 



20587120 


T 


20587130 


T 


20587150 


T 


20587170 


T 


20587200 


T 


20587250 


T 


20587300 


T 


20587310 


T 


20587330 


T 


20587340 


T 


20587350 


T 


20587360 


T 


20587370 


T 


20587399 


T 


20587500 


T 


20587550 


P 


20587650 


T 


20587700 


T 


20587750 


T 


20587800 


T 


20587850 


T 


20587950 


T 


20587975 


T 


20588000 


T 


20588010 


T 


20588020 


T 


20588030 


T 


20588050 


T 


20588100 


T 


20588150 


T 


20588200 


T 


20588250 


T 


20588350 


T 


20588360 


T 


20588370 


T 


20588400 


T 


20588450 


T 


20588500 


T 


20588550 


T 


20588600 


T 


20588650 


T 


20588700 


T 


20588701 


C 


20588702 


C 


20588710 


T 


20588730 


T 


20588740 


T 


20588745 


T 


20588746 


C 


20588747 


C 


20588750 


T 



0006U 
0007*2 
000713 
OOlOlO 
OOlOlO 
001210 
001513 
0016U 
0017:3 
0018U 
001910 
0021»0 

20587330 
0021*0 
002213 
002213 
002213 
002713 
002713 

20587700 
0030»1 

20587500 
0030U 
003313 

20587850 
003611 
0037*2 

20587300 
0037J2 
0040>0 
004H1 
0041«3 

20588010 
0041 «3 
0042J3 
00441 1 
004413 
004613 
004913 
005012 
005110 

20588150 
005110 
005511 
005812 
005913 
006112 
006310 
006410 
006913 
007013 
007410 
0074«0 
007410 
007612 
007612 
007712 
008012 



SPOT: 



BFG1N 

LBMFSS(ABS(CMM[0J)»CMMl,-19»0,0.SP0ljTUN!TfLlBERFO; 

P(DTRFCTORYSEAHcHfNABS(CMMrO]),CMMl,13)»DFD* 

r,o to splat; 

FND* 

if PF«Nr6i lss o t h en for T:*i5 step i until 22 00 
cMMrnispFQNrn else 

BEGIN 

CMM[151l« 0; 

CMMU63;* CMMf 173 ** 9377777777777} 
CMMri83J»(MixMAX+l) 01 V 2> 

cMMri9]»* o; 

CMM[20]I* PEONf/J.[FF]i 
CMMT21 J !=» 512* 
END> 



*149" 



TNITIALT7FIT8S3; 

FXITJ RFTURNVAL:*PROCVAL) % ADJUST RESULT OF TYPED 

P(lRETURNRcWJ»STSf 0»ROSf 0»XCHtP«PCCTF3tSTF)l 
END INI TI ALTZEIT ; 



PROC 



20588800 
20588900 
20589000 
20589150 
20589200 

20589250 
20589300 
20589350 
20589400 
20589450 
20589460 
20589470 
20589480 
20589490 
20589500 

20589550 
20589600 
20589610 
20589650 



T 008111 
P 008113 
T 008653 
T 008813 
T 0089U 

20588800 
T 0089M 
T 0092*0 
T 009513 
T 0096»1 
T 009712 
T 009913 
T 010210 
T 0103U 
T 010511 
T 0106*2 

20589350 
T 010612 
T 010711 
T 0108J0 
T 011013 

20586715 
SIZE* 0113 WORDS 



PRT(660) ■ 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



(F-2) 
fF-1) 
fFM) 
fF + O) 

fF+1) 
(F + 2) 
(F + 2) 
fF + 3) 
fF + 3) 
(F + 4) 
rF + 5) 
<F*5> 
(F + 6) 
fF + 7) 
(F+10 
fF + 11 
f F + 12 
fF + 13 
fF + 14 
fF + 15 
fF+16 
fF+16 
(F*17 
{F + 20 
fF + 21 
fF + 21 
fF + 22 

(F t ?? 
fF + 23 
<F + 24 
fF + 25 
fF + 26 
rF*27 
rF + 30 
f F + 31 
fF*32 
(F + 33 
(F + 34 
fF + 35 
(F + 36 
fF + 37 
fF + 40 

<r+<*i 

(F*A2 
fF*43 

(F + 45 



B 



REAL PROCFDURE CCUNjT) 

START OF REL 
CCUNJT 

begin label ui»eRror»emt; 

OECLARErCVARlABLES; 

* MSCW 
3 CARD 

m MYMSCW 

* RCW 

= PROCVAL 

a A 

a T 

« CADDR 

<* SFID 

a CARDLOC 

= CDEX 

* SDEX 

* CMPLR 
x CN 

■ KOUNT 

* LASTSCAN 

■ LfBNO 

• Nl 
N2 
N3 
N4 
U 

OPTN 
OPTNN 
PADOR 
SFH 
POFX 
SMlD 

PPCPROCESS 
SOURCE 
SPOUTUNjT 
ST 
Tl 
UNlTNO 

useRih 

ACCUM 

CEQN 

CMM 

DIRECT 

PFON 

PROG 

addR 

ABORT 
TOG 

returnmscw 
returnrcw 
returnval 
real subroutine scan) 

sc an*scn c un !tn0,cardl0c»s0urcf, ac cum, kount. la st scan .direct)) 

PrRCW, MYMSCW, STF)J 
R C W« B RCW 4 PfXCH)rCTcj; 

T»8 SCAN) CNI» ACCUMrO]) 



20589700 
SEGMENT) DISK 

20589720 
20589800 



T 0000*0 
ADDRESS • 



00692 



OOOOJO 
0000»0 



a 



c 



a 
a 



20589950 
20590000 
20590010 
20590020 
20590050 



0000)0 
0001)0 
000411 
000611 
0007»2 



USCANJ IF T#EOUAL THEN Go ERROR? 
FOR TJ= STEP 1 UNTIL 31 DO 

IF CN,r6Mfl] = 7 !NU[T] f [301 18] THEN GO TO U1J 

ui« if l.abYlt ablectj neq 03H then begin ccunit»s6» go exit end; 

CNj= SCAN* 

MULT!TABUEtT3i»RDCTABLEtT3l«0| 
LARELTABLETTJlB ACCUMfO]; 
IF (CN»" SCAN) s SLASH T H EN 

BF6IN MULTtTABLEIT]I« LaBELT ABLEt T J J 

CN*SCAN1 LABFLTABLE[T]*ACCUMtO]l CN*SCANJ 

END* 

if cn»comma thfn 

begin lf(cn«-scan)#idenr or k0unt>3 then go error! 

stream(R*o«kount»accum); 

begin si*accum|si*si+hol»loc rjds*kount oct end! 

RDCTABLE[T3*Pf XCH»RDCTABLErT])«P(XCH)rMl3«llO]| 

IF(CN*SCAN)»cOMMA then 

BEGIN lF(CN«-SCAN))«iDENT OR K0UNT>5 THEN GO ERROR* 

STREAM(R«.0*KOUNT»ACCUM); 

BEGIN S!*ACCUM|SI*SI + 1IDI«-L0C R*DS*KOUNT OCT ENDI 

RDCTABlECT]*-PCXCH»RDCTABLE[T])&P(XCH)[24I31»17]J 

IF(CN«-SCAN)«COMMA then 

BEGIN !F(CN*SCAN)#IDENT OR K0UNT>2 THEN GO ERROR* 

STRFAMcR*0»K0UNT»ACCUM)I 

BEGIN SI*ACCUMjSl*S!*llDl*LOC R*DS*KOUNT OCT END) 

RDCTABLEtT]*P(XCH»RDCTABLE[T3)&P(XCH)['4lUH7)> 

END XCYCLF 

END ICREATJON DATE 
END* XREEL NUMBER 

IF CN# perio then do cn*scan until cnxPeriojccunit«-o;qo exitj 
ERROR: cCUNTT*6j 
FXiTI RfTURNVALIbPROcVAL* I ADJUST RESULT OF TYPED PR0C 

Pf rRE T URNRCW]tSTS,0iR0SfO,xCH#P*PtCTF3»STF)l 
END CCUNITI 



20590100 
20590150 
20590200 
20590250 
20590300 

20590350 
20590400 
20590450 
20590500 
20590550 
20590600 
20590610 

20590650 
20590655 
20590660 
20590665 

20590668 
20590670 
20590675 
20590680 
20590685 

20590688 
20590690 
20590695 
20590700 
20590705 

20590710 
20590715 



20590720 T 
20590725 T 



20590730 
20590740 
20590750 
20590751 
20590800 



T 001012 
T 0013*3 
T 0015*0 

T 0019*3 
T 0020*1 

20590300 
T 0023*0 
T 0024*2 
T 0026*3 
T 0028*1 
T 0030 8 
T 0032*0 
T 0036*2 

20590550 
T 0036*2 
T 00 37*1 
T 0041*3 
T 0043*2 

20590665 
T 0045*0 
T 0047*3 
T 005010 
T 0054*3 
T 0056*2 

20590685 
T 0058*0 

T 0060*3 
T 0063*0 
T 0067*3 
T 0069*2 

20590705 
T 0071*0 
T 0073*3 

20590695 
0073*3 

20590675 
0073*3 

20590655 
T 0073*3 
T 007910 
T 0079*3 
T 0080*2 
T 0083*1 

20589720 
SIZE* 0084 WORDS 



PRT(661) « 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



fF-2) 
fF-1) 
(F-l) 
fF + O) 
fF + D 
fF + 2) 
(F + 2) 
fF*3) 
fF + 3) 
fF + 4) 
(F + 5) 
fF + 5) 
fF + 6) 
ff + 7) 
fF*lO 

fF + 11 
fF + 12 
rF + 13 
fF + 14 
(F + 15 
eF+16 
(F + 16 
(F + 17 
fF + 20 
fF + 21 
(F + 21 
fF + 22 
fF + 22 
fF + 23 
fF + 24 
fF + 25 
fF + 26 
fF + 27 
fF + 30 
fF + 3l 
fF + 32 
fF + 33 
fF + 34 
fF + 35 
fF + 36 
fF + 37 
fF*40 
fF + 41 
fF + 42 
(F + 43 
fF + 44 
fF + 45 



m 



REAL PROCEDURE CCSECMAINTJ 

START OF REL 
CCSECMAINT 

BEGIN LABEL EXTT»CCCJ 
DECLARECCVARlABLESl 

* MSCW 
a CARD 

a MYMSCW 
a RCW 
s PROCVAL 
« A 

; t 

■ CADDR 

« SFID 

» CARDLOC 

a CDEX 

• SDEX 
a CMPLR 
« CN 

KOUNT 

LASTSCAN 

LTBNO 

Nl 

N? 

N3 

N4 

U 

OPTN 

OPTNN 

PAOOR 

SFH 

PDEX 

SMiD 

PPCPROCESS 

SOURCE 

SPOUTUNIT 

ST 

Tl 

UNfTNO 

USERlO 

ACCUM 

CEQN 

CMM 

DIRECT 

PEQN 

PROG 

ADDR 

ABORT 

TOG 

RETURNMSCW 

RETURNRCW 

RETURNVAL 

REAL SUpROUTlME SCAN* 

SC AN*SCNcUN I TNO. CARDLOC .SOURCE, ACCUM, KOUNT .LASTSCAN. DIRECT) I 

LABEt 0PTN0,0PTNi,0PTn?.SfC1»SEC2.SEC5»ST1. 
ST?, LSI 

SWITCH SWI«0PTN0,0PTNi,0PTN2> 



20590850 
SEGMENTl DISK 

20590910 
20591000 



T 000010 

ADDRESS ■> 



00695 



000010 
000010 



8 
8 



20591350 
20591400 
20591500 
20591550 
20591600 



0000 SO 
000110 
000411 
0004U 
000411 



OPTNOl 



pcRcw,mymscw#stf ); 

PCWtsRCW K P(XCH)tCTC]> 

GO TO SWfOPTNNDJ 

USFR!D«» ABS(USrRlD)* 

IF SCAN LSS IOENT THEN BEGIN 



CCSFCMAIMTI«6|G0 EXIT END! 



smjd'b cmmtO]!* ACCuMrOit cn»*scan; 

IF SCAN LSS JDENT THEN BEGIN CCSECMA I NT J «6? 



GO EXIT ENDI 



SFIDU CMMt J 3 «■ ACCUMfO]; CDEXl* 01 

IF (SFHI«DIRECT0RYSEARCH(SMID»SFID»4))»0 THEN GO TO LSI 

IF N0T(SYSTEMFILE(CMM[CDEX3 »CMMtCDEX+lJ) OR 

(SMID EQV "pBD "J.NOT 0) AND (M[SFH+53*0 

AND MCSFH+23 NEQ 0) THEN 
% INHIBIT USE ON PUBLIC* SECUrE FILES 

BEGIN CNlsSCANl GO TO 0PTN2 ENDj 



OPTNH 



OPTM?l 



SEC1 



OPTNIieOj CMMt2]»* SFHJ 

PCDIRECT0RYSEARCH(NaBS(CMM[0J)»CMMC1]»14)*DEL)I 
STREAM(USERlO»0»»U5pRf D>0,Bl*ICMM].Dl»CNl«SPACE(iO))l 
BEGIN OCSpsLOC USERIDI S | » »S I + 1 I OS I «L I T " "J DS*s 7ChRI)I 

DSt* 17LIT » INVALID USER Of "J Sl««B* 

SllsSn-iJ DS!e 7CHRJ DS!*LIT "/"I S I t«S I + 1* DSl* 7CHR* 
DSlcLlT ,, »-' , J 
END STREAM! 

5P0UTfR{ CN«CARDr9:9»9J» SPOUTUNIT, 1 )l % 

FORGETSPACE(CMMt23){ 

IF OPTN NfQ ThfN rO TO $EC5* 

IF UNiTNO GEO 3? THrN BEGtN CCSECMA I NT * *5 J GO EXJT END; 

no TO CCC1 

CMM[5) t=USERlD) 

ST:» CDEX:s Oj 

FOR OpTNlsO STEP 1 UNTIL 1 DO 

PFGIN CN»*SCAN* 

IF TsOPEN AND CN^UNLOCKV AND OPTN*0 THEN 

BFGJN T:=UNL0CKVJ 60 TO SEC 1 END 



fndj 



ELSE IK CN LSS 
CMMlOPTNJlr IF 
CNjjbSCANI 



IDENT AND CN NeO 

cn»equal then -i 



equal then go to 
else accumcou 



STU 



ST? i 



IF CN«WITh THEN BEGIN CN*SC AN* CMM 1 6] * IF CN>JDENT ThEN ACCUMtOJ 
ELSE USfRIDJ CN*SCAN ENO ELSE CMM[ 6] »USfR I D > 

TF CMM[0] GEO AND CMMC1] GEO THEN GO TO SEC2I 

Ml** CMMrO]; N2*e CMMflJJ N3* * 0* ST»« i; 

SErKNAMCNl.N2#N3,CMM[0]»CMM[l],TliP(0))l 

IF N3 NEQ THEN GO TO SEC2J 

5T:s 0) GO TO SEC 5; 
SEC?« IF (ABS(USERIO)EOV MCP) NrQ NOT THFN 

IF SYSTEHFlLE(CMM[CDEX]#CMM[CDEX + n) OR 

(CMM[0] EQV "PBD ")» NOT THEN GO SEC5I 

SECURl T YMA I NT(T, SMID* SF I D.CMM.SFH. SPOUTUNIT) I 
SECS* IF ST ThfN GO TO STpI 



20591610 
20591620 
20591650 
20591700 
20591750 



20591800 T 
20591850 T 



20591900 
20591950 
20592000 
20592050 
20592100 
20592150 
20592200 

20592250 
20592300 
20592*00 
20592450 
20592500 
20592550 
20592600 
20592650 



20592700 P 

20592725 T 

20592750 T 

20592800 T 



20592850 
20592900 
20592950 
20593000 
20593050 
20593060 
20593100 



20593150 T 

20593200 T 

20593250 T 

20593300 T 



20593310 
20593320 

20593350 
20593400 
20593450 
20593500 
20593550 
20593600 
20593650 
20593700 
20593750 
20593800 



T 000411 
T 0006*1 
T 000712 
T 0010*0 
T 001 1 10 

20591750 

001411 

001712 

20591850 
T 0021*1 
T 0024*0 
T 002613 
T 002813 
T 0032«1 
T 003511 
T 0035U 

20592200 
T 003910 
T 004110 
T 0043*1 
T 0047*2 
T 0049*2 
T 0052*1 
T 0053*3 
T 0054*! 

20592450 

0054*2 

0056*3 

005n3 

0059*0 

20592800 
T 0061*2 
T 0062*0 
T 0063*1 
T 0064*2 
T 0066*0 
T 0067*2 
T 0070*1 

20593100 

0072*0 

007510 

0078*3 
0080*2 

20593050 

T 0082*3 

T 0087*2 

20593310 

T 0092*1 

T 0095*1 

T 0098*3 

T 0103*1 

T 0104*2 

T 0105*3 

T 010811 

T 0U0J3 

T 0113*2 

T 0115*3 



LS: 



CCC 



FF CNnCOMMA ThEN GO SpCU 
IF T*USEV THEN 

HEADERUNLOCK(SMId»SfID»SFH)I 

fiO TO CCC J 
LBMFSStCMMrOJ#CMMri]»-l'»»0»0»SPOUTUNIT.tIBrRR)» 
IF UN1TNO GrO 3? THEN BEGIN CCSfCMAl NT I s5 * GO EXIT 



end; 



X149- 



do tuscan until t>loent and t<resetvj 
if unttno«3j Then begin ccSecma?nti*7j 



go fix it; end; 



CCSfCMAINTI«1J GO EXIT; 

ST i : if t*usev Then 

HEADERUNLOCK(SMID.SF!D»SFh)> 

CCSECMAINTI»6J 
EXlTt RETURnVAl»»PROCVal»* % ADJUST RESULT OF TYPED PROC 

P(rRETURNKCW]*STS#0,RDS#O.XCH»P&PrCTF3»STF)l 
ENO CCSrCMAlNTJ 



20593850 
20593900 
20593950 
20594000 
20594350 
20594400 



20594450 T 
20594500 T 



20594550 
20594600 
20594650 
20594700 
20594750 
20594751 
20594800 



T 0116«3 
T 011810 
T 1 18 » 3 
T 012110 

P 012310 
T 0128»0 

20594400 
013012 
013413 

20594500 
T 0137M 
T 0138 * 2 
T 013911 
T 014H2 
T 0142»1 
T 014310 
T 014513 

20590910 
SIZE» 0147 WORDS 



REAL PROCEDURE CCLABELJ 



PRT(662) * C.C 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



fF-2) 
f F-l ) 
fF-1) 
fF + O) 
rF + 1) 
fF + 2) 
<F + 2) 
(F + 3) 
(F + 3) 
(F + 4) 
rF + 5) 
(F + 5) 
fF*6) 
fF + 7) 
fF + 10 
fF + 11 
(F + 12 
fF + 13 
t F + 14 
(F + 15 
(F + 16 
(F+16 

fF + 20 
fF + 21 
fF + 21 
fF + 22 
fF + 22 
fF + 23 
fF + 24 
fF + 25 
fF + 26 
(F + 27 
(F + 30 
fF + 31 
fF + 32 
fF + 33 
fF + 34 
fF + 35 
fF + 36 
fF + 37 
(F + 40 
(F + 41 
(F + 42 
(F + 43 
(F + 44 
(F + 45 



3 
S 
X 
3 
SI 
3 



LABEL 

begin label exjtj 
declaretcvarjables; 

MSCW 
CARD 
MYMSCW 
RCW 

PROCVAL 

A 

T 

CADDR 

SFID 

CARDLOC 

CDEX 

SDEX 

CMPLR 

CN 

KOUNT 

LASTSCAN 

LIBNO 

Ml 

N2 

N3 

N4 

U 

OPTN 

OPTNN 

PADDR 

SFH 

pdex 

SMTP 

PPCPROCESS 

SOURCE 

SPOUTUNjT 

ST 

Tl 

UNlTNO 

USpRiD 

ACCUM 

CEQN 

CMM 

DIRECT 

PEQN 

PROG 

ADDR 

ABORT 

TOG 

returnmscw 

returnrcw 

returnval 

PfRCW.MYMSCWf STF); 

RCW*RCW X P(XCH)[CTC]J 

CM=OJ 

UNiTCODEtUNlTNO-23] J« USfRiD* 

MUi.TfTABLErUNlTNO]!* O; 



20594850 T 000010 

START OF REL SEGMENT; DISK ADDRESS * 00700 

' 20594870 T 000010 

20595000 T OOOOJO 



20595080 
20595090 
20595150 
20595200 
20595250 



0000(0 
0001U 
000212 
000311 
0005«0 



RDcTABLEfUNlTNOU* UlC14»38llO]l 

IF UNTTN0«?3 THEN BEGIN CN J*RE ADERA, [ FF ] J READERA l«C ARDLOC END 

FLRF TF UNiTN0s?4 THEN BFGjN CN « *READERB, [ FF 11 READERS » *CARDLOC END 

ELSE TF UN T TNO GE<3 32 IHFN BEGfN CNI« C I DRONf UN I TNO-32] , [ 3 I 5] I 

CIDROWtUNlTNO-3?3,[3l5jl« 0) 
CIDR0*irUNlTN0-3?3,Cl8ll5]l» C ARDLOC I 
MrCARDL0C-ftJ,C3:6]l«20IMtCARDL0C-3] t»UNlTN0«»3?l 

end; 



IF CN THEN BEGIN UBELT ARl-E t UN? TNOJ » « "CARD 00" OR 

C C I F UNlTNO GF© 32 THEN "C/" ELSE P5772) + 
CCLABEL»s8f GO EXjTI 

end; 



UNITNO)! 



if t s urfv then begin 

MUL.TiTaBLECUNITN0]I«MCCARDLOC4-1],C6U2 3I 
STReAM(Aj*O,B*«O»CI«0ID«*CARDLOC+3)I 

begtn dii«loc a; sj ld»dsi«30ctj 
dSj«5oct; dsi.jocti end; 

P (P( XChJIP t 24 *3i* 173 *P(XCH)tl*< 38110]. 

[Rdctablecunitno]].*);* 

LABELTaBLE[UnITN0]»«M[CARDL0C*2].[6U2]; 
END 

ELSE TF SCNfUNlTNO.CARDLOC, SOURCE. ACCUM.KOUNT.LASTSCAN, DIRECT) 
GEO IDENT THEN LABELTaBLfC UM TnO] J «ACCUM[ 0] 
FLSE BFGTN IF UNtTNO GE<3 32 THEN 

ClDR0WrUNlTN0-32].[l8M5J»«0; 

cclabel»«6; go exit; 
end; 



CCLABEL«"8J 
FXTT* RETURnVAU«PROCVAL? % ADJUST RESULT OF TYPED 

P([RETURNRCW]»STS.O,RnS»O.XCH»P*P[CTFl«STF)l 
END CCLABEL5 



PROC 



20595300 
20595350 



20595400 T 



20595450 

20595500 
20595550 
20595560 
20595600 

20595650 
20595700 
20595750 
20595800 

20595850 
20595900 
20595950 
20596000 
20596050 

20596100 
20596150 
20596200 
20596250 

20596300 
20596350 
20596400 
20596450 
20596500 
20596550 

20596600 
20596650 
20596651 
20596700 



T 000611 
T 000812 

20595350 
00UI3 

20595400 
T 0015»2 
T 001911 
T 002211 
T 002413 
T 003012 

20595450 
T 0030*2 
T 0032»0 
T 0035«2 
T 004010 

20595650 
T 004010 
T 004111 
T 004510 
T 0047M 
T 0048J0 

20596000 
T 004813 
T 005013 
T 005112 
T 0055U 

20595850 
T 0055U 
T 005713 
T 006011 
T 0062«1 
T 0065»1 
T 0066J2 

20596400 
T 0066>2 
T 006711 
T 006810 

T 007013 

20594870 
IZE» 0072 WORDS 



PRT(663) a 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



(F-2) 
fF-1) 
fFM) 
fF + O) 
fF + 1) 
rF + 2) 
<F + 2> 
fF + 3) 
fF + 3) 
fF + 45 
fF + 5) 
fF + 5) 
fF + 6) 
fF + 7) 
fF+10) 

fF+in 

fF+12) 
fF+13) 
fF+14) 
fF+15) 
fF+16) 
fF+16} 
fF+17) 
fF+20) 
fF+21) 

fF+2n 

fF+22) 
fF+22) 
fF+23) 
fF+24) 
fF+25) 
fF+26) 
fF+27) 
fF+30) 
fF+31) 
fF+32) 
fF+33> 
fF*34) 
fF+35) 
fF+36) 
fF+37) 
fF+40) 
fF+41) 
fF+42) 
fF+43) 
fF+44) 
fF+45) 



BOOLEAN PROCFDURE CCFIND> 

CCFIND 

BEfWN LABEL F I N f) X I 

declareccvariabl.es; 

a MSCW 

3 CARD 

3 MYMSCW 

a RCW 

= PROCVAL 

a A 

* T 

a CADDR 

a SFID 

s CARDLOC 

s cdex 

s SDEX 

3 CMPLR 
3 CN 
« KOUNT 
s LASTSCAN 
= LIBNO 
3 Nl 
s N2 
* N3 

N4 

U 

OPTN 

OPTNN 

PADDR 

SFH 

PDEX 

SMID 

PPCPROCESS 

SOURCE 

SPOUTUNIT 

ST 

Tl 

UNTTNO 

USERfP 

ACCUM 

CEON 

CMM 

DIRECT 

peon 
prog 

ADDR 

ABORT 

TOG 

RfTURNMSCW 
RETURNRCW 



20596750 T OOOOJO 
START OF REL SFGMfNTi DISK ADDRESS * 00703 

20596760 T 000010 
20596800 T OOOOlO 



3 

3 



3 
S 



3 
3 
3 



3 
3 



3 
3 
3 



RETURNVAL 



P(RCW»MYMSCW»STF); 
RCWJsRCW & PcXCH)fCTC]» 

IF TsENDFl Then begin 



P(0)| GO TO FINDX END> 



!F T=DATAV THEN BEGIN Pfl)J GO TO FJNDXI END) 



20596945 


T 


000010 


20596947 


T 


0001 1 i 


20596950 


T 


000212 

20596950 


20597000 


T 


0004<2 



IF TsUABFV THEN BEGIn P(l)> 
DATACOM ) 



GO TO FINDXI END? 



20597050 T 



* SET oMJT = N0T(DCSP0 AND 
FINDXJ CCFJNDtsPl 

rfturnvalibprocval; % adjust result of typed proc 

Pf rRETURNRCW3»STS#P*RCWtCTc]»0#RDS,O.XCH»P*PCCTF3»STF)l 

END CCFfND) 



20597100 
20597450 
20597459 
20597460 
20597500 



20597000 
0006«2 

20597050 
000812 
000812 
000910 
0009(3 
001310 

20596760 
SJZE« 0014 WORDS 



PROCFDURF CONTROLCAROCCARD) J VALUE CARD* REAL CARD; 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



(F-2) 
fF-l) 
fF-1) 
fF + O) 
fF + 1) 
fF + 2) 
(F + 2) 
CF + 3) 
fF+3) 
fF + 4) 
rF + 5) 
fF + 5) 
fF + 6) 
fF*7) 
fF + lO 
fF + H 
fF + 12 
fF + 1 3 
fF + H 
(F+15 
(F + 16 
(F + 16 
(F + 17 
(F + 20 
fF + 2t 
(F + 21 
fF + 22 
fF + 22 
fF + 23 
fF + 24 
fF + 25 
fF + 26 
f F*27 
fF + 30 
fF + 31 
fF + 32 
fF + 33 
fF*34 
fF + 35 
fF + 36 
(F + 37 



BEGIN 

LABFL C 

C 

u 

L 
I. 
LABFL c 
SWITCH 



START OF 



C.CCTY 
ONTROL 
SERS,U 
COPY,C 
ABE»FI 
CC.PAC 
TYPE* 



SWITCH SW* CC 
I 
ZIPMJX 
RIARLF 



s 

a 



DEFINE 
DECLARECCVA 
MSCW 
CARD 
MYMSCW 
RCW 

PROCVAL 

A 

T 

CADDR 

SFID 

CARDLOC 

CDEX 

SDEX 

CMPLR 

CN 

KOUNT 

LASTSCAN 

LIBNO 

N1. 

N? 

N3 

N4 

U 

OPTN 

OPTNN 

PADDR 

SFH 

PDFX 

SMID 

PPCPROCESS 

SOURCE 

SPOUTUNIT 

ST 

Tt 

UNlTNO 

useRtd 

ACCUM 

CEQN 

CHM 

DIRECT 

PEQN 

PROG 



Pp. COMPILF* initialtzation.beforetrynext.trynext, 

ER » C ON TROL A, C OmP I LEJ08.COM JOB, EXEC.EXRUN, RUN. 

sfs, sec bomb »unlox, l ox, frees* opens, ente* 

hange .remove, uniTi,incsc.endf,endeck*savend* 

nis»zipexit#exit»set#rset»down> 

k.pack2»wait,zjplist; 

unl.ox, uses »lox, frees, opens .pack* users, 

run .compile* exec »lc op y»lcopy,lcopy,ente»ente.removf. 

change .unit i. endf*wait.labe.labe» set. rsetj 
.cctype»initializat!on»beforetrynext*secbomb»endeck» 
ncsc*zipexit,exit,pack2* 

"CARD. r 181 6]#. PS0URCE»CARD.r2««63#J 
S| 



20597550 
REL SEGMENTI DISK 
20597600 
20597650 
20597700 
20597750 
20597800 
20597850 
20597880 
20597900 
20597950 
20598000 
20599000 
20599100 
20600000 
20600010 



T 000010 
ADDRESS * 



00704 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



000010 
000010 
000010 

ooooto 

000010 
000010 
000010 
000010 

ooooto 

000010 
000010 
0000(0 

ooooto 

000010 



STACK(F+40) 
STACKfF+41) 
STACKfF+42) 
STACKfF+43) 
STACKfF+44) 
STACKfF+45) 



ADDR 

ARORT 

TOG 

rfturnmscw 
rfturnrcw 
rfturnval 
Real 



subroutine scan; 
scanj»scnfunitno,cardloc»source»accum,kount,uastscan,d|rect)> 
set omit s not(packets) 

SUBROUTINE LlSThECARD) 
IF l.ASTSCAN.r2» D ThEN 

if sp0utunit.[cf1 geo 32 then 
if t#packet then 

REGlN 

LASTSCAN,r2IU«*0; ABORT » ■CAROt-OC * 

if unitnos3i then 

STRFAMfE**"END.,.."p CaRDLOC); 

BEGIN SIUCARDIOCJ Dt**LOC E> OII«DI*U 

Li* if sc*" * then begin si**si+i; go lh end; 
if sc*"* w then go find 

IF SC*ALPHA THEN 
IF SC» M E» THEN 
BEGIN 

if 3 scsoc Then if sc«alpha then else 

BFGIN 

CARDLOC:sSl> DI«=CARDLOC; DS»*LlT»«- w ; 
GO F INI J 

end; 

Sfl»Sl-3l 01**01-3* GO L2; 
END ELSE % ALPHANUMERIC 

BEGIN 
L2* SIlsSI+i; IF SC*ALPHA THEN GO L2; 
END ELSE % SPECIAL CHR 



Si i»Sl+ll 

GO LIS 



ZIPLISTi 



FINJ « 

fnd; 



STREAM(FOSI*OI CAROl.OCl»CABORT]# PPC l«PPCPROCESS. 

Z2P«=UNiTN0«3i» D*sNTl»*SPACE(lO))J 
BFGIN SIUCARDLOCJ St»xSI+5; SI X«SC* 

05*»LlT">"; PPCfDSI«4L IT"> W ) J ZZP(DSl«2LlT"> w ); 

2f36(lF SC* W * W THEN JUMP OUT 2 TO DUNS 

zzpcif sc»"i" then begin osi«chrj 
lupi if sc«" " then begin siusimi go lup; end; 

jump out 3 to agN; end); 

ds»*chR)); 
agnj tally»«i> eosi*tally; 
dun; ds»bliT m 4- m ; 

zzpcd *»si i si!*loc di dhsCardloc; dsi«bwds)i 



20600020 


T 


000010 


20600040 


T 


ooouo 


20600099 


T 


0004*1 


20600100 


T 


0004« 1 


20600H0 


T 


0005*0 


20600120 


T 


0005*3 


20600130 


T 


0007*2 


20600140 


T 


000813 


20600150 


T 


000911 


20600160 


T 


001113 


20600170 


T 


0012*2 


20600180 


T 


0014*0 


20600190 


T 


001413 

20600190 


20600200 


T 


0015*3 


20600210 


T 


0016*2 


20600220 


T 


0017*0 


20600230 


T 


0017*2 


20600240 


T 


0017*2 


20600250 


T 


0018*3 


20600260 


T 


001813 


20600270 


T 


0019*3 


20600280 


T 


0020*0 

20600250 


20600290 


T 


0020*0 


20600300 


T 


0020*3 

20600230 


20600310 


T 


0021*0 


20600320 


T 


0021>0 


20600330 


T 


0022*0 

20600310 


20600340 


T 


0022*1 


20600350 


T 


0022*2 


20600360 


T 


0022*3 


20600370 


T 


0022*3 

20600180 


20600380 


T 


0023*0 


20600390 


T 


0023*0 


20600400 


T 


0024*1 


20600410 


T 


0027*2 


20600420 


T 


0028*1 


20600425 


T 


0031*2 


20600430 


T 


0033*1 


20600435 


T 


0034*2 

20600435 


20600440 


T 


0035*2 

20600430 


20600445 


T 


0036*3 


20600450 


T 


0037*2 


20600455 


T 


0038*0 


20600460 


T 


003812 



fnd; 

spoutefuntl »sp0utun!t»64)> 

TF P AND (UNjTNOs3i) ThEN 
GO 7 I PL 1ST I 
ARORT««0; 
END LlSTHFCARD* 

t POP OMIT 

Pf0.0»O»O,O»O»O»O,0»O)U 

Pro»OtO»o,o.o.o»o#o»o);x 

P(OfOtO.O»O»O»0»O,0»0)J* 

P(0,o»o»0); 

% DO NOT ZERO THE LAST THRfE LOCALS ( RETURN-MSC W. RCW. * VAD 
RCW»=RCW X Pf ..CONTROLcARDpLODHcTCII 
IJMJTNO r» CARD. C2I6]; 

IF CARD. C33I15] s THFN 

BfGIN CARD. C33! 15] t. GFTSPACEC 1 3» 0. 0) +4; 

IF WAlTiO(CARD TNX ?40000000, Pl5, UN I TNO ) . t 45 I 3 ] NfQ 0% 

Then 

BEGIN LABELTABLE[UNiTNO] Js P114** 
RRRMECH tx NOT TWO (UNJTNO) AND RRRMECHJX 
FORGETSPACEfCARD INX NOT 1)1% 
KJLLC[MSCW])» 

end; 

FNDJ 

COMMENT GET OwN STACK AND GET RjD Of INDEPENDENT STACKJX 
COMMENT SET UP ACCUM ARRAY FOR SCAN;* 

ACCUMl»rMrSPACECl0>]]4l0c8«3fl!lO]l! 
ACCUM[0] Is Ot% 

TF (CCTBLWORD»*P(CCTBLWORD»DUP)R(P.[FF]+1)[CTF]).[FF]>1 THEN 
BEGIN 

IF CCTBLADDR.O THEN SLEEPC [ CCTBLWORD] ♦ 977777) I 
DlRECTJn[M[CCTBLW0RD]]&CCTABLSZr8*38ll0]l 
END ELSE 



BEGIN 



END I 



DIRECT I ■tM[Ti»SPACE(CcTABL5Z)]UCCTA8LSZr8» 381 10]; 
D!SKWAlT(-T,cCTABLSZ.MESSAGETABLFt3].C22l26])j 

cctbladdRj>bTj 



S SET 



C MM »srMf GET SPACE(130, 2,0) +2 ]]«30[ 8138110];* 
PEQNJ*(31 INX (CEQN»*(31 INX (PROG I *C 31 INX CMM)))))»X 

% PLACE "," IN COL 73 i% 
CARDLOC la CARD INX OJ* 

IF UNITN0.25 OR UNjTnO»26 OR UNjTNO-30 OR UNlTN0»3l THFN 
SOURCFI-CARDLOC ELSE 

Mr(S0URCE«*CAR0LGc)+9J « ■ 0327 f 3200000000001 % , ", 2B XTRA 
IF UNJTNO GF« 32 AND UN 1 TCODE [UN I TN0-23J , [ 1 1 1] THEN 

UNlTC0DE[UNlTN0»23]UMfCARDL0C + 10]» 
IF UNITN0.25 OR UNlTN0*3l THEN USERIDtsMCP ELSE* 
BEGIN IF UNITN0*26 ThEN UN|TN0I*31JX 
USERIDJ=UNI TCODE [UN ITN0-?3]>* 
OMiT * NQT(DATAC0M AND RjE ) 



SAFE 



20600465 T 


0040* 1 




20600410 


20600470 T 


0040(2 


20600480 T 


0041 } 3 


20600490 T 


00425 3 


20600500 T 


0043>2 


20600510 T 


0044: 1 




20600140 


20600511 T 


004610 


20600600 T 


0046^0 


20600650 T 


0048:2 


20600700 T 


005l»0 


20600750 T 


0053»2 


20600755 T 


0054(2 


20600760 T 


0054(2 


20600850 T 


0056»0 


20600900 T 


0057U 


20600950 T 


0058(2 


20601000 T 


006l«3 


20601050 T 


0064(1 


2060U00 T 


006412 


20601150 T 


0066(1 


20601200 T 


0068(1 


20601250 T 


0069(3 


?0601300 T 


007012 




20601100 


20601350 T 


0070(2 




20600950 


20601400 T 


0070(2 


20601450 T 


0070(2 


20601500 T 


0070(2 


20601550 T 


007481 


20601600 T 


0075(2 


20601620 T 


0079(0 


20601640 T 


0079(2 


20601660 T 


00820 


20601680 T 


0085(3 




20601620 


20601700 T 


0065(3 


20601720 T 


0089(0 


20601740 T 


0094(3 


20601760 T 


0097(3 


20601780 T 


0099(0 




20601700 


20601850 T 


0099(0 


20601900 T 


0102(3 


20601950 T 


0l06d 


20602000 T 


0106(1 


20602050 T 


0107(2 


20602100 T 


0H1»1 


20602150 T 


0112(2 


20602200 T 


0115(2 


20602250 T 


0118(0 


20602300 T 


012H2 


20602350 T 


0125(1 


20602400 T 


012910 


20602409 T 


0130(2 



SPOUTUNUTls( 
S SFT OMiT = NOT(PACKrTS) 

IF ZIPMIX?»0 ANn PSEUoOM I Xt Z I PMJ X ] GEO 32 THEN 
PScUDOMlXtZlPMiX] ELSE 
IE UNjTNO GE« 32 THEN UNITNO ELSE 
$ POP OMIT 

0)*CARDi:9l9l9] j 
$ SET OMIT s NOT(PACKETS) 

IF UNITNO GFO 32 THEN 
IF PKTQNLY THEN 
IF PSEUD0[UNITN0-321*0 THEN 

PRlNTTHFC0VER(CARDL0c«CARDr9:9J9],UNlTN0»PS0URCE)> 
LASTSCAN8.0M [2*478 1] 1 
$ POP OMIT 
COMMENT SCAN FOR CARD W I TH QUfSTJON MARK jN COL, 1 * % 
CC* IF SCAN NFO QUEST ThfN GO TO INCSCIX 
T«*SCAN» 

cctype« if (J lss unlockv) or ct gtr Resetv) then 
go to incscu 
ppcprocfssj=o;x 
ppocval'*o; 
if card.[9j9] neo then* 

t SET OMIT m NOT(DATACOM AND RjE ) 
IF CCFIND THEN GO TO INCSCJ 
IF (T LEQ LOAD) AND fT GEO RlJNV) THEN 
BEGIN % 

MCCARDLOC - 2] «* Ol% 
MtCARDLOC -11 «slOj« 
CMMr61»* GETESPDISK f. 
S SET OMIT x N0T(0ATAC0M AND RjE ) 

diskwait(cardl0c-2»11 »cmm[6] 

end;* 



20602450 T 



%\?A' 



X173- 
X128« 



1 [ 1 8 t 3 3 1 1 5 ] J % 



INX 0)J 



$ SET OMIT «= NOT(PACKETS) 

LlSTHFCARDJ 
$ POP OMIT 
% WRlTF OUT CONTROL CARD FOR LOGGING ROUTlNF* 
% BRANCH ON 1ST WORD ON CONTROL CARDS 
LlRNOJsO) 
TOGIs FALSE* 
IF UNITNO GEO 3? ThEN 

IF TePACKET OR TsUSER THEN ELSE 

IF (USERID. CHI] AND USERID * MCP) 
BEGIN USERID «• "UOOOOOO"* 
UNITcODE[UNlTNO-23] 
FND' 

GO TO TYPECT-UNLOCKVII 
* COMPILER CALL OUT CARD* 
COMPRFI IF CCCOMPiLF ThEN GO INCSCi 
! NT TI ALT ZATTON * OPTNN J = J N I T I ALI ZE I Tl GO 
BEFORETRYNFXTJ IF OPTNsPERlO THEN GO TO 
TRYNEXTl IF K0UNT»?t4 THEN 

IF S0URCE»(CARDL0C&i[30l45>33) 
BEGIN 
PPCPROCESSj.t l Tl«SCANl GO CONTROLA* 



THEN 

* USERID 



*780« 
*780« 
*780. 
*780- 
X780- 
*780- 



DOWNJ 
CONTROLER* 



THEN 



20602460 
20602469 
20602470 
20602480 
20602490 
20602491 
20602500 
20602509 
20602510 
20602515 
20602520 
20602530 
20602540 
20602541 
20602550 
20602650 
20602700 
20602800 
20602850 
20602855 
20602860 
20602900 
20602909 
20602950 
20603000 
20603050 
20603100 
20603150 
20603200 
20603209 
20603250 
20603350 

20603359 
20603360 
20603361 
20603400 
20603450 
20603500 
20603550 
20603560 
20603565 
20603570 
20603575 
20603580 
20603590 

20603600 
20603700 
20603750 
20603900 
20604050 
20604100 
20604105 
20604110 
20604H5 



T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
C 
C 

c 

C 

C 

c 

T 
T 
T 
T 
T 

T 
T 

T 
T 



013082 

20602350 
0130*2 
013052 
0130>2 
0133*2 
0135»2 
0137«2 
0137: 2 
0139*1 
013911 
014010 
0141*1 
0143*1 
014682 
01481 t 
0148: 1 
014811 
0150J0 
0151»2 
0153M 
015480 
015413 
015582 
015683 
015683 
015882 
016081 
016083 
016283 
016483 
016683 
016683 
016981 

20603050 
016981 
016981 
017080 
017080 
0170»0 
017080 
017083 
0171*2 
017281 
0175*0 
017880 
017981 
018081 

20603575 
018180 
019482 
0l94?2 
019583 
019980 
0200*1 
0201*0 
0203*1 
020383 



END! 



THFN go tRynext* 



THFN GO TO incsc; 



* CMPUR THEN 



Ar.CUM[0]*cMPLR 
0PTN«RUNV THEN 



THEN 



TO COMJOBJ 



TF SCAN NfO PERIO 
C0NTROLfR« PPCPROCFSSJs II 

if Scan neo quest 
Tia scan; 

CONTROLS IF (T < FILEV OR T > COBOL) AND ACCUM[0] 
IF T GEO UNLOCKV AND T LEQ RESETV THEN 
GO TO FINIS ELSE GO To INCSO 
TF CARD,r959] NEQ T H EN 
S SET OMIT s NOTCDATACOM AND RjE ) 

IF CCFIND THEN GO TO INCSC* 
$ SET OMIT * NOT(PACKETS) 

LiSThECARDJ 
$ POP OMjT 

IF T r,FQ ALGOL OR 
IF OPTN.EXECU OR 
GO TO TRYNEXT 
ELSE GO TO COMPiLEjOB? 
IF OPTN.SYNTA THEN GO TO TRYNEXTl 
IF OPTN=EXECU OR OPTn*RUNV THEN GO 
% CALL PPC FOR COMPILE AND GO JOB* 

IF PPC fPADDR» PEON, PROG, PDEX.T* UNI TNO.CARDLOC. SOURCE i ACCUM. 
LASTSCAN. DIRECT) THEN GO TO INCSC* 

go to controler* 
compilejobj tuscan; 

com job « if ppc(caddr.ceqn.cmm,cnex,t»unitno,caroloc»source,accum, 

t,astscan»djrect) then go to i n c s c * 
go to cdntrolerj 
comment execute card** 
exec* p(execu)* 
exrun* optn:»p; 

CMMri3]»sCADDR»=CDEX:=0> 
T'aSCAN? CMM[0] »»ACCUM[0]; 
T«=SCAN) TUSCAN; 
IF (CCMMrlll *ACCUM[0]) EQV 
FLSF IF ((T I* CMMtoi) EQV 
IF UNJTNO i 3t 
= NOTCDATACOM AND RjE) 

THFN GO TO iNcSc ELSE T ** LIBMAINCODE 

if rT fqv "prnpbt "> * not o then 

IF UNJTNO t 31 
= NoTcnATACOM AND RjE> 

then go to iNcSc else t »* prnpbtcode 
if (t eqv "ldcntrl") ■ 
T »» 0; 
CMMf?] U & (IF OPTNsRUNV 
rMMf23]»s0lCARD[9«9l9j)i{ 
S SFT OMjT * NOT(PACKETS) 

IF ZIPM1X#0 
S POP OMtT 






"DISK ") 
"LIBMAIN") 



NOT 
NOT 



then 

THEN 



T S o 



$ SET OMtT 

FLSF 
$ SET OMIT 



FLSE 
FLSF 



NOT THEN T »« LDCNTRLCODE 

THEN 5 ELSE 2)C8» 3d* 10] & T[5«45l3]l 



r,o to initialization; 

RUN! PfRUNV)» 

go to exrun; 

USERS! TF(T*sSCAN)#EOtJAL THEN 

tF(T««scan)bperio then 



Then pseudomixjzipmjxj else 

UNITN0)[2U2«6] J 



GO 

go 



INCSCJ 

incSc; 



X133- 
1133' 



20604120 


T 


0207J0 

20604110 


20604125 


T 


020710 


20604150 


T 


020910 


20604200 


T 


0209:3 


20604250 


T 


021210 


20604300 


P 


0213*2 


20604350 


P 


021612 


20604360 


T 


021813 


20604400 


T 


0219*3 


20604409 


T 


022110 


20604450 


T 


0221*0 


20604479 


T 


0222*3 


20604480 


T 


022213 


20604481 


T 


022410 


20604500 


T 


0224»0 


20604550 


T 


022610 


20604600 


T 


0228*1 


20604650 


T 


0228* 1 


20604700 


T 


022911 


20604750 


T 


0230*2 


20604800 


T 


0233*0 


20604850 


T 


0233*0 


20604900 


T 


0236*1 


20604950 


T 


0238*0 


20605000 


T 


0238*2 


20605050 


T 


0240*2 


20605100 


T 


0243*3 


20605150 


T 


0245*2 


20605250 


T 


0246*0 


20605300 


T 


0246*0 


20605320 


T 


0246)1 


20605340 


T 


0246*3 


20605360 


T 


0249*0 


20605380 


T 


0252*0 


20605400 


T 


0255*2 


20605405 


T 


0258*3 


20605410 


T 


0263*1 


20605415 


T 


0264*0 


20605430 


T 


0264*0 


20605435 


T 


0265*1 


20605440 


T 


0269*2 


20605445 


T 


0270*1 


20605460 


T 


0270*1 


20605465 


T 


0271 »2 


20605470 


T 


0276*1 


20605480 


T 


027913 


20605500 


T 


0285*0 


20605509 


T 


0286*3 


20605510 


T 


0286*3 , 


20605511 


T 


0290*0 


20605520 


T 


0290*0 


20605550 


T 


0291*2 


20605600 


T 


0292(0 


20605650 


T 


0292*1 


20605700 


P 


0292*3 


20605702 


C 


0295*2 



S SFT 



S SFT 



$ POP 



CCC» % 
$ SFT 



$ 



POP 
SFT 



USESl 

SECBOM 

UNLOXi 

LOXJ 

FREES: 

OPENSJ 

fntei 1 

LCOPYl 
CHANGE 

remove 

DOWNS 
SETJ T 
RSET' 
UNtTi I 
INCSCJ 



IF fUSFRjD.rl M J AND t'SFRl D^MCP) 
OMiT s NOTCDATACOM AND RJE ) 

THEN RET, IN 

USER1DI«ACCUM[0JI 
OMiT s NOT(PACKETS) 

IF UNTTNO GE9 32 THFN UN I TCODEtUN I TN0-23J » : 
OMIT 

end; 

COME HERE TO FLUSH To NfXT INITIAL WORD 
OMiT ■ NOTCPACKETS) 

00 TlsSCAN UNT I U T«QUEST t T « »SCAN; 
OMiT 

omit * Packets 

rO TO CCTYPfI 

OPTNN»»OJ optnnj=ccsecmaintj go down; 
8l OPTNN*«ll optnni«ccsechainti go down; 



jUSeRid; 



OPTNNJb?* OPTNNIbCCSECMAINTI GO DOWN? 



: 
t 
OPTNNlsCcLlBJ 

rO swtoptnn]; 

Oftl« TRUEJ 

IF CCSFT THEN GO CC eLSf GO JNCSC* 

optnnj.ccunit; go down; 



t SET 

£ POP 



IF P 
PCPT 

OM!T 

us 

OM T T 
TF U 
IF U 
IF U 
LAST 
STRF 



PEG IN 



PCPROCESS THEN 

RFCToRYSFARCHC-CMMrO], IF CMM[0] LSS 
CMMrl]. 13). ded; 

* notcpackets) 
thecaRo; 



o Then "disk » else 



ClDR0W[UNlTN0-323.r3»5] » 
READERA.tFF]«=0 ELSE* 
READER8.[FF]»sO;s 



ELSE* 



njtno?32 then 
nitno=23 then 

NlTN0«24 THEN 

SCAN :«» o; 

AMfCARDLOC, U:«TINUCUNITnOJ. ACCUM. MJX|*ZIPMIX» 
ZZPI«UNITN0«31» CRD**SPOUTUNIT,[CE]»Ot 
Dl=TJ*SPACE(l5))? 

DSJ=20LIT"#C0NTR0L CARD ERROR «| 

SI tsLOc U; SI«*Sl+5{ DS:*3 CHRI 

?ZP(ni«sDI-22; DSi*24LlT"ZlP ERROR. IGNORED* MIX*"; 

SJI-LOC mix; os«»2 dec; DSi*LlT"i"; 

dj»di» d i > «d i -3 ; dS: = eill; dh*d); 

DS»«4LlT" AT *; 

sij.accum; siiisuu 

7(iF sc* w * then sh»si + i el.se dsi.chR); 

CRDfDSlaLlT M «tf, Sil.CARDLOC; 2(0Sl«36 CHR))> 
DSIbLIT"*"! 



*173- 
X173- 

%\7i- 



fnd; 



20605750 


T 


0298*2 


20605759 


T 


029913 


20605800 


T 


029913 


20605810 


T 


030H2 


20605819 


T 


030212 


20605820 


T 


030212 


20605821 


T 


030512 


20605830 


T 


030512 

20605800 


20605870 


T 


030512 


20605879 


T 


030512 


20605880 


T 


030512 


20605881 


T 


0310»2 


20605899 


T 


0310:2 


20606000 


T 


031012 


20606050 


T 


0311»0 


20606100 


T 


031311 


20606150 


T 


031512 


20606200 


T 


0315*2 


20606250 


T 


031512 


20606300 


T 


0315*2 


20606350 


T 


031512 


20606400 


T 


031713 


20606450 


T 


0317S3 


20606500 


T 


0318J0 


20606550 


T 


0318*0 


20606600 


T 


0318»0 


20606610 


T 


0319 5 


20606650 


T 


0325*0 


20606700 


T 


032553 


20606800 


T 


0327*1 


20606850 


T 


032853 


20606860 


T 


032883 


20606865 


T 


032910 


20606870 


T 


033213 


20606874 


T 


033410 


20606875 


T 


033410 


20606876 


T 


033510 


20606900 


C 


0335'0 


20606910 


C 


033911 


206069?0 


c 


034312 


20607000 


T 


034612 


20607020 


T 


0347«1 


20607040 


T 


034912 


20607060 


T 


0351*2 


20607080 


T 


035410 


20607100 


T 


035410 


20607120 


T 


035613 


20607140 


T 


035712 


20607160 


T 


036112 


20607180 


T 


036212 


20607200 


T 


036313 


20607220 


T 


036412 


20607240 


T 


036510 


20607260 


T 


036613 


20607280 


T 


036910 


20607300 


T 


036912 



»F LlNlTNQ/25 THFN 

BEGIN 

SP0UTER(T&CARr>[9«9l9J,SP0UTuN!T,l); 

IF UN|TN0a30 oR UNiTN0«e3l ThEN GO ZlPEXjTJ 

IF UNJTNO GEQ 32 ThfN GO ENDECK* 

FND FUSE 

BEGIN P(WAITI0CT,0#?5)»DEL)S 
FORGFTSPACEf T)J 

s sft omit * Packets 

$ set omit = not(packets) 

fftch(unltno,cardloc#sourcf)> 

if scan nfo qufst thfn go to tncsc* 

TlsSCAN* 

IF PPCPROCFSS THEN GO TO CONTROLAJ 

IF (T>PACKET) AND fT<RESETV) AND (T#RUNV) 

GO TO CCTYPEI GO TO INCSCI 



THEN 



*527< 



S POP OMIT 



END* 



S SET GMfT 
ENDECK» 



NOT(PACKETS) 



geo 32 then 



IF ZlPMTX NFQ THEN 
tF (TIsPSe:UDOMiX[?iPmiX]) 
PACKErFRR[T-32iJsTRUE> 
IF UNITNO GEO 32 THEN 
BEGIN ABORTIaTRUE; 
PACKETERRrUNlTN0-3?]:*TRUE; 
GO TO PACK?* 
END? 



$ POP OM T T 

no no 

FETCH(-UNlTNO»CARr>UOC»SOURCE) 
UNTIL SCAN=QUEST 
UNTIL SCAN"FNOFII 



S147- 
*147« 



FNDF'5 
* SET 

$ POP 



■Oj 



OMfT s NOT(PACKETS) 

IF UNITNQ LSS 3? T H fN 

OMIT 

TF UNiTNO NfQ 30 THFN UNiTcOoE[UNlTNO-233»»' 

if unitno«?3 Then keadfRai.o else 

IF UNITN0«?4 THEN READeRB»«0 ELSE 
IF UNiTNO GEO 25 THEN 
IF UNyTNO OF" 32 ThFN 
PACK2M XPACKFT CARDS END HERE FROM PSEUDO-RE ADERS 

TF ClDTABLECUNlTN0-32#3] LSS C I DTABLE t UNI TNO-32, 7 ] ThfN 

begin fetch(-unltno.cardloc.source)j 
s set omit a not(packets) 

if abort Then 

BEGIN 

IF (T»sScAhj)*QUEST THEN 
IF (TisScAN) s ENDFI THEN 
ABORTJ.FALSEI 

GO TO pack?; 

END ELSE TlsOj 



1129. 
X129« 







20607080 


20607500 


T 


0369*3 


20607550 


T 


0370*2 


20607600 


T 


0371 JO 


20607700 


T 


0373*1 


20607750 


T 


0375*3 


20607800 


T 


037710 

20607550 


20608000 


T 


0377*0 


20608050 


T 


O379J0 


20608059 


T 


0379*3 


20608069 


T 


0379*3 


20608070 


T 


0379*3 


20608072 


T 


0381*0 


20608074 


T 


0383»0 


20608076 


T 


0384*2 


20608078 


P 


0385*2 


20608060 


T 


0388*1 


20608081 


T 


0389*2 


20608100 


T 


0389*2 

20608000 


20608109 


T 


0389*2 


20608110 


T 


0389*2 


20608112 


C 


0389J2 


20608U4 


C 


0390*3 


20608U6 


C 


0393*1 


20608120 


T 


0396*3 


20608130 


T 


0397*2 


20608140 


T 


0398*3 


20608142 


T 


040i»3 


20608144 


T 


0402*1 

20608130 


20608146 


T 


0402*1 


20608150 


T 


0402»1 


20608200 


T 


0402U 


20608250 


T 


0403*1 


20608300 


T 


0405*1 


20608450 


T 


0408*0 


20608459 


T 


0408*0 


20608460 


T 


040810 


20608461 


T 


040813 


20608500 


T 


0408*3 


20608510 


T 


0412*2 


20608520 


T 


0414*2 


20608550 


T 


0417*0 


20608600 


T 


0418*1 


20608610 


T 


0419*2 


20606650 


T 


0420*0 


20608700 


T 


0423*1 


20608709 


T 


0425*1 


20608710 


T 


0425*1 


20608720 


T 


0425*2 


20608730 


T 


0426*0 


20608740 


P 


0428*0 


20608750 


T 


0431*0 


20608760 


P 


0432*1 


20608770 


T 


0432*3 



$ POP omit 



END 



LASlSCANI-0»lr2l47l i J J 

packfteRRcunitno-32]«sfalsf; 
no co 

FLSF 



BEGIN 



$ SET OMTT * 



$ POP OMIT 
t SFT OMjT 



NOT(PACKETS) 

LAeFLTARLErUN T TN0]ls?114J 
IF PACKFTACT[UNiTN0-32D*0 



then 



packfts 

FND0FDECK(fUNfTN0-32),SP0UTUNlT»CAR0tlll'U)l 
GO 7IPEXITI 
END FLSf 

GO 7 I pex i t; 

IF(TW0(UN1TN0) AND SaVEWoRD) NeO THEN GO TO SAVENDJ 
IF WAlTT0(CARDL0C4400tl«»33U5],?l5»UNlTN0).C45l3] NfQ 
BEGIN 
SAVEND« LABELTABUErUNlTNO]is ?H4J 

RRRMECH** NOT (NTl» B TWO(UNtTNO)) AND RRRMECH OR 

NT1 AND SAVfWORD; 
GO TO 7 iPEX T T| 
END* 

M[(SOURCF»« CARDL0C)+9]Js 0&", »[ 1 * 43 ' 5] J 
USFRIO** UNlTC0DE[UNITN0-23]> 
GO TO CCJ 
PACK* IF UNITNOO? THEN GO INCSC* 
t SFT OMIT s NOT(PACKETS) 

IF PSFUDOrUNiTNO-3?] * ThEN 

PRlNTTHECOVER(CARoLOCtUNITN0,PS0URCE)« 
PSOURCE * 3 THEN USfRID «-USERID &1[1»47*U; 
OMlT 
GO PACK2; 
OPTNNl-CCLABfL* GO DOWN} 



IF 
S POP 

LARE* 
WAIT! 
t SFT 



OM|T s N9T(PACKETS) 

if unttno<32 then go to cccj 

if packetactrunltn0-32]»0 then go to cccj 

LABELTABLETUNITNO] is??H) GO to zipexit; 

s pop omit 

FINISH CCFI NT SH J 
S SET OMJT ' NOT(PACKETS) 

IF fNTl-IF 7 TPM I X s* THFN PSfUDOM I X [ Z I PM j X ] ELSE UNjTNO) 
GFQ 32 THFN PACKETACTC NT1 -32 ] * »PACKETAC T[NT1 -32 ] + l ; 
$ POP OMiT 

selection; 
if unitno ne<3 31 then 

BEGjN 

$ set omit s packets 
go cctypej 

end; 



7IPFXI T t 

FXfTH 



F0RGFTSPACE(CARDLOC-2)> 









20608720 




20608780 


T 


043410 




20608790 


T 


043513 




20608801 


T 


0438*3 




20608810 


T 


0438*3 




20608820 


T 


0441 *0 

20608700 




20608830 


T 


044110 




20608839 


T 


0441*2 




20608840 


T 


0441*2 




20608850 


T 


0442*3 




20608851 


T 


044413 




20606859 


T 


0444*3 




20608870 


T 


0444(3 




20608880 


T 


0447*3 




20608890 


T 


0448*1 

20608830 




20608900 


T 


0448*1 




20608950 


T 


0448*1 


THEN 


20609000 


T 


0450*2 




20609050 


T 


0453*0 




20609100 


T 


0453*3 




20609150 


T 


0455*0 




20609200 


T 


0457*0 




20609250 


T 


0458*2 




20609300 


T 


0459*0 

20609050 




20609350 


T 


0459*0 




20609400 


T 


0462*2 




20609410 


T 


0464*0 




20609420 


T 


0466*0 


*124- 


20609425 


C 


0467*1 


*124- 


20609430 


C 


0467*1 


X124- 


20609435 


C 


0468*3 


1782- 


20609436 


C 


0471*0 


*124- 


20609440 


C 


0474*2 




20609450 


T 


047412 




20609500 


T 


0475*0 




20609555 


T 


0476*2 




20609559 


T 


047682 




20609560 


T 


0476*2 




20609570 


T 


0478*1 




20609580 


T 


048013 




20609581 


T 


0482*2 




20609600 


T 


0482*2 




20609659 


T 


048312 




20609660 


T 


0483*2 




20609670 


T 


0486*3 




20609671 


T 


0493U 




20609700 


T 


0493*1 




20609750 


T 


049412 




20609760 


T 


0495*1 




20609799 


T 


0495*3 




20610100 


T 


0495*3 




20610150 


T 


0498*0 

20609760 




20610200 


T 


0496*0 




20610250 


T 


0499*1 



S SET OMfT = NOTcPACKfTS) 

IF ZIPMIX NFS THFN NYLONZ JPPER[ 7! PM1 X 3 . [2 1 1J »■! I 
$ POP OMfT 

FORGETSPACFf ACCl'M INx'o)** 
FORGETSPACECCMM INX > * I 

IF (CCTBLWORD»*PCCCTBLWORD.DUP)&(P,[FF3-l)tCTF3).tFF]=0 THEN 
BEGIN 

FORGE TSP AC E CCC TBLADDR ) J 

CCTBLA£)DR*=0* 

FMDJ 

IF UNTTNO GFQ 32 AND UNlTNO LE<3 63 THFN 

PSFUDOcOPYJ= PSFUnOfOPY - \l 
KiUL(tMSCW]); 

fnd controlcard; 



206l0?59 
20610260 
20610261 
20610300 
20610350 
20610400 
20610410 
20610420 
20610430 
20610440 

20610500 
20610550 
20610600 
20610650 



T 0499»1 
T 0499*1 
T 0504*3 
T 0504»3 
T 0506*1 
T 0507*3 
T 0511*1 
T 0511*3 
T 0513*0 
T 0514*1 

20610410 
T 0514*1 
T 0516*0 
T 0517*3 
T 0518*2 

20597600 
SIZE* 0519 WOROS 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 

STACK 
STACK 

STACK 



F-2) 
F-l) 
F-l) 
F*0) 
F*l) 
F + 2) 
F + 2) 
F + 3) 
F*3) 
F + 4) 
F + 5) 
F + 5) 
F + 6) 
F + 7) 
F*lO 
F + ll 
F + 12 
F+13 
F + 14 
F + 15 
F + 16 
F+16 
F + 17 
F + 20 
F + 21 
F + 21 
F + 22 
F + 22 
F + 23 
F + 24 
F + 25 
F + 26 
F + 27 
F + 30 
F + 31 
F+32 
F + 33 
F + 34 
F + 35 
F + 36 
F + 37 
F + 40 
F + 41 
F + 42 
F + 43 
F + 44 
F + 45 

F + 46 

F + 47 

F + 50 



3 
S 



3 

S 



real procfdurf. ccsftj 

begin LaRFL, morf.sffk,skip,ccfRr»li,l2; 
declarfccvaRtablfs; 

MSCW 
CARD 
MYMSCW 
RCW 

PROCVAL 

A 

T 

CADDR 

SFIO 

CAROLOC 

CDFX 

SOEX 

CMPLR 

CN 

KOUNT 

LASTSCAN 

LIBNO 

Nl 

N2 

N3 

U 
OPTN 

OPTNN 

PADDR 

SFH 

PDFX 

SMID 

PPCPROCFSS 

SOURCE 

SPOUTUNjT 

ST 

Tl 

UNtTNO 

usfRid 

ACCUM 

CEON 

CMM 

DIRECT 

PEON 

PROG 

ADDR 

ABORT 

TOG 

returnmscw 
returnrcw 



START OF REL 



20700000 

sfgmfntj disk 

20701000 
20701500 



T OOOOtO 
ADDRESS ■ 
T 0000»0 
T 0000:0 



00722 



RETURNVAL 

REAL 
FXT06 



FXTOG 



LOK 



= LOK 



RETURnVaL+1» 
FXTOG+1, 

LOK+t, 



* BEGIN LOCALS OF CCSET 



20702000 T 
20702100 T 
20703000 T 



OOOOtO 
000010 



OOOOtO 



STACKf F+51 5 

STACKfF*50) 



SrNSpTOG 

boolean 

FT 

SUBROUT 
BEGIN 

FH 
FH 
FH 
DI 
Fl 
LB 
END CLE 



SFNSfTOG = N+i; 
FTaNI DFFINF FH ( FH i ) =M [ T+FH 1 3 # J X RESFT FILE A/B 
?NF CLEARTHFFII.E* ?! CLEAR AN IN-USE FILE 



r 41. [Ol I 061*0 J * 
r« 1 • 1 1 61201*01 * 

r9].[0l»2fil*0J % 
SKWAIT(T,[CF]^30,T,[FF1); 
LEH0LD(CMMf2]f CMM[33f 0,T,0)l 



FXClUSIVE 

OPEN COUNT 2 

TOGS S OPfN COUNT I 

% FIX IT 

% WAKE UP 



WAITING PROCESSES 



MESS(CMM[2J,cMMt3lMl»?6»0»SP0UTUNlT,i)| 

aRthefilej 



REAL SUpROUTiNF SCAN; 

SC AN*SCN( UN I TNO.CARDLOC. SOURCE #ACCUM,KOUNT»LASTSC AN. DIRECT)? 

PCRCW,MYMSCW,STF)I 

RCW»*RCW X P(XCH)[CTCj; 

p(0»0»0,0)> x zero locals of ccset 
ccset*o; 

IF NOT (FXTOGt»fCN«=SCAN)aFlXED) THEN 
IF NOT CSFNSETOGt=(CN«SENSE)) THFN 
IF CN*ACCESSD THEN 

IF NOT fFT*FXTOfi*(CNsFlLEV)) THEN GO TO CCERRJ 



MORF' 



GO CCERR» 



SFEK ; 



if (cnj*scan)xfOual Then cmmcoiix-i else 
if cn gfq ident thfn cmmr ] s *accum[ ] else 
if scan neq slash then go to ccerr* 

IF fCN«sSCAN)»EOUAL TrEN CMMC1](«-1 ELSE 
IF CN GFQ IDENT THEN CMMr 1] » *ACCUMC J ELSE 

GO to ccerr; 

CN:*Tt*Oj 

IF (CMMfOl OR CMM[ll) LSS THFN 

SEFKNAM(CMM[03,CMM[l],CN»CMM[21tCMMI31.N.P(0)) ELSE 
BFr,lN CNtall CMM[?]IsCMMrO]> CMM[ 3 3 « »CMM[ 1 3 END} 



IF CN 
BEGIN 



nfo o then 

TF NOT FXTOq THEN IF 
BEGIN T* 2 ; q0 To L1J 



SYSTeMFILE(CMM[?3»CMM[33) 

end; 



THEN 



SKiP« 



TJsDIRFCTORYSEARCH(CMMt23,CMMt33»l9)| 
ENn ELSE IF N*0 THEN BEGIN CMM[ 2 ] J *CMM[0 ] f 

END 
FLSE GO L2> 



IF T GFQ 64 THFN 
BFGIN 

IF MfT+Al . [43I2]«3 T H EN 
BEGIN FORGETSPACFCT)) 



T*U GO skip; end; 



IF (USERIP EOV MCP)» NOT OR 

(USERID EQV ABSfM[T+23))a NOT OR 
(NOT SFNSETOr, AND (M[T + 21»0)) THFN 



X815- 

*8l5- 
X815- 
X815- 
X815- 
*815- 
X815- 
X815- 
1815- 
«815- 



X510- 



X815- 
*815- 



X521- 



CMM[31t»CMM[13l 60 Li I 



X521< 



20704000 T 
20704J00 C 



20704200 
20704210 
20704220 
20704230 
20704240 
20704250 
20704260 
20704270 
20704260 

20705000 
20706000 
20707000 
20708000 
20709000 
207H100 
20712000 
20713000 
20714000 
20714500 
20715000 
207J6000 
20717000 
20718000 
20719000 
20720000 
20721000 
20722000 
20723000 
20724000 
20725000 
20726000 



20731000 
20732000 



20734000 
20735000 
20736000 
20737000 
20738000 
20739000 



C 
C 

c 
c 
c 
c 
c 
c 
c 

T 

T 
T 
T 
T 
C 
T 
T 
P 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



20727000 T 
20728000 T 
20729000 T 
20730000 P 



20733000 T 



20740000 T 
20741000 T 
20742000 T 



000010 
000010 

0000(0 
000l«0 
OOOllO 
0004M 
0007«2 
0010«3 
001310 

0016S2 
001911 

20704210 
001982 
0020(0 
0023U 
0025U 
0026(2 
0027(2 
002811 
0030(3 
0032(3 
0034(0 
0036(3 
0036(3 
0041 (0 
0044(1 
0046(0 
0050(0 
0053(1 
0053(1 
0054»2 
0054(2 
0056(1 
0061 (1 

20726000 

0065(2 
0066«1 
0066(3 
006911 

20730000 
0071 »0 
0073d 

20728000 
0078«2 

20732000 
007812 
0078(2 
0078t2 
0079(1 
0079(3 
0062(1 

20739000 
0084(3 
0087(0 
0090(1 



BFGIN 

UOK:»OJ 
jr FXTO 
THEN 

else 



G 

M[T + 4].r4?»l )»«TOg 

IF SENSETOG 

THEN IF LOKJaf (M[T+43. [43*23*1) AND NOT TOG) 
THEN MfT+43, [43*23**0 
ELSE IF MfT + 43 . t 43* 23*1 

THEN ELSE MtT+4J,[43*23»*T0Gx2 
ELSE BEGIN 

MET+41.C11 »U*«TOGI 

IF TOG ThEN X X503' 

BEGIN X *503< 

STREAM(DATE»J»«5)J 
RrGlN St«»LOc DATEI DSl*eOcTl END) 

M[T + 3).tl2U8]l*JUNK; 

END* % *503« 

END* 

DTSKWAlT(T,CCF]»-30»T.rFF])* 

s set om it = sharfdisk 

unlockdipectory) 

* pop omtt 

S SET OMIT = PACKFTS 

IF LOK THEN P(DlRFCTORYSEARCH(-CMMt23»CMMt3Jf6)»OEL) 

ELSE LBMFSS(CMM[2]»CMMt3]»IF TOG THEN 12 ELSE 11. 

13+(SeNSeT0gx47)»(FXT0Gx3>»0.SP0UTUNiT.RST0G) 
FND ELSE IF FT THEN CLEARTHEEJLE ELSE BEGIN *8l5- 



s set omjt * sharfdisk 

unlockdirfctoRy; 



15521' 
X521> 



$ POP 0MfT 



X521 
LpMFSS(CMMr2]»cMM[33,-(ll+T06)»4l»0,SP0UTUNlT»l)l 8521' 
end; «5?1- 



FORgETSPACE(T)| 

end 

else bfgin 
s sft omit * sharfdisk 

unlockdirfctory* 



X521- 



X521" 
X521' 
1521' 



S POP OMfT 
LI J 



X521» 
I.BMeSS(C m M[2 3,CMM[3]»-(11 + TOG)»15 + ((T«1 )x30 ) + ( ( T»2 )xl )» 
0. SPOUTUNIT, 1 )* % 

END* 1521- 



20743000 
20744000 

?0745000 
20746000 
20747000 
20748000 
20749000 
20750000 
20751000 
20752000 
20753000 
20753800 
20753900 
20754000 
20755000 



20761000 
20762000 
20765000 
20766000 
20767000 
20769000 



20756000 T 
20756100 C 

20757000 T 

20758000 T 
20759000 T 
20760000 T 



IF CN NEC AND CCMMfO] OR CMM[1]) USS THEN GO SEEK! 
L2: IF (CNlsSCAN)sCOMMA ThEN GO MORE; 

if cn«perio then ccSet»*i» 



20769100 P 
20769200 c 



20769300 c 

20769400 C 

20769500 C 

20769600 C 

20770000 T 

20771000 P 

20771010 C 

20771020 C 



20771030 C 

20771100 T 

20772000 P 

20772050 C 

20779000 T 

20780000 T 

20781000 T 



0093*1 
0093*3 

009482 
0094*2 
0097*0 
0099*0 
0102*1 
0105*1 
0109*3 
011351 
011512 
011813 
0119*0 
0119*2 
0120*2 

20755000 
0121*1 
0124*2 

20753900 
0124*2 

20752000 
0124*2 
0127*0 
012710 

20760000 

20760000 
0130*2 
0130*2 
0130*2 
0133S2 
0138*0 
0140*3 

20743000 
0144*2 
0144*2 

20769200 

20769200 
0148*0 
0148*0 
0151*2 

20769000 
0151*2 
0152*1 

20737000 
0152*1 
0154*0 
0154*0 

20771020 

20771020 
0157*2 
0157*2 
0162*3 
0164*0 

20771000 
0164*0 
0167*2 
0170*2 



ccfrr* rfturnval^procval; % adjust rfsuit of typed 

P( rRFTURNRCW]»STS>0,Rns»0>XCH»P&P[CTF3.STF)) 
FNO CCSfTJ 



PROC 



20782000 
20783000 
20784000 



T 0172*2 
T 0173*1 
T 017610 

20701000 
SIZE* 0178 WORDS 



» SFT OMIT * NOT(OATACOM ) 
REAL SFfONnCTR* 

prt(66«) = sfcondctr 

s sft om?t s not(sharedisk) 
procedure nsecondijb 



20999999 T OOOOJO 
22000000 T 0000*0 



STACKfF+O) s RCW 

STACKfF+1) . I 

STACKfF+2) a X 

STACKfF+3) = J 

STACKfF-2) * MSCW 

STACKfF+4) * A 



BEGIN RFAL RCWs+O, T«RCN+1» X* I +1 » JaX+ll 



START OF REL 



22000499 
22001000 

SEGMENT* DISK 
22002000 



T 0000*0 
T OOOOJO 
ADDRESS • 00728 
T OOOOJO 



REAL MSCWs-Zf 
ARRAY AsJ+J[*]J 

$ SET OM|T a NOT SHAREDISK 

PfO, 0,0,0)* 
$ SFT OMIT ■ MOT SHAREDISK 

IF (JJ*TOGLE.MtMNO)» t O THEN 

T06LE.MEMN0«"|F J ThEN 6 else j-2» 

A «• tMfSPACE(3xMlXMAX + 3)]]&90t8l38Jl0]J 
$ SFT OMIT - NOTCDCLOG AND DATACOM ) 

SLEEPttTOGUEJf ABORTMASK)! 

locktogcabortmasK); 

MALT? IDLfllMEJX 
JJeNpUP.NFUF j 
$ SFT OMiT ■ NOTCSHARFDISK ) 

FOR llsj-l STEP "I UNTIL DO 
BEGIN 
EUiOtl+EUlOFFSET] J»*PCDUP)XEUTAPER+PFUlOtl3; 
PEUI0[I]J«0; 
ENDJ 

$ SET OMIT = NOTCSHAREDISK ) 

WHILE (Jl*XCLOCK+P(RTR>> GEO WITCHINGHOUR 00 MIDNlGHTJ 

CHANf,EDATE(0}J 
AfOWJ) Ar2]* w AB0RT">j«.0J 
Arl] * DATEJI 

IF (CLOCK AND ?l/777)»0 THEN 
BEGIN FOR I t ■* i ST E P i UNTjL MjXMAX DO 
IF *l JARROWt I 3] NEQ ThEN 

IF REPLYUJ LSS THEN % WAITING FOR SOMETHING 
* SFT OMIT e NOT(WORKSET) 

IF (WKSfTSTOPjOBS AND TWOCI))«0 THEN % NOT AUTO-ST 
t POP OMiT % WORKSET 

RfPLyc t j j»vwy; 

END) 

FOR I * 1 STfP i UNTIL MlXMAX DO* 
BEGIN J «■ J + 3;X 

IF JARROWCIJ ?* THENX 

BEGIN AtJ] * JARCI»3]+PR0CTIMECI ]t 
NTl * IOTIMEC I l*JARt I ••3IX 

while nti < o do nti*nti+clock+P(Rtr)j 

AfJ + U * NTUI 



22002500 


T 


OOOOJO 


22003000 


T 


OOOOJO 


22003990 


T 


OOOOJO 


22006000 


T 


OOOOJO 


22006090 


T 


0001 JO 


22007000 


T 


0001J0 


22007100 


T 


0002*3 


22008000 


T 


0007J0 


22008049 


T 


001U3 


22009000 


T 


001 113 


22010000 


T 


00131 1 

2201000 


22011000 


T 


001613 


22011100 


T 


0017 I 3 


220H190 


T 


0019J0 


22011300 


T 


0019J0 


22011400 


T 


0023J1 


220H500 


T 


0023*1 


22011600 


T 


0026*2 


22011700 


T 


0027*3 

2201140 


22011790 


T 


0030*0 


22012000 


T 


0030*0 

2201200 


22012500 


T 


0037*2 


22013000 


T 


0038*1 


22014000 


T 


0041*2 


22014100 


T 


0042*3 


22014400 


T 


0044*0 


22014500 


T 


0048*0 


22014600 


T 


0049*1 


22014610 


T 


0050*3 


22014620 


T 


0050J3 


22014630 


T 


0053*1 


22014640 


T 


0053*1 


22014900 


T 


0057*1 

2201440 


22015000 


T 


0057*1 


22016000 


T 


0058*0 


22017000 


T 


0059*1 


22018000 


T 


0060*1 


22019000 


T 


006312 


22020000 


T 


006513 


22021000 


T 


0068*0 



* SET OMIT 



s srr omit 



s 

s 



SFT 
SFT 



OMjT 
OMjT 



FNpX 



A[ J+2J * JARC 1»7};% 
IF PROCTIMEC I 3>0 THEN 

TERMINATEU415M8I33M5J) 
IF A[J+1]> JARtI.4] THEN 

TERMiNATE( I*8 3C18|33I153)I 



ELSE 



ELSE ACJ3 ♦ A[J+1] ♦ AfJ+23 * Oj* 

DlSKiO(J»A INX 0-l»3xMIXMAX + 3.ESPDISKT0P4-l)> 
UNLOCKT06(ABORTMASK)I 

NOT(DCLOG AND DaTaCOM ) 
NOPROCFSSTOg «• NOpROCFSSTOG-ll* 
FOR I «• 20 STEP 1 UNTIL 21 00% 

BEGIN IF NOT UN I T [ I ] . [ 16 » 1] THEN* 
UNlTCf ),[l7in * 01* 
START fOc I );* 

endjx 

NOT(nFX) 

IF TFRMINALCLOCK # THEN* 
IF CLOCK-TERMiNaLcLOCK > 512 THEN* 
BFGIN 

FOR T *■ STfP ? UNTIL JOBNyM DOX 
IF PRTROW[Xi«BEn[l3.t3»5)J.[PSFJ"l THEN 
IF JAR[X»9J,SYSJ0BF * LIBMAINCODE THEN 
BEGIN BEDt I J «• BfD[ JOBNUMJ 1 X 

BEDtI+1] * BED[J0BNUM+13?X 
INDEPFNnENTRUNNERCP(,RUN)»X#0); 
I #. JOBNUM ♦ J0BNUM-2JI 
ENDJJ! 



TERMTNALCLOcKr 
ENp; 



■Oi 



SLEEP([J]# IOMASK);« 
FORGETSPACE(A)JK 
NOT(STATISTKS) 
NOTCSHAREDISK) 

NSECONDREADYj.TRUf I 

SFCONDCTRtsO} 

KjLL(rMSCW]){ 



FNOI* 



22022000 
22023500 
22024000 
22024500 
22025000 
22026000 



22027000 T 
22028000 T 

22029000 T 
22030000 T 



22030099 
22031000 
22032000 
22033000 
22034000 
22035000 
22036000 

22036999 
22039000 
22040000 
22040500 
22041000 
22042000 
22042100 
22043000 
22044000 
22045000 
22046000 
22048000 



22048200 T 
22048400 T 



22049000 
22050000 
22050909 
22050999 
22053700 
22053800 
22053900 
22054000 



T 007110 
T 0073*2 
T 007412 
T 007611 
T 007910 
T 008013 

22018000 

008013 

008512 

22016000 

008713 

009210 

22030000 
T 009512 
T 0095J2 
T 009613 
T 009810 
T 009911 
T 0102J1 
T 010310 

22033000 
T 0105U 
T 0105U 
T 010610 
T 010713 
T 0108U 
T 010910 
T 011113 
T 011411 
T 0116U 
T 011813 
T 012010 
T 012113 

22043000 

012410 

012413 

22040500 
T 012413 
T 012611 
T 012711 
T 012711 
T 012711 
T 012910 
T 012913 
T 013012 

22002000 
S|ZF» 0131 WORDS 



STACKfF+1) » U 

STACK(F-2) s MSCW 

STACKfF+2) m T 

STACKrF+3) a Tl 

STACKfF+4) a J 
STACK(F+5) . AREA 
STACKfF+6) m HDR 
STACK(F+7) * SFGO 
STACKfF+10) s F 
STACK^F+11) * ShfAT 



pROcedurf status;?; 22055000 t 000010 

START OF REL SEGMFNTI DISK ADDRESS * 00733 
RFGIN) RFAL Ua + 1#* 22056000 T 0000J0 



STACKfF+O) = RCW 



MSCW='2, 22056500 T 0000*0 

T*U+t»* 22057000 T OOOOlO 

T1-T+1JS 22058000 T OOOOJO 

INTFGFRX 22059000 T OOOOlO 

I =T 1 + 1 ; X 22060000 T 0000*0 

ARRAY AREA*I+1[*]IX 22061000 T OOOOlO 

REAL HDR * AREA + 1, 2206H00 T OOOOlO 

SEGOe HDR + 1* 22061110 T OOOOlO 

F ■ SegO+H 22061120 T OOOOlO 

ARRAY SHEAT « F + U*3l 22061130 T OOOOlO 

LABEL TRYAGAtN»LDCNTRl»DiSKJ 22061200 T OOOOlO 

LABEL UEI'NOTRfADY»DtE»ACCEPT»SCRATCH»!NPUT#TESTBACKUP> 22062000 T OOOOlO 

COMMON* 22063000 T OOOOlO 

LABEL CARD»PR!NTER»TAPE#DRUm»DISc»SPO#PUnCH.UnLD» 22064000 T OOOOlO 

PAPERPUnCH»PAPER,DATAC0MI 22064500 T OOOOlO 

SWITCH S I* CARD. PRINTER»TAPE>DRUM#DISC«SP0, PUNCH, UNLD# 22065000 T OOOOlO 

PAPERPUNCH»PaPER,DATACOMIX 22066000 T OOOOlO 

Real rcw*+o;k 22067000 t ooooio 

subroutine spaceau 22068000 t oooolo 

begin area ♦• (spaced?) inx memory )m 0[ 6 i 381 10 3 endjx 22069000 t oooilq 

22069000 

SUBRoUTlNF AUTOLOADER! 22069010 T 000510 

BFGTM 22069020 T 0005*0 

TRYAGAIM 22069025 T 000510 

IF (HDRI"0IRECT0RYSEARCH(P(LDCNTRL>»P(D1SK>,3)) * THEN 22069030 T 000510 

PFGIN 22069040 T 000711 

SHfAT I* rMrFl«TYPE0SPACE(31»SHEETAREAV)]] & 30[ 8 I 38 I l 0] I %% 1 67- 22069050 P 000713 

STRFAM(St»F-l» D»sF)l * ZERO OUT ThE SHEAT ENTRY 22069060 T 001210 

BEGIN 22069070 T 001312 

SUsSJ DSU30 WDS; 22069080 T 001312 

END! 22069090 T 001410 

22069070 

SFGO l* TYPEDSPACEC 30»SEGZFR0AREAV)n JS167- 22069100 P 0014*1 

DlSKWAlT(-SFGO f 30, MCHDR INX 10])| 22069HO T 001612 

F.rEFl I* HDR! % CORE ADDRESS OF HEADER IN [FF3 OF PARAM. 22069l?0 T 001911 

SHEATr73 Is SEGOj % CORE ADRS.OF SEGMENT ZERO IN SHEAT[71 22069130 T 002012 

SHEATrOj Is PCLDCnTRl)! 22069140 T 002113 

SHEATn] J» PCDISK); 22069150 T 002310 

SHEATf?] s« & H4I47UJ & LDCNTRLCOOE [ 5 I 45 I 3] & 2 C 8 » 3 8 I 1 3 1 22069160 T 0024U 

% r* «1 1 IN SHEETC2] MEANS SUPRESS BOJ/EOJ MESSAGES 22069170 T 002812 

SHEATri6] t» ShEATc 173 i« P377777777777 1 % TIME U IM J TS 22069180 T 002812 

SHEAT[l93 is Ul % COMMON VALUE 22069190 T 003013 

SHFAH203 Is H; % CORE ESTIMATE 22069200 T 003210 



SHEATr?U 
SHEAT[?/»] 



» = 



150; 
mcp; 



% STACK SIZE 



*131« 



STRFAMfAlsO : S Is F( . SCHEDULE I DS) ) i 
BEGIN 

Si t»S; 

47fSKlP SB; SKiP ()B) 
IF SB THEN ELSF JljMP 

ds*«set; a**tally; 
FNn stream stateMfNt; 



tallyj*tally*h 
out); 



SCHEDULE 
DIV 60; 
ADDRESS OF 



NUMBER 



I * = Pi 

SHEATm.rfiMO] 1. is % 
SHEATr?3] 1= (CLOCK + P(RTR)) 
SHEATT25] » = HDR«rFFj> % DlSK 
STREAMfU, |l«!l«SPACE(ll))» 
BEGIN 

DSI*31LIT"CC EXECUTF LDcNTRL/D I SK ; COMMON 
SiULOc U; DSlaBDFCS 
nS«»6LlT"IEND,«- w ; 
FND STREAM STATEMFNT) 

Mr! 3 J * 0> M[ 1 + 1 ]!sl0; 

SHEATf6] *s GETESpDISK & 1 [ 1 8 ? 3 3 » t 5 3 1 

DISKWAITCI, 11. SH£ATt63.(CF]); 
FORGETSPACEt I)* 
MULTlTABLEtUJ «* "CONTROL"; 
LABELTABLETU] S= f-"DECK " ) ; 
RDCTABLE[U3 * = 1 & 1[14*38»103( 
TF U THEN READERAteO ELSE READERBUO; 
T NDEPENDENT RUNNER C P (.SfLECT RUN )»F. 160); 
FNP ELSE * IF IN DIRFCTORY 



BEGIN 
ENTFRSYSFlLEf2)J 

r,o tryagain; 

LDCNTRL*** "LDCNTRL"* 
p I SK t : : "piSk "; 

fnd; 

END SUBROUTINE AUTOLOADfR* 
P(0,0,0»0»0,0.0.O,0)l* 

spateais 

WHILF CT *■ PCRRR) OR RRRMfCh) 



FILE HEADER 



■ "} 



* READY DOS 



BEGIN I * 



IF T 



LI 



0*T1NU[U *■ (P(T FQV NOT READY* DUP * DUP • x»x )% 

x?lOOOOO0O0O0OO).X 

l3»6]3t5Mll7]/*lOOOOOO00OOO0l« 

< READY THEN* 

BEGIN COMMENT SOMETHING WENT NOT REAOY;X 
READY ♦ READY AND NOT 11% 
IF LABELTABLE[U3 * THENX 
RF C 1 N J! 

LABELTABLECU] •• P114JS 

TF (U AND P774) NFQ 16 THEN 



22069210 


T 


0033U 


22069212 


C 


003412 


22069220 


T 


0036(2 


22069230 


T 


003612 


22069240 


T 


003713 


22069250 


T 


003713 


22069260 


T 


003810 


22069270 


T 


003910 


22069280 


T 


004012 


22069290 


T 


004110 

22069240 


22069300 


T 


0041 S 1 


22069310 


T 


0041*1 


22069320 


T 


0041 >3 


22069330 


T 


0044> 1 


22069340 


T 


004612 


22069350 


T 


004811 


22069360 


T 


0051U 


22069370 


T 


0051*1 


22069380 


T 


0051»2 


22069390 


T 


0055*3 


22069400 


T 


0056«1 


22069410 


T 


0057»1 

22069360 


22069420 


T 


0057»2 


22069430 


T 


0061*0 


22069440 


T 


0063(0 


22069450 


T 


0065(0 


22069460 


T 


0065(3 


22069470 


T 


0067(0 


22069480 


T 


0068(2 


22069490 


T 


0070(3 


22069500 


T 


0076(3 


22069510 


T 


0078(0 

22069040 


22069520 


T 


0078*0 


22069530 


T 


0078(2 


22069540 


T 


0079»1 


22069550 


T 


0079(3 


22069560 


T 


0081*0 


22069570 


T 


0082*0 

22069520 


22069600 


T 


0082*0 

22069020 


22071000 


T 


0082*1 


22073000 


T 


0085(1 


22074000 


T 


0086(0 


22075000 


T 


0088*1 


22076000 


T 


009012 


22077000 


T 


009110 


22078000 


T 


0094*0 


22079000 


T 


0094(3 


22080000 


T 


0095*1 


22081000 


T 


0096*3 


22082000 


T 


0097t3 


22083000 


T 


009811 


22084000 


T 


009912 



END;* 



MULTlTABLEtU] JsOl 



r • * 



RRRMECH •• RRRMECH AND NOT 
END OF NOT READY* 



\i% 



ELSE BFGIN COMMENT SOMETHING WENT READY** 

Ready * ready or nx 

UNiTtU3.[13«n * 01* 

IF LABELTABLE[U1 # 0114 THEN* 

BEGIN RRRMECH •• RRRMECH OR \l% 

IF LABFLTABLEtUl ■ P?l« THEN* 

BEGIN I * I AND NOT SAVEWORDIX 
GO TO 11% 
FNDIX 



fndj* 



STARTI0(U)IX 
GO TO COMMON?* 



IF 



(U AND 0774) NeO 
MULTITABLFIU] »» 
IF ( I AND SaVEWORq) 
BEGIN RRRMECH < 



16 THEN 

RDCTABlE[U]«*0> 
* THEN* 
I AND SAVEWORD 



OR RRRMECH* 



fnd** 



GO TO COMMONI* 



GO SCUNiTTU] ,r 1 14] 31Z 

TAPE* PCWAITIO(P4200000000,5.U)»DED*X 

IF (T «■ WAlTjO(ARFA INX 3120540000000> P7500045, U ) ) ,X 

r*5»3J # o Then* 

NOTREADYI BEGIN READY •• READY AND NOT IIS 
GO TO L|X 
ENDJ* 

IF M0D3I0S AND NOT T.f42Ul THEN BEGIN XAI 

DO UNTIL CT1*WAITI0(AREA INX P3400000l2i 075» U ) >#0 I 
IF Tl.[43l?J#0 THEN Tl*WAITlO(P4200000000,5,u)l X697» 

END pLSf Tl*.WAITI0(P42O00O0O00»5»U); XAf 



IF Tl, [45l3J»»0 ThFN GO TO NOTREADYI 
DO UNTIL NOT (Tl*WAlTiO(P500000000#Pi65tU)) OR 

(TRANSACTl0N[UJ*0m 
IF Tl.t42il] THFN 
BEGIN I STREAM(T*TiNUtLJ]iA*AREA)l 

BEGIN Sj*LOC Tj Sl»Si+5) DS*LlT"#»j 

DS*3 CHRl DS*10 LIT ""BAD L0A0*"l 
ENDI 



XAI 



SPOUTCAREA 
END? 



INX 0)1 SPACEAI GO TO LI 



IF Tl.r*5lM THFN GO TO NOTREADYI* 
PRNTABLE[U]*0&(NOT Tntl»43tl]|X 
IF T.t43U] THEN* 

BEGlNISTHEAM(T*TTNUtU3»AREA)IX 
BEGIN SI «■ LOC TJ Si 



SI45IX 



22084500 


T 


010013 


22085000 


T 


010212 

22082000 


22086000 


T 


0102*2 


22087000 


T 


0l04»0 

22079000 


22088000 


T 


0104*0 


22089000 


T 


010690 


22090000 


T 


0107*1 


22091000 


T 


010913 


22092000 


T 


011013 


22093000 


T 


0112*2 


22094000 


T 


0113«2 


22095000 


T 


0U5«2 


22096000 


T 


0116»0 

22094000 


22097000 


T 


011610 


22098000 


T 


011613 


22099000 


T 


0117*1 

22092000 


22100000 


T 


011711 


22100500 


T 


011812 


22101000 


T 


012111 


22102000 


T 


012212 


22103000 


T 


012413 


22104000 


T 


012511 

22102000 


22105000 


T 


012511 


22106000 


T 


0132»2 


22107000 


T 


0134*0 


22108000 


T 


013612 


22109000 


T 


1 37 * 2 


22110000 


T 


0139*2 


22111000 


T 


0143*0 

22109000 


22111500 


T 


0143*0 


22112000 


P 


0145*2 


22112100 


C 


0149*0 


22112500 


T 


0152*2 

22111500 


22113000 


T 


0156*3 


22114000 


T 


0158*2 


22115000 


T 


0160*2 


22115020 


T 


0162*2 


22115030 


T 


0163*1 


22115040 


T 


0165*1 


22115050 


T 


0166*1 


22115060 


T 


0168*0 

22115040 


22115070 


T 


016811 


22U5075 


T 


0174*0 

22115030 


22116000 


T 


0174*0 


22117000 


T 


0175*2 


22H8000 


T 


0176*0 


22119000 


T 


0178*3 


22120000 


T 


018013 



OIF 



DS * 

ds * 

SPOUTMREA iNX 
LABELTABLEtU] < 
GO TO 111% 



LIT "**; 

14 LIT « 



DS * 3 CHRI1 
PARITY, RW/L*"X 



0); spacea; 



fnojx 



IF T,[«2H] THEN* 

BEGINJSTRFaM(T«-TiNUCU].AREA)U 

REfilN SI * LOC Tl SI ♦ SI+51X 

DS * LIT «#"; DS ♦ 3 CHRJX 

DS * 15 LIT » TAPE MK# RW/L*"lX 

fndjx 

GO TO D! E J * 



END** 

STREAM(Y«-0! ARF A,X«.[TJ)| X 

PFGIN DS ♦ 8 LIT " LABEL 



"JX 



si «• aRfa; 01 ♦ DI-8U 

IF 6 SC a DC THEN TALLY * 

AREA *. TALLY** 

si «• si+45> oi * loc y; ds 

si «• loc arfa; di * x; ds 



in 



fnd*x 

NTl * PJX 

IF T THEN 

BEGIN 



■ 5 OCT I* 
WDSJ* 



PRNTAbLf[U].[30»18J»«NT1 ELSE 
STREAM(Y*»OlAREA#X»aCTJ)J 

begin ds*=4 lit m v0l1"j 
St«»area; di»*di-4i 
if 4 sc»dc then tally««1i 

AREAIbTALLYI SllaSl+i; 
Di»»L0C Y* DSl»5 OCT? 
SpsLOC AREAI DItaXI DSlaWDSJ 

end; 



NT1!*P> 

if r then 



BEGIN 

PRNTABLFCU] Ja(*P(DUP))4NTlt30l30M8] 

USASITAPE(CAREA].[CF]#T.l#U»n; 

END' 



OR M| 



fndj 



IF 



NOT T1.C43H] THEN* 
BEGIN IF T THENX 
REG IN 

IF P(AREA[l]»DUP)a"PBTMCP " OR 
PCXCHJa^PUTMCP " THEN GO INPUT! 
IF AREAE4J, [121301 > DATE THENX 
BFGIN IF RETMSG THEN 

STREAM(T*TlNUtUJ»A«-[AREAt6]])l 
BEGIN Sl«-LOC T|Sl*Sl+5>r)S*3 CHRl 
DS*5 LIT " RET "J 



22121000 T 
22122000 T 
22123000 T 

22124000 T 
22125000 T 
22126000 T 
22127000 T 



22128000 
22129000 
22130000 
22131000 
22132000 
22133000 

22134000 
22135000 

22136000 
22137000 
22138000 
22139000 
22140000 
22141000 
22142000 
22143000 



22144 
22145 
22145 
22145 
22145 
22145 
22145 
22145 
22145 
22145 



000 
000 
050 
100 
150 
200 
250 
300 
350 
400 



22145450 
22145500 
22145525 
22145550 
22145600 



22146000 
22147000 
22148000 
22156000 
22156100 
22157000 
22158000 
22159000 
22160000 
22161000 



T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 



22145650 T 



01B1U 
0182*0 

0184*0 

22 
0184*1 
018780 
0168! 1 
018813 

22 
0188*3 
0189:2 
0191 J2 
019210 
0192*3 
0195*0 

22 
0195*1 
0195*3 

22 
0195*3 
0197*2 
0198*3 
0199! 1 
020050 
0200*1 
0201 tO 
0201*3 

22 
0202*0 
020212 
0205*3 
020810 
0208*3 
0209*1 
0210(0 
0210*2 
0211*0 
0211*3 

22 
0212*0 
0212*2 
0213*1 
0215*1 
0218*3 

22 
0218*3 

22 
021813 
021913 
0220*2 
0221*0 
0222*1 
0224*0 
0225*2 
0226*3 
0228*3 
022912 



120000 



119000 



130000 
129000 



137000 



145100 



145500 
145050 



ACCEPT t 



END ELSE GO TO INPUT! 

Tl * SPACE(4)>% 
STRe;aM(A*[AREA[1]1,Ti)JX 

begin si * a; Si * SI+401* 



22162000 T 



SCRATCH' 



ELSE 
INPUT: 



END 



FNn ELSE 



DS * 

ds * 

2(DS 
SI * 

DS * 
ENDIX 

SPOUT(Tl)»X 
GO TO INPUT** 

ELSE* 

LABELTABLEtUJ « 
GO TO UNLDI 



LIT "#"J* 

8 chR* Si * AJX 

♦ LIT » "US 

SI + 1 * DS * 7 CHR)J 



LIT 



IX 



OJX 



END* 

IF T THEN BEGIN* 
LABELTABLETUJ «• AREAt2j»* 
MULTlTABLErU] ♦ AREAtlJIX 
STREAM(A*tAREAC3]],B*tT])l« 

BEGIN Si ♦■ A* DS * 3 OCHX 

oS * 5 oct; ds * 2 octs 

ENDJX 

ROCTABLF[Uj * I IT 1 [ 24 « 31 II 7] «T [14 I 38 1103 l X 
IF (MULTITABLECU]*"PBTMCP " OR 
MULTlTABLEtUJ*"PUTMCP "> and 
LABELTABLEtUJ * "BACK-UP" THEN* 
BEGIN LABELTABLEtUJ * 032221 2342546447 | % 
STREAMCA*TINU[UJ»PN«.MULTITABLE[UJ»"PUTMCP 
AREA)? 

BEGIN SI * LOC A* SI * SJ+51X 

PN(DS*3 LlT"#CP"» JUMP OUT 
0S*3 LlT"#LP"J LI 
DS*12 LlT n BACK-UP ON " I 
DS * 3 CHRl DS * LIT "*">* 
ENDJS 



TO L)> 



spout(area 

endix 



INX 0)| SPACEAI 



END ELSeX 



paPerix 

unldi labeltabletuj * p314ix 
go to common** 

PRjNTER'X 

T ♦■ WAITIO(96000000000»4»U), [45111)1 

UN!TtUJ,tl6l2J «. OIX 

IF T THEN GO 10 NOTREADYJ* 
TFSTBACKUPl 

IF AUTOPRjNT then 



22163000 
22164000 
22165000 
22166000 
22167000 
22168000 
22169000 
22170000 
22171000 



22178000 
22179000 
22180000 
22181000 
22182000 
22183000 
22184000 



22185 
22188 
22188 
22189 
22190 
22191 
22191 
22192 
22192 
22192 
22193 
22194 
22195 



000 
000 
100 
000 
000 
000 
100 
000 
100 
200 
000 
000 
000 



22196000 
22197000 



22199000 
22200000 
22201000 
22202000 
22203000 
22204000 
22205000 
22205500 
22206000 



22172000 T 
22173000 T 
22174000 T 

22175000 T 
22176000 T 

22177000 T 



22198000 T 



023012 

221 
0230:3 
023310 
023411 
023413 
0235U 
023513 
023612 
0237U 
023713 

221 
0238:0 
0239:1 
0242:0 

221 
024210 
0243>3 

221 
024313 

221 
024313 
024510 
024612 
024810 
02495 1 
024913 
025011 

221 
025012 
025313 
025413 
025610 
0257:1 
025910 
026013 
026112 
026210 
0264:0 
0264:3 
026612 
026711 

221 
026712 
027110 

221 
027110 

221 

027110 
027610 
027711 
027713 
0277*3 
028010 
028212 
028312 
028312 



60000 



65000 

58000 

48000 
47000 



82000 



92000 

90000 
78000 



IF PRiNTORPUNChWAIT(-U#0) 
TO SCRATCH' 



THEN GO TO COMMON! 



GO 
CARP:* 

RRRMrCMi=RRRMECH OR I; 
IF CDONLY THFN 
PEG IN 

AUTOLOADER; 
GO TO COMMON! 

EMnf 

L.ARELTABL.ECU] Ss-PlftJ 

INDEPfN0EMTRuNNfRcP(,c0NTR0LCARD)»0&U[3«43:5], 192) I 

IF U>3? AND U<63 THEN PSeUD0C0PY«-PSeUD0C0PY+1 I % *54J- 

GO TO COMMON;* 
PUNCH' 

STARTlOCU)? 

IF UNlTCU3.tl5l3J»0 THEN GO TFSTBACKUP EtSE GO TO SCRATCH! 
DRUM |« 

Disc: 

SPOt* 

PaPr:RPunch«* 
datacomii 

STARTlO(U) i% 

go to scratch;* 
common} end of readyix 

end;* 

STATUSBIT * TRUflX 

F0Rr,ETSPACrCARFA.[33«15])j« 

KlLL(tMSCWl)» 

END status;* 



22207000 


T 


0284»l 


22208000 


T 


028613 


22209000 


T 


028910 


22209200 


T 


028910 


22209400 


T 


029011 


22209500 


T 


029110 


22209600 


T 


029112 


22209700 


T 


029310 


22209800 


T 


0293J2 

22209500 


22212200 


T 


029312 


22212400 


T 


029510 


22212450 


C 


029711 


22213000 


T 


030013 


22213500 


T 


030111 


22213600 


T 


0301U 


22213700 


T 


030210 


22214000 


T 


030412 


22215000 


T 


030412 


22216000 


T 


030412 


22218000 


T 


030412 


22219000 


T 


030412 


22220000 


T 


0304*2 


22221000 


T 


030511 


22222000 


T 


0305«3 

22088000 


22223000 


T 


030513 

22075000 


22224000 


T 


030611 


22225000 


T 


030810 


22226000 


T 


030912 


22227000 


T 


031011 

22056000 



SIZE* 0311 WORDS 



STACKfF+2) 

STACKfF+3) 

STACKfF+4) 

STACKfF*5) 

STACKfF+6) 

STACK(F+7) 

STACKfF+lO) 

STACKfF+U) 

STACK(F+12) 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



fF+13) 
fF+14) 
fF+15) 
fF+16) 
CF+17) 
fF+20) 
fF+21) 
(F+22) 
fF+23) 



T. X, DESC, DISK, IOO» MIX, JOBKILLED. MIXUP. SEGNO;* 



STACK(F+24) 

STACKfF+1) : 

STACKrF+25) 

STACKfF+26) 
STACK(F+27) 
STACK(F+22) 

STACK(F+30) 
STACK(F*31> 
STACKfF+3?) 



STACKfF*33) 



BOOLEAN PROCEDURE OLAYCLOOJ 8! MADE SAVE IN INITIALIZE 

START OF 

value loo Real loci* 

begin real link, mom. front, back, char, bs» stack, s, sb.* 

« LINK 
a MOM 
a FRONT 
= BACK 
9 CHAR 
s BS 

» STACK 

s S 

s SB 

s T 

s X 

« DESC 

* DISK 

■ I0D 

■ MIX 
= JOBKjLLED 

■ MIXUP 

■ SEGNO 

« segdict 

i RFSULT 
= SPRT 

s CORE 
a CUED 
=> I N I TCW 

RFAL TYPEl3» RSLT. NOAUXJ 
» TYPE13 

* rslt 

* NOAUX 

$ set omit « not(newlogging) 

s set omit = n0tcworks&t) 

rfal mcptfmpi 
■ mcptfmp 

s POP omit % WORKSET 

label ext t j * all avpnues must lead to here 

label around, code, backagain. mcp, intrinsjci* 

label retry, again, fogj 

define tska » sprt#i 

boolean subroutine awaken)* 

begin comment awaken checks to see if we have halted 

The job on processor ?, if so. it restarts The 

timing for him. and calls "halt» to check interrupts)* 

if jobkilled then* 

begin 
t set omjt = newlogging 

STARTLOGCP?MlX)» 

s pop omit 

jobkilled * FALSfJ olay «• result OR 21* 

HALT; NOPROCESSTOG * NOPROCESSTOG-H* 



22728000 

REL SEGMfNTl DISK 

22229000 
22230000 



ARRAY NAME SEGDICTJ* 

RFAL RfSULT*+1I* 

ARRAY SPRT[*]I 

RFAL CORE. CUEDI REAL I N I TCW*Ml XUPJ 



T OOOOJO 
ADDRESS « 
T OOOOJO 
T 000010 



00744 



22231000 T 000010 



22232000 T 
22233000 T 
22234000 T 
22235000 T 



22235599 T 
22235610 T 
22235620 T 



22235621 
22235700 
22236000 
22236100 
22236150 
22237000 
22238000 
22239000 
22240000 
22241000 
22242000 
22242099 
22242100 
22242101 
22243000 
22244000 



OOOOJO 
0000)0 
OOOOJO 
0000)0 



22?35500 T OOOOJO 



OOOOJO 
OOOOJO 
OOOOJO 

OOOOJO 
0000)0 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
0001 JO 
OOOiJO 
0001 10 
OOOIJO 
0001 Jl 
0001*3 
0001)3 
0004)1 
0004)1 
0006J1 



END** 
AWAKFM * RESULT END** 

SUBROUTINE stop;* 

RFGIN COMMENT STOP HALTS ThE JOB ON PROCESSOR 2* AND 

CLOCKS HIM OFF, ?T SfTS JOBKiLLFO s'o THAT AWAKEN 

CAN DO US DtRTy WORK BEFORE RETURNING** 

JOBKILLFD ♦ TRUf? P(hP?.)>% 

stoploc,(P?mix,0); 
end stopper** 

subroutinf codeoveRLayjx 

BEGIN COMMENT CODEOVfRLAY HANDLES ALL CASES OF MARKING 

A NORMAL-STATE SEGMENT AS NOT-PRfSENT. iT DOeS TrjS 
A SINGLE PRT AND STACK AT A T I ME , AND IS ONLY CALLED 
RFPEATEDLY FOR RE-ENTRANT CODE OR INTRfNSlCSJX 

ir char t h en s * misb * Misi.rFrn.tFF-i else s * s-i*x 

SpRT 4. PRT[H!XiiO)IX 

if spRTrxj,r?«n then beginx 

% NFFD To Do PRT AND STACK SEARCH ONLY IF PRESENT IN THIS PRT 
DO UNTIL (X *■ CSpRTtX] * ( *PC DUP ))&0t 2 « 2 * 1]X 

IU SPRT [ X ],[ CF J "FRONT ) CCTC J). [6* 123 )*2048** 



AROUND** 



WHILE (STACK 
BEGIN CORE * 
IF CORE 
IF TFSC 
IF DESC 
IF DESC 



*« HUNTCBS 

(DFSC * NF 

i FRONT AN 

LSS THEN 

,13113 THEN 

T.2M 1 THEN 

IF DESC. [6*23*1 then x 

MrSTACK]t*FLAG(DESC 

& (M 

* DrScRlPTOR -- INSERT OFfSeT AND RESF 

MtSTAcK] * FLAG( 

ELSE 

ELSE PEG IN* 

* CONTROL WORD (RCtO — UNFLAG TN STAC 
% CORRESPONDING MSCW* aNd MOM INTO 

MtX * DESC.EF 
(*P(DUP) 

MCSTACK] * DE 
END** 

BS * STACK+i** 



5.ECF3) LSS S DO 

LA6fM[STACK])),tCF3lX 

D CORE < BACK THEN 

XPROG. DESC OR RCW, 

XDESC 

XPRESENT 

TYPE 13 INTRINSIC DESC 

& 0[2»2»13 
0M,[8ll0j)rCTC]) ELSE 
T P-BIT 

DESC«0[2I2I1]X 
4CCORE*FRONT)tCTC3)X 



K, PUT OFFSET INTO 

Rcw.rcFJ 

F]] ♦ * 

HCCORE*FRONT)[CTC]!X 
SC8SEGNOICTC3 IX 



END** 

IF CHAR AND (STAcK<SB) THEN* 

BEGIN BS * SB* S * HUNTC BS+ 1 ) , f CF 3 1 



GO AROUND FND* 



IF P(SPRTtt9]»T0P) THEN P(DEL) ELSE 
BEGIN C0REI«P0LISH, tCFJI 

IF CORE < FRONT OR cORp £ BACK THEN 
ELSE SpRTd9]»*C*P(DUPmO[2l2! 1] 
S(CORE-»FRONT)fCTC]l 
FNDJ 



*DS 
XDS 

XDS 

XDS 
XDS 



22245000 


T 


0008*0 

22242000 


22246000 


T 


0008*0 

22238000 


22247000 


T 


0008*3 


22248000 


T 


0009*0 


22249000 


T 


0009*0 


22250000 


T 


0009*0 


22251000 


T 


0009*0 


22252000 


T 


00t0*0 


22253000 


T 


0012*2 

22248000 


22254000 


T 


0012*3 


22255000 


T 


0013*0 


22256000 


T 


0013*0 


2225^000 


T 


0013*0 


22258000 


T 


0013*0 


22259000 


T 


0013*0 


22260000 


T 


0019*1 


22261000 


T 


0020*3 


22262000 


T 


0022*1 


22263000 


T 


0022*1 


22264000 


T 


0023*2 


22265000 


T 


0028*2 


22266000 


T 


0028*2 


22267000 


T 


0031 *0 


22268000 


T 


0033*3 


22269000 


T 


0035*2 


22270000 


T 


0036*3 


22270050 


T 


0038*0 


22270100 


T 


0039*1 


22270200 


T 


0041*0 


22270300 


T 


0042*3 


22271000 


T 


0045*1 


22272000 


T 


0045*1 


22273000 


T 


004811 


22273100 


T 


0050*0 


22274000 


T 


0050*3 


22275000 


T 


0051*3 


22276000 


T 


0051*3 


22277000 


T 


0051*3 


22278000 


T 


0053*2 


22279000 


T 


0055*2 


22280000 


T 


0057*2 

22274000 


22281000 


T 


0057*2 


22282000 


T 


0058*3 

22267000 


22283000 


T 


0059*1 


22284000 


T 


0060*2 

22284000 


22284100 


T 


0064*1 


22284200 


T 


0065*3 


22284300 


T 


0067*1 


22284400 


T 


0069*0 


22284500 


T 


0071U 


22284600 


T 


0073*2 



S 5FT OMIT 



= NOT(STATISTICS) 

FN ; r> of pRrSent ?n 



prt case;* 



fnd of codeoverlay;* 




IF DESC.CH?) NEQ THEN 

if desc. um«r thenx 

Mr STACK ]UFLAGCDESC*0t2l2tl)l(M0M.r8M0])rcTC]} 
ELSE 

BEGIN MrDESc,tFF)JI»C*P(OUP))i(CORE-FRONT)tCTCII 
MrSTAcK]l*DESC&tMOM,[8«10J)CCTC)S 
If 331471 1 1 I 



1C33I47I13I 

end; 

BSSsSTACK+lJ 

end; 
if char and (stack lss sb) thenx 

BFGIN RS!=SBI Si»MUNTf BS+ 1) , tCF] I GO AGAIN) ENOI 
FND Or TYPE 13 jNTRlNSjC STACK SEARCH? 

COMMENT OLAY HANDLES OVERLAYS, THERE ARE 3 CLASSES 

OF THINGS WHICH MAY Be OVERLAID! 

1) OBJECT PROGRAM DATA SEGMENTS 

?) OBJECT PROGRAM CODE SEGMENTS 
AND 3) MCP (NI0N*SaVE> PROCEDURES, 

4) mcp tables - overlayable 
each of these classes gets special handling* 
which will be dfscRIBfo as we come to iti 
de is common to all classes and all cases 

NOT(NEWLOfiGlNG) 

NOT(WORKSET) 
EMP l a CLOCK 4. Pf8TR>l 

WORKSET 

«• MfLOCIJ MOM * MCLOC + 13JX 
T l* LOC + 21 BACK I* LINK,tCF3> 

mix * link,[areamixf3).0 then go to mcpix 
and non-save means mcp procedure or intrinsic 
ix«p2mix then stqp»x 

* UNITCW * PRTfM|X»6]) f t32ll]l* 
iNjTCW.CCFU BS ♦ PRTrMlXt 103.CFF1II 

CWMF» S IS TOP-0F-ST A CK# BS IS BASE OF STACK 
lNK.[AREATYPEF]=cODEARrAV then go to codejx 
ermgoingcmjX) thfn go to fog) 
means program -- qnl* alternative is data 

HAR THEN* 

CHECKS FOR ADDRESS SAVED IN CHARACTER MODE 
N CHARIa((cTl»MCS-l J.tCF]) * FRONT AND T < BACK) OR 



* This co 

* SET OMfT = 

t SET OMfT a 

MCPT 

S POP omtt % 

LINK 

FRON 

IF ( 
<MIX>bO 

IF M 
CHAR 
S «- 

char is 
if L 

IF T 
TYPE«1 
IF C 

special 

BET, I 



% 



% 









22284200 




22284699 


T 


0073^2 




22285000 


T 


0073»2 

22261000 




22286000 


T 


007312 

22255000 




22286010 


T 


007313 




22?860?0 


T 


O074J0 




22286030 


T 


0076J I 




22286040 


T 


0079:i 




22286050 


T 


008512 




22286060 


T 


0088^0 




22286070 


T 


009013 




22286075 


T 


0092 5 2 




22286080 


T 


00945 1 


CTCJ) 


22286090 


T 


009610 




22286100 


T 


009911 


CTCII 


22286110 


T 


010051 




22286120 


T 


0103JJ 




22286130 


T 


O1O61O 




23286140 


T 


0107S2 

22286110 




22286150 


T 


0107:2 




22286160 


T 


010853 

22286060 




22286170 


T 


0109:1 




22286180 


T 


0110:2 

22286180 




22286190 


T 


011451 

22286020 




22287000 


T 


011452 




22288000 


T 


0ll4«2 




22289000 


T 


011452 




22290000 


T 


011452 




22291000 


T 


011452 




22291500 


T 


011452 




22292000 


T 


0114:2 




22293000 


T 


0114.-2 




22294000 


T 


OU452 




22294099 


T 


0114:2 




22294110 


T 


011452 




22294120 


T 


0H4<2 




22294121 


T 


012350 




22295000 


T 


0123J0 




22296000 


T 


012652 


X167- 


22297000 


P 


012950 




22298000 


T 


013151 




22299000 


T 


0131 * * 




22300000 


T 


013480 




22301000 


T 


013612 




22302000 


T 


0139:3 


X167- 


22303000 


P 


0139:3 


*507- 


22303200 


C 


0141»2 




22304000 


T 


014352 




22305000 


T 


014352 




22306000 


T 


014353 




22307000 


T 


0143:3 



?! M-RFGTSTEH FROM ICW (SOURCE ADDRESS) 

C(T«=Mr.S-23.[FFJ)> FRONT AND T < BACK))* 
3! S-F?FGfSTER FROM ILCW (DfSTINATION ADORESS) 
TF NOT CHAR THEN* 

BEGIN X * M[S * M[Sl,rFFn.[FF] + lJX 
% MrSj.rFF] IS ADDRESS OF RcW, M[RCW],[FF] IS ADDRE&S OF MSCW 
DO CHAR * c(T * MCS * S-l J , I CF 3 CFRONT 

AND T < BACK) UNTIL CS < X) OR CHARI 
% SfARCH THROUGH STREAM LOCALS AND PARAMETFRS FOR ADDRESSES 

s * x;s 
end;x 

ENDU 

IF CHAR THFN XTELL BREAKOUT ABOUT IT 

BFGIN PCAWAKfN,SSN); GO EXfT* 

END? 

1! CANNOT OVERLAY IF MAY BF ADDRESSES \H CHAR MODE STACK 
!OD*MrMOM j.tS: 10] J 

IF (DiSKlsMOM.CFF]) NEQ THEN X OLAY ADDRESS PRESENT 
BEGIN 
$ SET OMIT a NOT(AUXMEM> 
MOM.CFFl «sO> 
FNDI 

if disk*o then disk s *diskspacec jOd»mix«noaux)* 
!f disk lss thf* * no olay disk 
pegin p(awaken)| go exit* 

FNDI 

$ SF.T OM|T * NOT(STATlSTlCS) 

TF (S:aS-l) GTR MOM ThEN TF MOM QTR BS THEN BS»«MOM+l> 
% IF MOTHER IS IN STACK. ONLY SfARCH ABOVE IT 
WHILE CSTACK»sHUNT(BS),[CF]> LSS S DO 
BFGIN 
IF (DESCl»NFLAG(M[STACK])).tll23*l THEN 

* ONLY WORRY ABOUT DATA DfScRIPTORS WHICH ARE PRESENT 

IF DESC.rFFJsMOM ThEN 

x This one dfmands action -- it points into our array 

if DESc.rBiio]»o then 

* NAME DESCRIPTOR " PU1 fN OFFSET AND RESET P-BfT 

M[STACK3tsFLAG((DESC,rcF]-FRONT)4MOM[CTF]) 
FLSF. 
% NORMAL ROW DESCRIPTOR -- ZERO CORE FIELD AND RESET P-BIT 

M[STACK3t«FLAGfO«DESCtei8l25])> 
PS»bSTACK + i ; 

END I 

IF M[MOMJ.[3J3J NFQ 7 % NOT READ ONLY ALREADY WRITTEN 
S SET OMIT = NOT(RREAKOUT) 
THEN 

BEGIN 
S SET OMIT ■ NOT(AUXMEM) 
RETRY J DjSK|0(RSLT,FRONT-i. JOD& 1 1 3 » 4 7 » 13 » DATADDRESS(M IX» n I SK ) ) \ 

% C3in in size marks i/o as originating from olay 

MrM0M]:«<»P(DUP))*0[2i«mH5rCTC]l 



22308000 
22309000 
22310000 
22311000 
22312000 
22313000 
223)4000 
22315000 
22316000 
22317000 
22318000 



22319000 T 

22320000 T 
22320100 T 
22320200 T 



22321000 
22322000 
22323000 
22323200 
22323400 
22324800 
22325000 



22325200 T 
22325400 T 
22325410 T 
22325430 T 



22325600 
22326400 
22326600 
22326800 
22327000 
22327200 
22327400 
22327600 
22327800 
22328000 
22328200 
22328400 
22328600 
22328800 
22329000 
22329200 
22329400 

22329600 
22329800 
22330400 
22330600 
22330800 
22331400 
22331600 
22331800 



T 0148*1 
T 0148*1 
T 0153:0 
T 0153*0 
T 0153*2 
T 0156:1 
T 0158*1 
T 0161U 
T 0165*0 
T 0165*0 
T 0165*3 

22312000 

0165*3 

22307000 

0165*3 

0166*0 

0168*3 

22320100 
T 0168*3 
T 0168*3 
T 0170*3 

T 0172*2 
T 0173*0 
T 0173*0 
T 0174*1 

22323200 

0174*1 

0177*1 

0178*0 

0180*2 

22325410 
T 0180*2 
T 0180*2 
T 0185*1 
T 0185*1 
T 0187*3 
T 0187:3 

T 0190*2 

T 0190*2 

T 019211 

T 0192: 1 

T 0194*0 

T 0194*0 

T 0196*3 

T 0197* 3 

T 0197*3 

T 0201*0 

T 0202*1 

22327000 

T 020213 

T 0204*2 

T 020412 

T 020413 

T 0205*1 

T 020511 

T 020911 

T 0209U 



$ SET OMjT = 



pf awaken^deL); 

x rr«5 IN MOTHER ?s interlock for makepresent 

SNOOZF(0»r R SLT J.IOMASK); 
IF RSLT, 12617] NFQ THFN X I/O E^ROR 
BFT.IN 



or ii i " 
NOT(AUXMFM) 
IF f DISK | 



JXMFM) 
fDlSK»«DISKSPACF( IOD*MIX»-0)) 
BEGIN J! NO OLAY DISK 
M[M0M]|«f*P(DUP))*6[CTC]> 
60 TO FOG; 

fnd; 



LSS THEN 

* TERMINATE MARKER 



GO TO RETRY* J! TRY AGAIN WITH ANOTHER ADDRESS 
END* X IF I/O FRROR 

MfM0M]i«(*P(nUP)UDISKtCTC3| X PUT DISK ADDRESS IN MOTHER 
END X TF READ ONLY, NOT YET WRITTEN 

FUSE 

"EG IN 
MrMOMli«(*P(DUP))*Or?l47UI»D!SKrCTC3l 

Pf AWaKENM.)EL)» 

end; 

IF M[M0M].[3l3]*6 JHfN M[ MOM J , [ 5 1 1] * 1 » 

FOr,« forgetspace(fRont) j 

PCTRUF)} r.O EXlTj 
CODr :* 
X OqJECT PROGRAM CODE TO RE OVERUAlD 

IT (T * M[S1.CCF])>FR0NT AND TSBACK THENX 
X CANNOT OVERLAY NORMAL STATE SFGMENT HE WILL RETURN TO 

BEGIN P(AWAKFN)? p,0 F^ J T J 

FNDJ 

ir softi>o then 

IF JARfHl X»2J.r5l 1 1 THEN X SOFTWARE INTERRUPTS 
^F fTSKA + PRT[MlX f TSX]).PRTT THEN 
IF CT - TSKA[8].[FF3 >#0 THEN 

IF CT*-MrT],[CE])>FRONT AND TSBACK THEN 

BEGIN P(AWAKFN); GO EXlT* 

END* 

IF (MIXUP ♦ (SEGDICT ♦ PRTfMlX#4]).tFF])#0 THENX 
X RF-FNTRANT CODE TO BE OVERLAID — CHECK OTHER USERS, TOO 
BEGIN MJXIJP * MIXUP. r39:6]?X 
DO BEGINX 

if MtxupsPpMjx then stopjx 

X STOP OTHFR USER OF THIS CODE TF RUNNING ON PROCESSOR 2 

IF (T * M[PRT[MlxUP»8]],[CF])iFR0NT AND T5BACKX 
THEN BEGIN PfAWAKEN)* GO EXfTl 

end; 

x same criteria apply to all usfRS of this code 

if soETf>o Then 

IF JARfMlXUP,R].r5»U THEN % SOFTWARE INTERRUPTS 
IF CTSKA * PRTrMIXUP,?26]),PBlT THEN 
IF (T ♦ TSKAL8J,[FF3)#0 THEN 

IF (T*M[T],[CF])>FR0NT AND T<BACK THEN 



22332000 


T 


021212 


22332200 


T 


021411 


22332400 


T 


0214:1 


22332600 


T 


021512 


22332800 


T 


021613 


22333000 


T 


0217*1 


22333800 


T 


021711 


22334000 


T 


0219*3 


22334200 


T 


0220*1 


22334400 


T 


022212 


22334600 


T 


022310 

22334000 


22334800 


T 


022310 


22335000 


T 


022312 

22332800 


22335200 


T 


022312 


22335400 


T 


0225:3 

22330600 


22335600 


T 


022513 


22335800 


T 


0225*3 


22336000 


T 


022611 


22336200 


T 


0229:2 


22336400 


T 


0231*1 

22335800 


22349100 


T 


0231 11 


22350000 


T 


0236«2 


22351000 


T 


0237*1 


22352000 


T 


0238J0 


22353000 


T 


0238:0 


22354000 


T 


0238:0 


22355000 


T 


024H2 


22356000 


T 


024P2 


22356020 


T 


0243»2 

22356000 


22356100 


T 


0243:2 


22356140 


T 


0244: 1 


22356150 


T 


024611 


22356200 


T 


0248:3 


22356300 


T 


025111 


22356400 


T 


0255*1 


22356420 


T 


025H2 

22356400 


22357000 


T 


025712 


22358000 


T 


0260*3 


22359000 


T 


026013 


22360000 


T 


0262(2 


22361000 


T 


0262:2 


22362000 


T 


0265:0 


22363000 


T 


026510 


22364000 


T 


0268<2 


22364100 


T 


0271*2 

22364000 


22365000 


T 


0271*2 


22365100 


T 


0271*2 


22365140 


T 


0272*1 


22365150 


T 


0274*1 


22365200 


T 


0276*3 


22365300 


T 


0279*1 



begin pcawakenh 
fnd; 



GO EXIT? 



END UNTIL (MTXUP * PRTT M I XUPt 4 ] , r 24:6 ] )«P77; % 

* check all users on mtx-?ndex linked list 

fnd;x 

% if wr reach this point, wf can and will overlay the area 

SET OMIT « NOT(AUXMEM) 

BACKAGAINI t 
SET OMiT a AUXMEM 

X*SFGDTCTrSFGN0*M0M].r8sl0J;C0DF0VERl-AY> 
POP OMiT 

SFT OMIT s NOT(AUXMEM) 
IF MlXUP THFNX 
% Rf-FNTRANT CODE BEING OVERLAID — MUST FIX ALL STACKS AND PRTS 

IF (MIX ♦ PRT!MIX # 4];t?4l6])##77 THEN* 
% SpT UP CHAR* S, AND BS FOR NEXT USERS STACK 
BFGIN CHAR «■ ( S «■ PRT [ M I X . 8 J > . t 32 I U I % 

S * S INX 0; BS ♦ PRTCMlXt 10J.CFF3IS 
% GO DO STACK SEARCH AND PRT FIX-UP FOR ANOTHER USER 
GO TO BACKAGAINJ* 
ENDJ X 



S 

$ 



SET 



iET 



OMT 

OMl 

S 

F 

POP oMl 

% NOW 

MCPlX 

I 

I 

COM 
R 

W 

c 

N 
[ 
M 
I 



T = NOT(AUXMEM) 
T * AUXMEM 

FGDlCT[MOMl*(*P(DUP))8MOMrFTF3>l 
ORGEf SPACE CFRONT); P( AWAKF N.DEL, TRUE ) ( 
T 

was t h at not triviality personified,,. 



GO EXITS 



F PCLI 

Pcxc 

F LINK 
BEG I 
MFNT 
FMAlN 
HEN T H 
ORE PE 
EEDS A 
33M5J 
FMORY 
N USE, 
INK In 
I 



NK,tAREATYPEF]»DUP)«TYPE7jNTAREAV ORX 

E13INTAREAV ThEN GO TO INTRINSIC* X 
TYPEFJ=DATAARfAV THEN % OVERLAYABLE MCP DATA 



H)*TYP 

,UREA 

N 

MCP TA 

IN COR 

E SPAC 

Rmanen 

"DESC 
» AND 
LINKS 

the p 
dicate 

F MEMO 

BEGI 

M 

F 
P 
G 

END 




MJ,IFFJ ■ THEN 

n scan overlay: no one is waiting 
[mom] i* 0) x mark absent 
orgetspace(front)> 
(true); xsignal success 
o exit; 



ELSE BEGIN PCFaLSE>I GO EXIT END 

end; 





22365400 


T 


0283J1 




22365420 


T 


0285*2 

22365400 




22366000 


T 


0285:2 

22360000 




22367000 


T 


0288:2 




22368000 


T 


028812 

22359000 




22369000 


T 


0288:2 




22369999 


T 


028812 




22371200 


T 


028812 




22371210 


T 


0288(2 




22371220 


T 


028812 




22371221 


T 


029310 




22371299 


T 


0293:0 




22372000 


T 


029310 


S 


22373000 


T 


029311 




22374000 


T 


029311 




22375000 


T 


029611 




22376000 


T 


029611 




22377000 


T 


029911 




22378000 


T 


030212 




22379000 


T 


030212 




22380000 


T 


030310 

22376000 




22380049 


T 


030310 




22383049 


T 


030310 




22383050 


T 


030310 




22383100 


T 


030511 




22383101 


T 


0303(0 




22384000 


T 


0308(0 




22385000 


T 


0308(0 


X167- 


22386000 


P 


0308(0 


X167- 


22386010 


C 


0309(2 


X167- 


22386100 


P 


0311(1 




22386150 


T 


0312(2 


Y CAN 


22386200 


T 


0313(0 


OVED 


22386204 


T 


0313(0 


N 


22386208 


T 


031310 


BLE 


22386212 


T 


0313»0 


ss 


22386216 


T 


0313(0 




22386220 


T 


0313»0 


s 


22386224 


T 


0313(0 


ORY 


22386228 


T 


031310 




22386232 


T 


0313(0 




22386250 


T 


0313(0 




22386300 


T 


0315(0 




22386350 


T 


0315(2 




22386400 


T 


0317(0 




22386450 


T 


031713 




22386500 


T 


0318(0 




22386550 


T 


0318(2 

22386300 




22386600 


T 


0318(2 

22386600 




22386650 


T 


0319(3 

22386150 



X «■ -?; RS * (P(0»RDF)),tFF3J* 
% SfT RS TO POINT AT RCW FOR CALL ON OLaY 
DO BEGIN* 

OLAY «• NOT(S * ((CORE * ( T * H [ BS ] ) . £ CF 3 ) <BACK 
ANq CORE^FRONT))fX 
* S IS TRUE IF THE RCW POt NTS TO THE ROUTINE TO BE OVERLAID 
BS ♦ T,[FFJ;X 

% point t to corresponding mscw 

WHILE (T * MrBS]),tl6HJ DO BS * T,[FF]IX 

* Run down stack of mscws until not msff 

IF CBS «■ T,IFF])<64 ThEN 
X FND OF STACK « THIS IS RATIONALE FOR OBSCURE USE OF "P(0,STF>" 
BS * BEDCX * X+23,[FF3»X 
FND UNTIL (X>JOBNUM) OR S > 3 

IF RESULT THFNI 

BEGIN MCMOM1 ♦ ( *P( DUP ) H ( *P( .ESPB T T ) ) t C TC J t X 
FORGETSPACE(FRONT)>I 

ENOIX 

P(RESULT AND 1)! GO pX I Tl 
INTRINSIC « * 

FOR MIX*1 STEP 1 UNTfL MIXMAX DOX 
TF lNTABLEROW[MIXl!*0 ThENX 
BEGIN IF MjXxP2MiX ThEN STOPJX 

IF (T ♦ MrPRT[MfX,8]].[CF3)2srRONT AND TSBACKX 

then begin pcawakfN); go exit; 
end; 



ENOIX 



DOS 



X TYPE 



for m!x*1 step 1 untfl mixmax 
if intablerowcmix]j«o Then 
begin segno * mom. [8| 103-1 ix 

stReamca «> segno and 3s t * ciNTABLEtMjx. segno div ajdj 

BEGIN Si «• T| SI * Si+AI SI * SI + A) DI * L0C AlX 
DI * 01+65 DS ♦ 2 CHRl END STREAMlNGIX 

IF (SEGNO * POL|S H )#0 ThENX 

if segno * P2000 then intu else 

BEGIN CHAR * P (PRT [ M I X . 8] » DUP ) , r 32 » 1 3 J X 
TYPEl3JaSEGNO.C37:i3l 
SEGNO«*SEGNO AND P1777I XIGNORE TYPE 13 BIT 
S «. POLISH I NX Of 8S ♦ PRTrMlX»lO],tFF3lX 
SEGDICT ♦ PRT[MIX»43IX 
XI«SEGDlCTrSEGN0],[8H0]| 
IF TYPE13 AND NOT PR T [ M 1 X # X ] . C 2 1 1 3 THEN 
13 RFFERF.NCE ALSO FXlSTS AND TYPE 7 REFERENCE IS NOT PRESENT 
INT13 ELSE 
BEGIN 

CODEOVERLAY' 
SEGDlCTrSEGNO] * ( *PC DUP ) >&M0M[FTE3 ) X 

end; 



22387000 
22388000 
22389000 
22390000 
22391000 
22392000 
22393000 
22394000 
22395000 
22396000 
22397000 
22398000 
22399000 
22400000 



22405000 
22406000 
22407000 
22408000 
22409000 
22410000 
224U000 
224H020 



22413000 
22413010 
22415000 
22416000 
22417000 
22418000 

22419000 
22419500 
22420000 
22420200 
22420500 
22421000 
22422000 
22423000 
22423100 
22423200 
22423300 
22423400 
22423500 
22424000 
22424500 



22401000 T 
22402000 T 
22403000 T 
22404000 T 



22412000 T 



endix 



FNDIX 



22425000 T 



22426000 T 



031913 
032212 
032212 
032212 
032510 
032713 
032713 
032910 
032910 
0333«l 
0333U 
033510 
0335»0 
033810 

22389000 
033913 
034010 
034310 
0343(3 

22402000 
034313 
034510 
034510 
034610 
034710 
035010 
035312 
035612 

22411000 
035612 

22409000 
035813 
036010 
036110 
0363U 
0366U 
036713 

22417000 
036812 
036912 
037210 
0376U 
037712 
037813 
0381 13 
038311 
038511 
038712 
038712 
038910 
038912 
039110 
039311 

22423400 
039311 

22420000 
039311 



I fMTRNSc r mom, r 8 l ion . 

forgftspacfffront);* 
pcawakfn,ofl.truf); 



(*P(dup))&mom[ftc);x 



FMT» 

t SFT OMfT = NOTCNEHLOGGING) 
$ SFT OMfT = NOT(WORKSET) 

if pimjx nfQ o Then 

OLAYTlMttPlMlX] J»:f*PCDUP)) + CCLOCK+PCRTR)»MCPTFMP)l 
$ POP OMJT % WORKSfT 
P(RTN); 
FNo OF OVERLAY;* 



Revision of may 3i» mf. 



22427000 
22428000 
22429000 
22429100 
22429199 
22429210 
22429220 
22429230 
22429231 
22429300 
22430000 



22415000 
T 039512 
T 039810 
T 0398:3 
T 040012 
T 0400(2 
T 040012 
T 040012 
T 0401U 
T 040413 
T 040413 
T 040510 

22230000 
SIZE" 0406 WORDS 



STACKfF+1) 
STACK(F+2) 

STACKfF+3) 
STACKfF+4) 



A 
B 

J 
T 



procedure changfaborkx)) valuf xi real xjs 
bcgtn array a(*]» Br*];* 

RFAL J. TJX 



A»rMrSPACFC?lO)]]8?10[85 38:iO]J 
SLFEPfrTOGLFJ* aboktmask ) ; % 

l.ocktogcabortmaSk); 



22900000 T OOOOIO 

START OF REL SEQMfNTJ DISK ADDRESS « 00758 

22901000 T OOOOIO 



22902000 T OOOOIO 



D!SKWAiT(«A,tCF3»2lO»FSPDlSKTOP+l); 

WHILE ( A[0J!*XCL0CK+P(RTR)) GEO WJTCHINGHOUR DO MIDNIGhTJ 



ENOJX 



An ] * date i% 
j ♦ 3xpimtx;« 
at J] * At J+i ) *■ Ar J+?) *■ ot% 

B*JARROW[PlMjX]; SCANT WATCH 

ArJ+90] * Pro]; 

AT J + 91 ] ♦• Bf 13; 

ArJ + 923 * X&Br53U«25»?3] * 

Af l80 + (?lMTXl*USERcODFtPlMlX3l 

DTSKWAlT(A.rCF3»2lO,ESPDISKTOP+l)l 
UNLOCKTOGCABORTMASK)| 

FORGETSPACFf A)l* 



OAR AND UOSE CONTROL* TOO, 



22903000 
22904000 
22905000 
22906000 

22907000 
22909000 

22910000 
22911000 
22912000 
22913000 
22914000 
22915000 
22916000 
22917000 
22918000 
22920000 

22921000 
22922000 



T OOOOIO 
T OOOOIO 
T 000413 
T 000611 

22906000 
T 000913 
T 001212 

22909000 
T 002012 
T 002113 
T 002310 
T 002711 
T 002811 
T 003011 
T 0032» 1 
T 0035U 
T 0037U 
T 003913 

22920000 
T 0043U 
T 004411 

22901000 
IZF* 0045 WORDS 



* SET OMIT = NOTCOATACOM ) 
REAL SPACFSTACKJ 
PRK665) = SPACFSTacK 

save procedure forgetspacfcloo;!! 



22999999 T OOOOlO 
23500000 T OOOOlO 



STACKfF+l) 
STACK(F+2) 
STACK(F+3) 
STACKfF+A) 
STACKfF+5) 
STACK(F+6) 
STACKfF+7) s 
STACK(F+10) = 



BEGTNX 

REAL 



3 
S 



B 

BACK 

F 

FRONT 

LINK 

X 

T 

size 



VALUf LOCJ* 

real loci* 

B, B AC K»F. FRONT .LlNK»X,T,SlZEH 



START OF SAVE 



24000000 
SEGMFNTI BASE 
24001000 
24002000 
24003000 



LOC * *P(,l,0C) INX -2i% 

IF CB* M[BACK* (LINK* M [LOc ] ) . I FFJ 3) . t CF3*L0C OR 

(F«-MrFRONT*LlNK.[CF)]).tFF 3#L0C OR LlNK<0 THEN 
PIJNTJ3): % INVALID LINK 

IF F<0 THEN *?> fmffi&'C hit* is /n/M-Hftt-fe 

BEGINS t 

MtLOC]*LlNK &FtcTCJ*X P *'*T T0 »» tvi *>«->-• J »* ,< ' **«* 
M[F]*MrF3 & L0CTCTF3U Wt* *** #***#* *** ?•*" »**■ *» **«-* 

M[T*M[fR0nT + 2)]*M[T] &(X*M[FR0NT + n)tCTC 3 IX 
M[X+13*T* 

END I* 
IF B<OK 

then* p^cw^ awa t* /h/muimu 

BEGIN* 

M[BACK]*B&(T*M[L0C],tCF])rCTC3?X 

MtTJ«-M[T]$ BACKtCTFJJX 

MtBACK+l]*M[BACK+l]4(SIZE*T-BACK«2)[CTFJI» 
END? 

ELSE XBACK in use 
fcEGlN* 

M[L0C*-2]*aVaIL|J! 

M[LOC*n*(T*M(AVA!LJ) S (S I ZE*M[ LOC 3 . [ CF 3-LOC-2HCTF 

1 I % 

MtT+13*L0c*ll* 

MrAVAlL3*T S(L0c*l)[CTC3X 
J M[L0C3*-MtL0C3X 
ENDJ? 

IF L0C<LEFT0FF THEN IF M[ lOc 3 » t CF 3>LEFT0FF THEN LEFT0FF*MC LOC 3 . f FF 1 I 
% SET OMIT * NOHDEBUGGING OR CHECKLlNK) 
FNo FORGETSPACFJ* 



T OOOOlO 
ADDRESS « 
T OOOOlO 
T OOOOlO 
T OOOOlO 



00655 



24004000 T OOOOlO 



24005000 
24006000 
24007000 
24007100 
24007200 
24008000 
24009000 
24010000 
24011000 
24012000 
24013000 

24014000 
24015000 
24016000 
24017000 
24018000 
24019000 
24020000 

24021000 
24022000 
24023000 
24024000 
24025000 
24026000 
24027000 
24028000 
24029000 

24030000 
24030100 
24031000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0004 
0009 
0014 
0015 
0016 
0016 
0018 
0021 
0027 
0026 

0029 
0030 
0030 
0030 
0034 
0037 
0042 

0042 
0042 
0043 
0045 
0050 
0051 
0054 
0055 
0057 



T 0059 
T 0063 
T 0063 

SIZE* 00 



10 

10 

10 

10 

II 

10 

12 

12 

II 

12 

13 

24008000 

12 

10 

11 

13 

12 

II 

12 

24016000 

12 

12 

10 

10 

13 

12 

10 

13 

12 

24022000 

10 

10 

10 

24003000 

65 WORDS 



SAVF TNTFGFR PROCEDURE ACTSPACE ( S I ZF » SAVED J 



PRTC666) * 



STACKfF+2) 
STACKfF+3) 
STACK(F+4) 
STACKfF+5) 
STACKfF+6) 



STACKfF+7) ■ 
STACKrF+|0) 



ACTSPACE 

VALUF 
BEGIN 



START OF 



S17F.SAVEF* Real size* 
Real link.locx.y.t; 



boolfan savef* 



LINK 

LOC 

X 

Y 

T 



24032050 T 0000*0 

SAVF SEGMFNT! BASE ADDRESS ■ 00720 

24032100 T 0000*0 

24032200 T 0000*0 



S SFT 



SlZEF 
> LOS 



om?t = notcstatistics) 
Real sizef.i.os* 



LABEL SVST ART t SVSE ARC H » START »0V SEARCH • XX. ROCK ABVE I 
IF SAVEF ThFM* ATTEMPT TO ALLOCATE AT START OF MEM 
BEGIN 
SVSTARTj LlNKi«M[0]J 

SVSEARCH* IF (LOCI»LINK.rcF])"0 THEN GO TO ROCKABYE* 
IF (LINK * MrLOcDiO THEN* 
BEGIN IF NOT LINK. T2I 1 1 THEN* 

BEGIN % OVRLAY ONLY IF POTENTIAL 
SlZEF » -2) X ♦ I ♦ LOO 
IF fY*LINK, tFF]) * THEN 

if mcy] < o Then sizef*m[cuy) + 

WHILE SIZE>SIZEF AND ( Y*ME X] ) , C 1 I 
SlZEF * S]ZEF - X + (X * Y.tCFDJ 
IF SIZE > SlZEF THEN 
BEGIN LINK * YJ GO SVSEARCHI END 



ORY 



SPACE ADEQUATE 



13.CFF3J 
23*1 DO 



; 



IF OLAYCLOC) THEN % RE-SET "LINK" 



FND 



IF 

OR 

I 

GO 

FLSf 

ELSE 



(Y*MrLINK«-T3)>0 OR Y.tCF3*L0C 
M[Y3.CFF3#LINK THEN 
MEM LINK AT "T" NO LONGER VALID 
TO SVSTART ELSE GO TO SVSEARCH 
GO TO SVSEARCHI 



GO TO SVSFARCHI* 



end;* 

IF (S 
MrACT 

Link 

M[Y] 
IF SI 
BEGIN 



IZEF * Mn*LOC + l],[FF JXSIZE THEN GO SVSEARCHI* 
SPACE* ■L0CJIsABScLlNK«i[2J47tl))i 
* M[TJl MtUlNK + i] ♦ Y •■ M[T+13JX 

«• (*P(DUP)}&LlNKrCTC]»X 

zff>size+dfLta Then* 

M[L0C3 * (X * *P(DUP))i(Y * LOC + S IZE + 2 ) [ CTC 3 »X 
MTX3 «• (*P(DUP))«Y[CTF3»* 
MC YD «• X.[CF]*UOC[CTFJ|% 
F0RGETSPACF(Y+2)|X 



END!* 

END ELSE 

IF SAVEF>63 OR TOgLe,MEMNO*0 THEN 

BEfilN* ALLOCATE ON "SPACE AVAILABLE" BASIS 



START** 



24032300 


T 


0000»0 


24032700 


T 


0000*0 


24032800 


T 


0000*0 


24032900 


T 


0000*0 


24033000 


T 


0002*1 


24033100 


T 


0002*3 


24033200 


T 


000312 


24033300 


T 


0005(3 


24033400 


T 


0007*3 


24033500 


T 


0009*1 


24033600 


T 


0009*3 


24033700 


T 


0012*0 


24033800 


T 


0013*3 


24033900 


T 


0019*1 


24034000 


T 


0023*1 


24034100 


T 


0026*2 


24034200 


T 


0027*1 

24034200 


24034300 


T 


0029*0 


24034400 


T 


0029*3 


24034500 


T 


0033*2 


24034600 


T 


0036*2 


24034700 


T 


003612 


24034750 


T 


0037*2 


24034800 


T 


0037*2 

24033500 


24034900 


T 


0037*2 


24035000 


T 


0037*2 

24033400 


24035100 


T 


0037*2 


24035200 


T 


0041*2 


24035300 


T 


0044*3 


24035400 


T 


0050*0 


24035500 


T 


0052*1 


24035600 


T 


0053*2 


24035700 


T 


0058*1 


24035800 


T 


0060*2 


24035900 


T 


0063*0 


24036000 


T 


0064*1 

24035600 


24036100 


T 


0064*1 

24033000 


24036125 


T 


006411 


24036J50 


T 


0067*0 


24036200 


T 


0067*2 



IF (LINK 
0, INX, 

BEGIN* 



POLISHfM[AvAlLJ» 0. SlZE» CFX, 
.T, STD)),trF]=P77777 THEN* 



LLL,* 



OVSEARCn'X 



IF CLINK«=MCLEFT0FF]),tH2] - THEN 

BEGIN* OVERLAY ONLY IF POTENTIAL SPACE ADEQUATE 

SlZEFJ*-2/ X«*LEFTOFF> 

IF (Y:*LINK.[CFJ) * THEN 

TF M[Y] < THEN SIZEF ♦ M[Y + M.[FF]I 

while size > sizef and (Y*Mtx]).cii2]#i do 

BEGIN SiZEF*SlZEF+Y.[CFl-XJ X*Y.CFF3 ENDJ 



IF SIZE > SiZEF THEN 
BEGIN LFFTOFF * Y,[FF]J 
IF LEFToFF=0 OR XaO THEN 
ELSE GO TO OVSEARCH END* 



GO TO XX 



IF (IF P1MIX*0 THEN 1 ELSE 

IF (XJxLlNK, [9l6])#PlMlX THEN 1 
{(TWO(X) AND OLAYMASK)*0>) THEN 
TF OLAYCLEFTOFF) THEN GO TO START? 



ELSE 



XX! 



FNDIX 

IF (LEFTOff*LINK.[EF3)sO thfn 
IF LOS THEN GO TO ROCKABYE ELSE 
GO TO OVSEARCH* 



L0S*1» 



end;* 



* LlNK.r.FF])>SlZE + DELTA THEN* 
* LINKHCX ♦ SlZEF-SIZE-2)[CTF]»X 



IF (SIZEF 

BEGIN MfT) 

LOC * T+X+tl* 
X * (Y ♦ MrT-l])&(T-l)[CTFJ>X 
MCY] * f*PfDUP))«L0C[CTF3lf 
MCT-13 * Y&L0CCCTC3IX 
ELSE 



END 



PF6IN 



MIL1NK + 1 J * Y «■ M[T + 13JX 

MfY] ♦ (*P(DUP))&LINK[CTC]»X 
X * MtLOC «- T-13J* 
ENDIX 

MrACTSPACE« B L0C]l«ABS(XJl[2l«7ll J); 
FNn FLSf GO TO SVSTART) % MEMNO*0 

* SET OMiT « NOT(STATlSTicS) 
M[L0C+1 3*»0» 
ROCKABYf' 

END ACTSPACE* 



24036300 
24036400 
24036500 
24036600 
24036700 
24036800 
24036900 
24037000 
24037100 
24037200 
24037300 

24037400 
24037500 
24037600 
24037700 

24037900 
24038000 
24038100 
24038200 
24038300 

24038400 
24038500 
24038600 
24038700 

24038800 
24038900 
24039000 
24039100 
24039200 
24039300 
24039400 

24039450 
24039500 
24039600 
24039700 
24039800 

24039900 
24040000 

24040100 
24041900 
24042000 
24042100 



T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 

T 
T 
T 

T 
T 

T 

T 
T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 



0067«2 



0069 
0072 
0072 
0072 
0075 
0075 
0077 
0079 
0084 
0088 



24037300 
0094'0 
0094 < 3 
0096»2 
0098:1 

24037500 
0099:1 
0101 : 1 
0104U 
0106:0 
0108:0 

24036800 
0108J0 
010913 
0ll2»0 
0112:2 

24036500 
01 12J 2 
011413 
0118«3 
0120*2 
0124J0 
0126U 
012883 

24038900 
0128:3 
0129M 
0133:0 
0135; 1 
013713 

24039450 
013713 
0141»0 

24036150 
0141 JO 
0141 1 
0143(0 
014310 

24032200 
SIZE* 0144 WORDS 



SAVF 



INTFGFR PROCEDURE getspacecsizf»tyhe»savef) J 



STACKfF+2) 
STACKfF+3) 
STACK(F+4) 



COUNT 

T 

MESS 
% 
% 
% 

% 



VALUE StZE»TYPE»SAVEFI 

REAL ST7F»TYPFJ BOOLEAN SAV F F* 

BEGIN 

REAL COUNT, T, MESS) 



24042200 T OOOOJO 
START OF SAVE SEGMfNTJ BASE ADDRESS « 00864 

24042300 T 0000:0 
24042400 T 0000:0 
24042500 T 0000*0 
24042550 T 0000*0 



FIELDS OF SAVEF PARAMETER 



FIELD 

needolay 

typenomemandRfTurn 
•justRetuRn 
,getfRomfRont 



= 09139 



45101 
46*01 
47«0i 



% 
% 
% 
% 
% 



«156- 
X156- 
X156- 
X156- 
THIS FIELD IS NON 7ER0 IF 
RFOUESTOR WANTS OLAY SPACE 



IF SAVEF. F45J02J « 
GETSPACE WILL TYPE 
IF SUCCESSFULL, 



LABEL NFWSTART* 

SUBROUTINE TELLSPOJ 

RFGIN PfMpSS#0 OR S AVEF . C 45 « 2 ]«3 ) I 

IF (MfSS:sGETSPaCf(3»0»2)+2)*2 THEN PUNT(3)> 

MrMESS-2].[9»63»»0J 

stReam(x*=p* pimix. size* mess); 

RFGIN SH=L0C PtMiX* nS» = 2 DEC* 

ds»s8 li t*' no mfm "j 

DS«=h DFC* DS*s5 LIT" WDS«-"J 
X(DIi»0l-17l 0SI.2 LlT"OK w ); 



END 



end; 

PfDEDJ 

I0REQUEST(MESS&P274[ll40l6], 
r 17]RP23H10U0|83)| 
OF TELLING SPO ABOUT NO MEMS* 



P(DUP). 



NFWSTaRt: 



IF NOT STOREDY ThfN 

LOcktog(StoRenask); 



SLFEP([T0GLE3iST0REMASK); 



£ SfT OMiT = NOTCDEBUGGING OR CHECKLlNK) 
Pf SPACESTACK^STS); 
TIsACTSPACE(SIZE.SAVfF)* 
Pf rMESS3#STS); 
UNLOCKTOG(STORFMASK); 

IF T«0 ThfN 

BFGIN NOMeMTOG'sU 

if savef, justretllrn then p(o.rtn)* 
if saVef.TyPenomfmandReturn then 

BEGIN 

TELLSpOj 

P(0,rtn); 

END* 



3 THEN 

OK MEM 

*156- 

M56- 



M56- 
X549- 



*156- 
«156- 
*156- 
*156- 
I156- 
X156« 



24042555 C 
24042560 C 
24042565 C 
24042570 C 
24042575 C 
24042580 C 
24042585 C 
24042590 C 

24042595 C 

24042596 C 
24042600 T 
24042625 T 
24042650 P 
24042675 T 
24042680 C 
24042700 T 
24042725 T 
24042750 T 
24042775 T 
24042800 T 
24042825 T 

24042850 T 
24042875 T 
24042900 T 
24042925 T 

24042950 T 
24043000 T 
24043100 T 

24043200 T 
24043500 T 
24043600 T 
24043700 T 
24043800 T 



24043900 
24044000 
24044100 
24044U0 
24044120 
24044130 
24044140 
24044150 



N0MEM*N0MEM+1* 
TARrPlMjX], [20U]l 



1* 



24044200 T 
24044250 T 



0000: 
0000* 
OOOOt 
0000* 
OOOOl 
0000* 
00005 
0000* 
0000* 
0000* 
0000* 
0000» 
0001* 
0003* 
0007* 
0010: 
0012* 
0012* 
0013* 
0015* 
0016* 

2 
0016* 
0017* 
0018* 
0020* 

2 
0020* 
0022* 
0025* 

2 
0028* 
00281 
0029| 
0030* 
0031 > 

2 
00351 
0035* 
00381 
00391 
0040* 
0041 * 
0042* 
0042* 

2 
0042* 
0045« 

















1 
1 

2 


2 
3 



2 

4042725 

3 



3 

1 

4042650 

2 





4043100 

2 

2 

1 

3 

2 

4043800 



3 



3 

2 





2 

4044120 

2 

t 



END 



IF (C0UNT«-COUNT + 1 )>5 THEN 
IF MfSSsO THEN TELl<SPO} 
SLEEPHCLOrK], NOT C^OcK ) ? X 
NOMEM*NOMEM*i; 
TARtPIMfXJ.tgOl 1];=0> 

go to newstart;x 

FND»* 

MrGFTSPACF» s T]: = (*P(f)UP))4TYPEf3M?:6]&PlMlX[9t42l6]J 
IF MESS^O OR SAVEF.t«5i?]«3 THEN TfLLSPOJ 
GfTSPACE* 



S156- 



24044300 
24044400 
24045100 
24045200 
24045250 
24045300 
24045400 

24045500 
24045600 
24046200 



T 004H3 
T 004912 
T 005210 
T 005313 
T 0056»2 
T 005910 
T 0059*2 

24044000 
T 0059*2 
P 0063*3 
T 0068»0 

24042500 
SIZF« 0069 WORDS 



STACKfF+2) « LOC 
PRT{160) « tNOEX 
PRTc 16! 5 * SFG 
PRT(162) * CNTRS 
PRT(163) • SIZE 
PRTC164) c i.iMiT 
PRK165) « r 



SAVE INTEGER PROCEDURE DlSKSPAcECWORDS»MiX,AUX) J 
VALUE HORnSiMlX»AUX; 

intfgfr words. mix; real auxi 
begin array loc*+2i:*]j 



START OF SAVF 



INTEGER 



RFAL 
LABEL. 



1NDEX*NT1 » 
SEG «NT?» 
CNTRS*NT3» 
SIZE *NT4» 
LIMIT-NT5; 
T *NT6J 



Ll I 



Ll. 

FJNALt 
BADEXIT, 

exit; 

OFEINF HEURISTIC s 2*5 
RFAL SUBROUTINE F'lNOSFG* 
BFGINI STREAM(A«.OJT)J 

BEGIN Sl*LOC TJ Sl*Sl+3| 

5(!F SC«"0" THEN JUMP OUT TO Ll 
SI-SI+1J TALLY*TALLY+1)J 
L» A*TALLY| 
ENo STREAM; 

FlNDSFG «• POLISH 
FNO FINDSFGI 

SUBROUTINE FIND* 
RFGIN POLlSH(O)! 

T <■ LOCT INOEX3 * 

SEG * T,C9«3]I 

CNTRS * T.I2J7]; 

IF SFG>4 THEN 

IF (SEG * FlNnSEG)*5 THEN GO TO FINAL 

ELSE CNTRS ♦Ol 

if stzf+cntrs>ioo then go to lh 

P(DEL»CINDEXx256)+SEGx100+CNTRS)I 

STREAM(A*OSSEG»T*rT])J 

begin s i*t; S I «.S i + 3 ; Si *S I +SEG* 

di*loc al 0i*di+7i seg*dii 
usii os»chri tally*ai 
tally*tally+j ; a*tally> 
si*seg; d?*ti ds*chr; 



L55J 



end stream; 

if cp0lish*63) or (cntrs <■ cntrs + si ze >moo then 

BEGIN CNTRS ♦ 0; SEG * FlNDSfG FNDI 
L0C[iNDEX] * T«SEfi[9U5l3]*CNTRSt2«4H73l 



24101000 
SEGMENT; BASE 
24J02000 
24103000 
24104000 



T OOOOJO 
ADDRESS ■ 
T OOOOJO 
T OOOOtO 
T OOOOJO 



00933 



24105000 T OOOOJO 

24106000 T OOOOJO 

24107000 T OOOOtO 

24108000 T OOOOtO 

24109000 T OOOOJO 

24H0000 T OOOOJO 



241H 
24112 
24112 
24113 
24114 
24115 
24116 
24U7 
24118 
24U9 
24120 
24121 



000 
000 
500 
000 
000 
000 
000 
000 
000 
000 
000 
000 



24122000 
24123000 

24124000 
24125000 
24126000 
24127000 
24128000 
24129000 
24130000 
24131000 
24132000 
24133000 
24134000 
24135000 
24136000 
24137000 
24138000 
24139000 
24139500 
24140000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



24141000 T 
24142000 T 

24143000 T 



OOOOJO 

OOOOJO 

OOOOJO 

OOOOJO 

OOOOtO 

OOOOtO 

0001 JO 

0002U 

0002J3 

0004JO " 

000413 

0005JO 

24117000 
0005J1 
0005J1 

24116000 
0005J3 
0006J0 
0006J1 
0007J1 
000812 
0009J3 
001052 
0013J0 
0014J1 
001650 

001812 
0020:0 
0021S0 
0021 J3 
0023J0 
002312 
0024 t 1 
002411 

24135000 
002412 
0027J0 

24142000 
0029J2 



FlNflL! IF CDJSKSPACE «• P0US H )#0 ThEN 
BEGIN IF SEG«5 THFN INDFX «■ 0} 
L0C[0] «■ LfMiTS INOFXtCTF] I 
GO TO LX I T : 

FMO END FINO* 



i SET OMjT a NOT(AUXMEM) 
PfDALOcROW[MlX]); 
SIZE «• fWOROS + 29) DIV 30} 

IF (LIMIT is LOC[01 f rCFl)«0 THEN GO TO BADEXITI 
IF (INDEX «• LOCCO].[fF])#0 THEN FIND; 
INDEX «• ?t 

DO FIND UNTIL (INDEX I* I NDEX + 2)>L I MI T! 
BADFXlTJ 

diskspace «• -1; 

EXIT* 
$ SFT OHlT * NOT(STATISTICS) 

STRFAM(A*0lL*LlMiT.[«ll6],T*[L0Ct 133)1 
BFGIN ST*T; Dl*A» 

L(Si*si + n; 

5c if sc="0« Then di*di + 6; si*si*i))i 
a*di ; 
end streami 

TF (POuiSh<HEURISTIC) then 

IF (CSFG * TWO(MIX)) AND OLAYMASK)#0 THEN 
BEGIN OLAYMASK * NOT SEG AND OUAYMASKJ 

INDEPENdeNTRUNNeR(P(.GETMOReOLAYDISK)#MIX»100)> 

end; 



end diskspace; 



24144000 
24145000 
24146000 
24147000 
24148000 



24148999 
24150000 
24151000 
24152000 
24153000 
24154000 
24155000 
24155500 
24156000 
24157000 
24157199 
24158000 
24159000 
24160000 
24161000 
24162000 
24163000 

24164000 
24165000 
24166000 
24167000 
24168000 



24169000 T 



T 0032«3 
T 0033»3 
T 003611 
T 0038«0 
T 0038J2 

24145000 

24125000 
T 003813 
T 003813 
T 003913 
T 0041*2 
T 0044*0 
T 004810 
T 0048*3 
T 0052»1 
T 0052*1 
T 0053*1 
T 005311 
T 0053U 
T 0055 » 2 
T 005610 
T 005613 
T 0058»2 
T 005813 

24159000 
T 005910 
T 0059:2 
T 0062*1 
P 0064*1 
T 006512 

24166000 
006512 

24104000 
SIZE* 0066 WORDS 



PRTM60) * tNOEX 

PRT(161) * WORD 

PRTC162) * COUNT 

PRTC163) « DRUM 

PRTC164) s x 

STACKfF+1) » LOc 



save procedure diskrtncsegno. sizei; 24?ooooo t ooooso 

start of save segment! base address « 00999 

value sfgno. size; 24201000 T 0000:0 

iNTrGFR segno, sue; 24202000 t ooooio 

BEG?N TNTEGER lNDEX=NTl# 24203000 T 000010 

WORD sNTg, 24204000 T OOOOIO 

C0UNT=NT3» 24205000 T OOOOIO 

DRUM »NT4» 24206000 T OOOOIO 

X *NT5; 24207000 T OOOOIO 

ARRAY LOc =» ■*■ 1 C * 3 ^ 24208000 T OOOOIO 

LABEL LI 24209000 T OOOOIO 

S SET OMIT s NOT(AUXMEM) 24209099 T OOOOIO 

PfDALOctPiMlX#*])> 24210000 T OOOOIO 

COUNT * Tw0( 24-6x($EgN0.[39I9] oiV lOO))| 24211000 T 000012 

X ♦ (INDEX * 0sSEGN0r4j :33s6])-i; 24212000 T 000313 

IF (WORD ♦ L0C[INDEX],[l8l30]-C0UNT)»0 THEN 24213000 T 000612 

BFGIN LOCriNDEX] * 0; 24214000 T 000910 

Li IF PcL0CC0].rFF3»DUP)#0 THEN 24221000 T 001013 

IF L0CCP0LISH-1]<0 THEN P(XlT); 24222000 T 001212 

L0C[0J «■ <*P(0UP)}«INnEX[CTF3l 24223000 T 001510 

FND FLSF BEGIN LOcriNDF^]* ( *P( DUP ) HWORDt 1 8 J 18 I 30 ] ; 24224000 T 001 7 I 

24214000 

IF LOcm<0 THEN 24225000 T 002010 

IF (WORD DtV COUNT). [42!6]«0 THEN GO TO LI 24226000 T 002110 

END END DiSKRTN? 24227000 T 002313 

24224000 

24203000 

SIZE* 0024 WORDS 



S STT OMiT * NOKDATACOM ) 
t SFT OM?T = NOT(SHAREOISK) 
$ SFT OMfT s NoTfnATACOM AND DcSPO ) 
S SFT OMjT » MOT(OATACOM ) 
$ SFT OMjT = NOT(B6500UOAD) 
PROCFOURE I.IBRARYHFLP(Z); VALUE Z> REAL Zl 

START OF REL 
PRT(667) * LTRRAHYHFLP 

?! 

% 



24499999 
24599999 
24999999 
25049999 
27990099 
28000000 



OOOOiO 
0000>0 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOtO 



SEGMENT) DISK ADDRESS ■ 00760 



3! 

?! 
* 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



LJBRARYHFLP PERFORMS INfRf«UENTLY NEEDED TASKS FOR THE OTHFR 
LIBRARY MAINTENANCE PROCEDURES. fT SHARES LOCALS BY USING THE 
SAMF STACK AS yTS CALLING PROCEDURE. LIBRARYCOPY OR 
LIBPARYTRANSFER, 



01 A) SETS UP FPB ENTRY FOR INPUT SOURCF TAPE 

B) RETURNS DIRECTORY LEAVING TAPE POSITIONED AFTER 
ENDING LABEL OF DIRECTORY 

II RETURNS AFTER SECUR|Ng A NEW INPUT SOURCE TAPE 
?: ABORT FROM LI BRARYTRANSFER 

3» SETS UP FPB ENTRY FOR INPUT SOURCE DISK 

'U ABORT FROM LIBRARYCOPY 

5s INITIALIZATION OF Li BRAR YTRANSFER INCLUDING LOCATION 
OF SPECIFIED OUTPUT UNIT 

6J FRROR HANDLING OR RpEL SWITCHING 

7: WRITING DIRECTORY IF NOT REEL 1 

e: extra Records detected in current file 

9: bad header detected on source 

ioi invalid record size on last read or write 

III KEYJN REEL SWITCH 



?! 
BEGIN 

Real common=-4, 

STACKfF-4) , COMMON 

MSCW»-2» RCW»+0» 

stack(f-2) « mscw 
stack(f+0) = rcw 

mfio«Rcw*i» fid«mfid+i. 
stack(f+1) « mfjd 
stack(f+2) * fid 



28000002 
28000004 
28000006 
28000008 
28000010 
28000012 
28000014 
28000016 
28000018 
28000020 
28000022 
28000024 
28000026 
28000028 
28000030 
28000032 
28000034 
28000036 
28000038 
28000040 
28000042 
28000044 
28000046 
28000048 
28000050 
28000052 
28000054 
28000056 
28000058 
28000060 
28000062 
28000064 
28000066 
28000068 
28000070 
28000072 
28000074 
28000076 
28000078 
28000080 
28000200 
28000400 



0000*0 
OOOOJO 
0000)0 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 



28000500 T OOOOIO 



28000600 T OOOOtO 



STACKfF+3) 3 ASMFIP 
STACK(F+4) a ASFTD 

STACKfF+5) = TMP 
STACKfF+6) b TFMP 

STACKfF+7) 3 FA 
STACKfF+10) ■ FATNFO 



STACKfF + U 
STACKfF+12 

STACKfF+13 
STACKfF + H 

STACKfF+!5 
STACKfF+16 

STACK(F*J7 
STACK(F+20 

STACK(F+21 
STACKfF+22 

STACKfF + 23 
STACKfF+24 
STACK(F+24 

STACK(F+25 
STACKfF*25 
STACKfF+26 
STACK(F+26 

STACKfF+27 
STACKfF+27 
STACKrF+30 
STACKfF+30 

STACKf F+31 
STACKfF+31 
STACK(F+32 
STACK(F+32 

STACKfF+33 
STACK(F+33 
STACK(F + 3<t 
STACKfF+34 

STACKfF+33 
STACKfF+35 
STACKfF+36 
STACKfF+36 

STACKfF+37 
STACKfF+37 
STACKfF+40 



« FAvSZ 
= FAIN 

a !U 

* T 

« FPBPTR 

* 1REEL 

* NM1 

s KM? 

» DFSTjN 
s TOGS 

e DA 

a CCA1N 

9 OU 

* EATN 

■ ORFEL 
s NATN 
x N 

* NA 
a CNT 

■ NAS7 

* INC 

- L.SX 

■ ouc 

* BUMPFA 
= Y 

■ POOL 

a W 

» INDX 

■ 5I7F 

* UN 

B Q 

* SFG 

- J 

» max 

a TM 
a K 



ASMFlHsFlD+l > 

TMPeASFlD+l» 

FArTfMP+1, 

fasz=fainfo+i * 

fU»FAIN+l» 
FPBPTR»T + i , 

NM1k|REEL+1» 
DFSTlNsNM2+l , 
DAsTOGS+1, 



ASFtD*ASMF!D+1. 
TEMPaTMP+J , 

FAINFObFA+1. 

fain«fasz+i, 

T«IU+1» 
IRtEL»FPBpTR+i, 

NM2*NMl+lf 
TOGS*DESTlN+l , 



CCAIN*DA+1» OUaCCAlN, 



FAIN = CCAIN + 1 , ORF.EU s FAlN# NAiNaEAjN+l» N«NAIN# 



NA*NAIN+t> CNT=NA. 



LSXcNASZ+i» OUC^LSX. 



POOLeBUMPFA+lf W*POOL» 



UNalNDX+1, QsUN» 



MAXsSEG+l» TMaMAX, 



NASZ*NA+1» INC=NASZ, 



BUMPFA«LSX+i, YaBUMPFA, 



INDXaPOOL+l» SlZEsINOX, 



SEG«UN+1, JaSEG* 



K*MAX+lf 



28000800 T 000010 



28001000 T 000010 



28001200 T OOOOtO 



28001400 T 000010 



28001600 T OOOOJO 



28001800 T 0000*0 



28002000 T 000010 



28002200 T OOOQlO 



28002400 T OOOOJO 



28002600 T 000010 



28002800 T 000010 



28003000 T OOOOJO 



28003200 T OOOQlO 



28003400 T OOOOtO 



28003600 T OOOOJO 



STACKfF + M) 
STACKfF+41) 

STACKfF+42> 
STACKfF+42) 



L = K+i» UsU 



L 
U 

MIOPTR 
SV 



MlDPTR*l+l» SVsMjDPTR, 



STACKfF+43) * UNfTNO 



UNTTNOsMIDPTR+l ; 



ARRAY 



STACKfF+44) 
STACKfF+44) 
STACKfF+45) 
STACK(F+45) 

STACKf F+46) 
STACKfF+46) 
STACK(F*47) 

STACKfF+50) 
STACKfF+51) 



CTAsUNlTNO+1 [*]» H=CCA[*]» 



X"CCA*it*l» AROW»X[*3, 



CCA 
H 
X 
AROW 

PAP 

ion 

LAB 



PAPsx + u*]. iOf)»PAPr*i, 



LBI, = LAR + 1[*]» 



LAB«PAP+1[*]» 



WRDSZ"LBU+lt*)l 



a LBL 
a WRDSZ 

£ 



SFT OMIT m NGTf R6500L0AD) 

LABfI- TRYNEXT»TRYAGN»FiNDtT.BAC,BACK»P1,P2,P3,eXIT»ST»TAPEPARI 
I.ABrL CASf°#CASF.1»CaSE?.CaSf3»CaSe«»CASe5»CASE6»CASE7»CASE9| 
DEFiNF 

5&*3AOOCCTF]#» 

5&Pl400tcTF3#» 

«»3770004O#» 

P377O0O0O#» 

(TERMSeT(P1MiX))#, 

f 1 s 5 3 # # 1148" 

TOGS,[23U3#. 
TOGS,C24ll3*» 
TOGS. [?6j 13#, 
TOGS. t27 J 1 Jf, 

T0GS,133»13#. 
TOGS.[34il3#, 

TOgS.[35j13#, 
rOGS.[36ll3#, 
TOGS.t37:l]#» 
T0GS.C3»lU#» 
TOGS, C39t 13#, 
TOGS,[40tl3#» 
T0GS.C42ll]#l 
SWlT:BCASF0,CASrl»rASE2»CASE3»CASE4,CASE5»CASE6.CASE7» 
P2»CASe9.P1.TAPEPARJ 
y ********************* *************************** * + **** + ** + + 

DEFtNF NOTCOPlFDCNOTCOPfFDl) ■ 

BEGIN NT3l«N0Tc0PiE0l J NOCOPYMESSI END#» 
SUBROUTINE NOCOPYMESSJ 

LRMFSSf ABvSfMFlD). F?D. -67» NT3, TlNUtlU]. SPOUTUNiT. 1 )| 

%**t*******************************************************»* 

SUBROUTINE ABORT? 

BEGIN 

IF COPYING 
THEN IF 0U«l8 

THEN BEGIN P(nIRECT0RYSEARCHCMFID»FID»6)»DEL)l 



BACKSPACER ■ 

SPACER = 

MM * 

SM * 

OSED = 

UNITNUM = 

SPOUTUNIT = 

FORKED = 

B6500 = 

OF s 

FROMcOPY = 

rfflsw = 

refustaRt - 

SKIPQIR s 

SPACITSW = 

COPYINq = 
OUTAPEPARITY* 

SKIPFIL.E * 

nijMPplR s 

SWITCH 



28003800 T OOOOlO 



28004000 T 0000»0 

28004200 T 0000*0 
28004400 T OOOOlO 



28004600 T OOOOlO 



28004800 T OOOOlO 



28005000 
28005800 
28006000 
26006200 
28006400 
28006600 
28006800 
28007000 
28007200 
28007300 
28007400 
28007600 
28007800 
28008000 
28008200 
28008400 
28008600 
28008800 
28009000 
28009200 
28009300 
28009400 
28009600 
28009800 
28010000 
28010200 
28010400 
28010600 
28010800 
28011000 
280U200 
28011400 
28011600 
28011800 
28011810 
28011820 
280H830 



T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 



OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
0000:0 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOOlO 
OOOllO 
000411 
000411 
000510 
000510 
000510 
000612 



END 



oriso; x not opened exclusive 



ELSE BEGIN P( WA 1 T I Of [ TM ] . 9HQ, OU ) • DEL ) 1 

P(WAlTl0(LBL**500O[CTn»*40»0U)»DEL)l 

END* 

IF NOT EROMCOPY THEN 
BEGIN IE OU GE» ThEN 

BEGIN IF OU LSS 16 THEN 
BEGIN BLASTQ(OU); 

P(WAITI0(CTMJ,P40#0U)»DEL)» 
SeTNOTINUSE(OU#1)» 

end; 



STOPT IMING(0, 1023)1 



END* 



if iu geQ o then 

IF IU LSS 16 ThFN BLASTQ(IU)J 

END ELSE 

WHILf CCAT29) N E a o DO 

begin sfg«*ccaf 29]> d i skwa i t ( -cca. t cf ] . 30. seg ) t 
forgetespdisk(seg)? 

fnd; 

for tmpj=0 step 1 until (fain div 2) do 

IF (TEMPlsMtFAlNF0+TMP3).[CFJsl8 THEN 
IF TEMP.I17M3 THFN ELSE 
P( D IRECT ORYSE ARCH(-( TEMp, tFF])» 13.20 )» DEL) I 
IF OF THEN P(DlRECTORYSEARcH(-MFlD.FID»H)»DEL); 
IF FORKED 
THEN BEGIN IF IU GEO Thf N 

IF IU LSS 16 THEN SETNOT I NUSEC I U. 0) I 

ST0PTiM!N6(FPBPTR, 1023)1 

END 

FLSE FOR TMPI-5 STEP 5 UNTIL (NT 1 (=PRT [ P lM I X , 3 1 ) , C 8 * 1 0]-5 DO 
IF MtNTl INX (TnP+4)3 LSS THFN 

begin if <temp»*mcnti inx ( tmp+ 3) 3 , [ 36 « 63*1 ) lss 16 
then setnotinuse(temp.o); 
st0ptiming(tmp. 1023)1 
end; 

FOR TMpjsO STEP 1 UNTIL 15 DO 
IF LABELTABLEtTMPj LSS THEN 
IF RDCTABLECTMP],tB'6J*PlMlX T H EN SETNOT I NUSE( TMP.O ) j 
$ SET OMJT n PACKETS 

STRFAMfTl.T:»SPACE(5))l 
BEGIN DSl B ?lLlT"LlBRARY COPY ABORTED*"* END; 

SPOUTM )J 

no initiate; 

FNDf 



280 


11832 


T 


000910 


280 


11834 


T 


001013 

280H830 


280 


11840 


T 


00l0»3 


280 


11850 


T 


001213 


280 


11860 


T 


0015*0 

28011840 


280 


12000 


T 


001510 


280 


12010 


T 


OO16J0 


280 


12020 


T 


001711 


280 


[2030 


T 


001812 


280 


12040 


T 


001913 


280 


L2060 


T 


00211 1 


280 


12070 


T 


0022*1 

28012030 


280 


12080 


T 


0022«1 


280 


12090 


T 


0023U 

28012020 


280 


L2100 


T 


00231 1 


280 


12110 


T 


002410 


2801 


12120 


T 


0026(2 

28012010 


2801 


12130 


T 


002612 


2801 


12140 


T 


002912 


2801 


12150 


T 


003213 


2801 


12160 


T 


0033*2 

28012140 


2801 


[2800 


T 


003410 


280] 


13000 


T 


0038*1 


2801 


13200 


T 


0041*1 


2801 


3400 


T 


0043*0 


2801 


[3600 


T 


004611 


2801 


[3800 


T 


004911 


2801 


4000 


T 


00491 1 


280] 


4100 


T 


0051*1 


2801 


4200 


T 


005410 


2801 


14400 


T 


0055*0 

28014000 


2801 


4600 


T 


0055*0 


2801 


[4800 


T 


0061*2 


2801 


[5000 


T 


0064*0 


2801 


5200 


T 


006810 


2801 


[5400 


T 


0070*0 


2801 


5600 


T 


0071*0 

28015000 


2801 


5800 


T 


0071*2 


2801 


[6000 


T 


0073*0 


280] 


6200 


T 


0074*0 


2801 


7200 


T 


0079*3 


2801 


8000 


T 


007913 


2801 


8200 


T 


0082*2 

28018200 


280) 


8400 


T 


0085*3 


2801 


8600 


T 


0087*0 


2801 


8800 


T 


0087*2 

28011800 


28019000 


T 


0087(3 



boolfan subroutine labflcheck; 

PFG»N 
TRYNFVH 

PrWAlTjOcLAB iNX P l 20540000000* 0, jU) . DEL ) I 

$ sft omit * n0t(b6500l0ad) 

if p40#watti0(spacfr»^40, iu) then 

p(waittocp4 740000005»0» iu)»del>i 
if dsed Then abort; 
if (not b6j.00 and ( ( nflag( labc 03 ) . [ 6 * 423 eqv 

OR fNFLAGfLAB[2]).[6i2«] EQV »F 1LE" )*NOT 0)5 
* SET OMiT * N0T(B6500L0AD) 

THEN BEGIN 

STREAH(A«*PiNUrlU]]»T»«TI«5PACE<lO>)l 
BEGIN Si »«A;Sl »»Si+5lDS»«LIT".»*IDS»*3 CHRI 

DSI«21 LIT" NOT A LIBRARY TAPE*") 
END I 

SPOUT(T); Tl»i» 
END ELSE T*«Ol 

TF TbO ANo NOT B6500 ThEN 

IF NFLAG(LAB[?]),r30t 1B]«0 AND SKlPOlR THEN 

BFfilN 

SPAClTSWI.il ChKLbLUFaLSej 

GO TO BACK! ^BRANCH INTO SPAClT, 



"LABEL ")*NOT 



BAC! 



SPAClTSWIsOl CHKLBL'sTRUEl 

GO TO trynext; 
fnd; 

labelchfck»*ti 



END! 



%** 

SUB 

BEG 
FIND1TI 



ROUTINE FlNoTHETAPEJ 
,N 



$ SET 



IF (I 

THEM 
NM1 ,U 
IREEL 

rrrme 

B6500 
O^IT . 
IF CH 
BFGJN 



fnd; 



UiBFlNDINPUTf NM1 »NM2» lREEL»-0»OtO»0»0#l#FPBPTR)) , 

abort; 
nitnum*»o; 

•■RDCTABL£[lU3.tl*«lO]l IFORCE REEL CONTINUITY IF 
CH««TWO(IU) OR RRRMECH) 

j.prntablet iui,r2«n; 

NOT(B6500L0AD) 

KLRL THEN IF LABELCHECK THEN 

SfjTNOT inusec IU» 1 3 1 

GO FINDIT; 



1L 



3K148" 

■FD. 



% 
% 



STARTIMING(FPBPTR,IU); DONE IN FJNDINPUT 

Mf PRTT P1 Ml X» 33 INX ( 5* I REEL+3 ) 3 , [ 23 1 1 3 »* II 

R0CTABLFCIU3,[BI6]I»P1M!X| 

STREAM (Sl»PRNTABLEtTU3f H8 « 303 . T J w[ T 3 > J 

BFGIN Sfi.LOC SI DS*=8dECI DI t»Dl-7l 0S*«6FILLI ENDI 



28019200 
28019400 
28019600 
28019800 
28020000 
28021800 
28022000 
28022200 
28022400 
28022600 
28022800 
28023600 
28023800 
28024000 
28024200 
28024400 



28025000 
28025200 
28025400 
28025600 
28025800 
28026000 
28026200 
28026400 
28026600 



28027200 
28027400 
28027600 
28027800 
28028000 
28028100 
28028H0 
28028200 
28028400 
28028600 
28028800 
28029400 
28029600 
28029800 
28030000 
28030200 

28030400 
28030600 
28030800 
28031000 
28031200 



28024600 T 
28024800 T 



28026800 T 
28027000 T 



S SET OMiT = PACKFTS 



28031400 T 



008713 
0088*0 

008810 
008810 
0090*1 
009011 
009212 
009412 
009810 
010112 
010510 
0105«0 
0105*3 
010910 
1 1 l i 
011311 

28024000 

011312 
011512 

28023600 
012013 
012213 
012610 
0l26«2 
0130«0 
0130*2 
0130J2 
013450 
013412 

28025400 
013412 
013510 

28019400 
0135: 1 
0135U 
0l36»0 
0136S0 
013610 
0139J3 
0142J0 
014313 
0145*1 
0147*0 
014912 

014912 
0152*0 
0152*2 
015312 
0154*0 

28029600 
0154*0 
0154*0 
0154*0 
015612 
015811 

28031200 
0159*2 



FTLEMESSA6E*" I N "&T f NUC lUH 6 * 30« 18 ] , T , 
NMi»NM2#tRfEL#0»0.0PNMeSS)I 

FND; % OF FjNDTHFTAPE 

% **************** ******************************************^ 

boolean subroutine: endofRfel; 

BEGIN 

PIASTQ(JU); 

IF P(WAlTfOftAB INX PI 20540000000 , 02000000. iU )» DUP )»P20 ThfN 
BEGIN % PAR ON ENDlNr, LABEL'TEST FOR LAST FILE ON TAPE(EOF) 
UBr43i"<*PCDUP))*(WATTlO(SPACERt*4OilU>«04O)M7U7llJJ 

PfWA!Tl0(5»*3400tCTF].e377»iU)»DFL)l 
ENOS 

$ SFT OMIT * NOT(B6500LOAD) 
NTl SbP J 

if dseo then abort; 

if ((not 86500) and nflag( lab 1 4 3 ) and ntl*p40) 

I SFT OMIT c N0TCB6500L0AD) 
THEN BEGIN 

ST0PTIMING(FPBPTR,1023)J« 

SETN0TINUSE(IU»0)> 

TRFFLJslREEUl J 
$ SET O^IT e N0TCB6500L0AD) 

NM?:*LAB[2J; 

NM1 8ssLAB[l3 J 

FfNDTHETAPEJ 

enpofReel* s true; 

END ELSE FNDOFRfEL.J*FaLSEJ 



fnd; 



% OF SUBROUTINE ENdOeREEL 



%**^******************^****t ***************** ***f********** ********* 

subroutine wRitfNdinglabelj 

BEGIN 

PfWAlTlO{[TH]fP«0,OU)tDEL)| 
P(WAlTiO(LBL&^5000[CTF]»P40»OU).DEL)J 

if dsfd then abort? 

FNHl % OF WRITE ENDjNG LABEL 

%**^***.**.*^c***^**^ **■■***** 4************************** ******** 

subroutine spacjt;* 

BEGtN 
BACK: WHILE WAITlO(SPACER»MM,lU)#PAO do 
BEGIN 

if dseo then aborts 

IF STOPSET(PiMlX) THEN STOPM(O); 
END* 

IF FNDOFREEL AND NOT SPACITSW THEN GO BACK* 

IF SPACITSK THEN GO TO BACj XBRANCH TO LABELCHECK ELSE E^IT 
FND; 

%***************************** ******************** + #** + #******i**it** + 

SUBROUTINE SHORTHEADER; 

BEGIN 

P(WATTl0(H&P5000 r cTF3&2O[8«38»lO3,P40,0U)»DEL)> 



28032000 
28032200 
28032400 

28032600 
28032800 
28033000 
28033200 
28033400 
28033600 
28033800 
28034000 
28034200 

28034400 
28036000 
28036200 
28036400 
28036600 
28037200 
28037400 
28037600 
28037800 
28038000 
28039200 
28039400 
28039600 
28039800 
28040000 

28040200 

28040400 
28040600 
28040800 
28041000 
28041400 
28041600 
28041800 

28042000 
28042200 
28042400 
28042600 
28042800 
28043000 
28043200 
28043400 

28043600 
28043800 
28044000 

28044200 
28044400 
28044600 
28044800 



0159*2 
0161 J2 
0l63»3 

28027600 
0165*0 
0165*0 
016510 
016510 
0165*3 
0168J2 
016910 
017312 
0175S2 

28033600 
017512 
017512 
0l76»0 
017910 
0181*2 
0181»2 
018212 
0183*2 
0184(2 
0185«3 
018513 
0186»3 
0187*3 
0189*0 
018912 

28037200 
0193*2 

28033000 
0193*3 
0193*3 
0194*0 
0194*0 
019512 
019713 
0201*0 

26040800 
0203*0 
0203*0 
0203*0 
0203*0 
0205*3 
0205*3 
0209*0 

0211*3 

28042800 
0214*0 
0217*0 
0218*2 

28042400 
0218*3 
0218*3 
021910 
0219*0 



FNDJ 



WRfTENDlNGLABELJ 



%^.*^**t** *************** ********************************* 

SUBROUTINF BACKSPACJTJ 

BEG?N 

WHILE WAITlOCBACKSPACER»MM,OU) # ?40 DO 

RFG IN 

if dsfd then abort; 

if stopsft(pimix) then stopm(0)> 

fno; 



PfWA|T|Of fTM]»P40,OU>»DEL5» 



X WRITE THE TM BACK 



FND; 



£******************************************************************* 

BOOLEAN SUBROUTINE NOTLOAD I NGFROMREEL1 * 
BEGtN *SKlP LAST PORTION OF FILF FROM PREVIOUS REEL 
SPACIT? 

IF LABFl^CHFCK THEN PfO) ELSE 
TF (NfLAgcUBT?]) EQV "FlLEOOO") . NOT THEN 
BEGIN REEL1STaRT:sFALSf* Pd) END ELSE P(0)l 



NOTLOADINQFROMREELl ! »P> 



ENDl 



%** 

PCZ 
TEM 
GO 

caseo« 

CASE3J 

TMP 

FPB 

IF 

BE 

MO 

FO 

NF 

r 

EN 



***************************************************** 
,RCW»MSCW»STF)J RCWleRCW&P(XCH)[CTC]J 
p:=P; fROMCOPYIs(TEMPbO) OR (TEMP»3> or ctempm); 
TO SWlTfTEMPj; 




PBAREAV.D + 2) % 



X167- 



"I DS!s24LlT"0"; ENDI 



IF TEMP*3 

thfn begin 

STReAMCBIbTMP I NX FPBPTR)! 
BEGIN DS»=16LIT W 0DTRCTRY0DISK 

STARTlMlNG(FPBPTR.t8)| 

go exit; 

END 



ELSE 

STREAM(NMllsNMl J=CCA[CCAlN+l].B»»(TMP | NX FPBPTR))* 
BEGIN DSI*LIT"0 H J SIlsLOp NM1I S!l»Sl*iJ DSI*7CHRJ 
DS*«8LiT"0fiLE000"; pS » »24L I T*O w J 

ENn? 



28045000 


T 


0222*1 


28045200 


T 


0223*0 

28044600 


28045400 


T 


022510 


28045600 


T 


0225:0 


28045800 


T 


0225*0 


28046000 


T 


0225*0 


28046200 


T 


0227*3 


28046400 


T 


0227*3 


28046600 


T 


0231*0 


28046800 


T 


0233»3 

28046200 


28047000 


T 


0237*0 


28047200 


T 


0238*2 

28045800 


28047400 


T 


0238«3 


28047600 


T 


023813 


28047800 


T 


0239J0 


28048000 


T 


023910 


28048200 


T 


02*010 


28048400 


T 


024113 


28048600 


T 


0244*1 

26048600 


28048800 


T 


02491 1 


28049000 


T 


0249*2 

28047800 


28049200 


T 


0249t3 


28049400 


T 


024913 


28049600 


T 


025212 


28049800 


T 


0257*1 


28050000 


T 


0264*1 


28050100 


T 


026411 


28050200 


T 


0264*1 


28050400 


T 


026513 


28050600 


T 


0267*0 


28050800 


P 


026713 


28051000 


T 


027l»0 


28051200 


T 


027311 


28051400 


T 


0275*1 


28051600 


T 


0277*3 


28051800 


T 


0281*0 

28050800 


28052000 


T 


0281*0 


28052200 


T 


0281H 


28052400 


T 


028211 


28052600 


T 


0283*2 

28052600 


28052800 


T 


028911 


28053000 


T 


0290*1 


28053200 


T 


0290*3 

28052?00 


28053400 


T 


0290*3 


28053600 


T 


029013 


28053800 


T 


0294(0 


2805*000 


T 


0295*1 


28054200 


T 


0299*3 

28053800 



NMi'l«CCA[CCAlN+li; 

Refi.istart**true* chklbl*=true* 
tryagnj findthftapfj 

$ SFT OMIT s N0T<B6500L0AD) 

IF NM?#LABr2] OR lREEL#l THFN 
IF MOT NOTLOADINCFROMRFEL1 THFN 

RFGlM STRfaM(A:»CTiNUCiU]],Ti«TI»SPACF(10))I 

PFGTN Si J=AjSl j»Sl+5;DS«eLlT",»JDS» s .3CHR; 
DSJspO L| T« NOT A LIBRARY TAPE"! 
DStsLlT"-"* 
FNOI 

SPOUT(T); SF.TN()TlNUSp( IUM)> 
lREEL'*i; 

go to tryagn; 



FNO: 

NMli«LAB 
SKIPDIR: 

x * = r Mr t * 

P(WMT|0 
SFT OMIT 

SFT oMfT 
IF nSFO 

x t « r m r g r 

MOVf(OA» 
FORr,FTSP 

CHKLBLI* 
TMP|«0» 
TF P40sW 
IF R6500 



=truf; 

■ SPACE(l02*)]]Jll023r8l3flMO]| 
(( 

* NOT( 
X)RP 
= NOT( 
THFN A 
TSPACE 

t,x>; 

ACF(T) 

FALSFJ 



B6500L0AD) 

5400[cTF].0,IU)»0rL)J 

B6500L0AD) 

BORTJ 

(OA*"M[T-l].0, l) + 23HDA[8l38HO] 



J 



35 
% 



RFT 

AND 



XTRA 
MAKE 



SPACF 
X SAVE 



A I T T ( L A P T MX Pi 20540000000, 040, I U ) THEN 
THFN P(WAlTlO(LAB jNX P 1 ?054000OOOO, 0, J U ) , DEL) ELSf 
TmP:«F.MDOfREEL> 
IF NOT TMP THEN* CHECK ENDING LABEL IF NOT LAST FILE OR B6500L0AD 
IF f(N0T B6500) AND C NFLAGC LAB[ j j )E«V NM1)#N0T OR 
fNFLAGfLABt?]) EQV "F I LFOOO" )#NOT 0) 

sft omit = n0t(b6500l0a0) 
then begin strfaM(ai*[tinuc iu]],tmp«*tmpi«space(10))j 

BEGIN SI » = Al Si »* 5|4>5l DS !■ LIT","; OS S> 3 CHR; 

OS := p9 LIT M BAD FlLEOOO ON LIBRARY TAPE*"* 
FNO; SPOUT (TMP)J ABORT! 

END* 



chklblistruf; 

$ SET OMIT * N0T(B6S00L0AD) 

GO fXjTI 
CASFH 

FlNnTHFTAPF? GO EXIT; 
CASE2« I FROM LIBRARYTRANSFER 
CA-SE4* * FROM LjBRA&YCOPY 

ABORT) 
CASF5S 

OUliiUIP-ll DAI. P77777J % INiTjaLiZE 

FPBPTRlsOj 



28057400 T 

28057600 T 

28057800 T 

28058000 T 



28054400 T 0300*0 

28054600 T 0300*3 

28054800 T 0302: 1 

28055000 T 0303*0 

28055200 T 030612 

28055400 T 0308*0 

28056000 T 030810 

28056200 T 031010 

28056400 T 0312*1 

28056600 T 03l6»0 

28056800 T 0317*1 

28057000 T 0320*0 

28057200 T 032012 

28056600 
032013 
032310 
0323«3 
0326:0 

28056400 

28058200 T 032650 

28058400 T 032710 

28058600 T 0328*3 

28058800 T 033310 

28059000 T 033311 

28059600 T 033311 

28059800 T 0335*1 

28061800 T 0335H 

2806?000 T 0338*0 

28062200 T 0343*2 

28062400 T 0345*1 

28062600 T 0346*0 

28062800 T 034713 

28063000 T 0348*2 

28063200 T 035l»0 

28063400 T 035510 

28063600 T 0360*2 

28063800 T 036l>0 

28064000 T 0364*3 

28064200 T 0366*1 

28065000 T 0366* 1 

28065200 T 0370*3 

28065400 T 0372*0 

28065600 T 0376*0 

28065200 

28065800 T 0379*0 

28065000 

28066000 T 0379*0 

28066200 T 0380*3 

28067000 T 038013 

28067200 T 038310 

28067400 T 0383»0 

28067600 T 0384*2 

28067800 T 0384*2 

28068000 T 0384*2 

28068200 T 0386*0 

28068400 T 0386*0 

28068600 T 0388*1 



chklbli«true; skipdiR*«true; 

!0D:srMrGETSPACE(6»0»i)+?]]R?[8J38«l0]> 
WRDSZl»4 I MX IODI 
AROWIs? INX IODJ 

AROW{0]»«[MrGETSPACEC902>0» 1>+2]]*901[8I38»10]I 
AROWrn*"ARO«IO]*(GETSPACf (902#0»l)+2)tCTC]l 
HI»rMtTYPFDSPACF(«2»DlSKHFA0ERAREAV)]] & 30[ 8 5 38 ;\ J I % 
IF OESTIN.UNJTNUM * i9 THEN 

BEGIN 

COMMONJaTF nEST|N.[^2t6] NfQ THEN OESTjN OR M ELSE 



S167" 
S148" 



IF DESTIN.[40|1J T H EN 
IF DESTIN.[4U1] TmEN 

OUsalBJ 

STREAM(B5*PRTrPl,MlX»3] I NX 0)1 
BFGTN DSIb16L!T w 00IRCTRy0diSK 

STaRTiMING(0»OU)> 

ENn 



ELSE 

BFfilN OREEl. 



OR 
OR 



FUSE 
ELSE 



01 



"J DS|*24LIT"0"> END* 




»l*lr 100)nil0[8t38tl0]i 
abort; 



7CHR* 



STARTfMjNGfO.OUU 

PRNTAPLEtOUllB(*PCOUP)) & (I0D)[15»33«15]> 

SV|»MrFA|Nr03l 

MtFA+FASZ3i*PlA* % 10 REMAIN COMPaTIBLF WITH EARLIER «CPS 

PfWA|TiO(FA4(FASZ+l ) [ 8 * 38 » 1 HP5000 [ cTf ] .040 , OU ) , DEL) * 

MtFAlNFO] :*SVJ 

WRfTENDlNGLABFLJ 

END* 

GO FXjTJ 
CASE6: 

IF Y.C7H] AND Y. [27*13 ThEN X END OF TAPE 
IF Y,r2AM] 
TuFN % EOF ON SOURCE 

BEGIN 
IF NOT ENDOFREEL ThEN 
RFGIN 

P(WAiTiOcP47A0000020,P377,tU)»DEL)J 
TFMPIb-11 X FOR NOTCOPlED MESSAGE AT PI 
!00t 1 1 »*IOD[0] t « I OMASK; GO PU 
FNDJ 

IF HAlTiOcjOOtW] INX 9 1 6040540000000* SM» I U ) NEQ 

THEN GO Pi * 
IF lODf 1-W].t7ll3 AND Y . t 3 J A ]«I ODC 1-W J , I 3 I 4 J THEN 

RFGIN 

IF WA!TlO(|ODCfH3.SM»fU) NEQ THEN GO Pi* 

iODri-w]isc*P(DUP}) oR iomask; 



28068800 
28069000 
?8069?00 
28069400 
28069600 
28069800 
28070000 
28070200 
28070400 
28070600 
28070800 
28071000 
28071200 
28071400 
28071600 

28071800 
28072000 

28072200 
28072400 
28072600 
28072800 
28073000 
28073200 
28073400 
28073600 
28073800 

28074000 
28074050 
28074200 
28074400 
28074600 
28074800 
28075000 
28075200 

28075400 
28075600 
28075800 
28076000 
28076200 
28076400 
28076600 
28076800 
28077200 
28077400 
28077600 
28077800 

28078000 
28078200 
28078400 
28078600 
28078800 
28079000 



T 0389*0 

T 039252 

T 0396*1 

T 0397? 3 

T 0399*1 

T 040312 

P 0407*0 

P 041013 

T 0412*0 

T 041282 

T 041512 

T 041810 

T 0421 1 i 

T 0422*0 

T 0424*0 

28071600 

T 042913 

T 043013 

28070400 

T 043013 

T 043013 

T 043313 

T 0435*2 

T 043913 

T 0443*0 

T 0445*1 

T 0446*2 

T 0451*0 

28073400 

T 0451*1 

T 0452*1 

T 045510 

T 0456*2 

T 0458*2 

T 0462*0 

T 0463*2 

T 0465*0 

28072400 

T 0465*0 

T 0468*0 

T 046810 

T 046913 

T 0470*1 

T 0471*0 

T 0471*2 

T 0473*1 

T 0473*3 

T 0475U 

T 0476*1 

T 0480*0 

28076800 

T 0480*0 

T 0482*0 

T 0483*0 

T 046711 

T 0487*3 

T 0490*3 



ETND * 

elsf 

REGlN 
IF 100C1-H],C7H3 AND 
PFGIN 
SLFEPf CIOOCI-W) J#!OMaSK)J 

if lODf i-w],r28«n Then go 
ronn-w].r?ni]:*oj 

FND> 



28079200 T 
28079*00 T 



* EOT ON DESTINATION 
Y,[3U)»jOD[l*W] ,13141 



P3; 



then 



TAPFPARlLBL[4]l«t*P(DUP)) OR 1» 

IF LBL[?J t t30ll83«0 ThEN XFlLF.000 LAST FILE 

STREAM(AJ*J+2»BJ*[LBLr2]l)J 

BEGIN Si l»LOC A; Dfl-[)I + 5J DS 1*3 DEC END1 




20582440 



IF COUI»LABEL.ASCRATCH(tBD) LSS THEN 
RF'GTN COPYlNGIsFALSEJ ABORT; END* 

STARTlMfNGf 0,OU)J 

PRNTABLFrOUll = (*P(OUP)) & CI OD ) [ 15 I 33 1 1 5 ] J 
DUMPDjRjaTRUEJ SDUMP DIRECTORY 
FND 

ELSE 

IF Y. r 7 : 1 ] J! TAPE PARITY 

THFN IF Y.f24lll 

THEN BEGIN % PARITY ON INPUT TAPE 
Pi! COMPl.EXSL£FP(( (( iODrO] AND iODtll) AND lOMASK) NFO 0) 

OR DSF0)» 
ACCIDENTAL rNTRY AT 1 

N0TC0PlFD(27+f (TEMP*lO)xi2) + ((TFMP*Cl))x6)){ 



P2> 



if dsed then abort} 
sktpfile»*true» 

BLASTQ(iU)| 

P(WAITI0(P4740000020,?3?7,IU).DFL)I 
IF J NEQ CCFASZ DIV 2)-l) ThEN SPACITJ 
IF 0U»18 

then p(dirtct0rysearchcmfld»fid»6)»del) 
else begin 

backspacitj 

shortheadfR* 

end; 



28079600 
28079800 
28080000 
28080200 
28080400 
28080600 
28080800 
28081000 



28082000 
28082200 
28082400 
28082600 
28082800 
28083000 
28083200 
28083400 
28083600 
28083800 



28084800 
28085000 
28085200 
28085400 
28085600 
28085800 



28086200 
28086400 
28086600 
28086800 
28087000 
28087200 
28087400 
28087600 
28087800 
28088000 
28088200 



28081200 T 
28081400 T 
28081600 T 
28081800 T 



28084000 T 

28084100 T 

28084200 T 

28084250 T 

28084400 T 

28084600 T 



28086000 T 



0493J1 

28078600 

0493U 

28076400 
049311 
0493U 
049610 
05001 1 
050013 
050310 
050511 
050811 

28080200 
050811 
0510H 
051113 
051410 

28081800 
051510 
051612 
051813 
052011 
0521U 
0522M 
052412 
052613 
052710 
0527J2 

28083400 
052713 
052913 

28084100 
0533S0 
053410 
053613 
053812 

28079800 
053812 
053812 
054010 
0541U 
054212 
0542J2 

0552»0 

28066000 
055710 
0560*0 
056113 
056213 
0564»1 
056810 
056811 
057013 
057310 
057410 
057510 



S SET OMIT 



FND 

ELSE BEGIN % PA«lTy ON OUTPUT TAPE 
P3I IF IU LSS 16 

THtN begin 

WHILF WaITIOCBACKSPACER#MM»JU) NEQ ?40 DO 
BEGIN 

IF DSEI5 THEN ABORT? 
IF STOPSFT(PIMIX) THEN STOPM(O)? 
END? 

PCWAITI0CSPACFR»P40, IU).DED? * READ TM 
PCWAT T IOC t*C AROWr 03 ] HP5400r CTF] . 02000000. IU)»DED* 
NOT fB6500U0AD) 

IF MtAROWtO] INX NOT 0] NEQ 30 THEN ABORT? 

end; 

BACKSPACITJ 
P(WA!TlO(Hi^5000CCTF3»?40.0U)»nEt}> 

outapfpaRity»*truej 

go tapepar; 

end 

else begin x disk parjty 

SKlPFlLEJsTRUEJ 
RACKSPAClT? 

shortheadeR* 
n0tc0pied(35)j 

P(DlRECT0RYSEARCH(-fDA.CFFJ)»13»20)#DEL); 

MtFAINF0 + Jl.[t7»n l al) % MARK CLOSED FOR ABORT 

M[FAINF0 + Jl.[8t lJisOJ % DONT REMOVE IF UNLOAD *757- 

FNDS 

go fXit; 

CASE^t 

P(MrFA + n»MrFAj); % save name for unload t757- 

M[FAH=PlH> M[FA + l]l«(J + i)x2l*FLAG CO], OFFSET fl) 
LBLr2].r30»l8]l«0| xfileooo 
P(WAlTl0(LBL«?5000tCTF].P40,0U),DEL)» 

P(WA!T!0(tTMJ»P40»0U)iDEl)l 

IF nSFD THEN ABORT? 

lOOr'OllaOl Ml«i; SIZE»«FASZ+1I 

TMPi«MrFA+FASZ]} M[ FA + FASz ] * **?14 ? 

lORFQUFSTCf IODCW] *»(FA INX 0500000000)8 

SlZEt8i38li0]lTiNUcoU]t3»3»5]) OR P20i7700000, 
lOD[Wli[I0D[W3 3|0Ut12J42l6])| 
C0MPLEXSLEEP((((I0D[W3) AnD I0MASK)*0) OR DSED)I 
28085800 ACCIDENTAL FNTRY AT 1 

MtFA*FASZ]»*TMP> 

nt1|=p| m[fa]»*nti; m[ fa + 1 ] ! *p( xch ) * % replace names x757- 
if oSed then abort? 

GO fXIT? 
CASE9I 

IF DESTlN.UNlTNUM b i9 X148* 

THFN GO ST 



28088400 T 



28088600 
28088800 
28089000 
28089200 
28089400 
28089600 
28089800 
28090000 

28090200 
28090400 
28090600 
28091200 
28091400 

28091600 
28091800 
28092000 
28092200 
28092400 

28092600 
28092800 
28093000 
28093200 
28093400 

28093600 
28093800 
28093900 
28094000 

28094200 
28094400 
28094500 
28094600 
28094800 
28095000 
28095400 
28095600 
28095600 
28096000 
28096200 
28096400 
28096600 
28096800 

28097000 
28097100 
26097200 
28097400 
28097600 
28097800 
28098000 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 

T 
T 
T 
T 
T 

T 
T 

T 
T 
T 

T 
T 
C 
T 

T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

C 
T 

T 
T 
P 

T 



28087600 
0575*0 

28085400 
0575*0 
0575*2 
0575*3 
0576*3 
0579J2 
057912 
0583*0 
0585*3 

28089400 
0589*0 
0591*0 
0593*2 
0593*2 
059810 

28089000 
0598*0 
059910 
0601 II 
0603*0 
0607*0 

26088600 
0607*0 

0607*2 
0609*1 
0610*0 
0611*0 

28093400 
0613*0 
0615*1 
0618*2 
0621*3 

28092600 
0621 13 
0622*1 
0622*1 
0625*2 
063010 
0632*2 
063413 
0636*1 
0639*0 
0642*1 
0646*1 
0647*3 
0651*1 
0653*2 

066H1 
0663*1 
0667*1 
067010 
0674*0 
0674*0 
0675*0 



ELSE 



BEGIN 

shorthfadeRj 

TF lUsl8 THEN 
BEGIN 

PCDlRFCTORYSEARCH(-(DA.tFF])»13»pO).DEL)l 
M[FA|NFO+J3,[17ii]i»il % MARK CLOSED FOR ABORT 
END ELSE 



STi 



BEGIN 

H[23»»LAB[2] J 
SPAClT; 

IF Hr2] NEQ LABr?] 
ENDJ 



Then abort? 



FNDJ 
N0Tr0P!ED(43)f 

go fXjt; 

FXITS PrO,R[)S»0,XCH»P8PlCTF].STr)» 

FNn of lirRaryhflp; 



28098200 
28098400 
28098600 
28098800 
28099000 
28099200 
28099400 

28099600 
28099800 
28100000 
28100200 
28100400 

28100600 

28100600 

28101000 
28101200 
28101400 



0675 
0675 
0677 
0677 
0678 
0680 
0683 

0683 
0684 
0685 
0687 
0690 



T 0690 

T 0690 

T 0692 
T 0692 
T 0695 

SIZE* 06 



«1 
«3 

tO 

*3 

M 
>2 
• 3 

28098800 

13 

'1 

*3 

10 

10 

26099600 

<0 

28098200 

10 

28100600 

SO 

12 

(0 

28000200 

96 WORDS 



PRT(670) 



LIBRARYTRANSf 
% 

% 



START OF REL 



PROCEDURE LTBRARYTRANSFERJ 

ER 



28200000 T OOOOIO 
SEGMfNTl DISK ADDRESS • 00784 



% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



LIBRARYTRANSFER PERFORMS THE ACTUAL PHYSICAL TRANSFER OF FILES 
BASfD ON INFORMATION SUPPLIED BY LIBRaRYCOPY, BASICALLY* ALL 
LIBRARYTRANSFER NEEDS FROM LIBRaRYCOPY IS "FA" (THE FILE ARRAY 
WHICH CONTAINS THE NAME PAIRS TO BE TRANSFERRED). "FAINFO" 
fTHF FILE ARRAY INFORMATION, WHICH CONTAINS NECESSARY INFO, 

ABOUT EACH NAME PAIR), AND "DESTlN" (THE USER SPECIFIED 
DESTINATION). 




DA CURRENT "FAINFO" ENTRY 

.fen if disk then ib 

if tape Then unit number of the tape 
•rFFj if disk Then disk address of file header 

if tape then number of this file on tape 
,r5m] specifies latest version wanted 

,f6M ] FILE To BE ADDED 

• res 1 3 file To be unloaded 

,rl3Jn FILE TO BE ADDED (NOT ON DISK) 



M60* 



NOTE* 



III 



ANY OPTIONS SET THAT DO NOT APPLY TO A PARTICULAR 
CIRCUMSTANCE WILL BE IGNORED 



OU 

iREr 
oref 



FA 



FAINFO 
FPBPTR 



LAB 
LBL 



CURRENT INPUT UNIT 

" OUTPUT " 

CURRENT INPUT REEL NUMBER (IF TAPE) 

" OUTPUT » » « 

file array of name pairs to be transferred 
transfer info. for each name pair 
current fpb fntry fndex 
current file header 
last input label read 
last output label read 



28200002 

28200004 

28200006 

28200008 

28200010 

28200012 

28200014 

28200016 

28200018 

28200020 

28200022 

28200024 

28200026 

28200028 

28200030 

28200032 

28?00034 

28200036 

28200038 

28200040 

28200042 

28200044 

28200046 

28200048 

28200050 

28200032 

28200054 

28200056 

28200058 

28200060 

28200061 

28200062 

28200064 

28200066 

28200068 

28200070 

28200072 

28200074 

28200076 

28200078 

28200080 

28200082 

28200084 

28200086 

28200088 

28200090 

28200092 

28200094 

28200096 

28200098 

28200100 

28200102 

28200104 

28200106 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

C 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



OOOOIO 

OOOOtO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOtO 

OOOOIO 

OOOOIO 

OOOOIO 

000010 

OOOOIO 

OOOOtO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOtO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOtO 

0000)0 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOtO 

OOOOIO 

OOOOtO 

OOOOIO 



% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

% 



togs . r ?1 * 1 1 C8HS) 

r?3»n (FORKED) 
r?6«n (Of) 



r^eni (Somfcopied) 

[38»U (COPYING) 
[40(1] (SKIPFIUE) 



INDICATES BAD HEADER 
NOT ORIGINATING LIBMAIN/DISK 
CURRENT <MFID>/<FID> HAS BEEN 
OPENED EXCLUSIVE 

AT LEAST ONE FILE HAS BEEN 

TRANSFERED 

NOTES STAGE OF PROCESSING FOR 

USE BY ABORT 

USED TO INDICATE ABRUPT E*lT TO 

NEXT FILE SHOULD BE TAKEN 



BEGIN 

Real, common,-*, 
stack(f-4) * common 



STACKfF-1) * MSCW 
STACK(F+0) s RfW 

STACKfF+1) s MFID 
STACKfF+2) s FID 

STACKfF+3) s XXI 
STACKfF+4) s XX? 

STACKfF*5) x TMP 
STACKfF+6) « TEMP 

STACKfF+7) s FA 
STACKfF+lO) * FAINFO 

STACKfF + in * FASZ 
STACKfF+1?) s FAIN 

STACKfF+13) s iu 
STACKfF+H) = T 

STACKfF+15) * FPBPTR 
STACKfF+16) » IREEL 

STACK(F+17) = NM1 
STACKfF+20) = NM2 

STACK(F*21) » DESTIN 
STACK(F+22) * TOGS 

STACKfF+23) ■ DA 
STACK(F+24> s OU 

STACKfF+25) s ORFEL 
STACKfF+26) * N 

STACKfF+27) » CNT 



MSCWa-l» 
MFID*RCW+1 » 

XX1=FID+1. 
TMP-XXa*l, 

FA*TEMP+l, 

FASZ*FAINF0+1» 

|U«FAIN+1# 
FPBPTRsT+i , 

NM1«IREEL+It 
DFSTIN«NM?+1» 
DA«TOGS+l» 
ORFFLaOU+l, 

CNT«N+1> 



RCW*+0, 

FID.MFID+1. 

XX2.XXU1. 

TEMP«TMP+l, 

FAlNFOaFA+l, 

FAIN»FASZ+1, 

TslU+l» 

IREFU*FPBPTR+1, 

NM2sNMl+l» 

TOGS*DESTlN*l» 

OU»DA+l» 

N*OREEL*l. 

INC.CNT+1, 



28200108 
28200HO 
28200112 
28200H4 
28200H6 
28200118 
28200120 
28200122 
28200124 
28?00l26 
28200128 
28200130 

28200132 
28200134 
28200136 
28200138 
28200200 
28200400 



0000(0 
0000:0 
OOOOtO 
0000(0 
OOOOJO 
OOOOJO 
OOOOJO 
0000(0 
OOOOJO 
OOOOJO 
0000 10 
0000*0 
0000»0 
000010 
OOOOJO 
OOOOiO 
OOOOtO 
0000(0 



28200800 T 0000«0 



28201000 T 
28201200 T 
28201400 T 
28?01600 T 
28?01800 T 
28202000 T 
28202200 T 
28202400 T 
28202600 T 
28202800 T 
28203000 T 
28203200 T 



0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
0000(0 
OOOOJO 
0000(0 



STACK(F+30) * INC 



STACKfF+31) 
STACKcF+32) 

STACKfF+33) 
STACKfF+34) 

STACKfF+35) 
STACKfF+36) 

STACK(F+37> 
STACK(F+40) 

STACKfF+415 
STACKfF+425 



OUC 
Y 

W 

size 

Q 
J 

TM 
K 

U 

sv 



STACKfF+43) s UNjTNO 



STACKfF+44) 
STACK(F+45) 

STACK(F+46) 
STACK(F+47) 

STACKfF+50) 
STACKrF+51) 



H 
AROW 

!OD 

LAB 

LBL 
WRdS? 



OUC*lNC+vl 
WsY+1. 
QsSlZE+1* 
TM«J+lt 
U*K+1» 
UNlTNO.SV 
HeUNlTNO+ 
!OD*AROW+ 
LBL=LAB+1 
ARRAY HDR=XX1[ 



YsOUC+1 » 



sizf*w+i» 



JsO+1. 



K«TM+1» 



SV»U+1# 



ARRAY 



+ 1 J 
1 [ * 3 » 

*]? 



AROW»H+l [*3 » 



LABslOD+l[*]» 



WRDSZ = lBUlf*] J 



STACKfF+3) = HDR 



$ SET oMfT ■ N0T(B6500t0AD) 
DEFINE 

OSED = 

SPOUTUNIT ■ 

SPACER « 

MM ■ 

finothetape 8 

ABORT = 

SWITCHRFELS * 

UN|TNUM * 

LATEST s 

ADOV ■ 

UNLOAH * 

MUSTADO * 

RH5 s 

FORKED * 

B6500 = 

Of w 

SOMECOPIED ■ 

RF.ELSW « 

SKIPQIR ■ 

SPAClTSW s 

CHKLBL « 

COPYING * 

OUTAPEPARlTY * 

SKIPFILE ■■ 

NOLBL ■ 



TERMSET(P1MIX)#. 

0## 

5«*1«00CCTF]#» 

P37700040#» 

LIBRARYHELP(1)#» 

LlBRARYHELPC2)*t 

LIBRARYHELP( 11)#» 

ri»5]## 

0A,[5it]#. 
DA.r6lU#, 
DA,r8ll3#, 

DA.ri3»n## 

T0GS,t21«U#i 
T0GS.r23«l]# 1 
T0GS.T24I 1 J; 
TOGS. [2611] 
T0GS.C28H3 
TOGS.f33:U 
TOGS, [3511] 
T0GS,[36tU 
TOGS. C 371 i ] 
TOGS. [3811] 

T0GS.[39llJ 
TOGS.[ftOll3 

TOGS, r *1 M 3 



*160- 



1160- 



28203400 T 
28203600 T 
28203800 T 



28204600 T 
28204800 T 



28205600 
28206400 
28206600 
28206800 
28207000 
28207200 
28207400 
28207600 
28207650 
28207700 
28207800 
28208000 
28208200 
28208300 
28208400 
28208600 
28208800 
28209000 
28209100 
28209200 
28209400 
28209600 
28209800 
28209900 
28210000 
28210200 
28210400 



OOOOlO 
OOOOJO 
OOOOJO 



28204000 T OOOOJO 



28204200 T OOOOJO 



28204400 T OOOOJO 



OOOOlO 
OOOOlO 



28205000 T OOOOlO 



28205200 T OOOOlO 



28205400 T OOOOlO 



OOOOlO 
OOOOlO 
OOOOlO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOlO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOlO 
OOOOJO 
OOOOlO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOlO 
OOOOJO 
OOOOlO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOlO 



niJMPDIR ■ TOGS. 

LABfL UP»8AC*WATE»L00P,BACK 

labfl trynfxt.parerr»handle 

DEFlNF NOTCOPlFOCNOTCOPlEDl 
BEGIN NT3«.NOTCOP|EDll 

SUBROUTINE NOCOPYMESS; 

I.PMESSf ABS(MFlO), FfD 



ADS BFCiINNlNG LABEL A 
IRRFCTNESS OF LIBRARY 



X***** 

X 

X - RE 

X CO 

X 

X*************** *********** 

X 

BOOLEAN SUBROUTINE LABfLChE 

begtN 

TRYNEXU 

TF WATTlOfLAB jNX Pl?0 

not B6500 then 

BEGIN STRFAM(T».TlaiS 
BEGIN 0S»=16LI 

GO pre; 



[42«n#; 

, ttpf»bh»ok.wy»badhdr»pre; 
rr.nfxt. skipper. FALLOUTI 
********************************* 

) » 

NOCOPYMESSJ END#> 

, -67. NT3. TlNUflU]. SPOUTUNlT. I ); 

********************************* 

nd tape mark checking for 
tape source 

********************************** 

ck; 



54000000Q»*404*20lCTF]# lU)«04O AND 

% PREMATURE EOT 

PACE(5))> 

T". PREMATURE EOT*"; END; 



$ SET OMTT = 



$ SFT 



EQV 
0)) 



PRF» 



BAC: 



ENDI 



1M = N0T(B6500L0AD) 
IF M0,tWAlTl0CSPACF"R.P40, IU) THEN 

p( wa it! 0(3474 0000005.0. i u)#del>; 
if dsed Thfn abort; 
if cnot b6500 and c c nflagc labro ] ) . r 6 i 42 j 

OR CNFLAG(LAB[?3).(6l?fl] EQV "FILE")#NOT 
•M IT ■ N0T(B6500L0AD) 

THEN BEGIN 

STREAMCAI»tTlNUrlU]J»TI»TI«SPACEClO))l 
BEGIN Sl«*A>SllaSl+5;DSl*LlT". ,, IDSl83 CHR; 

qs«*21 lit" not a library tape*"; 

end; 

spoutcT); ti.i; 
end else t«*0; 

TF T=»0 AND NOT B6500 ThEN 

IF NFLAG(LABf2]),r30il8]»0 AND SKIPDIR THEN 

BFGIN 

spacitswi*! ; chklbl»=falsf; 

go to back; xbranch into spaclt. 

SPAC I TSWI*0 J chklbl«sTrue; 
go to tRynext; 

end; 

labelcheckisT; 



"LABEL ")#NOT 



X*********************************************************** 

X 



28210600 


T 


0000:0 


28210800 


T 


0000:0 


28211000 


T 


0000:0 


28211200 


T 


0000:0 


28211400 


T 


0000:0 


28211600 


T 


OOOOtO 


282H800 


T 


OOOOJO 


28212000 


P 


OOOisO 


28212200 


T 


0004:i 


28212201 


T 


0004: i 


28212202 


T 


0004:1 


28212203 


T 


0004:1 


28212204 


T 


0004:1 


28212205 


T 


0004M 


28212206 


T 


000411 


28212400 


T 


0004:1 


28212600 


T 


0005:0 


28212800 


T 


0005:0 


28213000 


T 


0005*0 


28213200 


T 


000810 


2821 3400 


T 


0009>1 


28213600 


T 


0012:2 

28213600 


28213800 


T 


0015 «'0 


28214000 


T 


0017:0 

28213400 


28214600 


T 


0017:0 


28216400 


T 


0017:0 


28216600 


T 


0019JI 


28216800 


T 


002i:i 


28217000 


T 


0024:0 


28217200 


T 


0027:2 


28217400 


T 


0031 '0 


28218200 


T 


003150 


28218400 


T 


0031:3 


28218600 


T 


0035:0 


28218800 


T 


003611 


28219000 


T 


0039U 

28218600 


28219200 


T 


003912 


28219400 


T 


0041*2 

28218200 


28219600 


T 


004513 


28219800 


T 


0047*3 


28220000 


T 


0051»0 


28220200 


T 


005H2 


28220400 


T 


005510 


28220600 


T 


0055»2 


28220800 


T 


0055*2 


28221000 


T 


005910 


28221200 


T 


005912 

28220000 


28221400 


T 


0059*2 


28221600 


T 


006010 

28212600 


28221800 


T 


006011 


28221801 


T 


006011 



% - Rfads ending label chtcking to see: if input tapf 
% refl switching is in ORDER 

% 

K************************ ************************************ 
X 

boolean subroutine endofRfel; 

pegtn 

blastQ( iu); 

if p(waltlo(lar inx p 120540000000 , p2000040* i u )» dup ) *p?0 thfn 

rfgin % par on ending labfljtest for last file on TAPEtEOF) 

LABC43l»{*P(DUP))*(HA|T!0(SPACER»P40»IU)«*40)[47uni Jl 
PfWAniO(5«.*3400[CTFJ,*377#|U)»DFL)l 

fnd; 

* SFT OMfT = NOTCBft^OOLOAr)) 

IF R6500 THFN PCDFD ELSE NTl**Pj 

IF DSFO THFN ABORTJ 

IF CfNOT B6500) AND NFLAGCLABT 4 ] ) AND NTl#P40) 
$ SFT OMIT = N0T(B6500l,0AD) 

then bfgin 

STOPTlMlNG(FPBPTR» 1023)** 
SETNOTINUSE(!U»0)| 
IRFEL:=lREEL+l J 
$ SET OMJT = N0TCR6500L0AD) 
NM2: B LAB[2]> 
NM1 JsLABtl 3* 
FlNDTHFTAPEJ 
FNnOFRFELS«TRUFJ 
END FLSE ENDOFNFEL^FALSE^ 



END) 



% OF SUBROUTINE ENnOFREEL 



************************************************************ 
SUBROUTINE 5PACIT;* 
BEGIN 
BACKl WHILE WA I T I 0( SPACER * MM , I U)#04O DO 
BFGIN 

IF DSED ThFN ABORTJ 
IF STOPSET(PlMlX) THEN S10PM(0)J 
FNDJ 



END! 



IF FNOOFRFEL AND NOT SpAClTSW THEN GO BACK* 

IF SPACITSW THEN GO BAC* % BRANCH TO LABELCHECK ELSE EXIT 



X******************************************************************* 

SUBROUTINE WRl TEND I NGLABEL* 
BEGtN 

P(WAlTl0(rTM],P40»0U).DEL)> 

P(WAlT|O(LBL*»30O0rCTF]»*«0.0U)»OEl.)l 

if dsed Then abort; 

END? % OF WRjTe ENDING LABEL 

X***** ****************************************************** 

X - HANDLES J0"S FOR Dl SK-TO-TAPE # TAPE-TO-DISK* OR TAPE- 
% TO-TAPE TRANSFER INCLUDING B6500 TAPE SIZE ALTERATIONS 



28221802 


T 


0060U 


28221803 


T 


0060U 


28221804 


T 


006011 


28221805 


T 


006011 


28221806 


T 


00601 1 


28222000 


T 


0060»1 


28222200 


T 


006110 


28222400 


T 


006U0 


28222600 


T 


006113 


28222800 


T 


006412 


28223000 


T 


0065(0 


28223200 


T 


006912 


28223400 


T 


0071*2 

26222800 


28223600 


T 


0071*2 


28225000 


T 


0071 »2 


28225200 


T 


0077»2 


28225400 


T 


0080*1 


28225600 


T 


008213 


28226200 


T 


008213 


28226400 


T 


0083«3 


28226600 


T 


008413 


28226800 


T 


0085*3 


28227000 


T 


008710 


28228200 


T 


0087*0 


28228400 


T 


0088*0 


28228600 


T 


0089*0 


28228800 


T 


0089*3 


28229000 


T 


0090*1 

28226200 


28229200 


T 


0091 *1 

28222200 


28229400 


T 


0091*2 


28229600 


T 


0091*2 


28229800 


T 


0092*0 


28230000 


T 


0092*0 


28230200 


T 


0094*3 


28230400 


T 


0094*3 


28230600 


T 


0097*2 


28?30800 


T 


0100*1 

28230200 


28231000 


T 


0102*0 


28231200 


T 


0105*0 


28231400 


T 


0106*2 

28229800 


28231600 


T 


0106*3 


28231800 


T 


0106*3 


28232000 


T 


0107*0 


28232200 


T 


0107*0 


28232600 


T 


0108*2 


28232800 


T 


0110*3 


28233000 


T 


0113*2 

28232000 


28233200 


T 


0115*0 


28233201 


T 


0115*0 


28233202 


T 


0115*0 


28233203 


T 


0115*0 



X 

SUBROUTINE lOJ 
BEGfN 

StZE»*!F fN-CNT) gTR 30 ThfN 900 ELSE (N-CNT)x30; 
IF U LSS 16 
THEN 
REGIN 
TMPI=P500000000; 

IF !ODm.t?««n 
THEN TMp:=TMP+B6500 
FUSE BEGIN Si ZE I -Sf ZE+B6500; WRDSZ t W ] I «SI ZE 1 END! 

TOREOurSTf-( IOOCWJI«(AROW[WJ I NX TMP)& 

SlZEt6«3BilO]« 
T iNUf U] f3: 3* 53 & 

(NOT IO0CWJ )t24t24l 13) OR P2017700000, 
IODt W3, 

[lODrW]3&U[!?«4?l6])> 
END 

FUSE 
RFGIN 

DlSKlO(lODtW3»(AROWrW] INX B6500"1H(N0T lODtNl ) [ 1 I 24| 1 ]* 
SlZE»Q+CNT); 
S SFT OMiT c NOT(STATISTKS) 

end; 

ENDl 
%**^***********^***************#*************************** 

% 

% - COPYS EACH ROW OF A FtLf CHFCKjNg FOR ERRORS, INCORRECT 

% RFCORD SIZF IN TRANSFFR. ANn KEYIN REEL SWITCHING 

X 

J;************************************************************ 

% 

SUBROUTINE COPYAROW; 

BEGIN 

Nlc 
S SET OMJT * NOT(B6500LOAD) 

Hr8]J 

Ql»HtK+9]j 

CNT tsW:*INC» s 0; OUC*s«-30» 

lODI[0]:=10ntn«=IOMASK; 

U t » I U J 



LOOP: 
WATES 



io; 



Wl*l-Wj 

if jonrwj neo iomask then 

COMPLEXSLfEP((((lODrW]) AND IOMASK) NE« 0) OR OSED)> 

28096800 accidental rntry at 1 

if dsed then abort; 

IE (Y«sl0nrW]).[27»2] neQ o 

then begin libRaryhfLpc6); 



28233204 
28233205 

28233206 
28233400 
28233600 
28233800 
28234000 
28234200 
28234400 
28234600 
28234800 
28235000 
28235200 

28235400 
28235600 
28235800 
28236000 
28236200 
28236400 
28236600 

28236800 
28237000 
28237200 
28237400 
28237600 
28238200 

28238400 

28238600 
28238601 
28238602 
28238603 
2B?38604 
28238605 
28?38606 
28238800 
28239000 
28239200 
28239400 
28240000 
28240200 
28240400 
28240600 
28240800 
28241000 
28241200 
28241400 
28241600 
28241800 
28242000 

28242200 
28242400 
28242600 



011510 
011510 

01 15? 

0115*0 

0115«0 
0115*0 
0119U 
0H9J2 
012010 
012012 
012111 
012112 
012310 

28235200 
0129J0 
013013 
013113 
013310 
013513 
0136U 
013810 

28234400 
013810 
013810 
014010 
014510 
014611 
014611 

28237000 
0146U 

28233600 
014612 
014652 
014612 
014612 
0146(2 
014612 
014612 
0146:2 
014710 
014710 
014710 
014710 
014810 
014912 
0152U 
015412 
0155U 
0155U 
015610 
015610 
015711 
015811 

016611 
016910 
017012 



END 



IF outapfPaRity or skipfile then go handlerr* 



28242800 T 0172:1 



28243000 T 



FLSE IF (Y.tft 1] AND Y,[24*l]) 

THFN IF (MfAROWrWJ (NX NOT 0]) NEQ WRDS7[W] 

then begin libraryhelpc i0); 
GO handlerr* 

END FLSE ELSE 

IF vURrPlMlX»9],U«lJ % RC KEYIN 
THEN BEGIN 

JARrPlMjX.93 »*C*P(DUP>) 4 0[1I«7I1J| 
SW.ITCHRFFLSJ 
EN|)J 

tf toot W3 . c ?a 1 1 ] % Last thing done on this buffer was read 
then begin u««ou; cnt«bouc»»ouc+3o; go loopi end; 

IF (CNT:«tNC«biNC+30) LSS n % MORE READING NECESSARY 
THEN BEGIN Uin-IUl GO LOOP; ENDJ 

IF lODtl-W] NFQ I0MASK 
THEN BEGIN I ODI H ] » * I OMASK; GO MATE) END! 



handlfRri 

END* 



I************************************************************ 

P(MSCWfSTF)> RC^»=RCW&P(^LiBRARYTRANSFeR»LOD)[CTC]J 

IF FAS7 gtr o THEN LIBRARYHFLP(5) else IUI«OUI«(FPBPTRI«0)M| *134- 

FOR JtsO STfP i UNTIL (FASZ DIV 2)-l DO 

BEGIN 

copying«*false» 

X 
%**+***********************************#**** 

% FPP F I XljP UPON CHANGE F INPUT SOURCE 

%******************************************* 

% 

IF HA.rCF] NFQ (TMPl«MrSVl«rAINFO*J],[CF]) THEN 
BffilN JF IU NES (-1 ) THEN 

BEGIN JF lL LSS 16 THEN SETNOT I NUSE ( IU» 0) * 

STOPTiMING(FPBPTR,l023)J 
END; 

IF FORKED THEN 
REG JN 

START IMiNg(FPBPTR|»5»TMP)J 
IF TMP LSS 16 THEN 
STRFAM(MFJ«MULTITABLE[TMP]»FI«LABFL.TABLE[TMPJ. 

B«sPRTrPlMIX#3] INX 5)1 
BEGIN SlJsLOC MF* DS»»i6CHR* 
END 

ELSF 
STREAM(Bt=PRTtPlMIX#3] INX 5)1 
BEGIN DS»*l6LlT"0DlRCTRY0DlSK "* END* 



28243200 
28?43A00 
28243600 
28243800 
28244000 

28244010 
28244020 
28244030 
28244040 
2824A050 

28244200 
28244400 

28244600 
28244800 

28245000 
28245200 

28245400 
28?45600 

28245800 
28246000 
28246200 
28246400 
28246600 
28246700 
28246701 
28246702 
28246703 
28246704 
28246705 
28?46800 
28247000 
28?47200 
28?47400 
28247600 

28247800 
28248000 
28248200 
28248400 
28248600 
28248800 
28?49000 
28249200 

28249400 
28249600 
28249800 



T 
T 
T 
T 

T 

T 
T 
T 

T 
T 

T 

T 

T 
T 

T 
T 

T 
T 

T 

T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 



0174J3 

28242600 
01741 3 
0176*0 
0179 J 3 
018H2 
018210 

28243600 
018212 
018313 
0185»0 
016810 
0188(3 

28244020 
0188*3 
018910 

28244400 
0193U 
0195*0 

28244800 
019711 
019811 

28245200 
0201 «0 
0201 *0 

28239000 
0201*1 
0201 II 
0204*1 
0209*0 
0213*3 
0213*3 
0215*2 
0215*2 
0215*2 
0215*2 
0215*2 
0215*2 
0219*2 
0221*0 
0223«3 
0224*3 

28247200 
0224*3 
0225*2 
0226*0 
0227*2 
0228*1 
0230*0 

0231*3 
0232*1 

28249000 
0232*1 
0232*2 
0235*0 

26249800 



ROCTABLErTMP3,r8liO]l«PiMiXI 
END ELSE 

while c tempi-mt cnti is<prt[Pimix.3] inx (fpbptri* 

FPBPTR+5)))+3],C36l6]-l) NeQ TMP DO 
IF M[NT1+4J LSS THEN * NOT AREAOY STOPPED 
BEGIN IF TeMP LSS 16 ThEN SETNOT I NUSEC TEMP, ) { 

5T0PTIMiNG(FPBPTR»l023)> 

end; 
tu:=tmp> % at This point iu changes 

IF III LSS 16 ThfN 

lREEL««RDCTABLEnU],[HiiO]; % Pick UP REEL NO, 
S SET OMiT s NQT(B6500L,0AD) 
ENd* 

DAJsMcSV); 

MFln«»MrFA + Jx2] J FID'«MrFA"»-l+Jx?3 J 

SKJPFILE5«FALSe> 

IF T U * 1 8 

THFN BEGIN 
3! 

% INPUT SOURCF DISK 

%******************************************* 

% 

DlSKWAlTf-H.rCF],30,OA.tFFl)l 
IF DESTIN.UNITNUM ~ 19 
fHEN BEGIN 

ABORT! 

END 

ELSE BEGIN 
% 

%******************************************* 

% OUTPUT TO TAPE 

%**************************************+**+* 

% 

TTPF» STRFAM(At=J+l .B«»rLBLt?]]); 

BFGIN Sl»*!,OC a;Di» = DI + 5;dS«*3 DEC END? 

LABELTABLECOU]»«"LBLr2]> X ENTER FILE ID FOR OL MESSAGE 

Hr9Jl*r*P(DUP)) AND 311 

IF NOLBL THEN NOLBLlsFALSE ELSE 

BFGIN 

PfWAlTiO(LBL**5000fCTF]»*40»OU>»DEL>! 
P(WAlTlO([TM3,PAO,OU)#DED) 

end; 

IF BHS OR (P(fHt9] J»LOd»DUP)«0 OR P(XCH) GTR 20) 
THEN BEGIN 
BADHDRJ LIBRARYHELPf9)| 

ftO next; 
end; 

P(WAlTiO(H&P5000[CTF]»P40»0U)»DEL)» 
UP! COPYjNqI-TRUEI 



XI 48« 



28?50000 


T 


023712 


28250200 


T 


024010 

28248000 


28250400 


T 


024010 


28250600 


T 


024112 


28250800 


T 


024711 


28251000 


T 


024911 


28251200 


T 


025210 


28251400 


T 


025310 

28251000 


28251600 


T 


025312 


28251800 


T 


0254«1 


28252000 


T 


025510 


28252200 


T 


025710 


26252800 


T 


025710 

28247000 


28253000 


T 


025710 


28253200 


T 


025812 


28253400 


T 


026410 


28253600 


T 


0265»3 


28253800 


T 


026610 


28253801 


T 


026710 


28253802 


T 


026710 


28253803 


T 


0267«0 


28253804 


T 


026710 


28253805 


T 


026710 


28254000 


T 


026710 


28254200 


P 


026913 


28254400 


T 


027013 


28254600 


T 


027112 


28254800 


T 


0272U 

26254400 


28255000 


T 


027211 


28255001 


T 


027213 


28255002 


T 


027213 


28255003 


T 


027213 


28255004 


T 


027213 


28255005 


T 


027213 


28255200 


T 


027213 


28255400 


T 


027412 

28255400 


28255600 


T 


027512 


28255800 


T 


027711 


28256000 


T 


02791 1 


28256200 


T 


0282U 


28256400 


T 


028213 


28256800 


T 


028510 


28257200 


T 


028612 

28256200 


28257400 


T 


028612 


28257600 


T 


0289U 


28257800 


T 


029012 


28258000 


T 


0291U 


28258200 


T 


029310 

28257600 


28258400 


T 


029310 


28258600 


T 


0295U 



$ SET 



?r dsed Then abort; 

for kul step 1 until ht9].[43*5] d°* write out file 

tf h[k+9]#o then 

BEGIN 

COPYARoh* 

IF OUTAPEPARITY ThEN 

BEGIN 

outapeparityssfalse; 
go up; 
end; 

if skipeilf then r,0 next; 

IF STOPSFTCPlMfX) ThEN STOPM(0)» 

end; 



copyjnrjsfalse; 

if ou lss 16 then wrtTfndinglabel; 
if IU LSS 16 Then 
OMIT ■ NOT B6500L0AD 

IF WAITIO(SPaCER*MM» fU) NEQ P40 THEN 
BEGIN N0TC0PlE0(b6); LI BRaRYHELPC 8 ) ; 



GO next; end; 



s set oMn s packets 

PFGlN 

STREAMCMF lO»FTO»At-TINUClU)»BI«TlNUtOU]»Tt«Tl«iSPACC(lO))l 

BEGIN SlSsLOC MFlD; SflsSf + H DS*s7CHR> DS»bLIT»»/«; 

S|:bSi+]J 0S« 3 7chR; DS:«13LlT w copied from *; 

Sl!sSl+5f DSt»3CHR; DS**4LIT" TO "; SHbSI+5) 

ds»b3Chr; ds»slit w «-»; 

fnd; 

SPOUTfRCT»0»LIBMSG)| 

fnd; 

somecopiedjstrue; 
if iu*18 then 

BEGIN P(0lRECT0RYSEARCH(-fDA.tFF3).13»20)»DEL); 
M[FAINF0 + Jj.[l7in;»i; 

fnd; 

IF 0U«l8 THEN 
PFGIN P(niRECT0RYSEARCHC-MFID»F!0»l4).DEU)l 0E»*0; END; 

if dumpdir then 
pfgin libraryhelpc7); 

IF (Ytal0DrW]).[27»?J NEQ THEN 

IF Y,t?8»n THFN 

BEGIN STREAM(T««T»=SPACEC7)); 

BEGIN DSl=3lLlT M PARlTY WHILE WRlTiNG DIRECTORY*"! 

end; 

spouT(T); abort; 

END ELSE 

LlBRARYHELPr*)! 
IF NOT l0D[WJ.t?7»l] THEN 



28258700 
28?58800 
28?59000 
28259200 
28?59400 
28259600 
28259800 
28260000 
28260200 
28260*00 

28260600 
28260800 
28261000 

28261100 
28261200 
28261*00 
28261600 
28262200 
28262400 



28262600 
28263200 
28263400 
28?63600 
28?63800 
28264000 
28264200 
28264400 

28264600 
28264800 

28264900 
28265000 
28265200 
28?65400 
28266000 

28266200 
28?66400 

28266600 
28266800 
28?67000 
28267200 
28267400 
28P67600 
28267800 

28268000 
28268200 

28268400 
28?68600 



T 
T 
T 

T 
T 
T 
T 

T 

T 
T 

T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 



0297*0 
029913 
0304U 
030513 
0306*1 
0307*0 
030713 
030811 
031010 
0312«0 

28259800 
031210 
031 3*2 
0316*1 

28259200 
031613 
031812 
032110 
032113 
032113 
032412 

26262400 

28262400 
033010 
033010 
0330*0 
0334*1 
0335*2 
0338*0 
0339*2 
0340*1 

28263600 
0340*2 
0342*1 

28263200 
0342*1 
0344*0 
034413 
0347*2 
0350*3 

28265200 
0350*3 
0351*2 

28266400 
0355*2 
0356*1 
0357*2 
0359*2 
0360*3 
0364*0 
036811 

28267600 
0368*2 
0370*2 

28267400 
0370*2 
0371*3 



BEGIN rtKlTENnlNGLABEU DUMPDlR**0> END ELSF NOLBUIbU 



FND* 



if iu lss t6 Then 

S SET nMiT ■ NOT B6500L0AD 

go fallout; 

FNOJ 



end 
else pfgin 



% SOuRCF TAPF 



%m****************************************** 

% INPUT SOURCF TAPE 

X**^***^****************************** ****** 

% 

% CHFCK IF FILE IS TO BF ADDED 

%****#*>¥************************************ 
% 

IF ADDV THEN 
IF NOT MIJSTAOO THEN 

IF DESTJN.UNITNUM * 19 ThfNX TAPE TO DISK 
TF DIRECT0RYSEARCH(^MFID»FID»5) NEQ OK ALREADY ON DISK S160- 
THEN BEGIN 1160- 

LBMLSSCABS(HF!D)»FlDt-67f 68»TlNUt IU]»SP0UTUNIT»LIBMSG)I 



X160- 
*160» 
*160* 
1160- 
*160» 
*160- 
X160- 



IF STOPSET(PImIX) ThEN STOPMCODJ 

if dsed then abort; 

GO NEXT; 
END 

ELSF BEGIN Mr F A J NFO + J J , [ 1 3 » 1 3 * «»l ; MUSTADD*«1 END; 

IF LABELCHECK THEN ABORT; 
$ SFT OMyT = N0T(R6500L0AD) 

% 
%***********#******************************* 

% POSITION THE tape to correct file 

* USING TNF0. JN "FAfNFO" ENTRY fDA) 

%**+**************************************** 

% 

STRFAM(B»«=LAB[2]#SV{*[SV])> 
REGIN SjJsLOC BJ S f * «S I +5 J DSIb30CT; END* 

IF SV NFQ DA.TFF] ThEN BEGIN JUJ-ll GO SKlPPE^* END? 

TF WAlTlO((*CAROwrO]n&?5/iOOrCTF],P2000000,IU)«P20 

then begin pm); go bh» fnd; % Rd hdR chking for parity 

MOVEf 3O+5xB65O0.AR0MtO]. tCF]+B6500»H)l 
$ SET OMIT ■ NOT R6500LOAD 
Tl«-ll 
JF (NOT B6500) AND (MrAROwtOJ INX NOT 0] NEQ 30) 

THEN P(l ) 

ELSE 

BEGIN STREAM(AIbOId»*H)I 



X160- 
*160* 
XI 60- 

1160- 

*160- 



28268800 


T 


0373*0 

28268800 


28269000 


T 


0379*0 

28266800 


28269400 


T 


0379*0 


28269600 


T 


0379*3 


28?70200 


T 


037913 


28270400 


T 


0380(1 

28255000 


28270600 


T 


038011 

28253800 


28270800 


T 


0380*1 


28270801 


T 


0380)3 


28?70802 


T 


038013 


28270803 


T 


0380*3 


28?70804 


T 


0380*3 


28270805 


T 


0380*3 


28270806 


C 


0380*3 


28270807 


C 


0380*3 


28270808 


C 


038013 


28270809 


C 


0380*3 


28270810 


C 


0380*3 


28270812 


C 


0381*2 


28270814 


C 


0383*0 


28270816 


C 


0384*3 


28?708lS 


C 


0387*0 


28270820 


C 


0387*3 


28270822 


C 


0391*1 


28?70824 


C 


0394*0 


28270826 


C 


0396*3 


28270828 


c 


0397*1 

28270818 


28270830 


c 


0397*1 

28270830 


28271000 


T 


0402*3 


28271200 


T 


0405*1 


28272201 


T 


0405*1 


28272202 


T 


0405*1 


28272203 


T 


0405*1 


28272204 


T 


0405*1 


28272205 


T 


0405*1 


28272206 


T 


0405*1 


28272400 


T 


0405*1 


28272600 


T 


0406*2 

28272600 


28272800 


T 


0407*2 

28272800 


28273000 


T 


0411*0 


28273200 


T 


0413*2 

28273200 


28273400 


T 


0417*0 


28273600 


T 


0422*0 


28275800 


T 


0422*0 


28276000 


T 


0423*0 


28276200 


T 


0426*1 


28276400 


T 


0427*2 


28276600 


T 


0427*2 



BFGIN SI » = D> 



30(if sb then begin tallysmj jump 

ELSE SIIbSI+8)| AlaTALLYI 



IF P 



END* 

THFN 
ELSE 



Pfl) 

IF (NTl»*H[93,r43s5j) gTR 20 OR NTI*0 

THEN P( 1 } 

ELSE 

BEGIN SV:»0; 

FOR Wt»10 STEP 1 UNTIL 29 DO 

BEGIN Sv«=SV+(NT2l*(HtW3 NEO 0)); 

IF W GEO NTl+lO THEN IF NT? THEN W5.315 

END? 



IF (CW*31) OR 

(HreiaO))) 
Then p c i ) 

ELSE PCO)J 
END* 



fSV GTR NTl) OR C(SV NEQ 0) AND 



end; 



BH5 RMS»»P(XCH)» 
IF BHS THFN 
IF DESTIN.UNITNUM * 19 ThfN GO BADHDP ELSE GO TTPFJ 

if destin.unitnum * 1 9 
then 

begin i tape to disk (load) 
* 

t******** *********************************** 
% OUTPUT TO OJSK 

IF MUSTADD THEN T»*0 ELSE* ADD FILE NOT ON DISK 
IF (T«BDlRECT0RYSEARCH(MFlD&(3+4XfADDV))rl»45*3]# 
F|0»4+ADDV)) GEO 7 
THEN 

IF T s ? THEM N0TC0PlEn(25) 
ELSE BEGIN 

IF (SVJ.NOT ADDV AND M[T+2] NEQ AND 
((USERCODEtPlMIXJ EOV ABS(MCP)) NEQ NOT 0} AND 
(CUSERCODFCPIMIXI EQV AB5(M[T*2J)> NEO NOT 0)) 
(LATEST AND M[T*3] , [301 18] GTR H[ 3] , [ 30; 18] ) T| 
BEGIN 

HEADERUNLOCK(ABS(MFlD)tFID.T)J 
Tt*-1 J 
N0Tc0PjED(64-SVx23)J 



END? 



END 



ELSE 

IF T«l THEN % 
BEGIN T»«-l> 



IT WAS MF-ED" 



T END 


28276800 


T 


042952 




28277000 


T 


043053 

28276800 




?8?77200 


T 


0432«1 

28276800 




28277400 


T 


0432?2 




28277600 


T 


043311 




28277800 


T 


0436<0 




28278000 


T 


043712 




28278200 


T 


043752 




28278400 


T 


043853 




28278600 


T 


044010 




28278800 


T 


044252 




28279000 


T 


044553 

28278600 




28279200 


T 


044850 




28279400 


T 


045052 




28279600 


T 


045l«3 




28279800 


T 


0452«3 




28280000 


T 


045382 

28278200 




28280200 


T 


045352 

28276600 




28280400 


T 


045352 




28280600 


T 


045551 


U48- 


28280800 


P 


045650 


*148- 


28281000 


P 


045853 




28281200 


T 


045953 




28281400 


T 


046010 




28281401 


T 


046052 




28281402 


T 


046012 




28281403 


T 


046052 




28281404 


T 


046052 




28281405 


T 


0460:2 


X160- 


26281550 


C 


046052 




28281600 


T 


046252 




28281800 


T 


046650 




28282000 


T 


04685} 




28282200 


T 


0468*3 




28282400 


T 


047050 

28282400 




28282600 


T 


047252 




28282800 


T 


047553 


OR 


28283000 


T 


047853 


EN 


28283200 


T 


0462»3 




28283400 


T 


048751 




28283600 


T 


048753 




28283800 


T 


048953 




28284000 


T 


049053 

28284000 




28284200 


T 


049450 

28283400 




28284400 


T 


049450 

28282400 




28284600 


T 


049410 




28284800 


T 


049410 




28285000 


T 


049551 



OKI 
WYl 



N0TC0PIEDM5)? 
END rUSp IF DSF-D THEN ABORT; 

OE'*(T GEO 64)* 

IF TaO OR (T GEO 6ft AND NOT AOOV) THEN 

BEGIN % LOAD IT 

IF T GEO 6ft THEN 

IF MrT+8]#H[8] THFN 

BEGIN 

forgetspacfctj; 

PfDlRECT0RYSEARCH(MFID»FlD#6)»DED» 
T«»Oj 

END* 

if T«o then 

BEGIN 

TJsGETSPACEC30#DlSKHEADERAREAV,l)+2JX 

MOVE(30,T-i#T); 

MfT+ft]la-0gSYSN0rft»ft6J?]Rlt?l47l HI 
END ELSE 



28?42000 



X167- 



TMP*»T. [ 18 

hoR »* r^t 

FOR WtsHf9 
IF (HDRT9] 
FOR WJsHDR 
Wj=Oj 

while cw*s 

IF Mf9+W3* 
IF f Hf 9 + W 

IF(H[ 
BEGIN 
TEMP: 
STREA 

BEGIN 
DS»*7 
Sl«=L 
DS J*L 
DSj=L 

END* 



* 1 5 3 i 

TJ] & 30t6» 381 10] j 

3,[43t5}+l0 STEP 1 UNTIL 29 00 H£WJl*0j 
l*f*P(DUP)) ANO 3D m THEN HDRt73*«M* 
E 9] +1 STEP 1 UNTIL 29 DO HDR[W3»*0; 



W+l) LEO H[93. [43153 DO 
THEN 

3«*HDR[9+W3) LEO THEN 
9+W3 J«PETUSERDlSK(Ht83 OR 



MtCOMMON)) LSS 1 THEN 



*SPACF( 1031 

M(JI-JARROWrPlMlX3»PlMlX#HI*Ht83»MJsMFIO.FicFID. 
TEMP); 
DS««lft LIT W #N0 USER DISK*"* S I * «U> SI* *SI M » 
CHR*DS*«LlT"/";Sl t «S I +1 1 DS I «7CWR* OS J «L I T"«"; 

OC P1M!XIDSi»2DECIJI"DIIDII»0I-2*DSi«FILL>DT»»JI 
IT"( w ;Sil«L0C MJSll*Sl + i;DS««B7CHR;Sl»aSi + l» 
lT»/ , ';DS**7CHR*DS»*2L.lT")-«*SH*L0C H*DS*«8 DEC; 
LIT" SEGS,*«; DH-DI-13I DSI*7FILL» 



ACCIDENTAL fNTRY AT 5 



spoutctemP); 

REPLYtPlMlXl *■ -(TEMPl«VIF&VWYf36l42«634 

VOF[30*42*6]&VOK[24»42»6]); 
COMPLEXSLEFP(REPLY[PlMlX]fcO OR DSED 
OR PRT[P1MIX»P25]»5)I 

IF NOT WHYSLEEP(TEMP) THEN GO TO WY; 

IF REPLY[PiMjX3«V0K THEN GO TO OK; 

IF REPLY[P1MIX3«V0F THEN 

BEGIN COMMON Is COMMON AND NOT M; GO TO OK; 



end; 



FOR W?«W STEP "\ UNTIL 1 
IF HC9+W3#0 THEN 



DO 



28285200 


T 


049613 

28285200 


28?85400 


T 


049910 

28285000 


28285600 


T 


0502«1 


28285800 


T 


0504«2 


28286000 


T 


0507«2 


28286200 


T 


0508*0 


28286400 


T 


050883 


28286600 


T 


0511 «2 


28286800 


T 


051210 


28287000 


T 


051213 


28287200 


T 


051411 


28287400 


T 


0515*0 

28286600 


28287600 


T 


0515*0 


28287800 


T 


0515*3 


28288000 


P 


0516*1 


28288200 


T 


0518*2 


28288400 


T 


0520*2 


28288600 


T 


0524*3 

28287800 


28288800 


T 


0524*3 


28289000 


T 


0526*2 


28289200 


T 


0528*3 


28289400 


T 


0535*2 


28289600 


T 


0540*0 


28289800 


T 


0546*1 


28290000 


T 


0547*0 


28290200 


T 


0550*0 


28290400 


T 


0551*2 


28290600 


T 


0555*0 


28290800 


T 


0559*1 


28291000 


T 


0559*3 


28291200 


T 


0562*0 


28291400 


T 


0563*3 


28291600 


T 


0564*2 


28291800 


T 


0567*0 


28292000 


T 


0568*3 


28292200 


T 


0570M 


28292400 


T 


0571*3 


28292600 


T 


0573*2 


28292800 


T 


0575*1 

28291600 


28293000 


T 


0575*2 


28293200 


T 


0576*3 


28293400 


T 


0578*2 


28293600 


T 


0581*3 


28293800 


T 


058113 


28294000 


T 


0590*2 


28294200 


T 


0591*3 


28294400 


T 


0593*1 


28294600 


T 


0594*1 

28294600 


28294800 


T 


0396*3 


28295000 


T 


0598*0 



IF HDR[9+WJ*0 THEN 

fORGETUSeRDISK(H[9+W]»-H[8]); 

r orgetspacfct)) 

IF DSED THFN ABORT} 
IF HDR[9]#0 THEN 
BEGIN 

PCOIRfCTORYSEARCH(MFID»FID»1«)iDEL)I 

OEl*0; 
END? 

NOTCOPlEDOD* 

IF J NEQ (fFASZ DIV 25-1) THEN SPAClTJ 
GO NFXTI 

ENDS 

STREAM(A:s[Hn ] ] »DI«DATE) * 

BEGIN Sp=UOC DJDi«bLOC D*DS(«8 OCT! 

SI IbS!»41Dt »*AJDS(«4 ChR* 
END I 

Hr«]l«MtT + 4]4Hr43r8«8t3j40[HM7lt]JHt*]r36l36l6] 

RHra3[fl3S43l 111 
Htll.[?5l23 3l»Xcl-0CK + P(RTR)| 
IF HDRr9]»0 THEN 

FNTERUSEhriLE(ABS(MF!D)»FID»H,[CF3-l) 
ELSE 

BFGIN WIslF Ht 91 l,SS HDR[9] THEN HDR[9J ELSE H[9]| 
FOR W«*W+V STEP "1 UNTIL 10 DO 
IF HtW]*0 THEN 

IF HORfK]/0 THEN I! EXTRA ROW IN DISK FILE 
F0RGETUSER0lSK(H0R[NJfH0Rt8J) ELSE ELSE 
S SET OMfT » NOT SHAREDISK 

; DT SKWA 1 TCH I NX 0.30.TMP)} 
ENDS 

FORGETSPACE(T); 
GO UP J 
END % OF LOAD IT 

ELSE IF JbCCFASZ DIV ?)-l) THEN GO NEXT ELSE GO SKIPPfR? 
FND * OF TAPE TO DISK 

FLSE GO TTPEJ 
SKfPPERl DO UNTIL WA I T I OC SPACFR # MM, i U )sP40 OR DSEDJ 

IF STOPSET(PlMjX) ThfN STOPM(O); 

IF DSED ThEN ABORT! 
FALLOUT; IF ENDOFREEL THEN GO SkIPPfR* 

end; 

NEXT! 

END? 

IF NOT SOMECOPIED THEN 
BEGIN STREAM(T«*T«*SPACE(5))I 

BFGIN DS»=18LIT"NULL LIBRARY COPY*"( END? 



28295200 


T 


0599 $2 


28295400 


T 


060112 


28?95600 


T 


060612 


28295800 


T 


060711 


28296000 


T 


061010 


28296200 


T 


061110 


28296400 


T 


061112 


28?96600 


T 


061310 


28296800 


T 


061413 

28296200 


28297000 


T 


061413 

28297000 


28297200 


T 


061710 


28297400 


T 


0620(0 


28297600 


T 


062012 

28290800 


28297800 


T 


0621 10 


28298000 


T 


0622U 


28298200 


T 


062310 


28298400 


T 


062313 

28298000 


28298600 


T 


0624(0 


28298800 


T 


062813 


28299000 


T 


0631U 


28299200 


T 


063411 


28299400 


T 


063511 


28299600 


T 


0635«1 


28299800 


T 


0638(3 


28300000 


T 


0643(0 


28300200 


T 


0647(1 


28300400 


T 


0648(1 


28300600 


T 


0649(3 


28300800 


T 


0652(1 


28301600 


T 


0652(1 


28301800 


T 


0655(1 

28299800 


28302000 


T 


0655(1 


28302200 


T 


0656(0 


28302400 


T 


0658(0 

28286000 


28302600 


T 


0658(0 


28302800 


T 


0661 (1 

28281400 


28303000 


T 


0661(1 


28303200 


T 


066ld 


28303400 


T 


0665(3 


28303600 


T 


0668(2 


28303800 


T 


0671(1 


28304000 


T 


0673»3 

28270800 


28304200 


T 


0674(0 


28304400 


T 


0674(0 

28246600 


28304500 


T 


0677(0 


28304510 


T 


0678(0 


28304520 


T 


0681(1 

28304520 



FNn* 



SPOUTfT)} 



IF OU GEO THFN % WE HAVf AN OUTPUT UN?T 

IF fDF5TTN,UMTNUM#l9) THFN P( WA I T I 0( [ TM] , 040, OU) , DEL ) I 

IF TU f,FO THFN X WE HAVE AN INPUT UNjT 

if iu lss i6 then sftnotinuse( iu»oj; 

IF FORKED 
THFN STOPTiMIN6(FPBPTR.10?3) 

ELSF FOR TMPl.FPBPTR STEP 5 UNTIL ( NT1 »*PRT[ PlM I X. 3 ] ) . r 8 »1 ]-5 
TF MtNTl i NX (TMP+4)] LSS THEN 
BEGIN IF fTEMPJ.MtNTl INX C TMP + 3 ) ] . [ 36 I 6] -1 ) LSS 16 THEN 
SFTN0TINUSE(TFMP,0)I 
ST0PTiMlNG(TMP,i0?3)J 
END* 

IF OU GEO THFN J! WE HAVf AN OUTPUT UNjT 

if ou lss i6 then setnotinusecou»i>; 

STOpTlMlNGfO,l023)J 

sft omit * packets 
TMPj*fAS7 oi v 2 - i; 

J»*0 STeP 1 UNTjL TMP 00 



FOR 



IF fnAl*MCFAINFO+J3),rCFl«l8 TmEN 
IF UNLOAD THFN 



FROM DISK 
FlD'*M[FA+l+Jx2]J 



PFGlN MFin»«MrFA+Jx23J F I D ' «M[ FA+ 1+Jx2] I 

Pf DIRECTORY SE AW CH(*MF 10*1 t3U7U ] ,F I D » 7 ) »OEL) ; 
IF DSED THEN GO TO INITIATE; 



end; 

go initiate; 
fno of liprarytransffrj 





28304530 


T 


0684*0 




28304540 


T 


0685*1 

28304510 


*130- 


28304590 


C 


068511 


X148- 


28304600 


P 


0686»0 


X130- 


28304700 


C 


068913 




28304800 


T 


069012 




28305000 


T 


0693*1 




28305200 


T 


0693*1 


DO 


28305400 


T 


0695*1 




28305600 


T 


070210 




28305800 


T 


0704*2 




28306000 


T 


0709*0 




28306200 


T 


071012 




28306400 


T 


0711*2 

28305800 


X130* 


28306500 


C 


0712*0 




28306600 


T 


071213 




28306800 


T 


0715*2 




28307000 


T 


0716*2 


*757- 


28307700 


C 


0716*2 


X757- 


28307705 


C 


0718*1 


X757- 


28307710 


C 


071910 


X757- 


28307715 


C 


0722*0 


X757- 


28307720 


C 


0723*1 


1757- 


28307725 


C 


0729*1 


X757- 


28307730 


C 


0732*0 


X757- 


28307735 


C 


0734*2 

28307720 




28307800 


T 


0736*3 




28308000 


T 


0737*1 

28200200 



SIZF« 0738 WORDS 



PROCEDURE LIBRARYCOPY; 28400000 T OOOOJO 

START OF REL SEGMENTJ DISK ADDRESS « 00809 

* 28400002 T OOOOJO 
l****+* + #*****+******** + ***** + ******** + +******************************** 28400004 T OOOOlO 

X 28400006 T OOOOlO 

X 28400008 T OOOOJO 

X LIBRARYCOPY PERFORMS THE iNjTlAL SETUP OF FILE NAMES AND 28400010 T OOOOJO 

X INFORMATION BASED ON DATA PASSED THROUGH FSPDISK FROM THE 28400012 T OOOOlO 

X PROrFDURE CCLIB. THIS INFORMATION WILL BE PLACED IN THE 28400014 T 0000:0 

X FTLF ARRAY "FA" AND ITS COUNTERPART "FAiNFO" FOR USE LATER 28400016 T OOOOJO 

?! IN LIBRARYTRANSFER. IT OPERATES ON EACH <COPY SPEC I F I CAT 1 0N> 284000*8 T 0000:Q 

X (REFER TO BNF DOCUMENTATION) ONE AT A TIME UNTIL THE CONTROL 28400020 T 0000»0 

* CARD HAS BEEN EXHAUSTED. 28400022 T 0000*0 
X 28400024 T OOOOJO 
% THERE ARE TWO METHODS OF FINDING FILES ON A DISK INPUT SOURCE. 28400026 T OOOOJO 
X ONE IS TO USE IT AS IF jT W^RE A LARGE TAPE* USING THE DISK 28400028 T OOOOJO 
X DIRFCTORY LIKE A LARGE TAPE DIRECTORY (NOHASH)I THE OTHER IS 28400030 T OOOOJO 
X TO USE THE PROCEDURE SEEKNAM TO OBTAIN NAMES VIA A HASHING 28400032 T OOOOJO 
X TFCHNlQUF. IRREGARDLESS OF THE NAME FINDING METHOD* ONCE YOU 28400034 T OOOOJO 
X HAVr A NAMF PAIR THE PROCEDURE FOLLOWED IS THE SAMEJ 28400036 T OOOOlO 
X 28400038 T OOOOJO 
X II DETERMINE IF NAME PAIR HAS BEEN ASKED FOR BY CONTROL CARD 28400040 T OOOOJO 
X 28400042 T OOOOJO 
X 2! CHFCK T SEE IE IT APPEARS jN THE "EXCEPT" LIST FOR THAT 28400044 T OOOOJO 
X NAME PAIR 28400046 T OOOOJO 
X 28400048 T OOOOJO 
X 3$ IF DISK, MAKE SURE IT IS ACCESSABLE 28400050 T OOOOJO 
X 28400052 T OOOOJO 
X 4J CHANGE NAME IF SPECIFIED BY "AS" CLAUSE 28400054 T OOOOJO 



X 



28400056 T OOOOJO 



X 5J CHECK THAT NAME PAIR HAS NOT ALREADY BEEN PROCESSED 28400058 T OOOOJO 

X 28400060 T OOOOJO 

X 6J INSERT NAMp PAIR INTO "FA" 26400062 T OOOOJO 

% INSERT NAMF PAIR INFORMATION INTO "FAINFO" 28400064 T OOOOJO 

X 28400066 T OOOOJO 

X AT STFP 6, IT MUST BE DETfRMINED AS To WHETHER THE USER 284OOO68 T OOOOJO 

X SPECIFIED MAXIMUM NUMBER OF FILES PER OUTPUT UNIT HAS BEEN 28400070 T OOOOJO 

X EXCFEDFD. IF SO* AN ATTEMPT TO FORK ANOTHER LIBMAJN/DISK To 28400072 T OOOOJO 

X HANDLE THE CURRENT "FA" W T | jL BE INITIATED (REFER TO DOCUMENTATION)* 28400074 T OOOOJO 

X AND THE PROCESS WILL CONTINUE W]TH A NEW "FA". A LINKED LIST 28400076 T OOOOJO 

% OF "FA"S IS KEPT BY THE ORIGINATING LlBMAjN/DlSK FOR THE 28400078 T OOOOJO 

X CONFLICT RESOLUTION OF STfP 5. 28400080 T OOOOJO 

X 28400082 T OOOOJO 

X 28400084 T OOOOJO 

X COMMON. r?Jl] INDICATES ORIGINATING LIBMAlN/DjSK 28400086 T OOOOlO 

X 28400088 T OOOOJO 

X IF ORIGINATOR... 28400090 T OOOOlO 

X 28400092 T OOOOlO 

X . f 3 * 63 UNlTNO FOR PACKETS 28400094 T OOOOJO 

X .C9J9] MAXIMUM NUMBER OF FILES PER OUTPUT UNIT 28400096 T OOOOJO 

X . CCF ] FIRST ESPDlSK SEGMENT ADDRESS 28400098 T OOOOlO 

X 28400100 T OOOOJO 

X IF NOT ORIGINATOR,. , 28400102 T OOOOlO 

X 28400104 T OOOOlO 

X .T3J45] DISK ADDRESS OF "FA" AND "FAINFO" FOR THIS 28400106 T OOOOlO 

X FORKED LIBMAlN/DlSK 28400108 T OOOOlO 

X 28400110 T OOOOlO 



% 

% 

% 
% 
% 
% 
t 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



FA 

FAINFO 
FAIN 
FAS7 

MFin 

FID 
ASMfJO 

asftP 

FPBPTK 
DESTIN 



FILE ARRAY FOR NAME PAjRS 

TRANSFER INFORMATION FOR ASSOCIATED NAME PAIR 

INDEX INTO "FA" 

SIZE OF M FA" 

MULTI-FILE ID 

FILE ID 

MULTI-FILE ID AFTER STEP 4. 

FILE ID AFTER STEP 4. 

CURRENT INDEX OF FPB ENTRY 

USER SPECIFIED DESTINATION 



T065.r3»U fACCESSD) 
,r««13 CEXPjRFD) 
,t7l\l (NOHASH) 
• T 1 8 « 1 3 (OK) 
.C19I13 (INXLST) 



spfcifies check accfSsd bit 

chfck for file being expired 

use disk serially 

fii.e has passed stage 3. 

file occurred in "except" list 



CCA 

NA» 
FA. 
POOL 



MAX 



f 5>0 * 1 3 fWFIRDFoRK) SqME ALTERATIONS TO "FA" ARE 

NECESSARY BEFORE FORKING 
[23113 (FORKED) NOT ORIGINATING LIBRARYCOPY 
r?5«l] (SOURCEFILEFOUND) AT LEAST ONE FILE FROM THIS 

SOURCE WAS USED 

HOLOS ESPDTSK SEGMENTS FROM CCLIB 



USED IN PREPROCESSING CONTROL CARD INFO, FROM 
CCLIB FOR USE BY LIBRARYCOPY 

USER SPECIFIED MAXIMUM NUMBFR OF FILES PFR 
OUTPUT UNIT 

DIRECTORY OF CURRENT SOURCE (TAPE OR HOHASH) 



%******^*****4-***************^*****t* ************************************ 

% 

BEGIN 

Real common*-^ 

STACKfF-4) a COMMON 

MFID»FiD»ASMFID»ASFID.TMP.TEMP# % ADD NEW LOCALS BEYOND HERE 
STACKrF+1) * MFID 
STACKfF+2) s FID 
STACKfF+3) • ASMFIO 
STACKfF+4) = ASFID 
STACKfF+5) « TMP 
STACKfF+6) = TEMP 

FA»FAINFO,FASZ#FAlN» 



28400112 
28400H4 
28400H6 
28400118 
28400120 
28400122 
28400124 
28400126 
28400128 
28400130 
28400132 
28400134 
28400136 
28400138 
28400140 
28400142 
28400144 
28400146 
28400148 
28400150 
28^00152 
28400154 
28400156 
28400158 
28400160 
28400162 
28400164 
28400166 
28400168 
28400170 
28400172 
28400174 
28400176 
28400178 
28400180 
28400182 
28400184 
28400186 
28400188 
28400190 
28400192 
28400194 
28400196 
28400198 
28400200 
28400202 
28400300 
28400400 



OOOOIO 
000010 
OOOOtO 
OOOOlO 
000010 
000010 
000010 
000010 
000010 
000010 
0000(0 
000010 
000010 
OOOOIO 

ooooio 

000010 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 



28400600 T OOOOlO 



28400800 T OOOOtO 



STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



F + 7> 
F + 10 
F + ll 
F + 12 

F + 13 
F + 14 
F + 15 
F + 16 
F+17 
F + 20 
F + 21 
F + 22 
F + 23 

F + 24 
F + 25 
F + 26 
F + 27 
F + 30 

F + 31 
F + 32 
F + 33 
F+34 

F + 35 
F + 36 
F + 37 
F + 40 
F + 41 
F + 42 
F + 43 

F + 44 
F + 45 
F + 46 
F + 47 
F + 50 
F + 51 



FA 
FAI 
FAS 
FAI 

U 

T 

FPB 

FA 

NM1 

MM? 

DES 

TOG 

DA 

CCA 
EAI 

NAT 

NA 

NAS 

LSX 

BUM 
POO 
IND 

UN 

SFG 

MAX 

K 

L 

mid 

UN | 

CCA 
X 

PAP 
LAB 
LBL 

wRr> 



NFO 

z 

N 



PTR 



Tin 
s 



IN 

N 

N 



UtT»FPBPTR»EA»NMj»NM?»DESTlN»TOGS»DAi 



ccaim»fain»nain»na»naSz» 



lsx,pumpfa,pool» jndx, 



PFA 

L 
X 



UM»SE6tMAX»K»L»MI0PTR»UNlTN0l 



PTR 
TNO 



ARRAY CCAr*]»Xr*l»PAP[*]»LABC*3»L.BL[*]»lnROSZ[*]> 



sz 

S SE 



T OMIT * N0TCB6500L0AD) 

ABrL NFXTNAME, BACK, UP, QUfT,NEXTSFG»NXT, TRANSFER; 

ABrL NF X TSOURC E .CONTINUE, ON, BADNM; 



U 

U 

% 

%**^*********************^t* ******* ******************** 

% 
D[ 



)EFTNE 

ACCESSd 

EXPIRED 
NDhASH 
OK 
1NXLST 



» TOGS,r3M3#» 

■ TOGS.t«»l]*» 

m T0gS.[7H1#, 

= TORS.nfitn** 

a T06S.ri9|l]#» 

_ t n « c .nn.i .< 




28401000 T 0000*0 



28401200 T OOOOJO 



28401400 T OOOOJO 



28401600 T 0000:0 



28401800 T 0000:0 



28402000 
28402800 
28403000 
28403200 
28403400 
28403600 
28403800 
28404000 
28404200 
28404400 
28404600 
28404800 
28405000 
28405200 
28405400 
28405600 
28405800 



0000 10 
OOOOJO 
000050 
000010 
000010 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 



%**^**********m******************************** ******* 

% 

DFFlNE OSED s (TERMSETfPlMlX))#, 

ABORT s LIB«AKYHfLP(«)#» 

RR5 ■ $3677777777777777*, 

RR4 * 93577777777777777** 

NUMOPT » 6#» 

UNtTNUM a [1»5]*» 

SPOUTUNIT a 0#J 

%**#************************************************** 

DF.FfNF NOTCOPlFD(NOTCOPlFr»l) = 

BF6IN NTil B NOTcOP T EDl» NOCOPYMESSI END*' 
SURROUTINF NOCOPYMFSSJ 

LBMFSS( MFID» FID, -67, NTi, TlNUtUJ, SPOUTUNfT, 1 }J 

X 

%** + ***** ************************************* ******** 

% 

SUBROUTINE gctasegmenti 
bfgtn 

SFG«=CCA[?91 J 
D|SKWMT(-CCA.rCF],30,SEG)> 

porgftfspdiSkcseg); 

CCATN'sOJ 
FNDi 



%***************************************************** 

% 

% - USFO TO CHECK THAT FILE NAMr PAIRS HAVE 

% NOT APPFARFD BEFORE INI THIS OR ANY OTHFR "FA" 

%****************************************************** 
% 

REAL, STREAM PROCEDURE RESoLVEC Dl RADDR. MF I D > I VALUE OIRADDRJ 
BEGtN LABEL FOUND, F I N I S, AfiA ] N ? 
S? JsDIRADDR* 
AGAIN: Dl»aMFlD> 

IF SCs"0" THEN 
BEGIN SI »aSl-8> 

if 16 sc*oc then go found; 

Si |*Sl-24j GO AGAINt 
FNO ELSE 

IF Sc*«+ W THEN GO FINIS ELSE 

tf sc B "&" then begin si»=si+5* siissci go again? end* 



X148- 



FOUNDl RESOLVES*Sp 
FINIS: 

END} 



28406000 


T 


0000:0 


28406200 


T 


0000»0 


28406400 


T 


0000:0 


28406600 


T 


0000:0 


28406800 


T 


0000:0 


28407000 


T 


0000:0 


28407200 


T 


0000:0 


28407400 


T 


OOOOlO 


28407500 


C 


OOOOlO 


28407600 


T 


OOOOlO 


28407700 


T 


0000:0 


28407800 


T 


0000:0 


28408000 


T 


OOOOlO 


28408200 


T 


OOOOlO 


28408400 


P 


000110 


28408600 


T 


000410 


28408800 


T 


000410 


28409000 


T 


000410 


28409200 


T 


0004(0 


28409400 


T 


000410 


28409600 


T 


0004»0 


28409800 


T 


000510 


28410000 


T 


000711 


28410200 


T 


000810 


2841 0400 


T 


000813 

28409400 


28410600 


T 


000910 


28410800 


T 


000910 


28411000 


T 


000910 


28411001 


T 


000910 


28411002 


T 


000910 


28411003 


T 


0009:0 


28411004 


T 


000910 


28411005 


T 


0009:0 


28411200 


T 


0009:0 


28411400 


T 


000910 


28411600 


T 


0009M 


28411800 


T 


0009:2 


28412000 


T 


0009«3 


28412200 


T 


OOlOM 


28412400 


T 


001012 


28412600 


T 


001 1 1 1 


28412800 


T 


001113 

28412200 


28413000 


T 


0012:0 


28413200 


T 


00l3»0 

28413200 


2841 3400 


T 


001411 


28413600 


T 


001412 


28413800 


T 


001412 

28411400 



% 

x - usfd to resolve conflicts and process 

% OPTIONS ASSOCIATED ONLY WHw DlSK SOURCES 
X 

*****************************************♦*******♦***#* 

X 

SUBROUTINE SE ARCHD I RECTORY* 
BEGIN 

OKt=FALSE> 

IF NOT SYSTEMFlLEf MFlD,FID) 

AND (fMFID EGV "BADTSK ") NEQ NOT 0) X163- 

THEN IF fTI»DlRECT0RYSEARCH<MFID*lt3U7!U»FTD OR M,3)) LSS 64 

Then 

IF Tsi THEN N0TC0PIED(45) ELSE NOTCOP I ED ( 15) 

ELSE BEGIN 

IF MTT+?) NEQ THEN 

IF CUSERCODEtPlMlX] EQV ABS(MCP)) NEQ NOT THEN 

IF CUSERCODEtPlMlX] EQV ABS(M[ T + 2 ] ) ) NEQ NOT THEN 

BEGIN 

PCDJRECT0RYSFARCHC-MFID»FID»13)»DEL>; 

NOTCOPlEDMt )* 

GO NfXTNAMEl 
END? 

if expired or accessd then 
if expired Then 

BEGIN 

STREAM(T:r0;A«=CALCULATEPURGEC-MtU3],t2»l0])); 
BFGIN S|{«lOc A* Dp=LOC T* DSts80CT* END* 

IF P GTR MrT+3l,tl2«l8j T H EN OKl*TRUE ELSE 

P(DIRECT0RySfARCHC-MF1D»FID»13)pDEI)J 
FND ELSE 

IF MCT+4J.C11I13 THEN OKI-TRUE ELSE 
PCDIRECT0RYSEAKCH(-MFlD»FIO#t3)»DEL) 

ELSE OKlaTRUEJ 
END 

FLSE BEGIN NOTCOP I EDC 25 ) ; T!*2* END; 



NEXTNAMp* 
ENDI 



IF T GEO 64 THEN FORrETSPACEC T ) i 



X 

X - USFD TO DETFCT THAT A PARTICULAR NAME PAIR 

X IS WANTED. ..BASED ON DATA SUPPLIED BY CCLlB 

X 



28414000 
28414200 

28414400 
28414401 
28414402 
28414403 
28414404 
28414405 
28414600 
28414800 
28415000 
28415200 
28415250 
28415400 
28415600 
28415800 



28416200 
28416400 
28416600 
28416800 
28417000 
28417200 



28417400 T 
28417600 T 

28417800 T 
28418000 T 
28418200 T 
28418400 T 
28418600 T 

28418800 T 
28419000 T 
28419200 T 



28419400 
28419600 
28419800 
28420000 



28421000 
28421200 
28421400 
2842M01 
28421402 
28421403 



0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0016 
0017 
0019 

0023 
0024 



28416000 T 0028 



28420200 T 0070 



28420400 T 
28420600 T 
28420800 T 














3 

1 

2 

2 



84 



284 
2 
2 
3 
2 

3 

284 


2 
284 
2 
1 
2 

3 

84 
3 
1 
2 

84 
2 
1 
2 
3 

84 
3 
284 
284 
007313 
0073*3 
0075*3 

284 
0076*0 
0076*0 
0076*0 
0076*0 
0076*0 
0076*0 



0032 
0034 
0037 
0041 
0042 
0043 

0046 
0046 

0046 
0048 
0049 
0050 
0053 

0054 
0059 
0061 

0061 
0066 
0068 
0070 



15800 
16000 



17200 
16800 



18600 



18200 



16000 

20200 
20200 



14800 



J! 

Real strfam procedure comparecmfid»str); value str> 

BERjN LABEL, Ag»FINT$» 

st i«sthi 
AG! d?!bmfid; 

IF SC=">" THEN GO FINIS; % END OF NA 

IF SC*" + " THEN BEGIN Si I arSf +81 Dl»*DI+8; END 

ELSE IF 8 SC NEQ DC THEN BEGIN SH*Sl+8l GO AG> END! 

tf scs h + m then sn»ST + 6 

ELSE IF 8 SC NEQ DC THEN GO AGJ 
S|I«SI-161 COMPAREIsSIl 
FINlSJ 

END) 



2842H04 
28421405 
28421600 
28421800 
28422000 
28422200 
28422400 
28422600 



28422800 T 



28423000 
28423200 
28423400 
28423600 
28423800 



T 007650 

T 0076J0 

T 0076J0 

T 0076*0 

T 007611 
T 0076»2 
T 0076«3 
T 0077:2 

28422600 
0078«2 

28422800 
T 0079J3 
T 0080»1 
T 008l«2 
T 0082»0 
T 0082»0 

28421800 



ON: 



% 

SUBROUTlNF ASlTJ 

BEGIN 

IF PAP.tFF] 
THEN BEGIN ASMFID*slF ( NT? * «M[ NTl : sPAP. [CFJ+C PAP, [ FF ] DIV 2)3) 

lss o then mfid else NT2* 
asf i d: * if (Ni2« = MrNTi + i]) lss o then fid else nt?j 

FNO 

FLSE BEGIN ASMF I D * "MF I D I 
ASFlDl*FlDJ 
END> 

END* 



%* + * + + + + ***** + + + *** + * + + + ****** + + * + + * + + + + ** + * + **. + + ** + 
% 

% - this routine is Responsible for extending the size 

% OF AN "FA" UNTIL IT NfEDS FORKING* AT WHICH TIME IT 
2! WILL ATTEMPT TO START ANOTHER LIBMAJN/DISK TO HANDLE 
% THF CURRENT "FA". PROCESSING SHOULD CONTINUE WITH 
% A NEW "FA" (REFF R TO DOCUMENTATION) 
% 
Si******************************************************* 

% 

SUBROUTINE iNSfRTORFORKJ 

BEGIN 

IF RESOLVE(FA+FAlN+l,ASMFin)«0 
THEN IF (FAlN:=FAlN+2) LSS MAX 
THEN BEGIN 

IF FAIN r,EO FASZ 

Then begin 

tmp»*spaceccfaszi*fasz+bumpfa)+ 

(FASZ DIV 2)4.2)411 

MtTMP-l]J»M[FA-UI 

moveftempj*fasz-bumpfa»fa»tmp)l 
m0ve(iemp div 2#fa+temp»tmp+fasz)> 
forgetspacecfa-i h 

FA:*TMP* 

FA|NFQ**FA+FASZJ 

END» 



CONTINUF' 



M[NT1 J*FA+FAIN]»=ASMFID* 

MtNTUUiPASFlOl 

MtFAINFO*(FA!N DIV 2 ) 3 **T&U t CTC 3 I 

SOURCEFILEFOUNn««TRUEl 

END 

else begin 

if (u neo 18 and u-mcfainfo + cfain div 2)"m3,tcf3) 
then if lsx«o then go on else 

BEGIN 

Mr(EAIN»*SPACE(FASZ + CFASZ DI V 2) + 2) + l )• \ ] I * 
<FA + LSX-lH"&"tlt43l5]> 



28424000 


T 


008252 


28424200 


T 


006212 


28424400 


T 


0082*2 


28424600 


T 


008252 


28424800 


T 


0083*0 


28425000 


T 


0083*0 


28425200 


T 


0083:0 


284P5400 


T 


0087*3 


28425600 


T 


009p2 


28425800 


T 


0096*0 

28425200 


28426000 


T 


0096*0 


28426200 


T 


00971 1 


28426400 


T 


0098>0 

28426000 


28426600 


T 


0098:0 

28424800 


28426800 


T 


0098>1 


28427000 


T 


0098! 1 


28427200 


T 


0098»1 


28427201 


T 


0098*1 


28427202 


T 


0098! 1 


28427203 


T 


0098: 1 


28427204 


T 


0098:1 


28427205 


T 


0098: 1 


28427206 


T 


0098: 1 


28427207 


T 


0098*1 


28427208 


T 


0098: 1 


28427400 


T 


0098t 1 


28427600 


T 


0099:0 


28427800 


T 


0099:0 


28428000 


T 


0101:3 


28428200 


r 


0104:0 


28428400 


T 


0105:0 


28428600 


T 


0105:1 


28428800 


T 


0106U 


28429000 


T 


0l06»l 


28429200 


T 


011112 


28429400 


T 


0114*3 


28429600 


T 


011711 


28429800 


T 


0120:1 


28430000 


T 


0121*2 


28430200 


T 


0122*1 


28430400 


T 


012352 

28428600 


28430600 


T 


0123*2 


28430800 


T 


0126*0 


28431000 


T 


0128:0 


28431200 


T 


0131*0 


28431400 


T 


0132*3 

28426200 


28431600 


T 


0132*3 


28431800 


T 


0133*1 


28432000 


T 


0136*0 


28432200 


T 


0139*0 


28432400 


T 


0139J2 


28432600 


T 


0144*3 



MOVE((SFGl»FAlN»LSX)»FA+LSXfEAIN){ 
MOVF(SEfi 01 V 2,FA!NF0+(USX 01 V 2). 

EAiN+FASZ)l 
WfIROFORKIbTRUEI 
FAIN*«LSXJ 
END* 

MOVE(FAtM OIV 2»FAlNpO,FA-»-FAIN)» 
FOR TMP5=5 STEP 5 UNTIL FPBPTR-5 DO 
IF MfPRTtPlMlX»3] INX CTMP+4)3 LSS THEN 
ST0PTTM!NGCTMP»i023)| 
LBMESSf M LlBMAIN w » w DISK ".50,0.0, SPOUTUNI T » 1 > J 
M[(TMp»*GFTSPACE(l2,C0NTR0LCARDAREAV,0)+4)-4] XI 67- 

,AREAMiXFI«Ojl! 
IF (INDXjbuSERcODE[P1MiX])s ABS (NOT 0) THFN 
BEGIN INDX*=0; UN«=3U END ELSE UNJ«26i 

FAl*MrFA«l] J 
COMMONI»QETUSFRDlSK({(TEMP»»FAlN+f FAIN 01 V ?)+ 

2) 01 V 305*1 > I 
M[FA-l]laFAlN> 
MtFA+Tr M P-2]»*DESTlNl 
IF TEMP STR 900 THEN 
BEGIN NAlN»«MrFA+898J) 

DlSKWAlT(FA+899,TEMP-900,C0MM0N+30)i 

TfMP:*900> 

MrFA+89B] JsNAlNj 

end; 



28432800 J 

28433000 T 

28433200 T 

28433400 T 

28433600 T 

28433800 T 



DISKWAIT(FA-1»TEMP,C0MM0N)J 

MtFA-n»sEAJ 

STREAM ( INDX.COMMON.TMP); 

BEGIN DSisSLlT^CC USER**J SllsLOC INDXJ SM*Sl 
DS5=7CHRf DSJ*24L1T"JFX L I BMA I N/0 I SK J COMMON*"; 
DS«a8DEC? DS:»6LIT W JEND,«-'*J 
END; 

S SFT OMjT = NOT(PACKETS) 

IF PSeUDOMiX[PiMIX] GFQ 32 THEN 
NYL0NZIPPFR[P1MIX],[2»1] taOj 
$ POP OMIT 

TMP««TMPsPlMIXrl8«42:6]&UNt3l43l53l 
INDEPENDFNTRUNNER(PC.C0NTR0LCARD).TMP,192)t 
$ SET OMIT a NOT(PACKETS) 

IF PSEU00MIXCP1MIX3 GEO 32 THEN 
SLEEPUNYL0NZiPPeRCP1MIX]]»P1 000000000000000} J 



$ POP OMfT 



IF WElROFORK 

then begin 

FAt*FAlN> 

FAlNFO«sFA+FASZ» 

FA?N:aSEGJ 

wfiRdforki*false; 

END 

ELSE BEGIN 

TMP»*FA+FAIN-1; 



28434000 
28434200 
28434400 
28434600 
28434800 
28435000 
28435010 
28435200 
28435400 

28435600 
28435800 
28436000 
28436200 
28436400 
28436600 
28436800 
2843/000 
28437200 
28437400 
28437600 

28437800 
28438000 
28438200 
28438400 
28438600 
28438800 
28439000 

28439200 
28439400 
28439600 
28439800 
28440000 
28440200 
26440400 
28440600 
28440800 
28441000 
28441200 
28441400 
28441600 
28441800 
28442000 
28442200 
28442400 



T 
T 
T 

T 

T 
P 

C 
T 

T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



28442600 T 
28442800 T 



0147 
0150 
0153 
0154 
0155 
0156 

0156 
0159 
0163 
0166 
0168 
0170 
0173 
0176 
0178 

0183 
0165 
0185 
0190 
0192 
0194 
0195 
0198 
0200 
0201 
0203 

0203 
0205 
0207 
0208 
0210 
0213 
0215 

0215 
0215 
0216 
0219 
0219 
0222 
0223 
0223 
0224 
0226 
0226 
0226 
0227 
0228 
0229 
0230 
0232 

0232 
0234 



2 

2 


3 
2 
28432200 
2 

1 
2 
2 
3 
2 



8435400 
3 
3 
3 
1 

1 
3 

2 


3 
2 
2 
28436800 
2 
1 
1 
2 
1 
3 


6438400 
1 
1 
1 
1 
1 


1 
1 
1 
2 
2 
2 
3 
2 
3 
2 
1 
28441400 
1 




M[(FA»=SPACECCFASZ»*BUMPFA)+(FASZ DIV 2)+2) 

+ lW3(«TMP&"&"tl(43(53; 
FA?NfO«»FA+FASZJ 

FA IN 1=0 J 

END * 



X148- 



LSX J*0( 

IF DEST IN.UNITNUM/19 THEN 
BFGIN 

STREAM(Al»MlDPTR*ONE!«liMlDi«[DESTlN])l 
BEGIN SHaLOC AS SI!*Sl+7; IF SC*"0" THEN 
BEGIN TaLLY»s?|; SIlsMlDJ SIIbSI+2J 

5(iF sca w " Then jump out; si»«si+ii 

TALLY(«TALLY+1)' A(«TALLY( DJUDI+A* 
OS JaLlT"t M J 
END ELSF BEGIN DI»*OI+A> Sfl»Sl*i6J DS»»ADDI END! 



END? 

MIOPTRJsPJ 
ENDS 

GO CONTINUf* 
FND 

FLSF IF U*1B THEN P( D T RECTORYSE ARCH( -MF I D. F I D» 1 3 ) * DEL ) J *137> 



END; 

% 

%*^^**w*********************************************** 

% 

subroutine scanexcept; 

bectN 

FOR LJbO step ? until TMP nO 

TF fPAPtL] EQV MFID)- NOT OR PAPrL] LSS THEN 

IF (PAprL*Jl EQV FID)* NOT OR PAPCL+lJ LSS THEN 

begin inxustjsTrue; 

IF NOT CPAP[L].tlM] OR PAPfL + 1 3 . C 1 I M ) 
THEN BEGIN 

PAP[L3 I=PAPCTmP3; 
PAPCL+1 3»»PAPtTMP+l3* 
PAP.tSJ l03l«PAP.[8li0]-2; 

end; 

l,J*TMpj 

fnd; 
end; 
% 

%**^^***^t******************************************** 
% 

X CODE STARTS HFRF 

X 

%*^#*n,*^w****************^*************************** 
% 



28443000 T 

28443200 T 

28443400 T 

28443600 T 

28443800 T 



28444 
28444 
28444 
28444 
28444 
28444 
28444 
28445 
28445 
28445 



000 
100 
150 
200 
400 
600 
800 
000 
?00 
400 



28446600 
28446800 
28447000 
28447200 
28447400 
28447600 
28447800 
28448000 
28448200 
28448400 
28448600 
28448800 
28449000 
28449200 
28449400 



28450200 
28450400 
28450600 
28450800 
28451000 
28451200 
28451400 



28445600 T 

28445800 T 
28445900 T 

28446000 T 
28446200 T 

28446300 P 
28446400 T 



28449600 T 
28449800 T 

28450000 T 



0235:3 
0235*3 
0243U 
0244(2 
0245(1 

28442600 
0245(1 
024610 
0247U 
0247(3 
024911 

025011 
0251*0 
0252*2 
0253»3 
0254 J 1 

28444600 

28445400 
025512 

28444400 
0255(3 
025611 

28444150 
0256*1 
0256*3 

28431600 
0256*3 
0260ti 

28427600 
026012 
0260(2 
026012 
0260(2 
0261 (0 
0261(0 
0262«0 
0265(0 
0269(2 
0271*3 
0273*2 
0275(1 
027613 
0279(1 
028212 

28448600 
028212 
0283(1 

28448200 
028512 

28447400 
0285(3 
0285(3 
028513 
0285«3 
028513 
0285(3 
0285(3 



5TRFAMfB*aPRTcPlMiX.3])f REfilN 2 ( DS » s40L I T"0" } ; END* 

MBis ARRAYDESC(15»LABELARFAV)I 
IF NOT COMMON, r?M 1 T HEN 
BEGf N 

DlSKHA!T(-rTEMP]»l» COMMON) I 

FAI»TYPFDSPACE(TMP«»:TEMP + fTEMP DI V 2 >♦? ,DAT AAREAV ) + 1 J % 
FAlNFOleFA+TEMPI 
IF TFMP GTR 900 THEN 
BEGIN NAlN:sMrFA+898]} 

0lSKWAIT(-CFA+899),TMP-900.C0MM0N+30); 
TMPI.900; 
M[FA+898]»=NAIN; 
ENn» 

01 SKWA!T(-fFA-l)»TMP .COMMON)? 

fa!n'*(Faszi»tf:mp)»?> 

DESTlN«»MtFAlNFO+(FASZ 01 V 2)JI 

F0RKE0I«TRUE> 

blBRARYTRANSFERJ 

FNDJ 



X167- 



*167- 



CCA5 = S 
CCAf29] 

getaSeg 

OEST?Nl 
CCAjNJs 
MAXtsCO 
UNI JN0» 
FAlsTYP 

fainfoj 

MCFA-I 3 
FAIN**- 

nextsourcej 
X I *oi 

SOURCEF 
TOGS**0 
LSXjaFA 
P00L««f 
C T I 
X 
X****** 

X PRE 
% INT 

%****** 

% 

movfcu. 

EAIN»*N 
BACK« 

IF rCCA 
TlsCCAf 



RAYDFSC(30,fSPDT$KAREAV)J 
M0N.TCF3J 



AVEAR 
IsCOM 
MpNTj 
• CCArin % DESTINATION 

?J 

MMON. 
sCOMM 
EDSPA 



*167- 



*FA + F 
\ = - ; 



[9191x2; 

0N,C3»6j; 

CE((BUMPFA««FASZI«IF MAX > 128 THEN 128 ELSE MAX)+ *167" 

(FASZ DI V ?)+2»DATAAREAV) + llX J?l67« 

ASZJ 

% MARK INITIAL DIRECTORY 



ilefound**false* 

&CCArCCAjN+nr3»3»NUM0PT]; % STORE OPTIONS 

!N + ?; 

EA»*fNAi«SPACE(U*scNASZJsCCA[CCAlN+l],tCF]+t)+ 
eCCAfCCAlN+n.CFF ]) + (NASZ DI V 2 ) ) )+NASZ )+T 5 

*********************************** 
PROCESSING OF DATA FROM CCLIB 

A RECOGNIZABLE FORM FOR LlBRARYCOPY 

*********************************** 



NA-1,NA)J 
A I N« «-2 I 

IN«»CCAlN+2) 
CCAIN]; 



GEQ 28 THEN GETASEGMENTJ 



UP: 



IF T*?14 THEN GO QUI Tl 

if T.rAi2]«o then 

BEGIN M[NA + (NAIN»*NAIN+2)]|»T* 

MfNA + NAIN+i 3»*CCA[CCAIN + 1 ]J 



28451600 


T 


0285:3 

28451600 


28451800 


P 


0303»3 


28452000 


T 


0307*2 


28452200 


T 


0308»2 


28452400 


T 


030950 


28452600 


P 


0310*2 


28452800 


T 


031551 


28453000 


T 


031652 


28453200 


T 


031751 


28453400 


T 


0319>3 


28453600 


T 


0322«3 


28453800 


T 


032312 


28454000 


T 


032512 

28453200 


28454200 


T 


032552 


28454400 


T 


032712 


28454600 


T 


032951 


28454800 


T 


033153 


28455000 


T 


0333«2 


28455200 


T 


033450 

28452200 


28455400 


P 


033410 


28455600 


T 


033753 


28455800 


T 


033952 


28456000 


T 


0341 «0 


28456200 


T 


034250 


28456400 


T 


0342'3 


28456600 


T 


034452 


28456800 


P 


034513 


28457000 


P 


034553 


28457200 


T 


035350 


28457400 


T 


035451 


28457600 


T 


035652 


28457800 


T 


035752 


28458000 


T 


035752 


28458200 


T 


035851 


28458400 


T 


036050 


28458600 


T 


036252 


28458800 


T 


036353 


28459000 


T 


036353 


28459001 


T 


037450 


28459002 


T 


037450 


28459003 


T 


0374 5 


28459004 


T 


037410 


28459005 


T 


037450 


28459006 


T 


0374(0 


28459200 


T 


037450 


28459400 


T 


037650 


28459600 


T 


037712 


28459800 


T 


0377*2 


28460000 


T 


038150 


28460200 


T 


038250 


28460400 


T 


038250 


28460600 


T 


0383H 


28460800 


T 


038452 


28461000 


T 


038850 



EN n 



GO 
FLSf 



BACK) 
K:*0> 



WHILF T.[5»l] DO 
BEftlN MfNT j !s E A + (EAIN»*f:A!N + 2)] >«(T AND RB5)) 

IF K»0 THEN MtPOOL*(NAIN DI V 2}]l»[MCNTl]]J 

M[NTl+l]iB(CCAtCCAlN+13 AND RB5)J 

Kl*K+2) 

IF (CCAlN»=CCAIN+2) GEO ?8 THEN GETASEGMENT) 
T:*CCA[CCAJN] J 
ENnJ 

MrNT2l«POOL + (NAlN D! V 2) ] I [ 8 * 1 0] I sK) 

M[NT2j:xf *PcDUP))&(K><2)tCTF]l % NEEDED TO FIND "AS H 
IF T.MU J THEN 
BFfilN M[NTi :*FA+(EAINs«EAfN+?))»aCT AND RB4)) 

IF M[NT2JsO THEN M t NT23 ! s[ M[ NT 1 J ] & 1 1 32 U7 J 1 ] 

ELSE MrNT2J:«C*P(DUP)mt32U7U]J 
MrNTl + ni«(CCArcCA|N + l) AND RB4); 
GO RACKf 
ENn Ft SF GO UP) 

QUIT! 

M[Na + NaJN + 2] !*0*"> ,, r 1143151) % MARK fND OF NA 
% 

%> 

% 

% 

*> 

% 

II 



',**^* ************************************* 
RFGIN PPOCFSSING THE PRrPROcESSED DATA 
ACCORDING TG THE SfX STAGES DETAILED ABOVE 



F CCATC 

thfn re 

LtBRaR 

u : s i a ; 

IF NOH 

thfn 
xi*r 

DA«» 



CAIN+1).UNTTNUM»19 
GIN % 

YHFLP(3)» 



X148- 



SOURCE DISK 



NEXTSEGi 



FOR 

BFG 
IF 
FID 
IF 

IF 

TH 
EL 



ASH 
PEG 

Mrs 

3 + 
DT 

KJa 

IN 

(MF 

:*X 

MF! 

(IN 

EN 

SE 



IN % GO SERIALLY THRU DIRECTORY 

PACFf 30) ]]*30[8*38M0]I 

IRECTORYTOP; 

SKHAlT(-X,[CF]»30»DAl«DA+16); 

28 stfp -2 until do 
if dsed then abort) 
idi«x[k])Mii« Then go transfer) 
r K+i 3i 

D»?14 THEN ELSE 
nX!sC.OMPARE(MFlD,NAn*0 

REGTN PAP'8MtNTl:*P00L+((INDX-NA) DI V 2)]) 

IF NOT PAP.f7»n THEN ME NTl] . [ 7 t 13 » «1 ) 

INXLST:»FALSE) 

T F (TMPI=PAP.tflJl03-2) GEQ THEN XEXCEPT LIST HFRf 

SCANEXCEPT) 
IF NOT INXLST THFN 

BEGIN SEARCHDf RECTORY) 

TI»OrT[fTf3&TOGS[3I3«NUMOPT]) 

if ok Then begin asiT) inseRtorfork; end) 
endj 



28461200 
28461400 

28461600 
28461800 
28462000 
28462200 
28462400 
28462600 
28462800 
28463000 

28463200 
28463400 
28463600 
28463800 
28464000 
28464200 
28464400 
28464600 
28464800 

28465000 
28465200 
28465201 
28465202 
28465203 
28465204 
28465205 
28465206 
28465400 
28465600 
28465800 
28466000 
28466200 
28466400 
28466600 
28466800 
28467000 
28467200 
28467400 
28467600 
28467800 
28468000 
28468200 
28468400 
28468600 
28468800 
28469000 
28469200 
28469400 
28469600 
26469800 
28470000 
28470200 



28470400 T 



039H1 
0391)3 

28460800 
0393»0 
0394« 1 
0398U 
040212 
0405)3 
040710 
041010 
041110 

26461800 
041310 
041711 
0420J0 
042013 
0425)1 
0429)0 
043413 
043810 
044010 

28463800 
0440)0 
0440)0 
0443)2 
0443)2 
044312 
044312 
044312 
044312 
0443*2 
044511 
0446)0 
0446)3 
044712 
044712 
0448)3 
0452)2 
0453)3 
0457)0 
045610 
046013 
046213 
0464)1 
0465)2 
0468)1 
046813 
047412 
047910 
0480)3 
0463)1 
0465)0 
0486)0 
0486)0 
0490)1 

28470200 
049410 



NXT I 



fnd; 
fmdi * of k loop 
go nfxtsegj 

FND % OF LINEAR SfARCH 

FLSF BEGIN % USE SEEKNAM 

FOR KlsO STfP 2 UNTIL NaSZ-3 DO 

BEGIN 

NM1 JaMTNTi JeNA + K] ) 

NM?t«MrNTUl] ) 

LJsOJ 

PAP:«MfPOOL+CK DIV ?)]) 

IF DSFD THFN ABORT; 

IF CNM1 OR NM2) LSS 
THEN SFEKNAM(NM1,NM2.L,MFID»FI0»0A,PAP) 
FLSF BFG1N MFID»"NM1| FID)*NM2) L)*l) END) 

IF L NFQ THEN 
BFGIN SEARCHDIRECTORYJ 

Tla0&T[FTF34T0r,St3«3lNUM0PT]» 

TF OK THEN 0FGfN AS IT J iNSeRTORfORK ) END) 



IF fNMl OR NM2) LSS THEN GO NXT) 



END 



FLSE IF DA»0 THEN LBMfSS(NM \ , NM2i«67. 15. 0, SPOUTUN I T , 1 ) J 
END) X OF K LOOP 

FND % OF HASHED SpARCH 

FND 

else rfgim * source tape 

ltbraryhelp(O); 

S SFT OM]T a NOT B6500LOAO 

FOR K* = (IF Xr l*Pl 1 A AND NOT REEL1START THEN Xtl] ELSF 0) 
STFP ? UNTIL DA-? DO 
BEGIN IF DSED THEN ABORT; 
IF ((MFlD'sXTK]) OR f F I D I *X[K + 1 1 ) ) . [ 1 » 5 ] NEO 

Then begin notcopiedoDi go badnmi end) 



TF nNDXt*COMPARE(MFID.N A ))sO 
THFN 
ELSE BEGIN PAP I «M[ NT 1 1 *POOL+ ( ( I NDX-NA ) DIV 2)]) 

if not pap. [7iij Then MrNTn.r7»n»«D 

INXLSTI«FALSE) 

IF (TMP)«PAP.r8li0]-2) GEO THEN X EXCEPT EXISTS 

scanfxcept) 
if not inxlst THFN 

BFGIN T)*0&((K DIV 2) + l ) [CTF MTOGS[ 3) 3 « NUMOPT] ) 

ASIT) INSfRTORFORKJ 
END) 









28469800 




28470600 


T 


0494)0 

28468600 




28470800 


T 


0494*0 

28467400 




28471000 


T 


0496)1 




28471200 


T 


0496)3 

28466400 




28471400 


T 


0496)3 




28471600 


T 


04971 1 




28471800 


T 


050112 




28472000 


T 


050D2 




28472200 


T 


0504)0 




28472400 


T 


0506)0 




28472600 


T 


0506)3 




28472800 


T 


0509)1 




28473000 


T 


0512)0 




28473200 


T 


0512)3 




28473400 


T 


0515)2 

28473400 




28473600 


T 


0519)0 




28473800 


T 


0519J3 




28474000 


T 


0521)0 




28474200 


T 


0523)1 

28474200 




28474400 


T 


0527)0 


*589- 


28474500 


C 


0528)3 

28473800 


X589- 


28474600 


P 


0528)3 




28474800 


T 


0533)0 

28471800 




28475000 


T 


0533)2 

28471400 




28475200 


T 


0533)2 

28465600 




28475400 


T 


0533)2 




28475600 


T 


0534)0 


X123- 


28475605 


C 


0534)3 




28475800 


T 


0534)3 




28476000 


T 


0539)2 




28476200 


T 


0542)3 




28476400 


T 


0545)2 




28476600 


T 


0548)3 

28476600 
28476600 




28476800 


T 


0552)2 




28477000 


T 


0554)3 




28477200 


T 


0555)1 




28477400 


T 


056D2 




28477600 


T 


0566)0 




28477800 


T 


0567)3 




28478000 


T 


0570)1 




28478200 


T 


0572)0 




28478400 


T 


0573»0 




28478600 


T 


0576)3 




28478800 


T 


0579)0 

28478400 



BADNMt 



END* X OF K LOOP 



28479000 T 0579*0 



28479200 T 



TRANSFER! 

FOR K**0 STEP 1 UNTIL CNASZ DIV 2)-l DO 
IF M[P00L I NX K 3 . f 7 I i 3 THEN ELSE 
BEGIN MFI0»»M[NT1 J»NA+(Kx2)]; 
FIDS = MCNT1 + U | 
N0TC0PlEDCl7-(Ual8)x2); 

FNOJ 

fndj 
if fccain»*ccatn+2) geq 28 then getasegment* 

IF NOT SOURCEFILFFOUND ThEN 
BfGIN IF U LSS 16 THEN SETNOTfNUSE(UtO)l 
ST0PTIMING(FPBPTR,1023); 

ENDI 

IF X NTQ THEN FORGETSPAcF ( X ) I 



28479400 
28479600 
28479800 
28480000 
28480200 
28480400 



FORftFTSPACEfNA); 
IF cCATCCAINlsPl 14 



THEN BfGIN FASZ«»FAIN+2> 
F0R6ETSpACE(CCA)I 
LlBRARYTRANSFERJ 

END 

ELSE GO NEXTSOURCEI 



28482000 
28482200 
28482400 
28482600 
28482800 
28483000 



END OF LIBRARYCOPYI 



28480600 T 

28480800 T 

28481000 T 

28481200 T 

28481400 T 

28481600 T 

28481800 T 



28483200 T 
28483400 T 



28477200 
0579*0 

28476200 
057912 
0579«2 
058411 
058613 
0590*1 
059211 

28480400 
0596*0 

28480000 
0596*2 

28475400 
0596*2 
060010 
0601 10 
060313 
060413 

28481400 
0604*3 
0607*1 
0608*0 
0610*3 
0611*3 
0612*1 

28482400 
0612*1 
061211 

28400300 
SIZE* 0613 WORDS 



PROCEDURE LJRRARYZFRO; 



STACKfF-4) s 



STACK(F+1 ) 

STACKfF+2) 

STACKfF+3) 

STACKfF+4) 

STACKfF+5) 

STACKfF+6) 

STACKfF+7) 

STACKfF+lOl 

STACK(F+H ) 

STACKfF+12) 

STACKfF+13) 

STACKfF+14) 



C0MM0Na-4 J 

TYPF#SFG» I rJ«K»N 1,Q,n» N'T » THING tZFROlNGI 



STACKfF+15) 
STACKrF+16) 
STACKfF+17) 
STACKfF*?0) 

STACKfF+21) 
STACKfF+22) 



BEGIN 

Reai 

COMMON 

REAI. 
TYPF 
SEG 

I 
J 
K 

ni 



N 
W 

T 

Thing 
zeroing 

ARRAY Sr*]#X[*J»RSULT[*]»BUFFADR[*!»!OD[*]»H[*]l 
S 
X 

RSULT 
BUFFADR 
IOO 



START OF REL 



H 



LABEL GFTONE»LOOP»WATE»ARD» 

DEFINE PSEDsTERMSET(PlMlX)#; 

ft******************************************************* 

SUBROUTINE GETASEGMENT; 

BEGIN 

SFGIsSr29]; 

DTSKMAIT(-S,[CF3»30»SEG)» 
FORGETeSPdiSK(SEG)J 
I «*0J 
END; J! OF GETASEGMENT 

******************************************************** 

SUBROUTINE ABORT; 
BEGIN 

IF ZEROING THFN 

BEGIN 

Hr«J.r43«23»alf 

hMJ, t2»n»*o; 

OlSKWAlT(THlNG,CCF]'30,THING.[FFJ); 

FORGETSPACEfHJJ 

END ELSE 

WHILE S[29] NEC 00 GETASEGMENT! 
GO INITIATEI 
END; X OF ABORT 

%******************************************************* 

SUBROUTINE JO; 
BEGIN 

STRFAMfDSKADR«sQ+N»Dl«(BUFFADR INX <2xW>>); 
BEGIN SIULOC DSKADRJ DSlsdDEC; END* 



28800000 
SFGMFNT; DISK 

28801000 

28802000 



T 0000«0 
ADDRESS « 
T OOOOJO 
T 0000»0 



00830 



28803000 T 0000»0 



28804000 T OOOOJO 



28806000 
28807000 
28808000 
28809000 
28810000 
28811000 
28812000 
28813000 
288J4000 
28815000 

28816000 
28817000 
28818000 
28821000 
28821500 
28822000 
28822500 
28823000 
28823500 
28824000 



28824250 T 
28824500 T 
28827000 T 



28828000 
28829000 
28830000 
28831000 
28831500 



T 0000 «0 

T 0000*0 

T 0000?0 

T 000010 

T OOOllO 

T 0001J0 

T 0002«0 

T 000451 

T 0005»0 

T 000513 

28810000 

T 0006»0 

T 0006»0 

T 000610 

T 000610 

T 0006*1 

T 0006»3 

T 000911 

T 00ll»3 

T 001410 

T 0015J0 

28821500 
00i5«0 

001812 
001910 

28818000 
T 0019U 
T 0019U 
T 0020J0 
T 002010 
T 002213 

28831500 



28293800 



28848000 



RSULTrW JI.O) 
l0RF0UEST(-i0D[W]&P377t?5«ft0l8]» 

lOD[Wl*fIF (TI«Ni-N) USS 63 THEN 5i? + T ELSE 512+63) 

[CTF]»(W INX RSUlT)); 
NI=N+63J 
FNDj * OF !0 

SUBROUTINE ZEROaROW; 
BEGtN 

Nl taHCB] J *N0. OF SEGMTS/ROW 

Ql*HfK+9]> XDlSK ADOR OF ROW 

w»*oj xbuffer no. 

n«*o; xinde* of segmts 

!0> 

WJ*1J ISWAP BUFFERS 

IF N GEO M THEN RSULT[1 JisRSULT[l] OR JOMASK ELSE 
UOOPI !0? 

WATE« COMPUEXSUEEP((C(RSULTtl-W]> AND lOMASK)#0) OR DSED); 
ACCIDENTAL fNTRY AT 1 

if dsed Then abort; 

W*TF {RSULTrO] AND RSULTtl] AND jOMASK)#0 THEN 1-W ELSE 
((RSUL-Ttll AND iOMASK)#0)J 

if n<ni then go to loopii row is not finished 
complexsleep((((rsult[i-w]) and iomask) neq 0) or dsedji 
accidental entry AT 1 

ir dsed Then abort; 

ENDlXOF ZEROAROK 



%** 
SI* 

x»« 

TYP 

sr2 

GET 

x r o 

MOV 

getone; 
if 

X[J 
X[J 

Jl« 

IF 

IF 

FOR 

MOV 

FOR 

X:x 

IOD 
RSU 
BUF 
IOD 
IOD 
Jl- 
ZER 
WH1 
BEG 



ARRAYDESC(30iESPDlSKAREAV); 
rMf SP ACE( 1 023 )mi023t 8*38110]; 
FlsC0MM0N,(FF]; 

9i isroMMON.rcF] ; 
asegmenT; 
] sxPh; 
F(io?2»x,fXnn); 



X167- 



pSpn The 

]»=S[ !]! 

+ ni*sn 
j+2; 

r I «*I + 2) 
Stll NEQ 
GETSPACE 
F( J+1 »X» 
GETSPACE 

fMfS] 3 &c 

tcrMtGET 

L,T»»(2 I 
FADR»*C4 
rO]«s(BU 

ri)»«(BU 
-2; 

0ING«*1» 
LE X[J«-J 

tn 



n abort; 

+ n; 

gtr 26 then gfTasegment; 
014 then go gftone; 
f s ) j x 

S«-6ETSPACEf J+1 ,0.1 )+2)t% 
<X)J % 

j+i )r«» 38* 103 ; 

SPACE(8»0»n+2j]&2t8l38U0j; 
NX I0D)4l8£8»38« l 03 1 

INX I00)&4t8l36ll0]i 
FFADR INX 0)81[8t38li0]43[5t46l2]» 
FFADR INX 2)tl[«i3Bli0]t3C5t46l?]) 



ZEROING IMPLIES S RETURNED. 
RETURN UNUSED SPACE AND MAKE X 
INTO SAVE SPACE, 



+23#P14 no % 



28831600 
28832000 
28832500 
28833000 
28833500 
28834000 

28834500 
28835000 
28835500 
28836000 
28836500 
28837000 
28837500 
28838000 
28838500 
28839000 
28847000 
28848000 

28849000 
28850000 
28851000 
28852000 
28852100 

28852200 
28853000 

28854000 
28855000 
28856000 
28857000 
28858000 
28859000 
28860000 
28861000 
28862000 
28863000 
28865000 
28866000 
28867000 
28868000 
28868100 
28868200 
28868300 
28868400 
28868500 
28869000 
28870000 
28871000 
28872000 
28873000 
28877000 
28878000 
28879000 
28880000 



T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 

T 

T 

T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 



0023*2 



00?4 
0026 
0031 
0033 
0034 

0034 
0034 
0035 
0035 
0036 
0037 
0038 
0039 
0040 
0040 
0044 
0046 

0054 
0058 
0062 
0064 
0065 

0073 
0077 

0077 
0077 
0086 
0090 
0091 
0093 
0094 
0095 
0097 
0097 
0100 
0101 
0104 
0105 
0109 
0110 
0111 
0116 
0117 
0120 
0124 
0126 
0129 
0133 
0137 
0138 
0138 
0141 



3 
3 
1 

1 
28830000 
2 
2 



2 
1 


3 



3 



1 

3 



8835500 

1 

1 

1 



1 





1 

1 

1 



2 



1 



2 
2 
1 
1 
1 

2 




3 

1 



ARD» 



END) 



HI«rMtTHJNGi«DlRECT0RYSEARcHCX[JJiX[J+l]»5)m 30 [81 3611011 

if dsed The:n ABORT* 

if THiNfieO then go to aRo; 

IE McThINq + 4] .r. 42t33«3 THEN 
BFRIN FORGETSPACECH)! 
GO TO ARDJ 

end; 

Hr41l»(*P(DUP))&3t«3l46i2J*l[2l*7in*SYSN0t4|«6l2J| 
DlSKWAfTCTHlNG.tCFl* 30, THING, tEF3); 

LpMESSf XfJl, X[J+U, 62» 0,0»0» 1 )| X BEING BLANKER OUT 
FOR K*l STEP 1 UNTIL H[9). [43*53 DO* WRITE OUT FILE* ROW BY 
IF H[K+9)^0 THEN BEGIN ZEROAROW* 

IF STOPSETtPlMlX) THEN STOPM(0)l 

end; 

HT4] # r43t2 j t mO| * NO LONGER SENSITIVE OR BEING ZEROED 

djskwa!t(th!ng,rcf]»30,thing,ceej); 
forgetspace(h); 

P( DlRECTORYSEARCHrXt JJ.XCJ+1 ]• 6), OfDl 



ROW 



go fniTiatf; 

END* % OF LIBRARYZERO 



28881000 
28882000 
28882100 
28882120 
28862140 
28882160 
28882180 

28882200 
28882400 
28883000 
28884000 
28885000 
28885500 
28885600 

28886000 
28887000 
28888000 
28889000 
28889550 
28890000 



28891000 T 
28892000 T 



T 014111 
T 014610 
T 014910 
T 015011 
T 0152»3 
T 015411 
T 015413 

28882140 
T 015413 
T 0159U 
P 016112 
T 0164(3 
T 016911 
T 0172«0 
T 017413 

26685000 
T 017511 
T 0177*3 
T 0180*0 
T 018110 
T 0183*2 
T 0183»2 

26880000 
0184*0 
0l84>2 

28801000 
SIZES 0185 WORDS 



» set omit = not(auxmem 

comment frrormfssfr is 

typf out a psf 

thing as Thf f 

procedure frrormesserh 



) 

callfd by fRROrfjxfR nr option 33 

UOO-TfRmiNAL MESSAGE. ?T DOES ABOUT 

i rst part of teRminalmessage; 
ype); value type; real type* 



PRT(671) * 

STACKfF*l) 
STACKfF+2) 
STACKfF+3) 
STACKfF+4) 
STACKfF+5) 

STACKfF+6) 



FRRORMESSFR 

BEGIN 

SB S 

= ADR 
« BF 
a SA 

x N 

> SD 



L> 



IS ON) TO 
THE SAME 



START OF REL 



28999999 
30900000 
30901000 
30902000 
30903000 
SEGMENTl DISK 



OOOOlO 
OOOOtO 
OOOOSO 
OOOOlO 
0000»0 



ADDRESS « 00637 



INTEGER S#ADR»BF,SA,NJ 



END 



NAME SDJ 

LABEL i; 

BF*SPACE(lO); 

5D*PRT[PjMlX,ft 

NTl*SDtO] J 

ADR*MrPRTfPlMI 

FOR S*l STFP 1 
IF (SA*SD[ 
IF MfSA-ll 

S + Oj 

SD*rMfSPACF(TE 

adr*adR-sa; 

PTSKWAlTf-f SD 
N* IF TYPEsJ Th 
7 ELS 
STREAMCM*rSDCN 

begin sum; si 

DUDI + 7S 

si*jj si 

Sl*ST+ll 

DS.-2DECJ 

X(0S*5 LIT 

pS*4 

DUBF 

dubf; d 
end; 



u 

x.au.tcFit 

UNTIL NT J DO 
S].t 18*15])>1023 AND 

.cie* i.5]+sa>aor then 

RMSGSZ)]]* 



SA<ADR 
GO LI 



AND SDtS]>0 THEN 



I NX 0),TERMSGSZ»MESSAGETABLE[1 J.[22I26])| 
EN 11 ELSE IF TYPE«2 THEN 9 ELSE IF TYPE*4 
E IF TYPE*8 THEN 13 ELSE 5) 
J3»J*rJARCPlM!X,0]].PlM!X»S»ADR.X*S#0»BF>l 
♦Si+21 oS*6 CHR* BF*DU DULOC Ml Sl*Sl + H 

ds«-chR; dubf; ds*m chr; os*e lit" branch 
♦Sj+li DS*7 chr* ds*lit»/"» 

DS*7CHRJ DS*llT"«»| S|*LOC PlMlX; 
BF*0|l DUDI-2J DS*FILL* DUBF) 
% S «"J SULOC SI 0S*4 DEC* DS*5 LIT", A » 



THEN 



♦•J 



"I 



DEC* BF*DI> 
i DUDU13J 
S* LIT"*"* 



DI*DJ-4J DS*3 
DS*3 FILDI 



FILL I 



FORGETSPACE(SD) J 
SPOUTeR(BF»0»ERRORMSG)I 
ERRORMESSERJ 



30904000 T OOOOlO 



30905000 T OOOOlO 



30906000 
30907000 
30908000 
30909000 
30910000 
309HO00 
30912000 
30913000 
30914000 
30915000 
30916000 
30917000 
30918000 
309J9000 
30920000 
30921000 
30922000 
30923000 
3092«000 
30924500 
30925000 
309?6000 
30927000 
30928000 
30929000 

30929500 
30930000 
30931000 



0000 
0000 
0003 
0005 
0006 
0008 
0010 
0015 
0021 
0022 
0025 
0027 
0030 
0035 
0039 
0043 
0044 
0047 
0048 
0049 
0051 
0054 
0055 
0056 
0056 



T 0057 
T 0057 
T 0059 



50 
«0 
13 
•I 
10 
13 
tO 
»1 
«2 
«1 
J3 
:0 
t2 
'1 
U 
•1 
t3 
il 
J2 
t3 
10 
10 

to 
to 

t3 

30921000 
:0 



13 
12 

30904000 
SIZE" 0060 WORDS 



STACKrF+1) a AIT 

STACKfF+2) * PRTO 

STACKfF+3) ■ ADDR 

STACKfF+4) . I 

STACKfF+5) a GOT 

STACKfF+3) a ADR 

STACKfF+6) * LABLC 



procedure eRRorfixeR(TyPe); value type* integfR type; 

start of rel 

COMMENT LOOKS FOR RUN-T I Mf-FRROR ACTION LABELS IN ALGOL PROGRAMS. 

AND HANDLES THEM* RETURNING ONLY IF NO LABEL GIVEN; 
BEGIN ARRAY. AIT[*]#PRTD[*]J 



31000000 
SFGMFNT) DISK 

31001000 

31002000 

31003000 



T 0000*0 
ADDRESS « 

T 0000:0 
T 0000:0 
T OOOOtO 



00839 



NAME ADDR; 

PEAL I. GOT, ADRbADdR.LABLE; 



checkstackspace; 

if type *2 theniovrflw 

, IF JARCPlMlX»21«C3t 13 THEN 
IF(PRTCP1MIK»P513AND P20)#0 THEN 
BEGIN I*MtADR*PRT[PlMlX»8] INX Oil 
STREAM(I*(I INX 0)& I [ 301 101 23 t GOT* [ GOT] ) ; 
BEGIN SI*I;Sl*Sl"2lD!*DI*6JDS*2 CHR ENDJ 

IF G0T,[45l33«5 THEN M [ ADR-33*P7777777777777 J 
M[ADR-2]*P777777 777777777; 

PRT[PiMlX»?5l).C45l2]*2; 

GO TO initiate; 
end; 

PRTD * PRTROW[PlMiX]> 
WHILE (AIT*PRTD r A I TNDX 3 ) .PBI T»0 DO 

MAKEPRFSENTCfPRTD tAjTNDXJ] INX 0)> 
T*AlT[n]+i; 
DO 1*1-1 UNTtLffGOT* f ADDR*AI TC I 3 ) , OWNBI T AND C AnR.fCF] 

*TYPEJ) OR(i<l))J % LOOK FOR ENTRY 
IF GOT THEN % WfLL REINITIATE THF GUY, SO SfT HIM UP 
BEGIN IF (LA8LE*Mr ADR,MOM])*0 THEN 
IF LABLE*15 THEN 

IF LABLE.BlKCNTR<(PRTD[16]+(LABLE,M0M#0))THEN 
BEGIN IF PRTD t CURBLKCNTR 3 >LABLE . BLKCNTR THEN 
BEGIN PRTD tCURBLKGNTR3*LABLE,BLKCNTR+ll 

asr; 
end; iF(addr*lable.mom)«o then 

LABLE.MOM*ADDR*PRTDtl0 3,MOM+2; 
ADDR*ADDR&ADRt33l33U53> 



t set omjt * packets 



FRRORMESSERfTYPE)! 

IF PRTDrLABLE.rCF3J.PBlT*0 THEN 

MAKEPRESENT([PRTDtLABLE,tCF3 31.tCF3); 
DO UNTIL(*CADDR*HUNT(ADDR*1))).C1»3]b4; 
ADDR [l3*M[PRTD [83 INX NOT 03l 
ADDR (23*MIPRTD C8 J 3*0[ 101 10: 2}& 
(LABLE)tlfiJl8M53&PRTD f (LABUE) . tCFJ 3 C33l 33 J 15 3 1 

PRTD t83*P(DUP#L00)«(ADDR INX 2) t 33l 331 153 ) 

GO intTiatf; 
fnd; fnd; 



31004000 T 0000*0 
31005000 T OOOOJO 



31005010 T 0000 



31005050 
31005100 
31005200 
31005300 
31005310 
31005320 

31005330 
31005350 
31005400 
31005500 
31005600 

31006100 
31007000 
31008000 
31009000 
31010000 
31011000 
31012000 
31013000 
31013050 
31013100 
31014000 
31015000 
31016000 
31017000 

31017100 
31017200 
31017209 
31017220 
31017300 
31017400 
31018000 
31019000 
31020000 
31021000 
31022000 
31023000 
31024000 



0005 
0006 
0008 
0011 
0014 
0017 

0018 
0022 
0024 
0027 
0027 

0027 
0028 
0031 
0036 
0037 
0040 
0043 
0044 
0047 
0048 
0051 
0053 
0056 
0057 

0058 
0062 
0063 
0063 
0064 
0066 
0068 
0072 
0075 
0078 
0080 
0083 
0083 



31005010 

3 

2 

2 



3 

1 
31005320 

2 

1 

1 

1 

3 
31005300 

3 

3 

1 



2 

1 

3 





1 

3 

3 

2 


31015000 

3 

1 

2 

2 

1 

1 

3 



1 

1 

2 



2 



310H0Q0 
31013000 
F.ND FKPORFIXFHl 31025000 T 008312 

31003000 
SIZE* 0064 WORDS 



PROCEDURE JORMFSS(MlX,Q,AfBiCpD)» VALUE M I X, 0, A» B» C » D? * 

START OF REL 
REAL M!X,G,A»B,C»DJS 
COMMFNT : T H IS PROCEDURE CAN BE USED TO BUILD AND SPOUT a MESSAGE 

that js to be preceeded by a <job specifier> which it 
builds automatically for the mix given? 
pegtn real buf,t?x 

STACKfF*l) = BUF 
STACK(F+2) * T 

S SET OMlT s NOT(PACKF.TS) 

HFAL UNITNOJ 
STACKrF*3) » UNpNO 

S POP OMjT 

LABEL EXIT? 
BUF *■ SPACEC9)? 

if mix ■ o then 

BFGTN T:sSPACE(30>»DtSKWAIT(-T»30»0)> 

STREAMcMl«MfT + i0 + 5xSYSN0]»F»«MtT + ll+5>tSYSN0]«BUr)» 
BEGIN DSJ-3 LIT" 0*"| Sp-LOC Ml SjuSj+iJ DS?*7 CHR? 
DS«=LlT"/"|SI J«Sl + i;DSl«7CHR?DSt«3LIT ,, « 0"| 

END? 

FORr,ETSPACE(T)l 
T**CBUF+2)&5[30»45*3]I 

END ELSE* 

IF JA«?ROWfMTXJ#0 THEN 

RFGIN? STREAM(C*OiR* IF CT* PRY0R[ MI X ] )<0 THEN T ELSE T T NX 0. 
J * JARROW[MiXJ,MlXfA ♦ IF JAR[Mj.X,03<0 THEN JARfMlX,30] 
ELSE 0,BUF)? 
BEGIN DS * LIT " »J SI * LOC R> OS ♦ 6 DECIX 

DI * DI-6? DS * 5 FILL? 01 * BUF? DI ♦ DI+7?X 
OS «• LIT »J«j St * J? 

if sc*"+" Then 

BEGIN SI *. Sl + 1? DS * 7 CHR? DS «• LP " " ? 

SI * SI + P DS ♦ 7 CHR? DS * LP VI 

Si ♦ LOC A? SI * Spl* DS ♦• 7 ChR? 

END ELSE 

BEGIN SI * SIM? DS ♦ 7 CHR? DS «■ LP »/"; 
SI - SI + 1? DS «• 7 CHR? 

END? 

DS * LP "**j S? * LOC MIX? DS * 2 DEC?X 
C ♦• DI? DI * DI -2? DS «- 2 FILL?* 
END STREAM? 

T is POLISH? 
S SET OMp * NOT(PACKETS) 

IF Q.CCFJ.MIX THEN UN I TNO l«PSEUDOMl XCM I X J ? 
£ POP OMP 

END ELSE * NO SUCH MP 

BEGIN FORGETSPACECBUF)? 
GO TO EXP? 

END? 



32000000 
SEGMENT? DISK 
32000100 
3200OH0 
32000120 
32000130 
32000200 



32000249 
32000250 

32000251 
32000280 
32000300 
32000400 
32000500 
32000510 
32000520 
32000530 
32000540 



T 0000:0 
ADDRESS ■ 



00842 



32000750 
32000800 
32000810 
32000812 
32000850 
32001000 
32001100 
32001120 
32001140 
32001160 
32001180 
32001200 



32001475 
32001499 
32001500 
32001501 
32001550 



32000600 T 
32000650 T 
32000700 T 



32001220 T 

32001240 T 

32001260 T 

32001300 T 

32001400 T 

32001450 T 



32001575 T 
32001600 T 
32001625 T 



OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 
OOOOJO 



OOOOJO 
OOOOlO 

OOOOJO 
OOOOJO 
OOOOJO 
0003J0 
0003«3 
0008J0 
0013J3 
0015 J 1 
0017J0 

32000520 
0017J1 
0018J0 
0020?1 

32000500 
0020J1 
0021.' 3 
002612 
003QJ0 
003P2 
0032J2 
0033J2 
0034J 1 
0034J3 
0035J3 
003613 
0037J2 

32001140 
0037J3 
003813 
0039J1 

32001220 
003911 
0040H 
0041 JO 

32000850 
004P1 
004P3 
0041 J3 
0044J2 
0044J2 

32000800 
0044J2 
004513 
0046J1 

32001575 



vSTREAM(A*rAUZ«-0,T);? 

BFSIN SI * A) DS * LiT " n ;% 

4fiF sc # M +* Then 

BEGIN TALLY * 7 J S I «■ Sj + 1* I 

6CL* IF SC ■ M 0« THEN* 

begin Tally ♦■ tally + 63 y si •■ si + 1; 

END ELSE JUMP OUT)** 

Z «■ TALLY* DS * Z CH«>X 
END ELSE SI * ST * 6)}X 

DS * LIT W «- M J* 

FND STREAMJX 

SPOUTFFUBUF * QC 9 1 9 I 9 ] .UN ! TNO, 1 ) J 



32001700 
32001800 
32001900 
32001910 
32001920 
32002000 
32002050 



EXlT« 

END JORMESSJK 



32002070 T 
32002090 T 

32002100 T 
32002200 T 

32002300 T 
32002350 T 
32002400 T 



T 0046*1 
T 0047*2 
T 0048*1 
T 0049:0 
T 0049*2 
T 0050*1 
T 0050*3 

32002000 
0051*3 
0052*2 

32001910 
0053*1 
0053*3 

32001800 
0054*0 
0056*1 
0056*1 

32000200 
SIZE* 0057 WORDS 



PROCEDURE MlXPRfNTfQ)! VALUE QJ REAL Ql 32100000 T OOOOJO 

START OF REL SEGMfNT* DISK ADDRESS • 00844 

COMMENT THIS PROCEDURE INVOKES JOBMESS TO TYPE THE JOB SPECIFIERS 32100010 T 000010 

OF FACh ACMVE MIX;X 32l000?0 T 0000«0 

BEGtN REAL T.II 321 OOlOO T 0000»0 
STACKfF*l3 a T 
STACKfF+2) * I 

FOR 1*1 STEP 1 UNTIL MlXMAX DO 32100200 T 0000»0 

if jARci**] * o Then* 32100300 t 0002:0 

BFGIN JOBMESS(I»0,-O t -0.-O,»0); T *■ 1 END>* 32100350 T 0003»0 

32100350 

IF NOT T THENX NULL MIX 32100400 T 0009:2 

BFGINI STREAM(T*T»SPaCE(2))I DSmILIT " NULL M!X*«M% 32100500 T 0010:0 

SP0UT(T & Qt9«9|933i* 32100600 T 00l5«l 

END NULL MIX J 32100700 T 0017*2 

32100500 
END MfXPRlNi;* 32100800 T 0017»2 

32100100 
SIZE* 0018 WORDS 



PRT(672) * 



STACKfF+1) 
STACKfF-1) 



28852100 



S SET 0M?T * NOT(nATACOM AND DcSPO ) 
PROCEDURE nOLlTTLE(OK.T.A»R,Z)> VALUE 



t»a,b; rfal ok.t»a#b»zs 



nOLHTLE 

BEGIN 

LAPFl 
a Q 

x N 



START OF REL 



COMMFNT FILE U&AJ 
E.LI REAL QJ NAME N = z; 



34999999 

36001000 

SEGMENT! DISK 

36002000 
36003000 



DEFINE X«RFPLYfPlMTXl#. DS.TERMSET ( PI MI X )# > 

if ok Then go fj 

L« FlLFMESStA»B#NrO]#Ntl].N[2]»N[3]iNr«3)l 
IF AUTODS THEN TERMlNATE(PlMIX&61[CTF]) else 

BEGIN X*-T*if2U7ll3* COMPLEXSLEEPC X>0 OR 0*0K OR DS)I END; 
ACCIDENTAL FNTRY AT 1 



*747- 
S747' 



IF DS T H FN GO EJ 
F« NT6«-X| X*0 

fnd of holittlej 



IF NOT Q THEN IF NOT WHYSLEEP(T) THEN GO LJ 



36004000 
36005000 
36006000 
36006500 
36007000 



36008000 
36009000 
36010000 



T 000080 
T OOOOJO 
ADDRESS * 

T 0000*0 
T 0000:0 



00845 



T 0000:0 

T 0000:0 

T 0001*1 

C 0006J3 

P 0009H 

36007000 
T 00?0*3 
T 0025*0 
T 002612 

36002000 
SIZE* 0028 WORDS 



REAL, PROCEDURE F •!NDOUTPUT(MiD,FtD»RfEL»CDATf#CYCLE»TYPE»FORMS»KtND)I 

START OF REL 

VAI.UF m i d» f i d» rfel»cdate» cycle* type # FORMS » 

REAL M I D. F I D» REEL. CDATE, CYCLE. TYPE. FORMS, KIND; 
BEGIN INTEGER ROTL. GOTT . GOTB. gOTP . GOTC J 
STACK(F*2> * GOTl 
STACKfF+3) = GOTT 
STACKfF+A) . GOTB 
STACK(F+5> a GOTP 
STACK(F+6) B GOTC 



37000000 
SEGMENT} DISK 
37001000 
37002000 
37003000 



STACKrF*7) „ U 
STACKfF-jO) m MIO 



RFAL U5 

LABEL EX IT. SW,0N,0WT,AR0UND»0UK ID #X, ROUND, CLAIMT* THERE. SOMEWHERE? 
RpAL MID»MID; XFAKE OUT COMPILER 



$ SET OMJT = NOT(PACKETS) 

RFAL FREEFJ LABEL FREEL; % FILE TO BE PRINTED ALONE 
STACKfF+10) » FRFEF 

$ POP OMjT 
LABEL W3« 

DEFINE DSFJD * TfRMSET r P 1M I X ) #; 
LABEL CP»MT.SU»PP,CKfM,dOjTOVfR; %P 

DEFINE PNTOGb(TYPE*0 OR TYPE gEQ 20)#; 

DEFINE MAYBEfMAYBEUsf IF FORMS THEN MAYBFl ELSE 0) [ 30 » 42 « 6]# ; 
DEFINE UNlTNUM * C 1 * 5 3 * J %\H8> 

SWITCH TYpESW*CP. ROUND. MT.SU.ROUND.SU. ROUND. PP. PP. MT; *P 

REAL SUBROUTINE PRINTER;! 
BFGIN IF LABFLTABLEt20] s THEN BEGIN U*20J P(l) END ELSE* 

IF LABELTABLEt2UxiO THEN BEGIN U«-2i; P(l> END ELSE P(0);S 

PRlNTER*GOTL*P;X 

END PRINTfRI* 

RFAL SUBROUTlNF PTPUNCHI* 

BFGIN IF LA8ELTABLE[26] a THEN BEGIN U*26; P(l) END ELSE* 

IF LABELTABLE[?V]aO THEN BEGIN U*29; P(l) END ELSE P(0);X 

ptpunch*gotp«-p;* 
fno ptpunch;* 

RfAL Tt,T2,T3;J! 



STACK(F+li) * Tl 
STACKfF+12) * T2 
STACKfF+13) * T3 



RpAL SUBROUTINE PUNCH?* 

BFGIN IF LABELTABLEt22]*0 THEN BEGIN U*2?;P(D END ELSE PfO)l 

punch*gotc*p; 
end punch; 



RFAL SUBROUTINE MAGTaPE;* 

BFGIN IF NOT(GOTL OR GOTB or goto thfni 

BFGIN IF (UI.T1, UNlTNUM) # THEN 

BEGIN U««U^i; PfLABELTABLE[U]«0); GO 0WT; END; 



S148- 



T 0000:0 
ADDRESS « 
T 0000:0 
T 0000:0 
T 0000*0 



00846 



37003100 T OOOOSO 



37004000 T 

37004100 T 

37004199 T 

37004200 T 



37004201 
37005000 
37006000 
37007000 
37007100 
37007200 
37007300 
37008000 
37009000 
37010000 



37019100 
37019200 



37011000 T 

37012000 T 

37013000 T 

370J4000 T 

37015000 T 

37016000 T 

37017000 T 

37018000 T 

37019000 T 



37019300 T 
37019400 T 

37020000 T 
37021000 T 
37022000 P 
37022100 C 



0000»0 
000010 

0000:0 
0000»0 



OOOOS 
OOOOi 
0000: 

oooo: 
0000: 

oooo; 
oooo; 

0000: 
OOOO: 
OOOJI 

3 
0003» 

3 
0007: 
0006: 

3 
0008: 
0009! 

3 
OOilt 

3 

oois; 

0016: 

3 

0016: 























7010000 

2 

7011000 

1 



7010000 

1 



7015000 

2 

7016000 

1 



7015000 

1 



0016U 
001710 

37019200 
0020*1 
0021 ;o 

37019200 
0021*1 
0022:0 
0023:2 
0025*3 

37022100 



tf ti f o then 

BEGIN FOR U*0 STEP \ UNTIL 15 DO* 

IF (MULTlTABLFTU] EQV Tl)»NOT THENX 

IF LABELTABlErUJ<0 THENX 

IF ROCTABLEFU], tfll6]«PlMIX THENX 

IF (T3*PRNTABLE[U3)<0 THENX 

IF T3.tl5U5J#0 THEN * DOM USE NONEXISTENT 

IF M[MtT3.ri5»l5j-3] INX 5 3 . r * 1 « 1 1 THENX 

BEGIN P(l)> GO OWT END*X 



ENDJX 

FOR U*0 STEP 1 UNTIL 15 DOX 
IF LABELTABLECU3*0 THEN BEGIN 



%\ 4 8- 



FIB X548- 



P(l)> GO OWT ENDU 



fnd;* 

P(O) ;x 
owtj magtapf' 
end magtapfjx 



T,OTT*P|« 



XRUtLD and SPOUT bad fm message X 



subroutine badfm; 
Bfgin 

Tl*SpACEf 10); 

STREAM(A«.TlNUrU)»MX*PlMIX#Tl ); 

BEGIN DS*l9 LIT "INVALID INPUT UNIT "» 
Sl*LOC MX; 0S*2 DEC; DS»2 LlT"FM"; 
Sl*LOC A* sj«-si + 5; nS«-3 CHRJ 
DS«-LIT »* M ; DI*DI-8J DS*FILL; 

FND* SPOUT(Tl)J 



XRhR 

XRhR 

irhR 
irhr 
xrhR 
xrhR 

XRhR 



END 



LARFLTABLF[U]*Pl H; READY*READY AND fU*NOT TWO(U)); 
RRRMF.CH*RRRMECH AND U* SA VF WORD*SA VEWORD AND U* XR«R 
BADFM SUBROUTlN! *RhR 



RFAL SUBROUTINE BKUPTAPeJ* 

bfgin if not^gotl or goto then 
for u*0 step 1 until 15 dox 

IF (LABELTABLErUl EQV T3>»nOT THFNX 
IF fMUl.TlTABL.ErU] EQV T?)*NOT THENX 
BEGIN prl)l GO AROUND END*X 

P(0)U 

AROUND' bkuptapf>gotb*p;x 

END RKUPTaPE)* 
S SET OMiT w NOTCPACKETS) 

freefjbType.iimh type *=abSc type); 

£ POP OMJT 

IF TYPE>1 AND TYPE*4 AND TYPE#6 AND TYPF<15 THEN GO SOMEWHERE? 
ROUND* IF TYPe=1 OR TyPe«4 OR (TYPE>16 AND TYPE<l9) THEN 

TF PRINTER THEN BEGIN KlND*i; GO CKFM END; XP 

IF TYPE»sO OR CTYPe>?0 AND TYPE) THEN 

IF PUNCH THEN BEGIN KlND*6; GO CKFM END* 

IF TYPf«4 OR TYPE*6 OR TYPe«16 OR TYPF»l8 OR 



37022200 
37023000 
37024000 
37025000 
37026000 
37027000 
37027500 
37028000 
37029000 



37031000 
37032000 



37034000 
37035000 
37036000 

37036100 
37036200 
37036300 
37036400 
37036500 
37036600 
37036800 
37036900 
37037000 

37037100 
37037200 
37037300 

37038000 
37039000 
37040000 
37041000 
37042000 
37043000 

37044000 
37045000 
37046000 

37046004 
37046005 
37046006 
37046020 
37046040 
37046060 

37046070 
37046075 



37030000 T 



37033000 T 



T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 
T 
T 
T 
T 

T 

T 



37046080 T 



0029»0 
0029:3 
0031 tO 
003213 
0034*1 
0036»1 
003BU 
0040*0 
0044* 1 

37029000 
0047*3 

37023000 
004713 
0049*0 

37032000 
0053*2 

37022000 
0053*2 
0053*3 
0054*2 

37021000 
005413 
0055*0 
0055*0 
0057*1 
0058*3 
0061*2 
0062*2 
0063*1 
0064*1 

37036500 
0065*3 
0069*2 
0072*0 

37036200 
0072*1 
0073*0 
0074*0 
0076*0 

0077*3 
0080*0 

37043000 
0083*2 
0083*3 
0084*2 

37039000 
0084*3 
0084*3 
0090*0 
0090*0 
0094*2 
0098*1 

37046060 
0102*0 
0104*1 

37046075 
0108*0 



CL A I MT : 



fTYPK GFQ ?0 AND NOT TYPE, f 461 1 3 ) 
BFGIN T 1 - ; T?*IF TYPE GEO 20 THE 

IF RKUPTAPE THEN GO THEREJ 
IF MAGTAPE THEN 
BEGIN MULTITABLE[U]*T?J LABE 
RRRMECH*TWO(U) OR RRRME 
IF REEL-0 THEN REEL*U 
RDCT ABLE tU]*P(DUP» LOO )& 
*CDATE[2 
Tl*GETSPACE(lO'0»03+^i 
STREAM(U»«TiNU[U], 
A*REEL.B*OATE 
T*T1-ZJI 
BFGIN DS*l?LlT w NEW PBT 
PN(D*DH OI*D 
DS*3 CHRJ0S«.25LIT» 

PN(0*0?l D 1*0 
SI »* LOC Al 

sj ».si + 3;ds««5 

lScDSl»2 LIT" 

dSis5 oec; 
end; 



THEN 
N "PUTMCP " ELSE "PBTMCP "I 



LTABLEtU)»-T3; 

CH* 



REELrH 

4 t 31 1 1 7 

N»«PRNT 
.OCYCL 

ON"! S 
1*6; DS 

♦ label 

1*14! 

05 l« 3 

CHRISM 

0");oi i 



138110] 
HCYCLEt41l41l7JJ 

ABLECU], [30118], 
E»D*O.PN*TYPE GEQ 



%P 
IP 
%P 
%P 

*745- 
X745- 
*P 



?0i 



IP 



I*L0C U; Sf+Sl+5! 
*2LIT"UT"; DI»D)I 

OPBTMCP OBACK»UP"l*P 

s*2lit"ut m ; d!»d)i 
dec; 

«Sl+7lD!««DI+llOSlsCHR; 

*Di-it;si uloc nj 



THERF' 



end; end; 



PCWAlTi0CTi&8[8l38ii0j&5[21*45!3J.0,U)#DEL>; 

SPOUTCTl-2)! 

Tl.tt Un«aPl737j 

P(WAlTlO(tTi]»OtU)»DEL)l 

LABELTABLErU].Cl»5]*P20l KIND»7; GO EXIT 



%P 



%P 



%P 
%P 
%P 



IF fTYPF GEO 15 AND TYPF LEO l8> OR TYPE GEO 22 THEN 
BFGIN 
S SET OMfT * NOT(PACKETS) 

IF (T1 J»PSE^DOMlXrPiMIX])#0 AND TYPE<?2 AND NOT FREEF THEN 
BFGIN 

Ti :»ti»32; 

T2:«PACKETPB0rTl J J 

T3l«C!0TABLErTl,6],[6i2«] J 

IF T2»0 OR T3*0 OR (T2+l0)>l00O THEN GO FREEL; 

PacKfTPBD[T1] JaT2+l0; 

END ELSE 



$ POP 

$ SET 

FREEL* 
$ POP 



OMIT 

BEGIN 
OMjT b NOT(PACKETS) 



OMIT 



T3«»NfXTCDNUM(l); 
T2»=00i; 



end; 



KJND5812; 

STREAM(T3,T2»D**Th»U»*SPACEC30))| 
BFGIN 

DS*8 LIT"09+] .013 m !DS*24 LIT W 0"J 



37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 
37046 



090 
100 
110 
120 
140 
160 
170 
175 
177 
178 
180 
190 
192 
194 
200 
205 
210 
212 
215 
217 
220 
221 
240 



37046260 
37046270 
37046280 
37046300 
37046320 
37046340 



37046350 
37046360 
37046369 
37046370 
37046380 
37046390 
37046400 
37046410 
37046420 
37046430 
37046440 

37046441 
37046450 
37046459 
37046460 
37046461 
37046470 

37046480 
37046490 



T 
T 
T 
T 
T 
T 
T 
T 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 



37046500 T 

37046520 T 

37046530 T 

37046540 T 



0111 
0114 

0118 
0118 
0120 
0122 
0125 
0127 
0129 
0130 
0133 
0135 
0137 
0139 

0140 
0142 
0144 
0148 
0150 
0150 
0152 
0153 
0153 

0154 
0157 
0159 
0161 
0162 
0166 



0170 
0172 
0173 
0173 
0176 
0177 
0178 
0179 
0181 
0185 
0168 

0188 
0188 
0189 
0189 
0189 
0189 
0190 
0191 

0191 
0192 
0196 
0196 



»3 

10 

10 
13 
«3 

10 
»1 

»0 
• 

II 

»2 
»3 
»2 

»1 

»1 

«2 

12 

»1 

»1 

13 

10 

12 

13 

37046200 

10 

«2 

II 

10 

12 

n 

37046160 

37046100 

10 

13 

II 

»1 

«2 

10 

U 

53 

13 

13 

»3 

37046380 

13 

13 

«1 

II 

H 

U 

12 

II 

37046450 

II 

H 

10 

10 



end; 



DS>*7 LlT"8400000";DS««10 LlT"0"; 
SIIbLOc T3jSfl*Si+4! DS**4 CHR* 
SpeLOC T2; 0S««3 DEC; 
46(DS«-4 LIT"0"); 
MtTUU*MtTl+8J* PBOROWSZ + U 



S SET CMjT * NOT(SHARFDISK) 

MrTU5]*M!0&(TYPF 
GO EXIT 

end; 



GEO 22H3S47I13I X CP BK UP TOG 



IP 
IP 



W3J 



» 20 
»CP" 



then 
else 



"UP") U 12» 361 123 



ELSE 
' ELSE 

ELSE 



"PBT"H30*30il8J, 
" "H12*36»123» 

1747- 
1747- 



36007000 



ACCIDENTAL 



FILEMESS£"# " 

&(IF TYPf * 6 OR TYPE 
FLSF (IF PNTOG THEN 
i (IF TYPE < 2 THFN " 
ELSE IF TYPE GEO 20 THEN "PUT" 

" .. ROD" & (if forms then "fm" 

M|0» FID, RFEL# CDATE' CYCLE); 
IF AUTODS THEN TERMJ NATEC Pi M I X&61 [ cTF ] ) 
BFGIN 

RFPLYCPlMiX] * = -VWY X V0Ur36542l6] & MAYBE(VFM); 
COMPLFXSLFEP((( IF (TYPE/6 aND TYPE#20) THEN IF PNTOG ThEN 

PUNCH ELSE PRjNTFR ELSE 0) OR REPLYtPlMlXj 

>0 ORflF TYPE>1 Then bkuptape or magtape ELSE 0) 

DSED))> 

fntpy at 1 

END J 

IF DSED then go to X; 

IF NOT(GOTB OR GOTT OR GOTl OR GOTc) THEN 

BEGIN TF NOT WHYSLEEP( VWY8v0Ut 36 J 42 *6 ]8MAYBE( VFM) ) 

then go to w3i 

IF RFPLYtPlMiX] ■ VOK ThEN GO TO W3; 
IF REPLY[PlMjXi;rcF3 * VFM THEN BEGIN 

LABELTA8LEtU|BPEPLY[PlMIX],[FF]] *• -FID; 

MUlJlTABLEtU] »* MJDJ KIND *■ UNI T [U ] , [ 1 * 4 ] ; 

Go exit; 
end; 

if pntog then bpgjn u l «reply [ p 1mi x ] , [ff ] ; go cp end; 

OUKIDJ TYPE*IF (U*REPLYtPlMlX].tFFJ)«l THEN 4 ELSE 

if u*2 then 1 else if u«3 then 6 else 15; 
Reply[PimiX]*o; go round; 
fnd; Rfplytpimixho; 

if gotb Then go theRf elSf if gott then go claimt else 
if gotc then kjnd+6 else kind*i; 
ckfmj if forms then 

bfgin labfltable[U)*«fid; multitable[U]*mid; 
d0little(fause# 

VWY4V0Kr36«42»6]&V0Ur30l42l6]&VFMt24J42l63» 
"*,.. FM"&TlNU[U]rl2»30:i8] f "RQ0 "»MlD); 

if nt6»vok then go exit; 
if dsed then go to initiate; 

KiNDJsLABELTABLFtU] UMULTlTABLEtU) »*GOTL **GOTP l*U l »0; 
IF NT6,rCF3*VFM T H EN 



OR 
X747- 

X747- 

1747- 



SP 

IP 
IP 



IP 
IP 



37046560 
37046580 
37046590 
37046600 
37046620 



37046624 T 

37046630 T 

37046640 T 

37046660 T 



37046680 
37046685 
37046690 
37046700 
37046710 
37046720 
37046730 
37046735 
37046737 
37046740 
37046760 
37046770 
37046780 
37046800 



37046805 C 



37046810 
37046820 
37046825 
37046826 
37046829 
37046830 
37046835 
37046840 
37046845 
37046850 



37046855 T 



37046860 
37046880 
37046900 
37046920 

37046940 
37046950 
37046960 
37046980 
37047000 
37047010 
37047020 
37047100 
37047250 
37047500 
37047600 



T 020012 
T 0203*1 
T 0204»0 
T 0204»2 
T 020513 

37046530 

0210*1 

0210M 

021313 

021411 

37046360 
T 021411 
T 0214U 
T 0214*1 
T 0214»1 
T 0214*1 
T 021411 
T 021411 
C 0231 1 1 
C 023313 
T 024410 
T 024910 
T 024910 
T 0249J0 
P 024910 

0270<0 

37046737 
C 027010 
T 027210 
T 027410 
T 027713 
T 0279*1 
T 026013 
T 0282:3 
T 028582 
T 028812 
T 028910 

37046830 
028910 

3704685b 
T 029311 
T 0296*2 
T 030111 
T 0303*0 

37046825 
T 030411 
T 030512 
T 0309*2 
T 030913 
T 0313*0 
T 0313*2 
T 0316*3 
T 0319*0 
T 0320*1 
T 0322*3 
T 0327*1 



IF (UI*NT6.[FM) ¥ 20 AND U ^ 21 AND KIND * 1 

U * 22 AND KIND * 6 THEN 
BEGIN BADFMI GO ROUND END ELSE 



OR 



BEGIN l,abeltablf[u]*»fid; XRhR 

MUtTlTABLcCU3*MiOI K I ND + UN I T[U3 . C 1* 4 ) I *RhR 
GO exit; *RhR 

FND FLSE BEGIN RFPLYl PI M I X 3*NT6I GO OUKJD* ENDI *RHR 



END J GO X; 



IP 



somewhere) if not forms then fio sw; 

oolittlecfalse ,vwy8vfmr36{42»6]»»#fm rqd w # 0#ml d ) i u *«nt6, tff 3 * 
if not dsfd then 
if u l.ss 16 then 

IF PRNTABLECUl.IHl] THEN ELSE JJ764- 

RE6IN LABEUTABLFtU]««-(*P(DUP));GO TO SOMEWHERE I ENDI *764« 

r,o to x; 

SW: GO TO TYPFSWrTYPEJU 

CP« TYPE-IF U.i THEN 21 ELSE IF U«3 THEN ?0 FLSE 

tf Us5 then o else 2?j Reply[PimiX]*o; go round* 

PPJ DcLlTTLEf PTPUNCH>VWY,»#PP RQD">0 .MI D ) I GO XJ 
37046800 ACCIDENTAL F'NTRY AT PTpiJNCH 

SU« Ti «-FTO. C A* 183 I* 

FOR U*0 STEP 1 UNTIL 31 DO* 
IF TTNU[UJ.[30MBJ»Ti ThFN GO ONJX 
GO TO MT»X 
ON: DOLlTTLEf LABFLTABLE t U3=0» VWY» w #. . . "STll 12 I 30* 1 8 ) , 
37085000 ACCIDENTAL fNTRY AT 

"ROD "#Mio)» GO XI 
M T I T 1 * M I D '> % 

DOLlTTLEfMAGTAPE»VWY."#MT ROD". IF M i D , UN I TNUM/O THEN 
37100000 ACCIDENTAL FNTRY AT MAGTAPE 

M 0N ... M &TlNUtMlD,UNlTNUM-l][30l30»l8] 
ELSF O.MID); 

if nseo Thf:n go to x; 

IF fTj«-PRNTA8LEtU],[i5«l5])#0 THEN* 
HFGIN FlLECLOSFCTl»3rl8l33«15])|* 
M[MfTl*33 INX 53.f39U3*l»X 

END** 

x* if dsed Then u*-i else 

BfGIN KlND*UNlTtU] i tlUil 
LaBELTABLF[Ui*-FIDI MULT I TABLET U]«-MID;X 
RnCTA8I..EtU]»PCDUP»U0l>)4RFELtHI38»103iCDATEt24l3i »17] 

*CYCLEt4l»4H73l 
END» EXlT» FlNDOUTPUT«-U 



*146' 



END FlNnOUTPUT;?! 



37047605 T 

37047610 T 

37047615 T 

37047625 T 

37047650 T 

37047660 T 

37047670 T 



37047700 T 



37047800 
37048000 
37048100 
37048200 
37048300 
37048310 



37048400 T 
37056000 T 
37058000 T 
37059000 T 
37085000 T 

37096000 T 
37097000 T 
37098000 T 
37099000 T 
371 00000 T 



0328*2 
033213 

0334*3 

37047615 
033910 
034110 
0344(0 
034412 

37047625 

37047670 
0346»3 

37046980 
0347» 1 
0348*0 
0352*0 
035312 
0354*3 
035613 

37048310 
0361*1 
0361*3 
0367*3 
0371*3 
0381*0 

0389*0 
0390*1 
0391 :0 
0395*1 
039513 



37100010 T 0402*1 
37H2000 T 0406*0 
37i 13000 P 0406*3 



X148- 


37H3100 


C 


0413*2 


X148» 


37H3200 


C 


0415*3 




37121000 


T 


0417*3 




37122000 


T 


0419*3 




37123000 


T 


0421*3 




37124000 


T 


0423*2 




37125000 


T 


0428*0 

37123000 




37172000 


T 


042810 




37173000 


T 


0431*0 




37174000 


T 


0435*3 




37174100 


T 


0438*2 




37J74200 


T 


0440*3 




37175000 


T 


0443*0 

37173000 




37176000 


T 


0443*0 

37003000 



SIZE* 0445 WORDS 



STACKfF+2) 3 Ti 

STACKfF+3) * T2 

STACK(F+4) a U 

STACKfF+5) » LO 

STACKfF+6) s HI 

STACKfF*7) , FIRST 
STACKfF+lO) . IL 

STACKfF-5) a A 

STACKfF+11) * S 
STACKfF+12) ■ COUNT 

STACKfF4lO) « USASi 

STACKfF*5) * FPB 



REAL PROCFOURE F INo T NPUT ( M f p. r I D» «FrL » CDATE, CYCUE * COBOL. UL» OF#MODE» FN ) I 37177000 T OOOOlO 

START OF REL SEGMFNTl DISK ADDRESS ■ 00861 
VALUE MID#FID#REFL»CDATE, CYCLE. COBOL' OF,M0DE,FN»* 37178000 T OOOOJO 

REAL MID#FID»REFL»CDATE#CYCLE.C0B0L»UL»0F»M0DE.FN1X 37179000 T OOOOlO 

BEGIN RFAL Ti,Tp»U,LO.H|»F|RSTML» 37180000 T OOOOlO 



RFAL AsCOBOLI 37180100 T OOOOlO 

INTEGER S. COUNT; 37180200 T OOOOlO 

INTEGER USASjsILI 37180300 T OOOOlO 

ARRAY FP8«L0r*l» 37180400 T OOOOlO 

Label look,sfe»srchout> 37180500 t 000010 

labfl start, why»sxlt,x.y»readalabel»rew»exltj 37180600 t oooolo 

label 0nn,dun#fail* 37180650 t oooolo 

DEFINE UNLABELED * Ul*J 37180700 T OOOOlO 

DEFINE UNiTNUM = C 1 « 5 3 # J *148- 37180800 C OOOOlO 

37180990 T OOOOlO 

rfal subroutinf dsed; dsed« s Tfrmset(P|mix); 37iaiooo t 000010 

37185300 T 000310 

SUBROUTINE CHECKTERMiXJ % LET CALLER ATTEND HIS RESPONSIBILITIES. 37185310 T 000310 

BFGTN 37185320 T 000310 

IF DSED THEN 37185330 T 000310 

RFGTN 37185340 T 000410 

IF JARrPtMIX,9);SYSJ0BF THEN ?! MCP JOB 37185350 T 000412 

*EGIN 37185370 T 000610 

U»=-1 « 37185380 T 000612 

GO TO EXIT; 37185390 T 0007»2 

END FLSe GO TO t N? T I ATE* 37185400 T 000810 

37185370 

FND» 37185410 T 000910 

37185340 

ENDI X CHECKTERMIX 37185420 T 000910 

37185320 

37185990 T 000911 

RrAL SUBROUTINE SEARCHl* 37186000 T 000911 

BFGIN COUNTlsO; 37l86500 T OOlOlO 

IF NOT DSED THEN 37186750 T 001013 

BEGIN 37187000 T 0012U 

IF CL0J«(HH»MID.UNITnUM-1)) GEO THEN X148* 37i87l00 C 001213 

IF LABELTABLEIL03 GTR *3l4 THEN X148- 37187H0 C 001512 

BEGIN COUnT*COUnT+i; P(LOfXCH)» *148- 37l87l?0 C 001710 

MID«-MUlTJTARLE[LO]; GO SEEI J5148- 37187130 C 001911 

FNDJ X148- 37187140 C 002013 

37187120 

$ SET OMIT * NOT PACKETS 37187200 T 0020»3 

IF £L0l«(Hll»PSFUD0MlXtPlMlX]))#0 THEN 37187250 T 002013 

s set omit a packets 37187375 t 002213 



37113000 



LOOK* FOR Uist.O STEP 1 UNTIL HI DO 
HrGIN IF S GEQ THEN 

IF CLABfLTaBLE[U] EQV (-P14))=N0T THEN 
COMPLEXSLEFP((LARELTABLEtUJ EQV («-Pj4))#N0T OR 
CIF U<3? THEN UN1TCU3.C13*53*16 ELSF 0))} 



ACCIDENTAL FNTRY AT 



IF CLABELTABLFtU] EQV FI0)*N0T THEN* 

IF CMULTlTABLFClH EQV MlD)*NOT THEN* 

IF C(TURDCTABUE[U]).tUilO]*REEL) OR CREEL*0) 

IF (Ti,C2««l/3»CDATE) OR CCDATE«0) THEN* 

IF (Tl,t4H7)«CYCLE) OR (CYCLE-O) THEN* 

BEGIN 

end; 



thfnx 



C0UNT» 3 COUNT+i; P(U.XCH)> 



END> 



FAIL* 



ONNJ 



dun: 



IF LO ■ HI THEN IF COUNT = 1 THEN GO SEE ELSE 

IF L0»0 THEN IF (L0I«JaR[PiMiX>6) # [2I6])«23 OR LO-24 

THEN HllsLO ELSE GO TO ONN ELSE 

BEGIN L0:«?3; HMs?4l F^D ELSE 

IF L0s?3 THEN BEGIN lO|s 0; HI»*l5J END ELSE GO TO DUN} 

GO TO LOOK* 

IF CYCLE. Clin THFN % PBT 
BEGIN 

if coun-t.q then if fid.iiisio then 

BEGIN r ID. C 1 «5]*FID.ril53 + ll 

LO»OI hI*15» GO LOOK* 
END ELSE FID.tH53*l| 



*754- 



go srchout; 



fndj 



o then* 

or ccdate»0) then 



IF COUNTsO THEN 

IF MID*0 THFNS! 

IF NOT C0ATE.rl*13 THEN X NOT LlBMAIN/DlSK 

FOR 11* STEP 1 UNTIL IS DO* 

IF (MULTlTABLFfU] EQV MlD)«NOT 

IF (RDCTABLFCU3.t?4»l73irCDATF) 

IF LABELTABLEtU3>0 THEN* 

BEGIN COUNT*CeUNT+l> 

P(U»XCH)» 

END ELSE* 

IF RDCTABLErU3,[8l63»PlMIX THEN* 

IF (Tl«-MfM[PRNTABLEtU],tl5M53-33 INX 5}), [41111 

IF Ti,[A3»l3 OR Ti # t 401 1 3»0 THEN* 
BEGIN COUNUCOUNUU P(U»XCH) END* 



THEN 



SEE: 



END? 



SRCHOUT! 

SEARCH* 



37188500 T 

37188750 T 

37189000 T 

37189250 T 

37189500 T 



37190000 
37191000 
37192000 
37J93000 
37194000 
37195000 
37195030 
37J95040 



37195100 
37195200 
37195250 
37195280 
37195300 



37195450 
37195500 
37195550 
37195600 
37J95650 
37J95700 
37195750 



37195800 T 
37195850 T 



37196200 
37197000 
37197500 
37198000 
37199000 
37199100 
37200000 
37201000 
37202000 
37203000 



S«-COUNT>0» 



37204000 T 

37205000 T 

37206000 T 

37207000 T 

37207500 T 

37208000 T 

37208500 T 

37209000 T 



0022 
0024 
0024 
0027 
0027 

0037 
0039 
0041 
0045 
0048 
0050 
0051 
0053 



37195050 T 0053 



195000 
188750 



0055 
0055 
0057 
0061 
0063 



37195400 T 0065 



195300 
195400 



0069 
0069 
0070 
0070 
0073 
0076 
0076 

0080 
0081 

0081 
0082 
0083 
0084 
0066 
0087 
0090 
0092 
0094 
0094 

0094 
0096 
OlOt 
0104 

0108 
0108 

0108 
0108 



3 



3 
1 
1 

3 
2 
3 

1 


3 

1 



37 



37 

i 

1 

1 

3 

3 
37 

3 
37 



2 

1 

3 

1 

2 

2 
37 

3 

1 
37 

1 


1 

3 



3 

3 

I 



2 
37201000 

2 

2 

2 

1 

7 

3 

3 
37 



195650 
195550 



207000 
187000 



END SFARCH** 



Rfal subroutine Research* 
bfgin 

S»»-2J 

P(5FARCH)> 

DO PCDFL) UNTIL ( fOUNT « aCOUNT'l ) L5S 0{ 

Resfarch+s; 

end resfarchj 



Rfal subroutine Reed?* 

BfGTN IF (H!»WAIT!0(T1#U0»»377C1BI33II51.U) AND P367)#0 THEN 

IF (HI ANO NOT LO)#0 THEN 
BfGIN' BLASTQ(U); SETNOTfNUSECU.O)! STOPTIMINGCFN, 1023)J 

FIIEMESS(-"PARITY "»"0N ... "8,TlNU[U][24l30ll83iX 

m i n> f i d. reel # cd ate. cycle) ix 
endix 

if dsed then 

REG IN 

setnotinusecu»0); 
stoptimingcfn* 1023)1 
checktfrmjx; 
end; 

REED*Hi;X 

fnd reedu 



subroutine sfaRchcomj % file search for com 30 

BFGTN P(OfL)I 

if not search then ui«-1 else 
if count*i then ui»p elsf 

BEGIN 

sj.count; ti«s0; 

COUNTJslF C0UnT>8 ThEN 8 ELSE COUNT? 
WHILE (C0UNTI=C0UNT-1) GEQ DO 
BEGIN U«»P! 

IF Tl THFN 
BEGIN 

TlisOj MtA] t [30ll6]l*TlNUCU].[30li8] J 
A»«A+1» 
END ELSE 



37210000 T 



BEGIN 
END» 

end; 
uj»-si 



Tils II MCA] .[121181 t»TlNUtU3 .C30M83I 



3721 
3721 
3721 
3721 
3721 
3721 
37?i 
37?i 



0090 
0100 
0150 
0175 
0200 
0250 
0300 
0400 



37210990 
37211000 
37212000 
37213000 
37214000 
37215000 
37216000 
37217000 

37218000 
37218100 
37218200 
37218300 
372t8400 
37?i9000 



3722 
37?2 
3722 
3722 

3722 
3722 
3722 
3722 
3722 
3722 
3722 
3722 
3722 
3722 
3722 



1090 
1100 
1120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
1360 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 



37220000 T 
37221000 T 



FNQI 
GO EXITI 



ENnl 



37221380 T 

37221400 T 

37221420 T 

37221440 T 

37221460 T 

37221480 T 

37221500 T 

37221520 T 



01 10 » 1 

37186500 
0H0I2 
011012 
011110 
0111*0 
011210 
0113»0 
011512 
011610 

37210150 

o 1 1 6 ; t 

0116U 
011710 
012011 
0122U 
012512 
0125*2 
012912 

37214000 
012912 
013110 
013112 
013212 
013312 
0135«0 

37218100 
0135>0 
013512 

37212000 
013810 
013810 
0138:0 
013811 
014013 
014310 
014312 
0l45«0 
0147 t 3 
015050 
015012 
0150«3 
015151 
015512 
015653 

37221300 
015653 
015751 
016152 

37221380 
016152 

37221260 
016250 
016350 

37221180 
016350 
016352 



ST ART l X 

IF UL<0 THEN SEARCHCOM ELSE 
IF UL THEN GO TO WHY ELSE * 
IF NOT SEARCH THEN! 
WHY* RFG!N FTLEMESSC n #NO F I L"» I F M I D. UN I TNuM#0 THEN X148- 

"ON ,,."8TlNUrMlD.UNITNUM-t H30I30I18J X148- 
ELSE 0»Mio#FIO»REEL.CDATE»CYCLE)> X148- 

riRSTl«V0K&VMYr36|4?|6]&VUL[30t42l6]ftVlL[24l42l6]l 
IF COBOL THEN 

FlRST«*FlRSU(V0Fx0FHl8«4216H{VFRxUL)rl2«42l6]> 
IF AUTODS THEN T ERM j NATf C P1M IX&61 CCTF ] > ELSE *747- 

BEGIN *747- 

REPLYtPlMlX]«--FlRSTsi[?t47JlJ; 

COMPLEXSLEEPCRESEARCH OR (REPLY[P1MIX]>0) OR DSEO)J 
37189500 ACCIDENTAL fNTRY AT OSED 

ENOJ X747- 

CHFCKTERMiX} 

IF S THEN S*SEArtCH flsf 

BEGIN if NOT WhYSLEEPCF tRST ) THEN GO TO WHYI 

IF (T2l«{Tll»REPLYtPlMlX]),tFFI). 6TR 64 THEN J! JL 
BEGIN STREAM(T2D; % MfD/FID 

BEGIN Sil»T?; 
LL: S i I «5] ♦! f IF SC#»L" THEN GO TO LL» 

Sji«St + 1J T2>«bSu 
ENOJ 

T2i«Pj 

NAMEI0(HI»T2)I MID»*HU NAME I Of H I » T2 ) I 

NAMEI0(HI»T2)J FID««HH 

FORGETSPACEfTl.[FF]-l)> 

GO TO Yj 



F^DJ 

if tisVok t h en go to y; 

IF NOT (lLl«Tl.[CF]«VIL) THEN 
BF. GiN Uls*n 

REPLYrPtMiX] laOJ 

go to exit? 

eno; 

UNLABELE[)*-LARELTABLECU*Tl,tl8ll5]]«?314IX 

PC ID J 

COUNTlslJ 

IF LABELTABLE[U]aO THEN 

BEGIN MULTlTABLE£[j]l»MlD) 

LABeLTaBLECU]»*FID> 
ENO ELSE 

BEGIN MlDJaMULTITABLEtU], [6l42]» 

FI0*sLaBfLTABLE[U],[6«42]I 
END? 



% OK 
X OF, 



FR 



37221990 
37222000 
37222100 
37222500 
37223000 
37224000 
37224100 
37224200 
37225000 
37?25050 
37225100 
37225800 
37225900 
37226000 
37227000 



37228 
37229 
37229 
37230 
37230 
37230 
37230 
37231 
37231 



000 
000 
500 
000 
250 
500 
750 
000 
250 



37231500 
37232000 
37232250 
37232500 
37232750 
37233000 

37233250 
37233500 
37233750 
37234000 
37234250 
37234500 

37235000 
37235100 
37235250 
37235500 
37235750 
37236000 
37236250 



FNDI 



37236500 T 

37236750 T 

37237000 T 

37238000 T 



0163 
0163 
0166 
0169 
0169 
0172 
0172 

0172 
0180 

0183 
0184 
0188 
0190 
0194 
0196 



3722H20 
3 
3 
2 

3 
1 
3 
3 

3 

1 
3 

2 



37227100 C 0204 



0204 
0205 
0207 
0209 
0212 
0213 
0213 
0214 
0215 

0215 
0216 
0218 
0220 
0222 
0222 

0222 
0224 
0226 
0227 
0228 
0229 

0229 
0232 
0232 
0233 
0234 
0236 
0237 

0237 
0240 
0242 

3 
0242» 

3 



1 

7225900 

1 



2 

1 



2 

3 

3 

1 

7230500 

2 



3 

2 

1 

3 

7230250 

3 





2 

3 

1 

7233750 

1 

1 

2 

1 

1 



1 

7235750 

1 



1 
7236500 

1 

7229500 



REPLY CP1MIX3I»0| 

FNDJ* 

IF COUNT <0 THEN GO TO STaRTJ 

If count>i Then 

SXtT* BFGfN FILFMESS("#DUP »»"FIL 

WHILE (COUNT*COUNT"i)>0 DO 

BEGIN TF (U*P)<16 THEN tF MID*0 THEN 

IF (Tt*PRNTABLE[U],tl5ll5])#0 THEN 

FlLECL.0SF(Tl**l2ri8l33» 15])I 
STREAMCX*[T|NU[U]] *D*S*SPACEC 10)); 
BEGIN Sj*x; Si*Sl+5> DS*8 Li T " OUP 



37239000 T 
37240000 T 



U20- 



•MID»FID»REEL»CDATE.CYCLE)» 



ON "J 



DS*3 CHR> 
X»DH 



DS*LlT »♦•»! 



FNOJ 



T1*PJ 

IF U>32 THEN IF CTDROWCU -323*0 THEN 

STREAM(DK*ClOTABLEtU -32»2]»T1)I 

rf6in di-d i -1 1 ds*6 lit ",deck 
si+loc dki si*si + 11 ds*7 chrj 
fNd? 

SPOUT(S); 



END; 



37227000 



ACCIDENTAL 



RfPLY[PlMiXJ != -VwYsY0Kf36l42i6]&V!Lt30U2l6] J 
COMPLEXSLEFPCDSEO OR ( RfPLYC Pi H I X ]>0 ) ) ; 

pNTPY AT 

chfcktfRMixj 

IF rTl»«REPLY[PlMiX])»t33M5]«VlL THEN 
BEGIN RePLY[P1M T X]*0J 

IF Tl.TFF] > 64 THEN GO SXfTl 

P(Tl,tlBH5])l 

GO TO XJ 
END) 

IF NOT WHYSLEEP(VWY*V0K[36I42I6]»V|L[30U2I6]) THEN 
BEGIN S:=SEARCH>G0 SX IT ENDJ 



Y» 



X* 



RePly[PimiX]«sos r,o to start; 



END* 



LABELTABLE[U*Pl,tl'5]*P20j 
IF NOT UNLABFLED THEN 
BFGIN FPB«sPRT[PlMIX,3] j 

fpbcfnu.mid; 

FPBTFN+l JI*FI0; 

end; 

IF U l.SS 16 THFN 
IF MJD*0 THEN 

RFGIN IF (Tl*PRNTABLrtUj.[l5ll5])#0 THENX 
BEGIN fiLeCL0Sf(Ti&3[18j33I15])|X 
MtMtH-3] INX 5 3 . r 39143*1 J X 

eno;x 



37?40 
37240 
37240 
37240 
37240 
37?40 
37240 
37240 
37240 
37240 
37240 
37241 



050 
100 
200 
300 
400 
500 
600 
700 
800 
900 
910 
000 



37241010 
37241020 
37241030 
37241040 
37241050 
37241060 

37241100 
37241200 



37241500 
37241510 
37241520 
37241525 
37241530 
37241540 
37241550 

37241600 
37241610 

37241700 
37241800 

37241810 
37241900 
37242000 
37242100 
37242200 
37242300 
37242400 

37242600 
37242800 
37243000 
37244000 
37245000 
37246000 



C 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 
T 

T 
T 



37241300 T 
37241400 T 



T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 



0242*1 
0243*2 

37224000 
024312 
024413 
0245*2 
024812 
025013 
025310 
025512 
025711 
026013 
026212 
0263M 
026312 

37240800 
026313 
026411 
026710 
026913 
027110 
0271*3 

37241040 
0272*0 
0273*1 

37240400 
0276*0 
0279*2 



0286* 
0287* 
02891 
0290* 
0292* 
0293* 
0293* 

3 
0293* 
0296* 

3 
0299* 
0300* 

3 
03001 
0300* 
03031 
03041 
03061 
03071 
03091 

3 
03091 
03091 
0311* 
0313* 
03151 
03191 



1 





3 

2 

1 

3 

7241520 

3 

3 

7241610 



3 

7240200 

3 

3 

2 





1 


7242100 



3 



2 

1 

3 



READALArFI 
REW« 



RRRMECH*TWO(U) OR RRRMfCH; START I MI NG( FN,U > 5 

IF UNLABELED OR 1L OR CYCLE. [HI] THEN GO EXIT! 
Tl + SPACE(ll>&l0r8l38lj0HM0DEr2ll47«m 

*3£23546:2J;* 
L0*P40; FlRST*i;x 
IF REED * THFN TF FIRST THEN* 
BEGIN FlRST*WAI IIO(Pft200000000»0,U)> GO READALABEL 

BEGIN SFTNOTINUSF(U.I); FORGETSPACFCTl. [33H5]); 
STOP! IMING(FN,I0?3)» GO TO START END* 

STRfAMf Y:*0:X* s O,T1)J 

BEGIN DI»»LOc XJ DS5«8 LIT "VOLlHDRl"! 
SIIbTh DI «»oi-bi 
if 4 sc=Dc Then tallyoi else 

BEGIN SH = T1> IF 4 SC«DC THEN TALLYI»2J Ef 



FND FLSE 



Y»*TALLYI 



FNDJ 



IFCUSASI :=P)>0 ThEN USaSITAPE(T1.[CFJpUSASI »2,U,0) j 
STRfAM(M*0»F*0,R*0»D*0»C*0iS*T1 INX \)l% 
BEGIN Sl*SJ DULOC M* DS*2 WDSl DS + 3 OCT)* 

DSJS5 0CTJDS'«2 oct> 
fnd;* 

IF (P«CYCLE OR CYCLE = 0) AND C PC XCH )*CDATE OR CDATE«0) AND* 
(P(XCH)sREEL OR REELxO)AND ((P(XCH) EQV FID)*NOT 0) AND* 
((PfXCH) EQV MfD)*NOT 0) THEN* 

BEGIN F0RGETSPACEcTl.[33U5J>l T 1*0340000005 5 % 

lo«-o;twreed> go to exit;* 

end;* 

if first then go rew>* 

l„0:*P60> DO UNTIL ( F T RST 5 sREED > . t 42 5 1] 1 DO UNTIL REED. r42 11 3 1 
IF USASI>0 THEN DO UnT|L RFED.C42«l] FLSE FlRSTJ.REEDI 
L0*P40; GO READALABEL? 

FNDJ* 

FXfTI FTNr»TNPUT*U;? 
END FlNplNPUTJ* 



37248000 
37248500 
37249000 
37250000 
37251000 
37252000 
37253000 

37254000 
37255000 

37255100 
37?55200 
37255300 
37?55400 
37255500 

37255700 
37255800 

37255900 
37256000 
37257000 
37258000 
37259000 

37260000 
37261000 
37262000 
37263000 
37264000 
37265000 

37266000 
37267000 
37267050 
37267100 

37268000 

37269000 
37270000 



37244000 
T 031953 

T 032252 
T 0325»0 
T 032810 
T 03301 1 
T 033113 
T 0334J1 

37253000 
T 033810 
T 034013 

37254000 
T 0342U 
T 034313 
T 034551 
T 034553 
T 034613 

37255500 
T 034713 
T 034810 

37255200 
T 0348H 
T 0352J0 
T 035453 
T 0355»3 
T 0356J1 

37257000 
T 0356*2 
T 0360J0 
T 036353 
T 0365»2 
T 036850 
T 037250 

37263000 
T 037250 
T 037350 
T 037950 
T 038452 
T 038553 

37243000 
T 038553 
T 038613 

37180000 
SIZE" 0388 WORDS 



STACK(F+1) 3 FPB 
STACKfF*2) = I 
STACKfF+3) 3 J 



PROCFOUPF STARTjMINGtFN.U); VALUE FN»UJ REAL FN#UJI 37271000 T OOOOJO 

START OF REL SEGMENT; DISK ADDRESS * 00874 
BEGIN ARRAY FPBf*]} INTEGER 1 , J t % 37272000 T OOOOJO 

FPB*PRTtPlMlXf31>I 37273000 T OOOOJO 

IF U<32 ThEN 37273100 T 0002M 

BEGIN if FPB[FN+4]?0 THEN 37274000 T 0003»0 

BFGlN IF f !*FPBtFN+3],[36l6])#0 THENX 37275000 T 000510 

IF I NfQ U+1 OR FPB[FN*2],[8||0j NEQ RDCTABLEt U] , [ 1 4 > 10] 37276000 T 000810 

T HFN 37276010 T 001112 

IF (I*FPB,t8*10])<(i023-ETRL.NG) THEN 37276100 T 001213 

BEGIN J*GETSPACE(I+ETRLNGt 2»1)+2<X 37277000 T 001513 

$ SET OMIT = ShAREDISK 37277999 T 0019J0 

MOVE( I »FPB» J)U 37278000 T 001910 

S POP OMIT 37278001 T 002013 

* SET OMIT * NOT SHAREDISK 37278099 T 0020J3 

MOVE(ETRLNG,rFPBtFN]]»J+I)l* 37278200 T 002013 

F0RGETSPACEfFP8,[33»l5J)lli 37279000 T 002310 

NFO[(PlMiX-l)xNDX]«. 37279100 T 0024»2 

PRTtPlMiX#3]*FPB*rM[J]]»(i+ETRLN0)[8l38ll0]l» 37280000 T 0026«0 

FPB[FiM + 4]*0; FPB[FN + 3 ] , [ 24 I i 2 ]*0l X 37281000 T 0030»3 

END;* 37282000 T 0035»2 

37277000 

FPRrFN+4UFPBCFN+4]-CL0CK-P(RTR)JX 37283000 T 003512 

FPB[FN + 31,[36i6J*tl + tl» 37284000 T 0039:0 

IF U LSS 16 THEN* RDC & PRN LOG ENTRIES 37284100 T 0042«2 

BFGIN I 37284110 T 0043 ; 1 

STRFAM(R|sRDCTABl-ErU],[l4«lO]»D«»RDCTABUE[U],[24M7], 37284120 T 0043»3 

C»«RDCTABLErU].C«ll7]»Tl«tFP8tFN +2JJ)I 37284130 T 0046J0 

BEGIN SMaLOC R J DS { * 3DEC J DS I *5DEC J DS I »DEC END> 37284140 T 0048U 

372841 40 
FPBtFN ♦3].[6li7]»«PRNTABLEtU].t31M7]> 37284150 T 0049J2 

END; 37284310 T 0053*1 

37284110 
END END FL$E 37285000 T 0053 : 1 

37275000 

37274000 

BEGIN if (I :sfP«[FN+4]) LSS THEN 37285100 T 0053*1 

BFGIN FPBrFN + 41*l + CL0CK+PcRTR)J I*FPB[FN+.3] , [ 36I6]-H 37285200 T 005513 

FPB[FN*31,t2*ll2]*P(DUP) i t24ll2]*CJ*TlNUtI J,(t8il23)| 37285300 T 006H2 

IF I <1 6 THEN 37285305 T 006613 

IF J>0 ThfN FILeMeSS("# 10"&TINU[I] 37285310 T 006712 

ri2«30Ji8i,HRETRIES H ,FPB[FN]iFPBtFN+l].J.0,0)) |7l5- 37285320 P 0068«3 

T I NUE I 3 . E 1 8 t 12]«-0{ 37285400 T 0074»0 

EN[) END END TlMjNGJ 37?85500 T 0076»2 

37285200 

37285100 

37272000 

SIZE* 0079 WORDS 



REAL PROCFDURF DISKADDReSSC Min»FlD»FPB3»A,H»lO)l * (SHM) 37286000 T 0000:0 

START OF REL SEGMfNTI DISK ADDRESS ■ 00877 

VALUr MTD»FID»FPB3»AtH#lO; X (SHM) 37286100 T 0000*0 

F<EAL MTD»F1D»FPP3,A, !0; % (SHM) 37286200 T 0000:0 

ARRAY HT*]S 37?86300 T 0000*0 

BEGIN LABEL EOF, EOF?* 37287000 T OOOOlO 

INTEGER II 37287250 T 0000»0 

STACK(F+2) s I 

PFAL T, Vj 37?87500 T OOOOlO 
STACKfF+3) a T 
STACKfF+4) s V 

IF A>0 THEN* 37288000 T 0000:0 

BF6IN T*(A DTV H[0] , r 30 S 1 23 )x W [ 0) , £ 42 I 6] I * 37?89000 T OOOi J 3 

IF Hf9] LEO T*«(IF H(U«0 THEN ELSE T DIV H[l]) T H EN 37?90000 T 0005*2 

GO TO EOF; 37290100 T 00l0:0 

if Hrn«iMO]»o Then x new row needed. 37291000 t 0010:2 

IF 10 THEN GO T EOF ELSE X EOF ON A READ, 37291200 T 0012»2 

IF 1 0*2 THEN X CALLED FROM FILEOPEN SO 37291400 T 0013:1 

BEGIN X DONT EXPAND THE FILE YET, 37291600 T 001453 

T**l * 37291800 T 0015*1 

GO TO E0F2; 37292000 T 0016:0 

END 37292200 T 0016*2 

37291600 

ELSE 37292400 T 0016:2 

IF H[41 THEN X IN DIRECTORY. UPDATE HEADER. 37292600 T 0016*2 

P(DIRECT0RYSFARCH(-MID»FID.-H*ICCTFJ>,DEL) 37292800 T 00l7«2 

FLSE * NOT IN DIRECTORY, 37293000 T 00?0*3 

BFGIN X (SHM) 37293210 T 0020J3 

IF CV«=FPB3.rl8»5j) GTR THEN X EU SPECIFIED X (SHM) 37293220 T 0021*1 

v «*f if v gtr 20 then o else -v) else x (Shm) 37293230 t 0023*0 

IF (V**FPB3,rl6*23) GTR THEN X SPEED SPECIFIED X(SHM) 37293240 T 0026*2 

V t»C IF V GTR 2 THEN ELSE V) ELSE X (SHM) 37293250 T 0028*3 

VJaOj % NO SPEED OR EU SPECIFIED X (SHM) 37293260 T 0032*0 

HM1 «= PETUSERDISK(H[8]»V)I X (SHM) 37293270 T 0033*1 

END* X (SHM) 37293330 T 0035*2 

37293210 

T*Hri3 + I*T MOD HttJlX 37294000 T 0035*2 

STRFAM(D*tT])» BEr,IN SuDI DS*8 DEC ENDIX 37295000 T 0038*1 

37295000 

END FLSEX 37296000 T 0039*3 

37289000 

EOF* T*0|* 37297000 T 0039*3 

E0F2* 37297500 T 0041 *0 

DiSKADDRESS*T*X 37298000 T 0041*0 

END DISKADHRESS;J! 37299000 T 0041*3 

37287000 
SIZE* 0043 WORDS 



STACKfF+i) = I 
STACK<F+2) = J 



PROCEDURE SFTNOT!NLlSE(Uf RWL); VAUUF U»RWLJ REAL U»RWL* 37302000 T 0000*0 

START OF REL SEGMENT* DISK ADDRESS » 00879 

BEGIN RFAL l»J* 37303000 T OOOOJO 

IF U<16 THEN P(WAlTiO(e4200000000»P377»U)fDEL>> 37303200 T 0000*0 

StFFPCf T0GLE3»STATUSMASK)I 37304000 T 0003*1 

RRRMFCH*(( |*TInO(U)) AND SAVEWORD) OR ((I*NOT I) AND RRRMECHJJS 37305000 T 0004*3 

R F ADY*READY AND T * * 37306000 T 0008:3 

IF RWL, THEN 37312000 T 00l0:0 

BEGIN 37313000 T 0010*1 

STRF:AM(S*rTlNUrU]].M*MULTiTABLE[U)»F*UABFtTABl,ECU]# 37314000 T 0010:3 

NMF U<16 THEN PRNT ABLEfU] , [ 30 J 18] ELSE 0» 37314100 T 0012*2 

TtsMULTlTABLEtUJaO, TTj*U GEQ i6# Dl «JI *SpACE( 10 ) ) l 37314200 T 0015*2 

BEGIN SI*Si Sl»S!+5l DS*LIT "#♦•: DS*3 CHRIX 37315000 T 001913 

DS*6 LIT " RW/L "> Sl«-LOC HI S I *S I *1 > 37316000 T 002i:0 

DS*7 CHR; DS«-LI T " "I Sl*SI + i; DS*7 CHRI 37316100 T 0022*2 

T(M*DIIDI*DI-15IDS*7F1LLIDI*M>I TT(JUMP 37316200 T 0023*3 

OUT TO LA)* DS'LIT "("* DS*5 DEC* DS*LIT")"* 37316300 T 0026*0 

LA* DS*LIT "«•"* 37316400 T 0028*0 

FNO** 37317000 T 0028*2 

37315000 

SPOUTfJ)) 37318000 T 0028*3 

LaBELTABLe[U3*P214» 373l8l00 T 0030*0 

END FLSf LABELTABLFrU]*?l 14} 37319000 T 0031*1 

37313000 

MuLTlTA8L.FCU]*RDCTABLECU]*0; 37319010 T 0034*1 

IF U<i6 THEN PRNTABLFrU]*0 J 373l9020 T 0036«2 

END SETMOTINUSE* 37319100 T 0039*0 

37303000 
SIZF* 0040 WORDS 



STACKfF+l) 
STACKfF+2) 



PROCEDURE PLASTQ(U); 

VALUE Uj REAL UJ 
BEGIN 

Real i.xj 



START OF REL 



37241400 



ACC 



BOOLEAN SUBROUTINE CHECKIO! 
BEGIN 

CHECKIO* = M »«UNlTrU]).r5«8]#0 OR (|,[)4ll] AND I , [ 1 3 J 5 ]#?31 ) J 
END! 

IF CHECKIO THEN COMPLEXSLEEPC NOT CHECKIO); 
IDENTAL FNTRY AT CHECKIO 

if ?.rt6ni then * sk?p i/o in process 

BEGIN T I»NFLA6(L0CAT0Ue[Xi»i,[FF]])» 

LOCATQUE[X],[FF]!«P77777; 

UNlT[U],[CF3lsX; 
END ELSE 

UNjT[U] , t5>43] t*(NOT ) . C 18* 30] J 
WHILE (I J = I. [FF1WP77777 DO 
BEGIN RCTURNIOSPACEC PI 

! IsNFLAGCLOCATQUEf I ])> 



END? 
END BLASTQJ* 



37320000 
SFGMENTl DISK 
37321000 
37322000 
37323000 



37323100 
37323200 
37323300 
37323400 



37326000 
37327000 
37328000 
37329000 
37330000 

37331000 
37332000 
37333000 

37334000 
37335000 



T 0000:0 
ADDRESS ■ 
T OOOOiO 
T 0000:0 
T 0000:0 



00881 



37324000 T 



OOOOiO 
OOOliO 
OOOliO 
0005 < 3 

37323200 
000610 



0014 
0015 
0017 
0019 
0021 



T 0021 

T 0027 

T 0029 

T 0032 

T 0034 



37336000 T 0036 
SIZE* 00 



»1 

to 

13 
:3 
13 

37327000 

*3 

U 

'2 

37333000 

>3 

50 

37333000 
10 

37322000 
37 WORDS 



PROCFOURF BUlLDLABrLCLABLE»Min»FlD»REFL»CDATEiCYCLE»PrACT.PTN»BtKODF#X 37337000 T 000080 

START OF REL SEGMFNTj DISK ADDRESS « 00883 
PRT(673) s BUILDLABEU 

8SiZE#RStZe)JX 37338000 T 0000:0 

VALUE LABLE,M]D»FID,REEL»CDATE,CYCUE»PFACT,PTnj,BUKODE, 37339000 T 000010 

BSiZE,RSlZE>* 37340000 T 000050 

ARRAY LABLEr*}** 37341000 T 0000*0 

RFAL MID.FlD,REEL»CDATE,CYCLE>PFACT,PTN,BLKODE.X 37342000 T 0000*0 

BSjZE.RSIZEJX 37343000 T 0000*0 

BEATN'STRFAMf D*rPFACT] ); BEGIN SI*Dl S I - S I + 5 J DS«-3 OCT ENDIJ5 37344000 T 0000*0 

37344000 

PFArT*CALCUUATEPURGE(PFACT)*X 37345000 T 000i»3 

STREAM(S*tMlD]»LABLE);« 37346000 T 0003*0 

BEGIN DS*8 LIT » LABEL "I SUM DS.-2 WDS;X 37347000 T 00041} 

ns*3 DEC* DS-5 PEC* DS*? DEC; Sj«-Sl + 3* DS*5 CHRI* 37348000 T 0006*0 

DS*t4 LIT "0"; DS«.5 DECl SI*S]*7I DS*CHRU 37349000 T 0007*1 

DS*5 DECJ 0S*5 DEC* DS»H LIT "0"X 37350000 T 0010*0 

END" 1 37351000 T 0012*1 

37347000 

IF f RSIZE^LABLE,C8«10])>10 THENX 37352000 T 0012*2 

STRFAM(J«.JARROW[PiMiX].n*[LABl,F[lQ]])|X 37353000 T 0014*2 

BFGIN Sl*j; S 1 *S I + 1 ; DS*LiT « "J DS«-7 CHRI* 37354000 T 0016:2 

SI*SI+U DS^LIT "/"I DS*7 CHR; j2(DS*2 LIT M M )IX 37355000 T 0017*3 

FND END BUILDI.ABFLJX 37356000 T 00l9*3 

37354000 

37344000 

SIZE« 0021 WORDS 



START OF REl 



STACKCF + 1) =. Z 
STACKfF+2) s L 



S SET OMIT = PACKfTS 

$ SET OMjT ■ NOT(PACKETS) 

PROCEDURE FlLEMfrSSAGF.(IiKiM»F.R»D»C»TYPE>l 

VALUE I iK.M»F»R»D.C«TYPFI 
REAL t»K»M.F»R»D»C,TYPF.) 
S POP OMIT 
BEGIN RfAl, 7.U»X 



L*SPACEU2m 

STREAMCZt i*£i].J*t JARtPlMlX»*]].PiMlX.L)l 

B F ■ G I N S I * \; 

if sc» w +" then begin tally*u os*ut »-»; sj*si+t end else* 

BEGIN SI*SI + 1J IF Sc*"# M THEN OS*LlT » " END** 

DS*7 CHR» DS*LlT » «; L*Di;S 

?(Dl«-LOC Z» IF 8 SC#DC THEN BEGIN D!*U SUSI-7J DS*7 CHR>* 

DS*tlT » M J L*DI END)JX 

DI-LJ SI*SI+1I DS*7 CHR; DS-LlT « "I L»DJIS 
3C0I*L0C ZJ IF 8 SC#OC THEN BEGIN DI *■ L * Sl*SI-8; 0S*7 DEC* 

L*Di; DI*DI-7| DS*6 FILL* 
DI*LI DS*LIT " "I L*D! S 
END); 

DI*L» DI*DI-t» nS^LlT »{»** 

Z*TALLYJ Sl*UOC Z; Sl*Si *7JS 

IF SC« w O" THEN BEGIN SUJJ S!*Sl + H DS*7 CHRJ DS*LIT "/"JX 

Sl*Si + U DS-7 CHR; DS*LIT M|i 
SULOC Pi MI X J DS*2 DEC? 
L*D1J DUDI-2I DS«-FILLI DI*L END* 

DS*LIT ''*■"',% 
END)* 

IF P THEN BEGIN TERM! NATEf PlMf X ) ) TeRMI NALMESSAGEC -D END!* 

SpOUTFR(L»0,TYPE)J 

end filfmeSS;* 



37356999 
37357299 
37357300 
SEGMENT: DISK 
37357400 
37357500 
37357501 
37359000 



37360000 
37361000 
37362000 
37363000 



T 0000:0 

T 0000:0 

T 0000)0 
ADDRESS ■ 

T 0000:0 

T OOOOlO 

T OOOOJO 

T 0000:0 



00884 



T 0000 

T 0002 

T 0005 

T 0005 



37364000 T 0007 



37365000 
37366000 
37367000 

37368000 
37369000 
37370000 
37371000 
37372000 

3?375000 
37376000 
37377000 
37378000 
37379000 
37379500 

37380000 
37381000 



37383000 
37384000 



0008 
0009 

0011 

0012 
0013 
0015 
0016 
0017 

0017 
0018 
0019 
0020 
0021 
0022 

0023 
0023 



37382000 T 0024 



T 0026 
T 0027 

SIZE* 00 



10 

13 

10 

H 

37363000 

10 

37364000 

U 

U 

10 

37366000 

:0 

»2 

tl 

:0 

SO 

37369000 

«1 

»1 

;o 

S3 
»3 

'1 

37377000 

il 

13 

37362000 

:0 

37382000 

'1 

12 

37359000 

28 WORDS 



STACKfF+1) » LOCAT 

STACKfF+2) = I 

STACK(F+3) * J 

STACK(F+4) a K 

STACK(F+5) = D 

STACKfF+3) a FIRSTLOC 

STACK(F+4) a PREVLOC 

STACKfF*5) = CURLOC 

STACKfF+1) a T 

STACKfF+6) a Tl 

STACKrF+7) 3 NF 



STACKfF-4) a BSI7E 

STACKfF-3) a N 

STACKfF-2) a U 

STACKfF-1) « ALPHA 



PROCEDURE FILLBUFFFRS(CURRfNT. FINAL. C080t»NR) I 37385000 T OOOOJO 

START OF REL SEGMFNTJ DISK ADDRESS « 00885 
VaLUf CURRENT. FINAL. COBOL. NRJ 37385500 T OOOOJO 

Rf*L CURRENT. FINAL. COBOL, NR; 37386000 T OOOOJO 

BEGIN ARRAY LOCATr*J*X 37387000 T OOOOJO 



integer i.j.k.dj* 37388000 t oooojo 

INTEGER FlRSTLOCsJ»PREVuOC»K,CURLOCaDJ 37388100 T OOOOJO 

RFAL TaLOCAT? 37388200 T OOOOJO 

RFAL Ti; 37388250 T 0000«0 

RFAL NFaTi+n % MUST RE AT THE TOP OF THE STACK 37388?75 T OOOOlO 

LABEL LINK? 37388300 T 0000:0 

RFAL BSI?F*CURRENT.NbF INAL.UbcOBOL.ALPHAsNRJ 37388400 T OOOOJO 



if alpha<512 then 37388500 t oooojo 

BFGIN 37388600 T 0002J1 

PfNR-(C0B0L GTR 0))J % INITIALIZE NF 37388700 T 000213 

IF COBOL THEN F I NAL J *CUrReN T I 37388800 T 0004J0 

J*FlNAL.C33Jl5]-K*CURRENT.t33!l5]JX 37389000 T 0005J2 

D+2JCN0T CURRENT)tl«22«tllX 37390000 T 0008J1 

LOCAT«-M[K + D]> NR*NR-1»* 37391000 T 0010*1 

FOR I*l STEP 1 UNTIL NF DO* 37392000 T 001312 

BFGIN I0Re<3UeST(FLAG(FINAD'CURRENT, LOCAT)** 37393000 T 0015JO 

M[L0CAT]*M[L0CAT]&0[26J26J7] AND NOT(M OR lOMASKm 37394000 T 0016J3 

IF NOT COBOL THEN 37394025 T 0021 J3 

IF 1=1 THEN IF P(FlNAL.r3J5],0UP)*6 OR P(XCH)s7 THEN 37394050 T 0022J1 

BEGIN 37394100 T 0026>2 

SLEFPCLOCAT & [ 3 J 3 J 30] » I OMASK ) ; 37394150 T 0027JO 

STREAM(N*OfL*OiNOiV64*0»BACC*T1*FINAL,[7I1]» 37394200 T 0029S3 

BUF * (MtLOCAT] INX Tl)-(l-Tl))! 37394250 T 003211 

BEGIN Dl «■ LOC NJ SI <- BUFJ BACC(Sl * Sl+4)J 37394260 T 0035J1 

if i sc'dc Then go owt; 3739428O t 0036J3 

Dl «■ LOC NJ RACC(Sl «• BUF)J DS ♦ 4 OCT* 37394300 T 0037J2 

S] «■ LOC LI 01 ♦ LOC BACCI Sj ♦• Sj-21 Dl * DI"ll 37394350 T 0039J0 

05 + t chr; si * buf; 3739436O t 004010 

CT * CI+BACCI GO FWDJ 37394400 T 004012 

N0lV64(Sj ♦ Sl-321 Si * S 1-323 J Sj ♦ Sl-NI Sj * Sj+41 37394450 T 0041H 

GO ONI 37394460 T 0043* 1 

FWD« NDlV64(Si * SI+32* Si ♦ Sl+32)l Si * SI+NI 37394500 T 0043J2 

ON! Dl «- LOC LI DS * 4 OCT! 37394550 T 0045U 

OWTJ 37394560 T 0045*3 

END STRFAMI 37394600 T 0045*3 

37394260 

Tl * Pl 37394650 T 0046J0 



if p(dup)«0 or pcxch)#t1 then t erm i nate c p lml x& 1 08cctf i ) ', 

fnd; 

if nr>0 thfn strfam(nr»t«-mtlocat]#locat)»x 

BFGIN Sl*LOCAT; $!*$I+8| qS*NR WDSlX 
5J«-L0C Ti DS*WDS END*X 



end 



CURRFNT.r33M5]*K*MrK + D].n6U5];X 
FINAL. r33:i51*K+J;X 
FNH FLSF 



» SFT OM?T 



BFGIN 

T*ALPh#RU[12I4?i6J OR M;S 

FOR ?*N-1 STfP -1 UNTIL DO* 

PFGTN Mt ALPHA + Tl*-(CURL0r*GETSPACE(BSlZE + 4»2# t)+2)+2j 
* NOT(RRFAKOUT) 
IF FlRSTLOCsO THEN F I RSTLOOCURLOC IX 
M[CURLOC+l]*Ol M0VE(BSlZE+lrCURL0C+l#CURL0C+2)l 
LINK: M[CURLOC3*FLAG(T)*(PREVLOC+2)t 18133 »15 J»« 

M[CURL0C + BSlZE + 3J*F'LAG(T)&(PREVL0C + BSlZE + l)tl8l33»l5ll* 
PRFVLOc«-CURLOC;X 

FND IX 

IF T"(-l) THFN BEGIN CURLOOF I RSTLOC J GO TO LINK END** 
FND FNn FILL OR GE T BUFFERS? 



37394700 
37394800 

37395000 
37396000 
37397000 

37398000 
37399000 
37400000 



37401000 
37404000 
37405000 
37406000 
37406099 
37407000 
37408000 
37412000 
37413000 
37414000 
37415000 



37416000 T 
37417000 T 



T 004612 
T 0050:0 

37394100 
T 0050J0 
T 0053»3 
T 0054J3 

37396000 
T 0055»2 
T 005910 
T 006013 

37393000 

37388600 
T 006310 
T 006312 
T 0065*3 
T 007010 
T 0075JO 
T 0075*0 
T 007710 
T 008210 
T 008413 
T 008910 
T 008913 

37406000 
0090JI 

37416000 
0093*0 

37401000 

37387000 
SIZE* 0094 WORDS 



STACKfF+2) 
STACK(F*3) 
STACKfF+4) 
STACK(F+2) 

STACK(F+5) * Nl 
STACK(F+6) * Rl 
STACKfF + H « LI 
STACKfF+10) * W 



REAL PROCFDURF F I LFHFADE" C Ml D ,F t • NROWS . S ! ZE * BLEN, RLEN, S) 1 % 

VALUE MiD,FiD>NROWS»SiZE»BLEN»RLEN»SJX 

REAl, MID,FID*X 

INTEGER NROWS»SlZE»BLEN»RLEN»SU 

BEGIN RFAL GULPER.SPFR* ARRAY T«Qt*]> 
s Q 

x LPER 
x SPER 
= T 



START OF REL 



INTEGER MlfRl»H»w; 



$ SFT OMiT ■ NOT SHARED^ 
LABFL TIFILL.EXITI 
SPER*CBLFN + 29) D I V 30)* 
IF SPER>63 Then 

F I LEMESSC-" IN VALID", "BLOCK » ,M I D ,F I .RLEN ,BLEN , SPER) i 

if s.r«?»63so then klen«.bleni* 

$ SFT 0M?T b ShAREDISK 

Q»sS.ti3:3]J 
$ POP OMjT 
S SET OMJT « NOT SHAREDISK 

LPFR*BLFN D I V RLENJX 

IF (NROWS + SlZF> = Thfnss 
begin 

IF CNimSECURlTVCHECK(MlDtFlD»USERCODEtPlMIX)»Q)) LSS THFN 
$ SET OMIT * MOT SHAREDISk 

GO TO exit; 
$ SET OMIT b NOT SHAREDISK 

Tl«Nl*P(,T#LOD»XCH)tCTF]» 
S SET OMIT = MOT SHAREDISK 

Nl*T[7j + n 

!F(H*T[03,[lii43)"0 THEN Ll»30l 
Rl'TtO], [30)12]) 

W *N1 D IV Rl x TtO].[42»6]x30 + N1 MOD RlxLl* 
Tr^]*- W* In 01 V 30 01 V SPERxLPeR 

+ (W pi V 30 MOD SPERx30 + W MOD 30 + RLEN-1) 
DIV RLEN-1) 
TlFlLL* T[t)*(Tt8] DIV SPfR)x SPER) 

T[4]t»C*P(DUP))»0[lil«7il] OR U 
END ELSE* 



SFT OMIT 
BFGIN 



POP 
SFT 



OMiT 
OMIT 



* SHARFDISK 

T«*M OR CGETSPACE(30»8#1)+P360000700002); 

STRFAM(T)J BEGIN 60(DS*4 LlT "0") fndjx 



■ NOT SHAREOISK 
Tr3]*XcL0cK+P(RTR)l 
T[7] «• -1 ; 

Tt1 3*=Tt8)«=((SlZF+(LPER-l))DlV LPER>* SPER* 
T[9] * NR0WS1 



37418000 
SEGMFNTI DISK 
37419000 
37420000 
37421000 
37422000 



T 0000)0 
ADDRESS * 
T 0000)0 
T 0000>0 
T 0000)0 
T 0000*0 



00889 



37422100 T 0000*0 



37422199 
37422300 
37424000 
37424100 
37424200 
37425000 
37425499 
37425500 
37425501 
37425599 
37426000 
37427000 
37428000 
37428100 
37428199 
37428300 
37428399 
37429000 
37429099 
37430000 
37431000 
37432000 
37433000 
37434000 
37435000 
37436000 
37437000 
37437500 
37439000 



END)* 



37441001 
37441099 
37441500 
37442000 
37443000 
37444000 
37445000 



37439999 T 

37440000 T 
37441000 T 



0000) 
0000) 
OOOOt 
00031 
0004* 
0007* 
0010* 

ooio; 
oon» 
ooiu 

0011* 
0012* 
0014* 
00141 
0017* 
0017* 
0017* 
0017* 
00191 
00191 

0021* 
0024) 
0025) 
0030* 
0032* 
0036) 
0036* 
0041* 
0044) 

3 
0044) 
0044) 
00491 

3 
0052* 
0052) 
0052* 
0054* 
0055) 
0059) 
0061* 

3 






3 
2 
3 
1 
1 
2 
2 
2 
3 


2 
1 
1 
3 
3 
2 
2 

1 
3 

1 





2 





7428000 





3 

7441000 

1 

1 

1 



2 

3 

7440000 



TrO] ♦SPFR»LPFRC30«36I123»BUEN[15»33I15]»RLEN[1I34I14]| 

FtLfHFADFR •• NFLAGfT); 
FXTT: 
FNo FILfHFAOEKI* 



37446000 
37447000 
37ft^7500 
37448000 



T 006110 
T 0065U 
T 0066«2 
T 0066»2 

37422000 
SlZF" 0068 WORDS 



STACK<F+1 ) « LABLE 

STACKfF+O) = RCW 
STACKfF+2) s EOF 



PROCEDURE PURGFIT(U)! VaLUf U; INTEGER U>* 37449000 T OOOOlO 

START OF REL SFQMfNTI DISK ADDRESS ■ 00892 
BEfifN ARRAY LABLF* + H*]*X 37450000 T OOOOlO 



STACK(F-2) c MSCW 



Rf-AL RCW«+0,EOF» + ?''X 37451000 T OOOOlO 

RFAL MSCW b -?j 37451500 T OOOOlO 



PrO,0)J 37453000 T OOOOlO 

P(WAfTrOrP4200000000, 0377, U>. PEL)* 37453100 T 000012 

LABLF*tMtSPACE(l0)]JilOrfll36«iO]*5[21i45l33»X 37454000 T 000210 

BUILDLABEL(lABLE»0' w X"#t#0»l#0*PRNTABLEClJJ.t30:i83»0,0,0)!X 37455000 T 000613 

PrWAJTTO(LABLE'P37700000>U)»DFL)J* 37456000 T 001110 

FOF*Pt737000000000000jX 37457000 T 001213 

Pf WAlTlOf tFOF]»*37700000»U)»DFD>* 37458000 T 001312 

F0RGfTSPACECLABLE.t33*15J Jl 37463000 T 001510 

SfTN0T!NUSF.(U,O)| 37464000 T 001612 

KfLUrMSCWJ)! 37465000 T 001712 

END PUReEfTlX 37466000 T 001611 



37450000 
SIZE* 0022 WORDS 



PROCEDljRF KRllNcHERf H); ARRAY H[*]J 
PRT(674) s KRUNCHER 



START OF REL 



37500000 
SEGMfNTI disk 



T 0000:0 
ADDRESS * 00893 



STACKfF+l) m A 



STACK(F+2) « N8 

STACKfF+3) » NBR 

STACKfF+4) * I 

STACKrF*5) ; J 

STACKfF+6) = K 

STACK<F+7) * T 



BEGIN DEFINE E-H t 7 ] * , RL = H 1 1 3 #, RPB*H[ ] . [ 30 t 1 2 J * , 

MAXR0WS*Ht9]#» 
BCL 8 HlO],U?:6]#,BRL*HE8]#j 

array at*]j 

label forget, exit, again, oonei 
integfR nr.nbr; 



Real j,j,k,tj 



A:a[MrSPACEC41)]]&40t8«38*10]J 

m0ve(«1»a. ccfj"1»a)> 

if e lss then go to exit; 

Nb:*f niv RPBJ 

NrRJ.RL DlV BCL) 

if RL neQ bru then 

FOR T JslO STfP 1 U N T I (,, 29 DO 

if Hrn ne« 6 then 

S SET OMIT = ShARfDISK 

FORGETUSERDlSKCHrl 3+RL, BRL-RL ) J 
* SFT OMIT a NOT SHAREDISk 
BRLS»RLJ 

if nb lss nbr then 

BEGIN AtO"J5»HtNT2«»10] ) 
NT4»*t ; 
RL>s(NB+l)xBcL» 

go to forgft* 

end; 



AGA T N « 



then go to done* 
gtr 19 then go to 



donf' 



TI*(K1*J»*1HNBRX20; 

IF(NT1«»NB« 01 V J)»0 

IF CNT?«=NB OIV NT1 ) 

IF NBR MOD JbO THFN 

BEGIN IF fNT3«»NTlxNT2+NTl) LSS T THEN 

BFGIN KibJj T»bNT3» NT4l»NT2+l ENDI 

ENDJ 

J»»J+1> 
GO TO AGAIN; 
IF K»l THEN GO TO EXJTI 
NT?t«NB DlV NBR ♦ 10) 
RLI-RL DIV Kj 

FOR I!»lO STEP 1 UNTIL NT2 DO 
BEGIN IF CNTlJaHtM-RD GTR THEN 
FOR Jl«i STEP 1 UNTIL K qO 

A[(I-lO)xK4j-n»»NTl+JxRLI 
ENDJ 

FOR Kl»NT4 STEP 1 UNTIL 19 qO A[K3)«0) 



DONE! 



37501000 T 

37501500 T 

37502000 T 

37504000 T 



37508000 
37509000 
37510000 
37511000 
37512000 
37513000 
37514000 
37515000 
37515995 
37516000 
37516050 
37517000 
37520000 
37521000 
37521100 
37521200 
37521300 
37521400 

37522000 
37523000 
37524000 
37525000 
37526000 
37527000 



37529000 
37530000 
37530100 
37530200 
37531000 
37532000 
37533000 
37534000 
37535000 
37536000 



37528000 T 



0000*0 
000010 
OOOOiO 
000010 



37505000 T OOOOIO 
37506000 T 0000)0 



37507000 T 0000)0 



37538000 T 



0000)0 
000512 
000812 
001010 
0012U 
001412 
001513 
001710 
OOlBlO 
001810 
002313 
002313 
0025U 
002610 
0028»2 
002911 
0032U 
0032)3 

37521000 
003213 
003512 
003713 
0040)0 
0041*1 
0044)0 

37527000 
0047)1 

37526000 
004711 
004812 
0049)0 
0050)1 
0052)0 
0054»0 
0055*0 
005711 
0059)0 
0065)3 

37533000 
0068)0 



TF MAXROWS LSS (Nt5»s(NT4*20)+NT4) THEN MAXROw S « *NT5I 
FOR r ,FT: TF NB + 1 NpQ N8R ThEN 
i SET OMiT * ShARfOISK 

FORGETUSERDISK(ArNTa-l]+RL.(NT?-9)xBRL-NT4xR L )| 
$ SFT OMjT = NOT SHAREDISK 

MOVE(20,A»CHrlO]]); 
BRL»*RU 
FXJT» FORGETSPACE(A)J 
ENDJ 



37538500 
37539000 
37541995 
37542000 
37542005 
37543000 
37544000 
37545000 
37546000 



T 0072*2 
T 0076«3 
T 0078J0 
T 007810 
T 0083 '2 
T 008312 
T 008512 
T 008710 
T 0088J0 

37501000 
SIZE* 0089 WORDS 



PROCEDURE PISKFILEOPEN(ALPHA); VALUE ALPHA) INTEGER ALPHA* 38000000 T OOOOJO 

START OF REL SEGMENT) DISK ADDRESS » 00896 
PRT(675> a nlSKFtLFOPfN 

BEGIN RpAL RCWa+0,M5CW*-2) 38001000 T OOOOJO 

STACKfF+O) « RCW 
STACK(F-2> * MSCW 



REAL TOMsIOMASK. iOMASK»+1 ) 38002000 T OOOOJO 

INTFfiFR NBUFSs+?,FNUMs+3.RlENs+4»TYPE«+5» lO»+6.BLEN=+7,Us+8» 38003000 T OOOOJO 



KIND*+9,M0DE*+10,DtREC*+11 »FORMS*+12»C0B0L*+l3. 38004000 T OOOOJO 



PRT(362) ■ iOM 
STACKfF+1) r IOMASk 

STACKfF+2) » NBUFS 

STACKfF+3) a FNUM 

STACKfF+4) a RLEN 

STACKfF+5) = TYPE 

STACKfF+6) = 10 

STACKfF+7) 8 BLFN 
STACKfF+10) = U 

STACKfF + U) * KIND 

STACKfF+12) n MODE 

STACKfF+13) = DlREC 

STACKfF+14) a FORMS 

STACK(F+15) a COBOL 

UNLABELFD*+t4»0PTI0NAL»+!5»CNTCTLe+16; 38005000 T OOOOJO 

STACK(F+16} » UNLABELED 

STACKfF+17) a OPTIONAL 

STACKfF+20) = CNTCTL 

REAL Tl*+t7»T2**l8f MASK-+19»STATE"+20l 38006000 T OOOOJO 

STACK(F+21) a Tl 

STACKtF+22) » T2 

STACKfF+23) s MASK 

STACKfF+24) a STATE 



STACKfF+25) a MFlD 

STACK(F+26) a FID 

STACKfF+27) = REEL 

STACKfF+30) a CDATe 

STACKfF+31) » CYCLE 

STACKfF+32) a FIB 

STACK(F+33> a FPB 

STACKfF+34) » ACCESS 

STACKfF*35) s FlB7 



STACKfF+36) » HEADER 
STACKfF+37) a TOG 



REAL MF!Da+?l,FID=+22; INTfGER REEL*+?3» CDATEa* 24 , CYCLEa+25* 38007000 T OOOOJO 



ARRAY FlB»+26r*]»FPB*+27r*]l* 38008000 T OOOOJO 

INTEGER ACCESSa+?8,FlB7«+29J 38009000 T OOOOJO 

LABEL AGN'EMTJ 38009100 T 0000:0 

ARRAY HEAf)EP* + 30[*]»* 38010000 T OOOOJO 

REAL T0Gb+31»* 380l0l00 T OOOOJO 

SUBROUTINE DISKSETUPU 38011000 T OOOOJO 

BFGIN IF STATE. t42«l] ThENX 38012000 T OOOlJO 

BFGIN 38013000 T 000113 

IF MFlDaO AND USERCODF C PI* IX ] * THEN *126* 38013010 C 0002H 

BEGIN *126- 38013020 C 0004U 

FPBCFNUM ] JaMFlDJaFID) *126- 38013030 C 0004»3 

FPBtFNUM+H JaFID J "USERCOOEf Pi Ml X] ) *126» 38013040 C 0006J2 

END) 1126- 38013050 C 0009JO 



S SFT OMIT 



$ SFT OM?T 



IF NFLAG(FlBrH]*FLAG(FILEHEADER(MFIO 
NOT SHARFDISK 

.FID&F IBr53r 1*45*1 3>FIB [83. [20*5 3 
»FIB[8),[25i233»BLEN»RLEN »STATE) ))<6 THEN 
BEGIN PfOEDl 
TOG'* 1J 

not shareoisk 

go to exit j 
end; 

IF F!B[8].t20l283#0 THEN FPB t FNUM+23 , [ 18| 30 J *DATE ELSF 
BEGIN* OLD FILE, VERIFY LABEL EQUATION DATE IF ANY 
HEADER >* FlBtlAJl* 

STREAM(HI» HE ADERf3J, [30118]. Bi»[T2J)l 
BEGIN SlteLOC H* DS*b8 DEO END** 

AGN« IF CDA1E NfQ AND CDATE NEQ HEADER [ 33 . [ 30 1 18] THEN 
BEGIN* WRITE date CHECK MESSAGE 

dolittlecfai.se. 

vwy&v0f[36»42*63*v0k[30»4?i63» 

"#DAT CK"," s00000"&T2ri8»l8»30],MFID)J 

IF TERMSET(PIMIX) THEN 
BEGIN 

F0RGETSPACE(DIRECT0RYSEARCHCMF1D»F!D, 
S SET OMIT * NOT SHAREOISK 

FIBC53, [13133 + 10)); 

go to initiate? 

fndj* 

if pcnt6,dup)»v0k or p(xch)*v0f then cdatf*0» 

GO AGN 
FND*S VERIFICATION 

FP8[FNUM + 2] f [18I303UT2JX BCL DATE 
END OLD FILES;* 

STARTIMING(FNUM.18))J! 

FPBl=PRTtPlMlx.33J % STARTLING MOVES THE FPB 

FNDJ* 

HEADFR*-FIB[H3l* 

KlNo«-4) U»18IX 

MODE*0»* 

IF NOT COBOL THEN UnLABfLED-1 ** 

CNTCTL*BLEN<1023*S! 
$ SET OMIT * NOT SHAREOISK 

IF COBOL>0 AND ( F IB [ 1 33 , [ 221 13 OR TYPEMO OR TYPE-26) THEN 
BFGlN C0B0L»*3; HF C0b0L"I0 OR COBOL'RANDOM 

blen ** blfn ♦ rlen; % then change buffsizf to 
fndj % buffsize + recsize 

getbuffeRS((If cntctl Then blen* 

ELSE C(BLEN*29) DIV 30)x30)+i»* 

NBUFS.U.ALPHAm 

IF COBOL * 3 THEN x if cobolmo or cobol»random 

BFGIN COBOL I * II % THEN CHANGE BUFFSIZF TO 



38013100 
38013199 
38013300 
38013400 
38013500 
38013510 
38013519 
38013600 
38013700 

38013900 
38014000 
380H100 
38014200 
380M300 

38014400 
38014500 
38014600 
38014610 
38014620 
38014700 
38014800 
38014900 
38014949 
38015000 
38015100 
38015200 

38015400 
38015500 
38015600 

38015700 
38015800 

38015900 
38015950 
38016000 

38020000 
38021000 
38022000 
38023000 
38024000 
38024004 
38024100 
38024200 
38024300 
38024400 

38025000 
380?6000 
38027000 
38027100 
38027200 



38013020 

T 0009JO 

T 000913 

T 0009. * 3 

T 001113 

T 0016*0 

T 0016:3 

T 001712 

T 001712 

T 00l8*0 

38013500 

T 00l8t0 

T 0023*0 

T 0023*2 

T 0024*2 

T 0026M 

38014300 

T 002710 

T 0028*1 

T 0030*0 

T 0030*2 

T 0032*3 

T 0034*3 

T 0036*1 

T 0036*3 

T 0037*3 

T 0037*3 

T 0039*3 

T 004011 

38014600 

T 0040*1 

T 0043*2 

T 0044*0 

38014500 

T 0046*0 

T 0049*0 

38014000 

T 0049*0 

T 0050*0 

T 0051*2 

38013000 

T 0051*2 

T 0052*2 

T 0054*0 

T 0054*3 

T 0056*2 

T 0057*3 

T 0057*3 

T 0061*3 

T 006310 

T 0064*1 

38024200 

T 0064*1 

T 0065*1 

T 0068*1 

T 0069*1 

T 0070*0 



END* 



BLEN »* BLFN - RLENJ 



t BUFFSIZE - RECSJZE 
* (SEF ABOVE 



$ SFT OMIT 



FlBtl6]*MrALPHAJlCNTCTLr23»47ll J8lO[24*47»13X 
&(<BLFN+29) OJV 30)[27*42*63X 
&CIF CNTCTL THEN BLEN ELSE 1023)[8I38I10]X 
«TlNU[18j[3*3*53 OR M OR iOMASKIX 
F!Rrl6] f r2l 1 J l«CHrADER»r 31 121 AND (IO+1»#OI 
FIBC51.C1 «1JI« NOT F!B[16J,[2U]| 
IF FlB[5],tl II] THEN 
FOR MASK»*lO STEP ! UNTIL 29 DO HE ADER [MASK J I *0> 
FIBfl9]*(IF DIREC THEN 8LEN-RLENM ELSE 1) 

INX FIBC16U0C27I27I6]! 
IF STATE. [46*23*0 T H EN f IB 1 1 93 . f 8 J 10 URLENJ * 
FSrPlMiX.(T2»*(FNUM DIV ETRLNG ) ) . [ 40 J 4 ] ] *( *P( dUP ) ) OR 

fTW0f0iT2[^3|fl4 l 4])x((N0T HEADER). [31 12])}; 
T2*IF COBOL THEN FLSE FIBU93.[33*l5]-FIB[163, [33*1531 

FIBrlO],[3»l5]j«M[ALPHA3-2l IHEAD OF BUFFER RING 
FOR MASK*0 STEP 1 UNTIL NBUFSM DOX 
M[ALPHA+MASK]*fP(nUP»L0r))*T2)X 

8PCFLAG(FTB[l9-ABS(3xCOBOL)3)»XCH)[CTc3> 
FIB[163«=FIB[163 OR MJ 

FlBt53.[45*l 3*0; 

IF PCCFlB[H33,L0D>.tFF]«2 THEN FIBC5 J. [ 1 1 I21M I IINPUT ONLY. 

IF HEADER[43.C10M3 AND NOT 10 THEN 

FILEMESS(*"C0DE "-♦'FILE "» MF I D# F I D» 0, 0» ) J 
e NOT(PACKETS) 

IF PSEUD0MIX[P1MIX3J«0 THEN 

IF NOT FIBC53.U1U3 THEN 

FILEMESSAGE((IF 10 ThfN » IN " ELSE w OUT") 

«TlNUrU3[6«30J183, IF ACCESS*0 ThEN " SER « 

else if access«1 then if typf*26 then " pro " 
flse " rdm " flse " upd " , 
mfid»fid»o»o,o.64); 

POP OMIT 

END DlSKSETUP;! 

PfRCW.MSCW.STF); 
RrW»*RCW*P(XCH>[CTC3; 

diSksetup; 

if cobol<o then % adjust upper bound FOR COBOL 68 

BFGIN MASK * (IF lO AND NOT F IB [ 1 33 . t 22* 1 3 

THEN HEADERS] 

ELSE f((HFADER[93 x HEADERfl]) DIV 

HEADER[03.[42J63) x HEADER t 3 . [ 30 1 1?] ) - j); 
IF FIB[33»0 OR FIB[3]>MASk THEN FIBC33*MASk; XLESSoR OF 2 EVILS 

end; 

IF Pf TYPE.DUP)»10 OR PfXCH)*26 THEN 
BFfilN 

if cobol<i then 

FOR MASK «■ STFf 1 UNTIL NBUFS-1 DO 

IF COBOL THEN MfM f ALPhA+MA&K 3 INX NOT 23 ♦ NOT 

ELSE M[ALPHA+MASK3*P<DUP»L0D>&1 [27*47* Hi 
FIB[6]*FIBr73»0;« 

F!BClf3*IF 10 THEN o else blf.n;x 

END FLSE 



* ALGOL OR COBOL 
STfP 1 UNTIL NBUFSM 



68 
DO 
NOT 



38027300 
380?7400 

38028000 

38029000 

38030000 

38031000 

38032000 

38033000 

38034000 

38035000 

38036000 

38037000 

38038000 

38039000 

38040000 

38041000 

38041100 

38042000 

38043000 

36044000 

38045000 

38045100 

38045105 

38045110 

38045120 

38045149 

38045150 

38045155 

38045160 

38045200 

38045300 

38045310 

380^5400 

38045501 

38046000 

38047000 
38048000 
38049000 
38049200 
38049300 
38049400 
38049500 
38049600 
38049700 
38049800 

38050000 
38051000 
38052000 
38053000 
38053500 
38054000 
38055000 
38056000 
38057000 



T 
T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 



007U1 
0072*2 

38027200 
007212 
0075*1 
0077*1 
007913 
0083« 1 
008810 
0091*2 
009212 
0097*2 
0100*3 
0103*0 
0107*1 
011011 
0114*1 
0118*2 
0122*1 
0126*2 
0128*3 
0132*1 
0134*1 
0136*3 
0141*2 
0143*1 
0146*2 
0146*2 
0147*2 
0149U 
0151*3 
0154*2 
0157*3 
0159*1 
0161*0 
016110 

38012000 
0170*0 
0171*0 

0172*1 
0173*0 
017313 
Oj74*3 
0176*3 
01781 3 
0181*3 
0186*1 

38049300 
0186*1 
0188*1 
0188*3 
0189*2 
0194*1 
0197*3 
0203*0 
0205*1 
0208*0 



BfGJN 



T?*(MFID*FlBtl63),r33»l5]|X 
nB7*F!B[7]l 

if corol then* 

BEGIN IF CObOL>0 THEN 

IF NOT CFIB7*0 OR F I B[l 33 , C 22* 1 3 > 
BEGIN F1B7 ♦ F1B7 - 1 > 

OPTIONAL * NBUFS - 1* 
END FLSF OPTIONAL * NBUFS - 2 



THEN 



ELSE 



BEGIN 
OPTIONAL 
IF DIPFC 

fNd; 



% COBOL 
*• NBUFS - 
THEN FIB? 



68 

i; 

«- F I B€ 7" 3 ♦ F IBC 33 1 



END 



nD«TlBM6j|* 
MASK*Ol« 
ELSFX 



BEGIN 0PTI0NAL«-NBUFS-1JX 

MASK«-(FiD*FlBC19]),r33ll5J-T2J* 

END5X 

IF (STATE. [46j23#0 AND NOT COBOL) OR 10 THEN 

IF M[ALPHA3.[?»M THEN 

FOR T1*0 STEP 1 UNTIL OPTIONAL DOX 

BEGIN IF (M[T2J!= 

DISKADDRFSStFPBCFNUM], FPBIFNUM+13. FPBCFNuM+33. 
F0RMSi»((HEADER[0] < t30il2]xTi)»0lRECtl«47l J])+FI87, 
HEADER. IOR(NOT HEADERt 4 3 ) t 465 47* 1 3 > ) > 1 THEN 
BEGIN 

IF CUSERC0DFtPlMlX3 EQV MCP)#NOT THEN 
IF P(MtMFID]»DUP),[3«6]sO AND 

PfXcHXOIRDSK*DSKTOG THEN 
BEGIN 

TERMINATECP1MIX); 
TERMINaLMESSAGE(30)J 

end* 

lORE0urST(FLAG(FlD)tMFl0«lt2»l*7llJ,MtT2-23)l 
MtALPHA3'=FLAG(NFlD)&0r26t26l73 AND NOT 
(M OR lOMASK)* 
END ELSE 

IF M[T23*0 THEN % EOF IF INPUT. FULL HDR IF OUTPT 

M[aLPhA3»«P(DUP#LODH1[27*47I13 AND NOT Mi 
IF COBOL<0 THEN M[MtALPHA3 INX NOT 23 * 

(IF FORMSiO THEN FORMS DIV FIBfll] ELSE NOT 0)1 
STREAM(N»-NBUFS-1,T*MCALPHA3.ALPHA)II 
BEGIN ST*ALPHAJ SI *SI *8l DS*N WD5*X 
St*LOC Tl DS*WDSi« 

fndjx 

MF!D,[33«l53*T2*MrT2-2],n8«l53J* 
FID.r33M53*T2 + MASKI* 

END IX 



38058000 
38059000 
38060000 
38061000 
38062000 
38062500 
38063000 
38063500 
38064000 



38072000 
38073000 
38074000 
38074500 
38075000 
38075500 
38076000 
38076500 
38077000 
38077500 
38078000 
38078500 
38079000 
38079500 
38080000 



38081750 
38082000 
38082400 
38082500 
38083000 
38084000 
38085000 
38086000 



38064200 T 
38064400 T 
38064600 T 
38065000 T 

38066000 T 
38067000 T 
38068000 T 

38069000 T 
38070000 T 
38071000 T 



38080500 T 

38081000 T 

38081250 T 

38081500 T 



38087000 T 
38088000 T 
38089000 T 



38051000 
020810 
020612 
021012 
021112 
021H3 
021310 
0215J3 
0217»2 
0218«3 

38063000 
021912 
022110 
022211 
0225*0 

38064200 
0225*0 
022610 
0226*3 

38062000 
0226*3 
0228*2 
0231*0 

38069000 
0231*0 
0233*2 
0235*2 
0237*0 
0237*3 
0240*2 
0243*0 
0247*2 
0248*0 
0250*2 
0253*1 
0255*1 
0255*3 
025612 
0257*1 

38078500 
0257*1 
0261*0 
0263*1 
0265*0 

38076500 
0265*0 
0267*0 
0271*0 
0274*2 
0278*1 
028053 
0281*3 
0282*1 

38084000 
0282*2 
0286*0 
0287*3 



ENO; 



IF CNBUFS-l)#OPT|ONAL THEN FIBri6].[33M5]*MtALPHA] 1* 
FORMS«-CFOF?MS*FIB7 MOO HtADERC 0] , [ 30 U23 )xRLEN i 
SLEEP (CMC ALPHA] 3»|0M ASK )',% 
IF COBOL i THEN % NOT COBOL 68 

IF FJB[13J.[22HJTHEN M[ ALPHA 3 . t 33M 53 *F I BC 163 1 NX 1 ELSE 
MfflLPHA3,r33M53«.FlBC16J.t33ll53+FORMS + llX 
IF (NBUFS-1 3/0PTI0NAL AND 10 AND NOT F J B£ 1 3 3 , f 22 M 3 THEN 
FIPC U J*0 ELSE 
F!Btl73*IF DIREC T H EN eORMS+RLF NX 

ELSE HLEN-FORMSIX 



FXIT» 

PfP*RCW[CTC3#0»RDS»0»XCH»P*PtCTFJ»STF)l 

FND diskfileopfnj 



38090000 
38091000 
38092000 
38092900 
38093000 
38094000 
38095000 
38096000 
38097000 
38098000 
38099000 



38099100 T 

38100000 T 
38101000 T 



38074500 
T 0290J0 

T 029412 
T 0297J2 
T 029912 
T 030011 
T 030511 
T 030913 
T 0313*0 
T 031413 
T 031613 
T 031910 

38058000 

031910 

031910 

0321»2 

38001000 
SIZE* 0322 WORDS 



procedure: OThfRfILFOPfN|N(aUPhA)J value alpha? integer ALPHA! 38102000 T OOOOIO 

START OF REL SEGMFNTl DISK ADDRESS m 00907 
PRTC676) s OTHFRFILFOPFNIN 

BEGIN RfAL RCW«+0»MSCW*-2J 38102100 T OOOOIO 

STACKeF+O) = RCW 
STACK(F-2) = MSCW 



PRT(362) * lOM 
STACKfF+1) x IOMASK 

STACK(F+2) * NBUFS 

STACKfF+3) = FNUM 

STACKfF+4) = RLEN 

STACK(F+5) = TYPE 

STACK(F+6) = 10 

STACKfF+7) ; BLFN 
STACKfF+10) x U 

STACKfF+tl) * KIND 

STACKfF+12) * MODE 

STACK(F+13) * DIREC 

STACK(F + H) * FORMS 

STACKfF+15) « COBOL 



STACK(F*16) * UNLABELED 
STACK(F<H7) * OPTIONAL 
STACK(F+20) » CNTCTL 



Real tom*iomask» iomask*+i> 38102200 t 000010 

INTEGFR NBUFS = +?,FNUM B +3tRLENs+4»TYPE»+5» l0a+6»BLFNs+7.Ua+8# 38102300 T OOOOIO 



KTND«+9,M0DE*+i0,DtREC*+11»F0RMS«+12,C0B0L*+13» 38i02«00 T OOOOIO 



UMLABELED*+H,0PTI0NALs+l5»CNTcTL«+16; 38102500 T OOOOIO 



STACKfF+21) « TI 

STACKfF+22) • T2 

STACK(F+23) * MASK 

STACKfF+24) * STATE 

STACKfF+25) * MFJD 

STACKfF+26) * FID 

STACK(F*27) . REEL 

STACKrF+30) « CDATe 

STACKfF*3l) * CYCLF 

STACKfF+32) * FIR 

STACKfF+33) e FPB 

STACKrF+34) * ACCESS 

STACKfF+35) u FIB7 

STACKfF+36) = HEADER 

STACKfF+37) * TOG 

PRTC160) ■ USAS? 

STACKfF+36) * RHEAD 



RFAL T1=+1/.T2*+18.MasKs+19»STaTE=+20I 38102600 T OOOOIO 



REAL MFID«+21»F!D»+22I INTFGER RFEL«+23» CDATE*+24 , C YCLF-+25I 38102700 T 0000;0 



ARRAY FlBs+26r*]»FPB=+27r*]JX 38102800 T OOOOIO 

INTEGFR ACCESS*+28,FIB7*+?9J 38102900 T OOOOIO 

ARRAY HFADFR*+30r*]»X 38103000 T OOOOIO 

RFAL TOGa+311 38103100 T OOOOIO 

REAL USASUNTl, RHE AD*HEaDERJ 38103200 T OOOOIO 



LAREL FIND»DCN,DC19J 38103300 T OOOOIO 

SUpROUTlNE TYPEOPEN;* 38103400 T OOOOIO 

BFGIN 38103500 T OOOllO 

TlUfOPNMESS AND ( ( Tl » «JAR[ Pi MJ X »0 ] )>0 OR 38103600 T OOOllO 

COPNMESS AND T i <0) ) 5 38103700 T 000313 

i sft omit « packets 38103800 t 000612 



BFG1N NT2!*0; 

if u<i6 Then 

STREAM(SI»PRNTABLEIU3,[30I18]. Dl«tNT2)>» 

BEGIN Si ♦ lOc s; ds ♦ 8 dec; % 

Dl * n 1-7 1 DS «• 6 fill; % 

ENqJ IK 

FlLEMfSSAGECf" IN ")& 

TlNU[U3r6'30«i8], NT2» FPBrENUM], FPBtFNUM+j], 
IF KIND.2 OR KlND*9 THEN P (REEL » CDATE ) ELSE 
P(0»0)» P. CYCLE. Tl)J 

end; 
end; 

SUBROUTINE REED** 
BF6IN IF (T2*WAlTjO(Tl,f MaSK OR P40)gP377[CTF 3 »U ) AND P367)#0 THEN 
IF fT2 AND NOT MAS*)i»0 THEN 

BEGJN ST0PTTMiNGCFNUM»i023); BLASTO(U); SETNOTlNUSEfU.O); 
FILEMESSf- "PARITY %"QN ... «&T jNUt U] t 2ft » 301 18] , % 

mflo,fid,reel»cdate»cycle)»x 

fndjx 



IF TERMSET(P1M|X) ThEN 
BEGIN ST0PTlMlNGfFNUM»1023); 
GO TO INITIATE* 

FNDJ 



SETNOTINUSE(U.O); 



END refdj* 
Real subroutine cntlbitsu 

CNTLBlTS*l0MASK*M0DEC2l*4ni]40lREC[22U7li JlCNTCTlr ?3» 47 » 1 ] 
tl0t24U7ll]*(KIN0«7 OR KjND>9 AND K IND<12 ) t 20 I 47 1 1 J 
&CIF KIND*10R KIN0=70H K I NDM 2THENP20ELSE 0}[?7«fl2»63> 
SUrROUTINF LABFLAREAU 

MCTlSsALPHA-23 J*H OR C GFTSPACEC (T 1 » *M[T 1 3 , S I ZE )+4# *167- 

LABFLARFAV»l)+4) & T1CSIZE3 * CNTLBf TSf FTF 3 ; 
PfALPHA)* % DETERMINE IF BRANCH TO DC19 
Pf RCW.MSCW.STF); 
RpWlaRCW*P(XCH)[CTC Jf 
!F P=2 THFN GO DC1 9; 
IF STATF.MUl] ThENj; 
BFGIN U-F IB[ 153, C?5I53 ;« 
END FLSEX 

BFGIN IF fU*FINDINPUTCMFlDfriD»REEL»CDATE#CYCLE»COBOL»UNLABELEO» 

OPTlONAU»MODE»FNUM))<0 THENX 
BEGIN FlBC53.t39»4j*9; GO TO FIND END;X 



startimjng(fnum» if u>3i Then is else in; 

FPB»«PRTrPlMIX,3J| % STARTIMING MAY 

kin i«tf u g t R 3i t h en n else uNiTtui.nu 

typeopfn;x 

if u<16 then begin rrrmech* t hoc u > or rrrmech* 

PRNTABLE[U3.fl5tl5 3*ALPHA;x 

runtt 



HAVE 
43; 



MOVED IT, 



38 
38 
38 
38 
38 
38 

38 
38 
38 
38 
38 

38 

38 
38 
38 
38 
38 
38 
38 

38 
38 
38 
38 

38 

38 
38 
38 
38 
38 
38 
36 
38 
38 
38 
38 
38 
38 
38 

38 
38 
38 

38 
38 

38 
38 
38 
38 
38 



04100 
04200 
04300 
04400 
04500 
04600 



05300 
05400 
05500 
05600 
05700 
05800 
05900 

06000 
06100 
06200 
06300 



06500 

06600 

06700 

06800 

06900 

07000 

07100 

09000 

0000 

0500 

1000 

1500 

2000 

2500 



4500 
5000 
5100 
5500 
6000 
6500 
7000 



04700 T 

04800 T 

04900 T 

05000 T 

05100 T 

05200 T 



06400 T 



3000 T 
3500 T 
4000 T 



TGW 



38H7500 T 



000612 
000711 
000810 

001011 

001013 

001111 

381 
001H2 
001210 
00l5«0 
001811 
001912 

38} 
001912 

381 
002110 

002H0 

002412 
002613 
003010 
0030 I 
003410 

381 
0034*0 
0035»2 
003810 
0038«2 

381 
0038:2 

38i 
004110 
004tt0 
004312 
0048>0 
005310 
0055:0 
0059»3 
0063»0 
006511 
0066U 
006712 
006812 
006911 
007i«l 

381 
007111 
0073»3 
0075*3 

381 
0079M 
008211 
0083*3 
0087U 
0088*0 
0091*0 
0093*2 

381 

009312 



04400 



04100 
03500 



05600 



06100 
05400 



12000 



14000 



16000 



if (Ti«.rdcTable[U].[1*«iO])#o then reel*tu 
statf.c39u]*0|x 



END5* 



ir ktno=o then* 

BfGIN IF U*23 THEN BEGIN T1*RfADERAJ READERA«-0 END* 

else begin ti*rfadeRbj readerb*o end** 

MI ALPHA-? 3 »«[MfTl]]»lO[8l38llO]«lt24U7ll]l* 

M[Tj-4] «*P(DUP,LODH*lMiXrAREAMlXFHLABEUREAVtAREATYPEF]*X 
IF MODE ts CMODE«0) AND BLEN«20 THEN X301" 

SAVfWORD!*SaVEWORD OR TWO(U)J 1301- 

CNTcTUlaDlRECJsOJX 

IF PLEN<Tl«-<M0nF + l )xlO THEN BLEN*TUX 
FND FLSEX 

IF KjNn*2 
BFGIN 



JD«2 THFNX 

IF NOT UNLABELED THFN BfGINX 
IF DIREC ANn NOT F I BC 1 6 ] . [ 22 1 1 3 THEN 
BEGIN IF NOT STAlF. f 40 1 1 ] THEN BEGIN* 
Tl*583r23U6l2] OR MJS 



mask*oj reed;* 
MASKi«P60; do reed until 

DO REED UNTIL T2.r42UJ! 
MASK*0J refdj 



T2, [42113* 
FNDJX 



fnd; 

CNTCTL 
T1»«NF 
IF DIR 
MASK** 
STREAM 
BEGI 



R! 



+ 11 LABELARFA»X 

LAGCMr ALPHA-2]);* 

FC THEN TJI«T1,C8H0]-1 INX Til* 

P40; REEDI 

(Y«=0lXi*0»Xlt»0»X2«»0»Zl*Tl)l 

N DH*LOC XI D$?*24 LIT "V0L1HDR1HDR2E0F 1 E0F2E0V1 " J 

DI«*L0C XI 

6(TALLY»»TaLLY+1* 

SI :=Zl 

IF 4 SC'DC THEN 

JUMP OUT TO B); 

TALLY»«Oj 

YI=TALLY> 



ENDI 

if (USasi :»p)>o Then 

USASlTAPF<Tl,[CFJtUSASl.4»U»DlRrC) 
IF M[Tl INX 6], [24163*1 THEN 
BEGIN 

Refdi 

MaSK*P60| 

Tl*5&3r23»46i2] OR M) 
T2*0j 
END! 



ELSE 



IF T2 NFQ P40 THFN 
FOR CNTCTI'DIPEC 



DO RFED UNTIL T2.C42H1 ELSE 
STEP 1 UNTIL 2 DO* DIREC * 



OR i 



XDB 



38 


118000 


T 


009312 


38 


118500 


T 


009613 


38 


119000 


T 


009812 

38U3000 


38 


119500 


T 


009812 


38 


120000 


T 


009911 

38120000 


38 


120500 


T 


010212 

38120500 


38 


121000 


T 


010412 


38 


121500 


P 


010910 


38 


122000 


P 


0113U 


38 


122100 


C 


011512 


38 


122500 


T 


011713 


38' 


123000 


T 


011910 


38 


123500 


T 


012212 

38120000 


38< 


24000 


T 


012212 


38< 


124500 


T 


012313 


381 


125000 


T 


012511 


381 


25500 


T 


012710 


381 


26000 


T 


012910 


38} 


26500 


T 


0131U 


381 


27000 


T 


013310 


38j 


127500 


T 


013611 


381 


28000 


T 


013611 

38125500 


38] 


128500 


T 


014010 

38125500 


38) 


29000 


T 


014010 


38] 


[29500 


T 


014210 


381 


30000 


T 


014411 


381 


[30500 


T 


014711 


38] 


31000 


T 


0149»0 


381 


31500 


T 


0151 10 


381 


32000 


T 


015412 


38j 


32500 


T 


015413 


381 


33000 


T 


015511 


381 


.33500 


T 


015512 


381 


34000 


T 


015610 


38] 


34500 


T 


015613 


381 


35000 


T 


015710 


38j 


35500 


T 


015710 


381 


36000 


T 


015711 

38131500 


38] 


36500 


T 


015712 


381 


37000 


T 


015812 


381 


37500 


T 


0161U 


38) 


38000 


T 


016411 


381 


38500 


T 


016413 


381 


39000 


T 


016610 


381 


39500 


T 


016613 


381 


40000 


T 


016910 


38] 


40500 


T 


016913 

38136000 


38j 


41000 


T 


016913 


38) 


41500 


T 


017311 



DCN: » 



DCl9» 

« se' 



PfWA!Tl0(94740000005&cN0T D I RFC ) C 22 1 47 I 1 3 » ?377 » U ) , DEL ) » *DB 

fnd;* 

CNTf.TL*-PLFN<1023;j! 

END FL.5E* 

I F KtND*^ THFNX 

RFGIN UNLaRELFD*CNTCTL*1 1% 

diRec*ojx 

END FLSE* 

IF K!NO"ll THFN 

BFGIN Tl*CIDR0W[U-32],li8il53) 

CIDR0WtU-3?],tl8ll5j*0» 

MrALPHA-?3»*rMrT13U10t8l38l 1 0]& 1 [24 ; 47 » 13 1 % 

MtTl-4]iBP(0UP»L.0n)*PlH|X[AREAMiXF]»LABELAREAVtAREATYPFFJl* 
MODF s *0;J! 

CNTcTLmOlRFCI«OIJ 

F!Brl3] t [ll91*NBUFS»ll FlBrl33,tlOl9]*l> 
IF BLEN<10 THEN BLFN*10} 

END ELSE 

FtLFMESSC- m I/0 ERR"»OtMFlD»FlD»REEL.CDATE*CYCLE)>X 
Pf 1)1 

IF BLFN.O THEN GO TO DCN;* 

IF NOT FIBtlfll.ri «13 QR P THEN 

GETpUFFFRS(BLFN,NBUFS»U. ALPHA )> 
GO FlNDJ 

' OMIT = NOTCDATACOM AND RJE ) 
FTBIM JIbNBUFSI 
USs30; KlND»si3; 
FTBri3].[l 191* NBUFS..2J 

F I BT 18] l»f«P(OUP))»(BLrN»"RLEN)[ 3133 115 HBLENtCTFll 
IF MFTD>0 THEN 

BFGIN ; 

STREAM(A*0»B*OtMFiD»FlD»C*0)l 
BEGIN 

SI* LOC MFfD; Dl* 

2CC* SI i 8f IF SC>0 

ELSE 

SI* CI C* TALLY! 

end; 



LOC A) 

THEN IF SC<9 THEN TALLY* TALLY+1 
JUMP OUT ELSE JUMP OUTJ Si» Si*l)| 
OS* C OCTI TALLY* Oj SI* LOC FID)) 



FID* PJ 

mfid*pj 

END) 

MrALPHA-2]* 0&MFIDt9:44:4]SFIDU4l44l4]J 
FIND** 

PfP&RrwrCTC],O.RDS»0,XCH»P&PCCTF]#STF)l 

end othfR file open INI 



38 


142000 


T 


0175*0 


38 


142500 


T 


0180S0 

38124500 


38 


143000 


T 


0180*0 


38 


143500 


T 


oiam 

38124500 


38 


144000 


T 


016111 


38 


144500 


T 


0183*3 


38 


145000 


T 


0185*2 


38 


145500 


T 


0186U 

38144500 


38 


146000 


T 


0186H 


381 


146500 


T 


018712 


38i 


147000 


T 


0190(0 


38< 


147500 


T 


019212 


381 


[48000 


P 


019710 


38< 


148500 


T 


0201U 


3B< 


149000 


T 


020210 


38] 


149500 


T 


0203*1 


381 


150000 


T 


020813 


38i 


150500 


T 


0210:3 

38146500 


381 


51000 


T 


0210:3 


381 


151500 


T 


021413 


381 


51800 


T 


021510 


381 


151900 


T 


021651 


381 


152000 


T 


0217 J 3 


381 


52100 


T 


0219J3 


38< 


152250 


T 


0222*0 


381 


52500 


T 


0222J0 


381 


56500 


T 


0222*0 


381 


157000 


T 


0223*1 


381 


57500 


T 


0224J3 


381 


58000 


T 


0227J3 


381 


58500 


T 


0231*1 


381 


59000 


T 


0232*0 


381 


59500 


T 


0232:2 


38] 


160000 


T 


0234J2 


381 


60500 


T 


0234J2 


381 


61000 


T 


0235*0 


381 


61500 


T 


023613 


38) 


62000 


T 


0239:0 


38i 


62500 


T 


0240J3 

38160000 


381 


63000 


T 


0241 10 


381 


63500 


T 


0241:2 


38] 


164000 


T 


0242:0 

38159000 


381 


64500 


T 


0242J0 


381 


91500 


T 


0246:0 


381 


92000 


T 


0246J0 


38i 


92500 


T 


024812 

38102100 




SIZ 


E* 0249 WORDS 



PROCEDURE OTHERFlLFOPFNOUTf ALPHA)* VALUE ALPHA? INTEGER ALPHA* 38200000 T 0000:0 

START OF REL SEGMENT! DISK ADDRESS • 00916 
PRTC677) s OTHfRFILEOPENOUT 

PEGIN RfAL RCWs+0,MSCWs-2J 38200100 T 0000«0 

STACKfF+O) = RCW 
STACKfF-?) = MSCW 



REAL TOMsIOMASK, I0MASK»+1J 38200200 T OOOOJO 

INTEGFR NBUFS« + J?»FNUM« + 3iRLEN« + 4# TYPE=+5# I 0=+6#BLENs+7 , Us+8 . 38?00300 T OOOOJO 



KINDs+9,MODE*+lO,DlREC*+ll »F0RMS»+12,C0B0L*+13, 38200400 T OOOOJO 



PRT{362) ■ TOM 
STACKfF+1) s IOMASK 

STACKfF+2) * NBUFS 

STACKfF+3) * FNUM 

STACKfF+4) * RLFN 

STACK(F+5) = TYPE 

STACKfF+6) « 10 

STACKfF+7) = BLFN 
STACKfF+10) = U 

STACKfF + U ) » KIND 

STACK(F+12) = MODE 

STACKfF+13) * DIREC 

STACKfF+14) * FORMS 

STACKfF+15) = COBOL 

UNLABFLED=+lft.0PTIONAL«+i5»CNTCTL»*16i 38200500 T OOOOJO 

STACKfF+16) « UNLABELED 

STACKfF+17) ■ OPTIONAL 

STACK(F+20) * CNTCTL 

REAL Tl=+17»T?sf i8,Ma$K=+19»STaTf=+20! 38200600 T OOOOJO 

STACKfF+21) * Tl 

STACKfF+22) * T2 

STACK(F+23) = MASK 

STACKfF+24) = STaTf. 



STACKfF+25) * MFlD 

STACK<F+26) * FID 

STACKfF+27) « REEL 

STACKfF*30) = CDATF 

STACKfF+3i) * CYCLE 

STACKfF+32) * FIB 

STACKfF+335 s FP8 

STACKrF+34) = ACCESS 

STACK(F+35) * FIB7 

STACKfF+36) * HEADER 

STACKfF+37) » TOG 

PRTC160) s USASI 

STACKfF+36) s RHFAD 



REAL MFTD=+?1#FID=+22J INTFGER REEL** ?3» CDATE«+24, C YCLF=+25 J 38?00700 T OOOOJO 



ARpAV FlBs+26r*]»FPB*+27r*];X 38200800 T 0000:0 

INTEGF« ACCFSS=+28,FlB7*+29> 38?00900 T OOOO'O 

ARRAY HEADER=+30t*] ; * 38201000 T OOOQJO 

REAL T0G»+3i; 38201100 T 0000:0 

REAL USASIsNTl , RHE AD.HE ADER * 38201200 T OOOOJO 



LABEL LPS,FtNn,DCN,PBSJ 38201300 T OOOOlO 

SUBROUTINE TYPEOPENJX 38201400 T OOOOJO 

BEGIN 38201500 T OOOllO 

Tl»*<OPNMESS AND ( ( Tl » ■ JAR[ PlMI X t 0] )>0 OR 38201600 T OOOlJO 

COPNMESS AND TkO))» 38201700 T 00O3J3 

t SET OMJT * PACKETS 38201800 T 0006J2 



BEGIN NT2js0j 

if u<i6 Then 

STREAMS S»«PRNTABLECU], 1301 18] # 
BEGIN Si ♦ LOC S; DS «■ 8 DEC; 
01 * Dl"7t DS «■ 6 FILL; 

end; 



di 



iCNT2])> 
% 
% 
% 



FlLEMESSAGEU" OUT w H 

T|NUrulC6l30i IB] . NT2, FPB[FNUM]. FPBCFNUM+U* 
IF KIND*2 OR ,KIND»9 THEN P( «EEL » CDATE ) ELSE 
P(0»0)# P. CYCLE* TDI 



end; 



end; 



SUBROUTINE REED** 
BrGtN IF (T2*WAITtO(T1.(MaSK OR *40HP377[CTF3>U> AND ?367)*0 THEN 
IF (T2 AND NOT MASK)#0 THFN 

BEGIN ST0PTlMjNGCFNUM»1023); BLaSTQ(U); SETNOTlNUSEfU.O); 
FILEMESS(- W PARITY ","0N ... «*TlNUrU3t24»30ll8)»« 
MFfD,FID.REEL.CDATE.CYCLE)l* 
END;* 



IF TERMSET(PlMiX) T H EN 
RFGIN STOPTiMiNG(FNUM»1023); 

go to initiate; 
end; 



setnotinusecu.ou 



FNP PEFDU 

REAL SUBROUTINE CNTLBlTS;* 

CNTLBlTS*i0MA5K&MoDEt2ll47lU*0lRECC22U7HliCNTCTLr23Urin 
H0t24M7mt(KIND»7 OR KIND>9 AND K 1 ND<12 ) 1 20 U7 t I ] 

*(if kind*10r kind=70r k i nd*1 2thenp20else 0)[?7u2i6]| 

surroutine labelarea;* 

M[Th»aLPHA-2]I«M OR ( GETSPACEC ( Tl I «MC T 1 J f S I H ) + 4 . *167- 

LABELARFAV.n + 4) & T1CSI ZE3 X CNTLBI TSf FTF ] ; 
P(RCW»MSCW»STF); 
RrWJsRCW&PfXCHilCTC]; 

IF STATE. [«UU ThENX 

BEGIN U«-FIB[15] ,[25:5m 

END ELSE* 

BEGIN T?»=FPB[FNUM+3]; % SAVES COPIES FOR BACK UP 
IF ( U »*F I NDOUTPuTfMF I D»F ID .REEL. CDATE. CYCLE* TYPE 
t SET OMiT = NOT PACKETS 

SFPB[FNUM + 3l[l»P3»n 
$ POP OMIT 

. FORMS, KlNn))>40 THEN 

BEGIN FIB[14J,[3U5]*U; 

FPB[FNUM+2],[1BI30]*0ATEI 

IF McP#NOT f -0) ThEN MtU*2]*USERcODErPtMlX] > 

MTU+3]*XCL0CK+PCRTR); 
TlIsSPACE(30); 
MOVEf 30,U.Ti)j 
STREAM(DATE»B*»Tl+3)> 
BEGIN Si»*LOC DATF;DSt*80CT;DllsDl-8;DS»«2LlT w + 2 ,, ;ENn; 



38202100 


T 


38202200 


T 


38202300 


T 


38202400 


T 


38202500 


T 


38202600 


T 


38202700 


T 


38202800 


T 


38202900 


T 


38203000 


T 


38203100 


T 


38203200 


T 


38203300 


T 


38203400 


T 


38203500 


T 


38203600 


T 


38203700 


T 


38203800 


T 


38203900 


T 


38204000 


T 


38204100 


T 


38204200 


T 


38204300 


T 


38204400 


T 


38204500 


T 


38204600 


T 


38204700 


T 


38204800 


T 


38204900 


T 


38205000 


P 


38205100 


P 


38210000 


T 


38210500 


T 


38211500 


T 


38212000 


T 


38212500 


T 


38213000 


T 


38213500 


T 


38214000 


T 


38214500 


T 


38215000 


T 


38215500 


T 


38216000 


T 


38216500 


T 


38217000 


T 


38217500 


T 


38218000 


T 


38218500 


T 


38219000 


T 


38219500 


T 



0006:2 
0007:1 
0008:0 
0010: 1 
0010:3 
OOll '1 

38202400 
00lt»2 
0012J0 
00l5»0 
0018:1 
0019(2 

36202100 
0019J2 

38201500 
0021:0 
0021 :0 
0024»2 
002613 
0030>0 
0030:0 
0034:0 

38203600 
0034:0 
0035:2 
0038:0 
0038:2 

38204100 
0038:2 

38203400 
0041 :0 
004l«0 
0043:2 
0048(0 

0053:0 

005510 
0059:3 
0063>0 
0066:0 
0067:i 
0068:0 
0070«0 

38212000 
0070:0 
0072:0 
0073»2 
0073:2 
0074:3 
0074:3 
007711 
0080U 

0083*1 
008810 
009012 
009213 
009411 
0095:3 

38219500 



MrTWl]*(XCL0CK + PlRTR))«(M[Tl + 33)r6l30U8]J 
M[Tl + ft] I* 0|$YSN0t«U6l2]&l[2U7l 13) 
MrTUb1*(*P(DUP))*lt2l47ll]| ^ABORTED PBO TOG. 

S SET OMJT = RJE AND DAlACOM 
P(0)j 

$ POP 0MfT 

* SET OMfT 



$ SET OMfT 



NOTCRJF 
Mf Tl+61 

MfU-l J* 

M PR 

FORGFTS 

packets 
filf 



AND DATACOM) 
♦P{XCH)» 
sEUFCIF TYPE NfQ 

d " elsf w pud 

PACE(Tl)} 



AND TYPE LSS 
w tMCU + 6],n- 



20 THEN 
1)1 



END 



S 

r 

FLS 



MESSAGE((IF TYPE GEQ 20 OR TYPE«0 THEN "PUD...." 

FUSE "PBD,...")&MtU+6Jt24l6»24]» 

"OUT "&M[U+63[30«30»18J, 

MF!D»F!D»0»0,0, 

fPBOREL OR OPNMESS))* 
TARTlMtNr,(FNUM,U».l8)> 

PB»»PRT[P1MIX,3]J % STARTLING MAY HAVE MOVED jT, 
E 



ir u lss o then xdsed 

BEGIN FIB[5].[39*4]»*9; 



GO FIND END ELSE 



begin 




lpsi 



PBS* 



end; 



FN0;2 

I F KlND*6 THFN« 
B f G T N R L E N * * 1 J 

FlRrlB] 8=(*P(DuP))*RLENrCTCHBLENrCTFHBLEN[3l33U5]» 

M0DE*D|KEC*CNTCTL^Ol* 
END FLSE* 

IF KT ND=1 THENX 

BFGIN MODF*-DIREC*CNTCTL*.0>3! 

IF NOT COBOL THEN M [ ALPmA-23 *0&l5[8* 38 » 10] i% 
END ELSFX 

IF K!ND*12 THEN 

BFGIN TYPf*IF (TYPE#0 AND TYPf<20) THFN 15 ELSE 22> 

MoDE>niREC*0| FIBC13] ,[H9J*NBUFS*CNTcTL*n FI B [ 1 3 1 . [ 10 I 9] *1 J 

BLEN*IF TYPE^20 T H EN 10 ELSi IF BLfN>l7 THFN 17 ELSf BLeNI 

M[Tl«.GFTSPACEf92»3»D + 2]*Mt TIM ]*[ H[ ALPHA ] ]&( Tl +2 ) [ CTFJt 
UM2I4?»6]» 

DlSKl0(fcHEAD»*Tl-75,ll»JARtPlMIX.6],tCF])l 

M|;ALPHA]«aTl+2J 



38220000 


T 


0097*1 


38220500 


T 


0102:0 


38221000 


T 


0106:0 


38221500 


T 


0109:1 


38222000 


T 


0109*1 


38222500 


T 


010912 


38223000 


T 


0109:2 


38226500 


T 


0109J2 


38227000 


T 


0111*2 


38227500 


T 


0U4:3 


38228000 


T 


011951 


38228500 


T 


0120*0 


38230000 


T 


0120*0 


38230500 


T 


0122*3 


38231000 


T 


0125J3 


38231500 


T 


0128*1 


38232000 


T 


0129*2 


38232500 


T 


0131*2 


38233000 


T 


0133*0 


38233500 


T 


0134*2 

38216000 


38234000 


T 


0134*2 


38234500 


T 


0140 t 3 

38234500 


38235000 


T 


014411 


38235500 


T 


0144*3 


38236000 


T 


0145*3 


38236010 


T 


0147*1 


38236500 


T 


0151*2 


38?37000 


T 


0153*0 


38237500 


T 


0157*0 


38238000 


T 


0160*0 


38238500 


T 


0162*2 

38237500 
38235000 


38239000 


T 


0162*2 

38213000 


38239500 


T 


0162*2 


38240000 


T 


0163*1 


38240500 


T 


0164*2 


38241000 


T 


0168*0 


38241500 


T 


0169*3 

38240000 


38242000 


T 


0169*3 


38242500 


T 


0171*0 


38243000 


T 


0173*1 


38243500 


T 


0173*1 


38244000 


T 


017711 

36242500 


38244500 


T 


0177*1 


38245000 


T 


0178*2 


38245500 


T 


0182*3 


38246000 


T 


0190*0 


38246500 


T 


019413 


38247000 


T 


0200(2 


38247500 


T 


0202*2 


38248000 


T 


0206*0 



end 



FlBrHJ*(*P(0UP)U(Tl+2)[CTCJ*(Tl+56>[CTF]| 
FIBrifl]*(*P(0UP))&RLFNtCTC3&BUENrCTFJ&BLEN[03»33M5]» 

STRFAM(D*T1 + 1)I ?f36(DS4.8 UIT»0»))| 

FlR[5].rFF]*(MrTi+9i]*FlB[53,tFF3*ltl8»47ll])+ll 

SLEFP(rKHEA0J»lOMASK)i 

HEADFRls[M[Tl]3&9?[8»38jlO]J 
HEADERt7«3*MFlO; 
HEADERt75]*-FlD ! 
HEADFRt87]*F0RMS| 

HEADFRt88]t»T2.t 15»83 J * COPIES 
HEADFR[89]:»USERC0DFCP1MIX]J 
MFADERr76J*ABS(JARtPlM!X,03); 
HEADFRt77]*ABS(JARtPlMlX,i3)j 

RFEL*RDCTABLEtU3.rl4»10]| X GET ACTUAL REEL NUMBER 

GO TO LPS) 
FtSF 



I F KfND*7 THFN* 

BFQIN TYPF*IF fTYPE^O AND TYPf<20) THFN 6 EUSE 20 1 

IF SVPBT THEN SAVFWORD i sTwOC U) OR SAVFWORD* 

GO TO pbs: 
END ELSE* 

I F KjND«? THFN* 

BFGIN IF PRNTABLE[U3>0 THEN GO TO DCNJX 
rNTcTL*MODE;X 

END FL-SE* 

IF KjND=8 THENX 

bfgin unlabeleo*cntctl*i>* 
direc«.ojx 

ENDIX 

If unlabel.™ then* 
bfgjn if cobol thenx 

BEGIN MASK*Ofl 

if kind«i then begin ti«.p<,oooioooooj reed end else 

IF KIND=7 OR KlNDsl? THEN 

BFGIN 

IF TYPE < 20 THEN 

BFGIN 

HEADER [73 J *P 15401 76000J OOOOO&F IB t53 r FTC 3 J 

FlB[5].rFF34.FIBi:53.[FF3 + ll 

FIBCU3.[FF]»«Tl + 38l 

end; 

go find; 
endi 

enoj*; 

END ELSE? 

BFGIN IF COBOL THEN* 

REGtN M[ALPHA-23*P(DUP.L00)*CNTLBlTStl8f 18H5J1* 
IF U<16 THEN* 





38248500 


T 


0208*0 




38249000 


T 


021 1 » 2 




38249500 


T 


0215:0 




38250000 


T 


021813 




38?50500 


T 


0224*3 




38251000 


T 


022611 




38?51500 


T 


0228*2 




38252000 


T 


0229«3 




38252500 


T 


023110 




38253000 


T 


023251 


XI 32- 


38253100 


C 


0234*0 




38253500 


T 


0235J2 




38254000 


T 


0237*3 


X745- 


38254100 


C 


024010 




38254500 


T 


024112 




38255000 


T 


0242:0 

38245000 




38255500 


T 


024210 




38256000 


T 


0243*1 




38256500 


T 


0247*2 




38257000 


T 


0250:2 




38257500 


T 


0251»0 

38256000 




38258000 


T 


0251«0 




38258500 


T 


0252*1 




38259000 


T 


025411 




38259500 


T 


0255:0 

38258500 




38260000 


T 


025510 




38260500 


T 


025611 




38261000 


T 


0258 JO 




38261500 


r 


0258»3 

38260500 




38262000 


T 


025813 




38262500 


T 


0259:0 




38263000 


T 


0259J3 


F 


38263500 


T 


0261 10 

38263500 




38264000 


T 


0264:0 




38264500 


T 


026713 




38265000 


T 


0268*1 




38265500 


T 


0269*0 




38266000 


T 


026912 




38266500 


T 


0271*2 




38267000 


T 


027413 




38267500 


T 


0277*1 

38265500 




38268000 


T 


0277*1 




38268500 


T 


0279*0 

38264500 




38269000 


T 


0279*0 

36263000 




38269500 


T 


0279:0 

38262500 




38270000 


T 


0279*0 




38270500 


T 


027913 




38271000 


T 


0283*3 



STRPAM(NUPRNTARUE7U].C30I18],D*M[ALPHA-2J);X 

BEGIN SI'LOC N; DI*DI+53> DS«-5 DEC EN0J* 



FNH FLSF* 



BEGIN 



TNDJX 



if hff.lso Thfn RefL«-i*« 
tf cycleso thfn cvcue*u* 

IF CDATE.O THEN STREAM(DATE»CD*tCDATE3)ll 

BEGIN Sl«.lOC DATn Sl*Sl+3; DS*5 OCT FND* 

labelareajx 

buildlabflcmc alpha-23 » mf id»fjd» reel »cdate» cycle** 

FIBI4]»(IF U<16 THEN PRNTABLEt U ] , t 30 » 18 ] 

else 0), state, [461?], % 
rlen.rlen);* 



if 

BEGIN 
BEGIN 



DS»=LIT"X»J 



M[Mf AUPHA-2] INX PC dUP ) . [ 8 : 10] ]«.037OOOOOOOOOOOOOO J * 

IF (P(KIND»DUP)b7 OR C P< XCH» DUP )*1 2 OR PCXCH)*!)) THEN 

KIND*? AND FJBrl3],t?fl»l0J#ABS<C0B0L> THEN GO FIND FlSE 
IF TYPE GEO 20 THEN % MAKE CP BACK-UP LABEL 
MrMfAUPHA-?] INX ft ] l sFLAG ( NABS ( JAR [P lM I X » ] ) } I 
M[M[ALPHA-2] INX 5]*»FLAG(JAR[PlMlXtlHl7clU3i5]>l 
STREAM(AJ»[MCM[AUPHA-2] INX 6J])J 
REGIN DSl*15 LIT" PUNCH BACK-UP "J 

2(0S:=8 LIT"********")! 
END? 

END ELSE % MAKE LP LABEL 

BEGjN Tl .«»MrM[ALPHA-23lNX 33* 

DISKI0(T?,NABS(M[ALPHA-2]INX l)»ll.JARCPlMIX,6].tCF])l 
MtM[ ALPHA-?] INX 1 3 ] : *FLAG( NABSC JAR[ P lM I X #0] ) ) J 
M[M[ALPHA'2HNX 1 4 J t »FLAG( J ARC P 1M I X » 1 ] & 1 7 [ 1 5 43 » 5]) J 
SLEEPCIT23.I0MASK); 
MfM[ALPHA-2] INX 33**Tll 



FMDJ 



*150' 
X150- 
X150- 
P360170100000000H 



M[M(ALPHA-2] INX 1 ] laMFlOl 

M[M[ALPHA-2] INX 2]UFIDJ 

IF KIND*1 THEN M( ALPHA-2 3»P(DUP»L0D > t. 

(IF Separate Then i else t20)[27u?i63 

ELSE 

BEGIN HEADERt73]*fFIB[5],tFF] OR 
(TYPE<20)I32U7UJI 
IF NOT SEPARATE THEN 1150- 

IF CTYPE<20) THEN X150- 

HFADER[73J«-PCDUP»L0D)&<P20>[27H2i6]!X150- 
FlR[5]*P(DUP»L0D»0»lfCFX»+)» 
STREAMCL*M[ALPHA-23,B*tHEADER[563])| 
BEGIN S!«-Ll DS*17 WdS END* 



FIBtl4].CFF]*tHEADER[383]l GO FIND* 



FNOi 



FNOI 



38271500 T 
38272000 T 

38272500 T 



38273000 
38273500 
38274000 
38274500 

38275000 
38275500 
38276000 
38?76500 
38277000 
38277500 

38278000 
38278500 
38279000 
38279500 
38280000 
38280500 
38281000 
38281500 
38282000 
38282500 



38283500 
38284000 
38284500 
38285000 
38285500 
38286000 
38286500 

38287000 
38287500 
38288000 
38286100 
38288200 
38288500 
38289000 
38289100 
38289200 
38289300 
38289500 
38290000 
38290500 



T 

T 
T 

T 

T 
T 
T 
T 
T 
T 

T 
T 
P 
T 
T 
T 
T 
T 
T 
T 



38283000 T 



T1«-NFLAG(MULPHA-2])JX 



38291000 T 
38291500 T 



38292000 T 



028412 
0288:0 

38272000 
0289:0 

38270500 
0289:0 
029l»2 
029382 
0295?3 

38274500 
0296t3 
0298J0 
030150 
0303*0 
0305:i 
0306:0 

38273000 
0306«0 
0309J3 
0313*0 
0316*1 
0317*3 
032253 
0328:0 
0331*0 
033353 
0335*2 

38281500 
033553 

38280000 
0335*3 
0341*1 

0345*3 
035052 
035553 
0357*1 
0360*2 

38283500 
0360*2 
036353 
0367*0 
0370*0 
037251 
0373*2 
037650 
037850 
037950 
0380*1 
0383*1 
0385*3 
0368*1 

38290500 
0389(0 
0393*0 

36288500 

38279500 
0393*0 



MASK+Ol rfed** 
if kinr*? then* 

begin t2*pu370ooo000o00o0;x 

Tl*NFLAG(CT2l)}J! 

RPEOI* 
rNDi* 



endi* 



P(O) J 

IF GLFNxO THFM 
OCNil FILFMFSSC-'M/O FRR"» 0* MF I f)» F I D,RFEUCDATE>C YCLE ) » 

IF NOT FIB[18J.tl« tl OR P THEN 

<5ETBUFFfRS(BLfN.NBUFS,U»ALPhA)I 

finds: 

pf prrcwi ctc]»o.rds»o.xch'p&p[ctf)*stf); 
fnd othfR file open out; 



38292500 


T 


039511 


38293000 


T 


0397*0 


38?93500 


T 


0397»3 


38294000 


T 


0399*0 


38294500 


T 


040010 


38295000 


T 


0401 ;0 

38293500 


38295500 


T 


040i:0 

38270000 


38296000 


T 


040i:0 


38296500 


T 


0401:1 


38296750 


T 


040210 


38297000 


T 


0405*3 


38297500 


T 


0407*1 


38298000 


T 


040911 


38?98500 


T 


040911 


38?99000 


T 


041212 

38200100 


SlZE« 0415 WORDS 



PROCFDURF DTSKCLOSf(ALPhA); VALUE ALPHA? INTEGFR ALPHAJX 38355000 T OOOOsO 

START OF REL SEGMfNTI DISK ADDRESS « 00930 
PRT(700) c DlSKCLOSF 

BEGIN RfAL RCWa + 0,MSCWs-2J 38356000 T 000050 

STACKfF+O) . RCW 
STACKfF-?) . MSCW 

ARRAY FIB b +i r*l*FpB=+2r*],HEADER«+3[*] «X 38357000 T 0000:0 

STACKfF+t) * FIB 
STACKfF+2) s FPB 
STACKfF+3) » HEADER 

XXX DOMT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" XXI WCP 38358000 T OOOOlO 

INTEGER KlND» + 4»NBUFS = + 5»U* + 6#BLEN* + 7,C0DE*'t-8» 38359000 T OOOOlO 

STACK(F+4) * KIND 
STACK{F+5) * NBUFS 
STACKfF+6) . U 
STACKfF+7) = BLEN 
STACKfF + lO.) s CODE 



STACKfF+11) « UNLABELED 

STACKfF+12) a COBOL 

STACKrF+13) = I 

STACKfF+14) » J 



UNLABFLEDs + 9,C0B0L* + 10» I =«*1 1 » J*+t2» 38360000 T 000010 



FNUM.+13J 38361000 T OOOOlO 

RrAL Mid»+U»FID«+15»Rs+16#Db+17,Cs+18»F0RMS»+19,STATF»+20; 38362000 T OOOOlO 



STACKfF+15) s FNUM 

STACKfF*16) s MID 

STACKfF4l7) u FID 

STACKfF+20) a R 

STACKfF+21) » D 

STACKfF+22) * C 

STACK(F+23) * FORMS 

5TACKfF*24) * STATE 

STACK(F+25> s STA 

STACKfF+26) * Tl 

STACKfF+27) ■ T2 

STACKfF+30) a T3 

STACKcF+31) * IOD 

STACKfF+32) s SEfiO 
STACK(F*33) = SKEL 

STACK(F+34) « T 
STACK(F+35) * ACCESS 

BOOLFAN C0MPf,0* + 30; 38366020 T OOOOlO 

STACKfF+36) = COMPfiO 

S SET OMiT a NOT SHAREOISK 38366099 T OOOOlO 

subroutine cooloff' 38370700 t oooojo 

bfgin for 1*0 step 1 until nbufs-i dox 38370800 t oooiso 

begin if not m[ alpha* i ] . [ 1 9 1 u thenx 38371000 t 0005»1 

sleepf cm[alpha+ij]»10mask)j* 38372000 t 000712 

IF KlND/ft THEN 38373000 T 001012 

IF M[ALPHA+f].[27llJ THEN GO TO EOFJX 38374000 T 0011 1 1 

ENOlX 38375000 T 001412 



label lt »l2»l3»e0f»cleanupj 38363000 t oooolo 

Label objtypf, dummy* 38364000 t ooooio 

rfal sta*+21jx 38364100 t 0000*0 

RFAL T1«= + ??»T2* + 23»T3* + 24, i0ds + 25;X 38365000 T OOOOlO 



ARRAY SEG0*+26r*3»SKFL«+27[*]JX 38366000 T OOOOlO 

RFAL Tr + ?R,ACCESS=+29>X 38366010 T OOOOlO 



FOFl END COOLOFFIJ 

% 

BOOLFAN SURHOUTlNp WRUTFNON) X PfCKS UP THE ACCESSED BITS FROM 
BfGTN J**0J % THE BUFFERS, 

IF (Tl«FIBClO].r3ll53) NEQ THFN 
BEGfN 

FOR Ii»NBUFS-l STrP -1 UNTIL DO 

IF MtTl.rilMJ THEN Jlslla-i ELSE T I pM[ T 3 . T FF]-2> 
FNOJ 



38376000 T 



WRlTTENON:=j; 



end; 



DfFINF RFW-CODE.C^Ml't* 

KRLINCH«N0T CODE . r 4? ! 1 3 * » 
REL=C0DF.[^6«l]#,X 
TIMF«COOE.r«5H3#»X 
LOcKsNOT CODE, t * 4 * 1 3 # . X 
PURGE«=NOT CODE.r43:l3#}* 

DFFIME TECH*STATE.M6»23#, 

WRlTBACK»FlB[133.[?3»l]#, 
HRrTEAFTERE0F"F!B[j3],r«4l21#» 



0PENI0»F!B[131,[22llJ#, 
LASTlO«FIB[13J,t46ll]#, 
INPUT-STATE. [43ll]#| 



% 

% 

% 



START OF CODE 

Pf RCW»MSCW»STF) J 
HFADFR ♦• FIBT143J 
IF COBOL THEN 
BFGIN IF COBOL 
BEGIN IF 



RCW ♦• RCW & PCXCHHCTC3J 
ACCESS * FIB[4J.[27S33J 



61 



END* 



> THFN % COBOL 

WRITBACK AND TECH'O AND LASTlO AND 
(OPENIO OR NOT(INPUT)) THEN 
IF ACCFSS*1 AND WRl TEAFTEREOF#0 THEN 
BEGIN FlB[7] * *P(DUP) - 1) 

HEADERt7] •■ *P(DUP> - 1? 
END ELSE WRlTEAFTEREOF ♦ 01 

TECHsO THEN IF WRJ TEAFTERE0F«2 THFN 
BEGIN FIB[73 * *P(DUP) + i* 

HEADER[73 ♦ *P(DUP) + u 
END ELSE IF WRlTEAFTEREOFsl THEN 

BEGIN FIBC73 * *P(DUP) - i; 

HEAUERC73 * *P(DUP) - \\ 
END) 



^RiteafteRfOf * 01 



IF 



S SET 



if access*! then 
begin if cobol > then 
begin access «• 4* 

IF FlR[l33,rlOl9] 
BEGIN 
OMIT = NOT SHAREDISK 



IF RANDOM 
C0B0L61 



« 2 THEN X SEEK IN PROCESS 



38376500 
38377000 
38377200 
38377400 
38377600 
38377800 
38378000 
38378200 



38379000 
38380000 
38381000 
38382000 
38383000 
38384000 
38385000 
38385400 
38385500 
38385600 
38386000 
38386010 
38386020 
38387000 
38388000 
38389000 
38389100 
38389200 
38389300 
38389400 
38389500 
38389600 
38389700 



38391010 
38391020 

38391025 
38391030 

38391035 
38391039 



38378400 T 
38378600 T 



38389800 T 

38389900 T 

38390000 T 

38390100 T 

38390200 T 

38390300 T 

38390400 T 

38390500 T 

38391000 T 



38371000 
0015<0 

38370800 



0015 
0015 
0016 
0016 
0018 
0019 
0023 
0030 

0030 
0031 

0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0034 
0036 
0037 
0038 
0042 
0045 
0048 
0050 
0052 

0055 
0058 
0061 
0063 

0065 
0067 
0069 

0069 
0072 

0072 
0073 
0074 
0075 
0077 
0077 



1 

1 



3 

3 

1 

2 

2 
38377600 

2 


38377200 



3 



1 
2 


2 
2 

8389500 
2 
3 
1 
1 
38389900 
1 
3 
3 

8390200 
3 
1 
8369200 

1 


1 
2 

2 



COOLOfFJ FIB[13J,[ 10*93 «■ 1* 

END 

FND ELSE IF FlBU73<BLEN THEN ACCESS*4* % C0B0L68 



end; 



IF FIBrl3], [23113 AND ACCESS*0 THEN 
BEGIN FlB[7]*pfnUp ( LOD)-U 
ACCESS*^} 
END* end; 



if not state. t^nn then* 

BFGTN IF ACCFSSsl Thfnx 
BFGlN 

s set om?t c not sharedisk 

COOIOFF* 
END ELSE* 

IF ACCESSsO then* 

BEGIN COOUOFF; IF NOT STATE. U3ll] THEN* 

IF FIB[17]<BLFN AND STATE. t 461 23*0 THEN* 
BEGIN RUSPACF(C<BLEN + 29) Dl V 30)x30+l>* 
IF (MrR]*M[FlBtl6]3*!l 
DlSKADnRESS(MlD»FTD»FPBCFNUM+3]#FlB[7]-l,HEADER»0)) NEQ THEN X (SHM) 

BEGIN 

P(WA1TI0(FIB[16J*1[ 24 14711] 4R [331331153,* 

0#U)»DEL)JX 
MOVECFlBtl73#R+BLEN»FIB[17 3+l»* 

FIBC163 INX BLEN-F1B[173+1)IX 
PCWA!TI0CFIBC16J.0»U)#DEL)J* 

IF NOT FIB[163. [24113 THEN HEADER! 4 3 , [ 1 1 1 1]*1 I 

END* 



END** 



FORGETSPACE(R)!* 



ENn elsf* 



BEGIN 
S SFT OMIT * NOT SHAREDISK 

COOI.OFF? 
IF CF IRT 17 3LSS BLFN AND STATE. t 46 I 2 3NEQ 0)OR ACCESS»4 THEN 
BEGIN IF ACCESS*4 THEN 

IF FIBT133, [23113 OR NOT STATE. [43:13 THEN 
ACCESSI«2| 
IF (M[FIBtl633l«DlSKADDRESS(MlD»FID»FPB[FNUM*33» * (SHM) 

FlBr7J#HEADER»0))«0 THEN ACCES5I»4I 

if access#4 then 

BEGIN P(WAlTlO(FIB[l63&Of24l?4«l3#0,U),DEL)J 
HEAOF.R[43, [11*13*1* ENDI 

END* IF ACCESS s 4 THfN ACCESS I* 2* 

ENDI* 



38391050 T 

38391055 T 

38391060 T 

38391070 T 



38391080 
38391090 
38391100 
38391110 



38392000 
38393000 
38394000 
38394099 
38394300 
38395000 

38396000 
38397000 
38398000 
38399000 
38400000 
38401000 
38401100 
18402000 
38403000 
38404000 
38405000 
38406000 
38406500 
38407000 



3841 
3841 
3841 
3841 
3841 
3841 
3841 
3841 
3841 
3841 
3841 
3841 



1000 
1009 
1030 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1750 
1800 



38408000 T 
38409000 T 

38410000 T 



38411900 T 
38412000 T 



0077*2 
0081*2 

38391035 
0081*2 

38391025 
008411 

38391020 
0084*1 
0086? 1 
0088:3 
0089*2 

38391090 

38389100 
0089*2 
0090*2 
0091*3 
0092*1 
0092*1 
0093*0 

38394000 
0093*0 
0094*1 
0097*0 
0100*0 
0104*3 
0106*2 
0111*3 
0112*1 
0114*2 
0115*2 
0118*2 
0121*0 
0122*3 
0127*0 

38401100 
0127*0 
0127*3 

36399000 
0127*3 

38397000 
0127*3 
012811 
0128*1 
0129*0 
0132*0 
0133*3 
0136*2 
0137*3 
0140*2 
0144M 
0145*0 
0148*1 

38411750 
0150*3 

36411200 
0152*3 

38411000 



END J* 

HFAnFRr4J,r«3M J »«FPBr fNUM + 3] 9 Cl5t 13f 

IF fNOT REW) OR LOCK OR RfL OR TIME THEN 
PEGTN 

FORMS*HEADFRr3l; 

STRfAMCPF*[F!Pt*]3»0»FPBtFNUM+2j.I16l30],H*tHEADCRt3J3»S*rTl)l 
BfGIM Si«.PFJSI*S!+5;dS*^ OCTJSI«-lOC D»DI*H*DS*8 OCT END* 

HFAnFRt33*f Pf nUP»L0D»SSN))*(P(DUP))[12l30H8]*Tt2l3BHO3l 
F'ND) 



38412100 T 



IF LOCK OR HFAnfRr«].t*3*l3 THEN 
BfGJN IF NOT HFAOERtttJ THfNXFiLe IS 
BEGIN 

IF KRUNCH THEN kRUNCHFR (HE AD 
HEADERt43.r9l33»«5l» Ma 
IF JAR[PlMIX»03 < AND 
COMPHER CLOSING CODE FILE WITH LOCK *** 

BEGIN 

SEGOJstMtTYPEDSPAC 
SKEL *■ 31 INX SEGO 
X READ IN SFGMENT 
DISKKaIT(-SfGO.[CF 

% read in skeleton 
diskwait(-skel,[cf 
if skfL[203<o then 

IF JARtPlMjX#23.[8 

BEGIN X COMPILE 

SKfLt63'*JAR[ 

fPRT 

DISKWAITCSKEL 

rOMPGO * TRUE 

END 



BEING CREATED 

ER>* 

RK AS NEW FORMAT.ACCESSED 

FlBr«],[29ti] THEN 

****************************** 

E(62,SEGZEROAREAV)3 3&30tSlZE3J 
* T3 * JAR[P1MIX»23,[FF31 
ZERO 
3»30,HEADERU03)J 

SHEET 
3»30»T3); 

SKELt20] ♦ SEGO[73.[FF31 

M03«i Then 

AND GO ********************** 
P1MIX.63& 

CPlMlX»33,t8ll03 + 20)[CTF3l 
,[CF3»30,T3)> 

J 



ELSE 

BEGIN % COMPILE 
FOR Tl ♦ 15 S 
SFGOtTU 
IF (T? ♦• SKEL 
SKpLt 133 ♦ 01 
DISKWAIT(SKEL 
IF(TllsDlSKADDRESScMID,FID»FP 

(*P(DUP))+1» 
FlLEMESS 

SEGOI153 * Tl 

Lit DISKWatT(-SKf 

FORGETFSPDISK 

fF (T2*SKEL[2 

IF(T3lBDlSKADDRESS(MID»FID»FP 

f *P(DUP))+1 
FlLEMESS 

SKELC293 * T3 

DlSKWAlT(SKEL 

I*HEAD 



TO LIBRARY ****************** 
TEP 1 UNTIL 22 DO 

* SKEL[T13J 

[1333 * THEN GO TO L3I 

% IN CASE I CALL TERMINATE 
,CCF3#30»T3)J 

BtFNUM+33»HEADERC73l* * (SHM) 
HEADER»0))«0 THEN 
{-"DISK "»"OVRFLOW»,Mm»FID. 

R»D»C)» 

♦ HEADER£73* 
L,tCF3»30»T2)l 

(T23I 

93) - THEN GO TO L2l 
8tFNUM+33»HEADER[73'8 % (ShM) 
»HEADER»03)«0 THEN 
(-"DISK H t"OVRFLOW%MlO»FlD» 

R»DiC)» 
731 



38412200 
38419000 
38420000 
38421000 
38422000 
38423000 



♦ HEADERC 
.[CF3»30t 
FRfTl DIV HEADER[83+103 ♦ 



38426000 
38427000 
38428000 
38429000 
38430000 
38431000 
38432000 
38433000 
38434000 
38435000 
38436000 
38437000 
38438000 
38439000 
38440000 
38441000 
38442000 
38442100 
38442200 
38443000 
38444000 
38445000 

38446000 
38447000 
38448000 
38449000 
38450000 
38451000 
38452000 
38453000 
38454000 
38455000 
38456000 
38457000 
38458000 
38459000 
38460000 
38461000 
38462000 
38463000 
38464000 
38465000 
38466000 
38467000 



38424000 T 
38425000 T 



T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
*T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



015213 

38393000 
015283 
0156(2 
016013 
0161U 
0162$ 1 
016512 

38423000 
0167*1 
0171«0 

38420000 
017110 
0173*1 
Ol74»2 
0l75«0 
0177:2 
018010 
016213 
018213 
0183 ? 1 
0185*3 
0190<2 
0190*2 
019310 
0193*0 
0195U 
019813 
020013 
0201*1 
0202*3 
020512 
0207«2 
0208»1 

38442000 
020811 
0208:1 
0208(3 
0210:0 
021313 
0215*3 
0217*0 
0219:0 
0221*1 
0224(3 
0224(3 
022810 
0230(0 
023211 
0233*0 
023510 
0237*1 
0240*3 
024013 
0244*0 
0246*0 
0247*2 



DUMMY I » 



FNDJS 



FND5* 



L?i 



L3 : 



Tl MOD 
Tl * T3J 
P,0 TO LI J 

nlSKWA|T(SKEL.rCn»30. 
!*HEADER[T1 DIV 

Tl MOD 
SF.00[6] «■ P(DUP»LOD»SSN); X 
HFADERr«],C10ll]*illMARK AS 



HEADERt83)J 



HEADERC83-U03 + 
HEADERtS])* 

"NEW FORMAT" 
PROGRAM FILE 



DISKWAIT(SEG0,[CF3»30»HEADER[10])I 
END COPY OF LABEL EQUATION CARDS* 

FORGETSPACE(SEGO); 

IF HFADERt7]<HEADER[8]-l THEN 

BEGIN FORfiETUSERDlSK(HEADERClO]+HEADERt?]+t. 

HEADER[7J-HEADERr8]+t)i 
HEADERtB] * HEADERf7]*H 
END> 



for t t • *-i step i until 4 do 

IF Pf f OBJTYPEfTl»+,LOD)«ABS(JARtPlMIX,0]) 
HEADERS] ,[36»63l«Tl+2l 



THEN 



t"NDJ 



HEADERCl]*-FORMSSHEADERt3]t6l30ll83I 
IF (HEADERt23«aUSERCODECPlMlX]),tl«l] OR 
MCP«NOT(-0) THEN HEADERt2]*0* 
HEADERT5] l s hEADfR[63 ** 0{ 

if comPgo Then 
begin prtipimix.p26]«-i0d*getespdisk; 

DlSKWAlT(HEADERttCF]»30,IOD)l 
END ELSE 

BEGIN 

ENTERUSFRF lLF(Mln»FID»HEADER.CCF]-l)J 

END? 



IF PEW AND NOTCLOCK OR REL OR TIME) THEN 
BEGIN 

IF HFADERT4] THEN 

IF WRITTENON THEN HEADER t 4 3 . [ 1 1 I 1 3 * *1 J 

STATF.T39UJI.?} 
END ELSE 

BEGIN 

HFAOFRtl J*FORMSRHFAOFR[33r6'30llB]l 

IF HEADERT43 ThEN*FILE ALREADY EXISTS 
BFGIM 

JJsKRlTTENON OR HEADER U 3 , 1 11 « 1 3 > 
$ SET OMIT s SHAREDISK 

I *- 1 F FIBtSl.mt] OR NOT J THEN FIBC53,C13«31-»-lO elsf 
(HEADER INX 0)iFlBt53[30»i3l33) 
$ POP OMIT 
$ SET OMIT s NOT SHAREDISK 



38468000 


T 


0249* 1 


38469000 


T 


025H1 


38470000 


T 


025210 


38471000 


T 


025510 


38472000 


T 


025612 


38473000 


T 


025811 


38474000 


T 


026011 


38475000 


T 


0262«0 


38476000 


T 


026412 


38477000 


T 


026613 

38447000 


38478000 


T 


026613 


38479000 


T 


026713 


38480000 


T 


0269*2 


38481000 


T 


027210 


38482000 


T 


0?74*0 


38483000 


T 


027610 

38480000 


38484000 


T 


0276*0 


38485000 


T 


0277*0 


38486000 


T 


0279»2 


38488000 


T 


028511 

38433000 


38489000 


T 


028511 


38490000 


T 


0287J3 


38491000 


T 


028913 


38492000 


T 


0293*3 


38494000 


T 


0296:0 


38495000 


T 


0296*1 


38496000 


T 


0299*1 


38497000 


T 


030l»! 

36495000 


38498000 


T 


030111 


38499000 


T 


030113 


38500000 


T 


0304*2 

38498000 


38501000 


T 


030412 

38428000 


38502000 


T 


030412 

38427000 


38503000 


T 


030412 


38503200 


T 


030613 


38503400 


T 


030911 


38503600 


T 


030913 


38503800 


T 


031410 


38504000 


T 


031513 

38503200 


38504500 


T 


031513 


38505000 


T 


031611 


38506000 


T 


031813 


38507000 


T 


031911 


38507500 


T 


0319*3 


38507799 


T 


0322*3 


38507800 


T 


0322«3 


38508000 


T 


0327*0 


38508001 


T 


0329*3 


38508599 


T 


0329*3 



ir(I*DlRECT0RVSEARcH(MlD»FID*dC3U7tl]» \))*Q THEN 
IF PURGE then 

MTI+4], rl2l«]«0 fHFN 

NOT SYSTEMFTLE(MiO»FID) THEN 

SFCURlTYCHFCKCMlD#FlD,USERC0DEtPlMIX]tI).[45Jl] 

P(DIRECT0RYSfARCh(-MID,F!0»7)#0EL)I 

I NEO THEN FORGETSPACEM ) * 



IF 
IF 
IF 



THEN 



IF 



End else* 



IF NOT LOCK THFNS 

IF HEADERr«J,r43«!J THEN P( I RECTORYSEARCH( -M I D»F 1 D» 7} . DEL > FLSE 
BEGIN 
$ SET cMfT = NOT(DISKLOG) 

FOR T«-!0 STEP 1 UNTIL 29 1)0* 

IF HFADERril#0 THEN FORgETUSfRq I SK ( HE ADERtl ] * "HE ADER [ « ] ) * It 
END* 

FoRGFTSPACECHEADERJJ 
STATF.[39l4]*ll* 
END* 

IF NOT COBOL THEN F I Bt 4 ] . r 27 * 3 J *3* 
GO CLEANUP!* 

OBJTYPFtJ: "BASiC "» %\% 

"ALGOL % %?.% 

"COROL ", %3% 

"FORTRAN". *«« 

"TSPOL "» 155* 

"XaLgOL "» %6% 

0* XDUMMYX 
CLEANUP: 

Pf P*RCWrCTf 3»0»R0S»0»XCH»P*P[CTF]f STDI 
END DISK CLOSE* 



38509000 
38510000 
38511000 
38512000 
38513000 
38515000 
38516000 
38517000 

38518000 
38518500 
38519000 
38520000 
385?2000 
385?3000 
385?4000 

38525000 
38526000 
38527000 

38528000 
38529000 
38530000 
38531000 
38532000 
38533000 
38534000 
38535000 
38536000 
38537000 
38538000 
38539000 



T 0329*3 

T 0333»0 

T 0334*2 

T 0337*2 

T 0339*1 

T 0342*0 

T 0344M 

T 0346*1 

38507000 

T 0346*1 

T 0347*2 

T 0351*1 

T 0351*3 

T 0351*3 

T 0353*0 

T 0358*2 

38519000 

T 0358*2 

T 0359*2 

T 0361*1 

38504500 

T 0361*1 

T 0364*3 

T 0365*1 

T 0367*0 

T 0368*0 

T 036950 

T 0370*0 

T 0371*0 

T 0372*0 

T 0373*0 

T 0373*0 

T 0375*2 

38356000 
IZF* 0376 WORDS 



procedure: rackclosf(Alpha); value alpha* integer alpha;* 



PRT(701) * RACKCLOSF 

BEGIN RrAL RCW«+0,MSCW=-?> 
STACKfF+O) = RCW 
STACK(F*2) s MSCW 



START OF REL 



STACKfF+1) = FIB 
STACKfF+2) = FPB 
STACKfF+3) x HFADER 

*** 

STACKfF+4) a KIND 
STACKfF + 5) = NBUFS 
STACK(F+6) = U 
STACKfF+H s BLEN 
STACKfF+lO) ■ CODE 



STACK(F+11) * UNLABELED 

STACKfF+12) s COBOL 

STACKfF+13) a I 

STACKfF+14) » J 



ARRAY FlB = +lr*],FPBs + 2t*]»HEADER« + 3[*)Jj; 



DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" %%% wCP 
INTEGER KjND« + «.NBUFS* + 5»U« + 6.BLEN*-f7,C0DE* + 8> 



38540000 T 000010 
SEGMFNTI DISK ADDRESS ■ 00943 

38541000 T OOOOlO 



38542000 T OOOOlO 



38543000 T OOOOlO 
38544000 T OOOOlO 



UNLABEI.ED* + 9,C0B0L»+10»I«+11#J*+1P» 



STACKfF+15) = FNUM 

STACK(F+16> ■ MID 

STACKfF+17) = FTD 

STACKfF+20) s R 

STACK(F+21) ■ D 

STACKfF+22) - C 

STACKfF+23) = FORMS 

STACKfF+24) ■ STATE 



STACKfF+25) = STA 

STACK(F+26> a Tt 

STACKfF*27) » T? 

STACKfF+30) » T3 

STACK(F+31) « IOD 

STACKfF + 325 ■ SEC.O 

STACK(F*33) « SKFL 



FNUMx+131 
RFAL MlD=+14.FlD=+l5,R=+t6tDs+l7»Cs+i8»F0RMS*+l9,STATE**20J 



EOF; 



STACKfF+34) = T 
STACKfF+35) » ACCFSS 



LABFL Ar.AlNrFOF,EOT,CLOSEOUT»PBO»PUD> 
LABEL ZERODKAODR; 
RfAL STAs+21 }% 

REAL Ti»+??,T?*+23»T3«+?4, lODs+25;* 



ARRAY SEPi0« + 26r*3»SKEL» + 27t*3l 

SUBROUTINE COOLOFF'X 

BFGTN FOR 1*0 STEP 1 UNTIL NBUFS-1 DO* 

BFGJN IF NOT Mr ALPHA* I 3 '. I 19 • 1 ] THEN* 

SLEi'Pf tM[ALPHA*l]l#!OMASK)lX 

if kindiu then 

IF M[ALPHA-M],[27ll] THEN GO TO EOF;* 

END)* 

end cooloff;* 

rfal t* + 28>accfss*: + 29;x 



*175- 



38545000 T 0000*0 

38546000 T OOOOlO 
38547000 T OOOOlO 



38548000 T 
38548010 C 
38548100 T 



38552000 T 

38553000 T 

38554000 T 

38555000 T 

38556000 T 

38557000 T 

38558000 T 

38559000 T 

38561000 T 



0000:0 
OOOOlO 
OOOOlO 



38549000 T OOOOlO 



38550000 T OOOOlO 



OOOOlO 
OOOllO 

0005U 
000712 
001012 
0011U 
001412 

38554000 
001510 

38553000 
001511 



boolean r0MPr,0a + 30; 
STACKfF*36) = COMPGO 

Rfal typfj«+3i ; 

STACKfF+37) s TYPF 

nFFTNF REW«CODF.[47*13*»X 
REL«C0DE,C«6? j]#,» 

T!Mf»cODF.r*5ll3#»| 
LO C KsNOT C0DE.t«4«l]»»« 
PUR6E-N0T C0DF.r«3ll]#|X 
S SFT OMjT = PACKFTS 

DFFINE TORFELNO a 42U2l6f) 
S POP 0MjT OMIT 
X 

SUBROUTINE CKBKUP; 

BFGIN M[M C ALPHA]INX 17 ]«-M[ ALPHA ] ft ( F I Br 5 ] JtFTC Jl 

F I Bf 5 ] *Pf DUP»LOD»0» l«CFXt +>J 
IF NOT PRTR0W[PlM|X].[7in THEN 
IF FIBrt4],rCF]*FlBtH].tFF3 
THEN BEGIN PBI0CALPHA»FIB[J4] )(SLEEP(rM[ALPHA33. lOMASK)END ELSE 

BEGIN; STREAMCS* M[ALPHAJ#Z*FIB[ 14].[FF])I 

BEGIN Sl«-S; &S«-18 WDS END? 



38562000 T 
38562100 T 



F!Btl4].[FF3*P(DijP).tFF]-l8l 



END I 



END? 



PrRcWf mscw.stf); 

RrW JsRCWRPf XCH>[CTCll 
J*U0CKJ 

IF Tl*(FIBt 9 J.tl»13 ANp KIND*7) THEN X MULTI-REEL PBT FILF 
BEGIN 

FTB[9].n«n*Q; 

C00U0FF» 

GO TO EOT* 

FNOS 

IF MrFlBriA], [31153 iNX NOT 0] * THEN X X175- 

BFGIN X175- 

It*TYPE>?0; % lxpuD X175- 

RlBMrFIBrl*3.t3ll5j*61l X PB REEL NO, X175- 

GO TO ZERODKADDRJ Jt 1 75- 

ENOJ X175- 

IF FIBt 1 7 ]<0 THEN 

BFGIN M[ALPHA].tFF3*P6O020; IF TyPf<20 THEN CKBKUP; 

MtALPHAl.ri8ll]*0; CKBKUP END* 

ELSE IF FIBI17)<BLEN THEN* 
BFGIN IF NOT COBOL THEN F I Bl 1 7 3*F I B[ 1 7 ]•( STATE , C 46 I 23»3 ) I X 
STREAM(N5sFlBt j7] t D:«M[ALPHA3.[CF]); 
BEGIN N(0S|«8 LIT * ")> END? 

M[ALPHA]*FLAG(FlBtl6U0[20l47|l])t cKBKUPj 
ENO FLSE COOLOFFJ 

Mr ALPHA ]*f *Pf DUP))&(?60000)tCTF3; XI 50- 



38563000 
38564000 
38565000 
38566000 
38567000 
38567950 
38568100 
38568150 
38569000 
38570000 
38571000 
38572000 
38573000 
38573100 
38574000 



38580 
38581 
38581 
38581 
38581 
38581 
38581 
38581 
38581 



000 
000 
100 
200 
300 
AOO 
500 
600 
700 



38581800 
38581900 
38581910 
38581920 
38581930 
38581940 



38575000 T 

38576000 T 

38577000 T 

38578000 T 



38582000 T 
38583000 T 
38584000 T 

38585000 T 
38586000 T 
38587000 T 
38587500 T 

38588000 T 
38589000 T 

38590000 P 



0015H 

0015U 

0015U 
0015U 
0015U 
0015*1 
0015H 
0015U 
0015M 
0015* 1 
0015U 
0015U 
001610 
0020*1 
0022(3 
0024(0 
0025*3 

38574000 
0031 » 3 
0034(3 

38576000 
0035(2 
0038(2 

38575000 

38571000 
0038(3 
0040(0 
0041 (1 
0042(3 
0045(1 
0045(3 
0048(1 
0049(0 
0049(2 

38581300 
0049(2 
0052(2 
0053(0 
0054(1 
0057(0 
0057(2 

38581900 
0057(2 
0058(2 
0064(0 

38583000 
0068(0 
0071(0 

0075(2 
0078(0 

38587500 
0080(1 
0084(0 

38586000 
0086(0 



*150- 
P20)[27U2l6mi50. 



POP 
SFT 



AGAlNl 



IF TYPE<?0 THFN 

MrAL,PHA3«-C*P(DUP))R(TF SEPARATE THFN 1 ELSE 

IF NOT UNLABELED THEN 

BFfilM IF TYPE<?0 THEN CKBKUP) 

MrALPHA]*C*P(DUP))&2Cl8i«5l3]»MrALPHA-2lt8l8il0j| 

IF NOT SEPARATF ThEN M[ ALPHA ]*( *P( OUP) ) & 1 [ 27 * 42* 6 ] I X150- 

STREAM(L«-M[ALPHA-23»8*MrALPHA3 )» BFGIN Sl«-Lf DS*17 WDS FNOI 

EMOJ X150- 

IF NOT SFPARATF THEN Mr aLPHA]*P(DUP»L0D)*U27I42i6JI X150- 

MrALPHAj.rzonun *iso- 

IF FlB[lA].CrF]#FlB[l4].CCF3 THEN XI 50- 

bfgin ckbkup; f i bt 1 4 j , [ ff j*p( oup ) > end; ckbkupj 
if kindsi? then % pbd 

BfGU 1 T*FIBCHJ, [311531 

IF cR»»M[T+73x3) NEQ THEN 
BEGIN IF R < PBDROWSZ ThEN 

BFGIN FORGE T USE RD?SK(Mn+l03+R,P8DROWSZ"R+ 1)1 
MrT+8]*R; 

fnd; 

FNDi X601- 

MtT+l3*MrT+33l 

STREAM(A*FPprFNUM*2].[18»30]»T*T+3)J 

BEGIN SI*LOC A;DS*8 OCT I Dl *0 I »8; DS*2 LlT"*2 M ; 

Si*T|Sl*Sl+5jOS*3 CHR» 

END; 

M[T+1J, [61183 •MrT*3],t 30 U8JJ 

IF I««TYPIT>20 THEN Mt T + 5 3 . [ 3 \\ ] » *0 I 

Rj»M[T+6l) 

- datacom and rje 
P(0); 

= notcdatacom and rje ) 

M[T+63*=P(XCH); 

M[T + 5].[2'1J*0> 

DISKWAIT(T»30»M[T-1])J 

Dl*R8;ltT0REELN03; 

P(DIRECT0RYSEARCH(-(1F T THEN PcPUD) ELSE P(PBD))»D»1A)» 

OFL)J 
IF 0*R THEN 
BEGIN STREAM(0NE'«1» D»«[D]>» 

BEGIN SliaLOC ONE; DS<»8 ADD END; 



* SET OMIT 



OMIT 
QMJT 



GO AGAIN; 



end; 



$ SFT OMjT 



$ POP 0M|T 



* NOT PACKETS 

IF ( Tl l*PSEUDOMTXrPlMlX])«0 

IF PAC«ETPAGE[Tl-323*0 THEN 

if p or i then 

BEGIN PBC0UNT|«PBC0UNT+1 ; 



THEN 
P(l) 



P(l) 
ELSE 



ELSE 

P(0); 



38590100 
38590200 

38591000 
38591100 
38592000 
38592100 
38593000 



*105- 



38594000 P 



38594100 C 
38594200 
38594300 
38595000 

38596000 
38597000 
38598000 
38598100 
38599000 
38600000 
38601000 

38601100 

38602000 
38603000 
38604000 
38605000 
38606000 

38607000 
38607100 
38607200 
38607299 
38607300 
38607301 
38607399 
38607900 
38607950 
38608000 
38608100 
38608200 
38608300 
38608400 
38608500 
38608600 

38608700 
38608800 

38608890 
38608900 
38608910 
38608920 
38609000 
38609010 



0088*1 
008910 

009411 
009413 
009810 
010310 
010711 

38593000 
0111*0 

38591100 
OllllO 
0115U 
011810 
012011 

38595000 
012510 
0125*3 
012713 
013013 
013210 
0136 1 1 
013811 

38599000 
013811 

38598100 
01 381 1 
014112 
014411 
014512 
014611 

38604000 
014612 
0151 »2 
0156*2 
015812 
015812 
015813 
015613 
015813 
016013 
016410 
016612 
016811 
0171*1 
017H2 
017211 
01731 3 

38608600 
017412 
0176J0 

38608500 
017610 
017610 
0178«1 
01821 J 
0182*3 
0184*2 



IF AUTOPRlNT 
S SET OMIT a NOT RJF 

THEN P(PR|NT0RPUNchWAiT(R«H32I32I 16) » I 
S SET OMfT a NOT RJF 

)» DEL); 
» SET OMIT * NOT PACKETS 
END) 

$ POP OMfT 
ZERODKAnDRt *175- 

s set omit « packets 

FlLEMESSAGEf CIF I T H EN P(PUD) ELSE PC PBD > HRf! 24$ 6 1 2ft ] , 
("REL ")&R[30l30il8j.MlO»FIDf 
FlB[7]t0.0»(PBDREt OR CLOSEMESS))! 

F0R0FTSPACECFlBrU].[3ll5li> F I B t 1 4 1 • C 3 • 1 5 J 1-0* 

END ELSE 

FOTJ BFGIN T*Pl737000000000000j 

J**AITlO(CT]»*40»U)*0 OR JJ 

t «« SPACE(8)J 

STRFAM(PN»»TrPE GfQ 20,d» *0» I >| 

BEGIN 

ds«=24liT" label opbtmcp oback-up"j 

PN(Dt*DU 0II«0I*H> DS1»2LIT"UT"1 DII«0)J 
20(0SJ*2LiT M * ) 1 
END! 

IF NOT UNLABFLED THEN Mr I +4 ] *M [ M[ ALPHA-2] I NX 4],f4?»6)l 
Mr 1 + 3 J*T1 ; % MARK ENniNf, TAPE LABEL FOR MULTIREEL COND, 
J*WATT!0Cl48[8»38M0]&5t2l««5i3].*40»U)#0 OR JjX 

foRgftspaceci )l* 

FOR 1*0 STEP 1 UNTIL 1 nOg 

P(WAITIO(P1000000340000005»* J 40»U)»DEL);!I! 
IF (TWO(U) AND SAVEW0RD)#0 ThfNX 
SFTNOTINUSECU.O) fLSE 
HE C I N J> 

RDrTABLECUj*(*P(DUP))40l8«8i6URtl4l38ll0]l 

PRNTABLECUJ,[15I15J*0| 

RRRMfCH!«N0T TWO(U) and rrrmechJ 

IF J THFN SFTN0TINUSE(U>0) ELSE LABELTABLFCU].ni5]*ll *717» 

enoi end; 



STATE. TFFl^O) 

go closeout;* 
PBD»:: "PBD "; 
PUD1U "PUD "J 
CLOSEOUTl 

PfP*RCWrCTC J,O.RDS»0,XCH#P*PtCTF]»STF)l 
END BACK CLOSED 



38609100 
38609190 

38609300 

38609390 

38609500 

38609590 

38609600 

38609610 
38609700 
38609999 
38610100 
38610200 
38610250 
38610600 
38622000 

38623000 
38624000 
38625000 
38626000 
38626100 
38626200 
38626300 
38626400 
38626500 

38628000 
38628100 
38629000 
38630000 
38631000 
38632000 
38633000 
38634000 
38635000 
38637000 
38638000 
38638500 
38640000 
38641000 



38642000 
38643000 
38644000 
38644500 
38645000 
38646000 
38647000 



T 018412 

T 018412 

T 018412 

T 0187 » 1 

T 0187U 

T 018810 

T 0188*0 

38609000 

T 018810 

C 018810 

T 1 88 1 

T 018810 

T 019H0 

T 019213 

T 01951 3 

T 0199:3 

38597000 

T 019913 

T 020213 

T 020512 

T 020713 

T 020912 

T 020912 

T 021213 

T 021413 

T 021513 

38626100 

T 0216»0 

T 022210 

T 022410 

T 022813 

T 022912 

T 0232«0 

T 023513 

T 023712 

T 023910 

T 024110 

T 024412 

T 024710 

P 024910 

T 025313 

36635000 
38623000 

T 025313 

T 025510 

T 025512 

T 025710 

T 025810 

T 025810 

T 026012 

36541000 
SIZE* 0261 WORDS 



PROCEDURE OTHERCLOSf (ALPHA)I VALUE ALPHA* INTEGER ALPHA** 



PRT(702) a OTHERCLOSF 

BEGIN RFAL RCW«+0,MSCW«-2J 
STACKfF+0) ? RCW 
STACKfF-2) x MSCW 



STACKfF+1) ■ FIB 
STACK(F+2) s FPB 
STACKfF+3) a HEADER 

%%% 

STACKfF+4) . KIND 
STACKfF+5) » NRUFS 
STACKfF+6) = U 
STACK(F+7) * BLEN 
STACKfF+lO) * CODE 



STACKfF*ll) » UNLABELED 

STACKfF+1?) a COBOL 

STACKfF+13) * I 

STACKfF+H) * J 



ARRAY FlB* + n*1»FPB* + 2[*],HEADER» + 3[*m 



38648000 T 000050 
START OF REL SEGMENT! DISK ADDRESS • 00952 

38649000 T 0000*0 



38650000 T 0000:0 



DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" %%% WCP 
INTEGER KIND«+4#NBUFS*+5»U«+6,BLEN*+7,C0DE**8» 



UNLABELED = + 9,C0B0L = +I0»l=»+Il#js+12» 



STACK(F+15) a FNUM 

STACK(F+16) a MID 

STACKfF+17) = FID 

STACKfF+20) a R 

STACKfF+21) « D 

STACKfF+22? ■ C 

STACKrF+23) ■ FORMS 

STACK(F+2ft) « STATE 

STACKfF+?5) = STA 

STACK(F+26) a Tl 

STACKfF+?7) a T2 

STACKfF+30) a T3 

STACKfF+31) = IOD 

STACK(F+32) * SEGO 

STACKfF+33) a SKFL 

STACKtF+34) » T 

STACKfF+35) s ACCESS 

STACKfF+36) a COMPGO 



FNUMs+131 
RFAL MlDs+14,FlDs+15,Ra+16»Ds+l7,C*+i8,F0RMSa+l9,STATEa+20l 



REAL STA«s42i;l 

RFAL Tls + 22»T?*+23,T3a + 24» l0n*+25;* 

ARRAY SEG0»+?6[*].SKEL«+27[*]> 
RFAL Ts+28»ACCESSa+29i* 



BOOLFAN C0MPo0a+30> 

LABEL PX* 

LABEL CR»LP»MT,CLOSED»DK»SPt CP » BKUP, PP.PR, DC» CD. CC > 

SWITCH SW,.C R, LP. MT, CLOSED, DK.SP.C P. BKUP, PP. PR, DC » CD, BkUP J 

LABEL F0F,0N»DNE»CLEANUP<X 

LABEL EODJ 

SUBROUTINE COOLOFFJ* 

PFGIN FOR 1*0 STEP 1 UNTIL NBUFS-1 DOI 

BEGIN IF NOT Mf ALPHA+ 13 . t 1911 ] THEN* 

sleepccm[alpha+i3]»i0mask)ii 
if kind#4 Then 



%905- 



38651000 T OOOOlO 
38652000 T 0000:0 



38653000 T OOOOlO 

38654000 T 000080 
38655000 T OOOOlO 



38655100 T OOOOlO 
38656000 T OOOOlO 



38657000 T 0000:0 



38658000 T 0000:0 



38659000 T 0000:0 



38660 
38661 
38662 
38663 
38664 
38665 
38666 
38667 
38668 
38669 



000 
000 
000 
000 
000 
000 
000 
000 
000 
000 



OOOOlO 
OOOOlO 
OOOOlO 
0000*0 
000080 
OOOOlO 

ooouo 

000511 
000712 
001012 



END!* 



IF M[AUPHA+f 3,[27ll] THEN GO TO tOflt 



FOf« END cooloffj* 

DFFTNE REW»C0DE.[47»13#, % 

REL*C0DE.r46ti3#,l 

T!MfBC00E.t«5il]#»» 

LOcK.NOT CODE.[44li3#»* 

PURGE»NOT CODF. C43 t 1 3# J X 
SUBROUTINE EMPTY!* 

IF FIBC17]<8LEN AND (ST A Te.C<»6I2]#0 OR KiNqM) THEN 
BfGIN IF NOT COBOL ThEN F I Bt 17 ]*F I Bt 1 7 ]-( ST ATE , C46 » 2 3*3 ) I % 
STRrAH(K!NOiN tap IBC1 73 >0<aM[ ALPHA ] ( [CF])I 
BEGIN S!*LOC KtNDj SI*St+7J> 

if sc*"2 M Then ds*lit «••■» else* 

if sc*"5* then ds*ljt "*» else N(OS*e lit « «)** 

END** 

Pf "*AlTl0(FIBU6]*(BLEN-FIBll7jK(KiN0"2))t8l38»l0J» 

t*40»U)iDEL>J« 
( r IB[6]*-FIB[6 3*i; 

end flse cooloffu 
label closeoutjx 

LaBEL FOFlTJ* 

PfRCW.MSCW>STF)J 

RCWJ«RCWRP(XCH)[CTC]{ 

GO TO SWfKINDJJ 
CR> COOLOFF* BLASTQ(U)»X 

IF I^NBUFS THEN DO UNTIL WAITiO(M[ALPhA-2J»?40,U)#0 ELSE* 
BFGIM I*HrALPHA+n,[33ll5]U 
T*FlB[16],t33ll5]-2lJ 
FOR J*l STEP 1 UNTIL NBUFS DO* 
BEGIN IF (I>T) AND ( I S( T + BLEN+1 ) ) THEN GO ONJX 

T»MtTj.[tBli53-2l« 
FNDJX 

On: MOVfc10.T+?.M[ALPhA-23);X 
END** 

IF JARtPlMlX»01<0 THENX 
IF PRT[P1MIX,P253*0 THEN* 
DNF» BFfiTN STRFAMd: F* m ENDPaCK m p D*Mf ALPHA*2 3 ) i % 
BEGIN SI*DU 

LI SI«-SI + 1I IF Sc»" M THEN GO TO LJX 
oi«-loc e; DI*DI + 1> 
IF 3 SC«DC THFN TaLLY*1> 
S SET OMIT * NOT(PACKETS) 

IF TOGGLE ThEN ELSE 

BEGIN Si*S!-3| IF 4 SC«DC THEN TALLY*1> END* 



$ POP OMIT 



I*TALLYI| 



38670000 T 
38671000 T 

38672000 T 



38674000 
38675000 
38676000 
38677000 
38678000 
38680000 
38681000 
38682000 
38683000 
38684000 
38685000 



38692000 
38693000 
38695000 
38696000 
38697000 
38699000 
38700000 
38701000 
38702000 
38703000 
38704000 
38705000 
38706000 



38709000 
38710000 
38711000 
38712000 
38713000 
38714000 
38715000 
38715099 
38715100 
38715200 



38686000 T 
38687000 T 

38688000 T 

38689000 T 

38690000 T 

38691000 T 



38707000 T 
38708000 T 



ENDJ* 



IF NOT P THENX 



38715201 T 

38716000 T 

38717000 T 

38718000 T 



001111 
001412 

38667000 
0015»0 

38666000 
0015U 
0015U 
0015U 
0015M 
0015U 
001511 
001610 
00l9»2 
002410 
002613 
0027U 
002842 
003113 

36664000 
0032»0 
003413 
003612 
0038*2 

38682000 
0040J1 
0040 > 1 
0040: 1 
0042'0 
0043*1 
005013 
0052»3 
0057 J 2 
0060>2 
0062:2 
0064(0 
0067«2 
007010 

38704000 
0072M 
007512 

38701000 
0075»2 
0077«0 
007910 
008211 
008212 
006312 
0064)0 

008413 
008413 

0085M 

38715200 
008611 
Q066U 
008612 

38712000 
008613 



BTGT N pl,ASTQ(U);X 

DO UNTIL WAfTfO(MrALPHA- 

GO TO DNEJX 
END** 



?)»P40,u)#o;* 



EKT)t% 
RLASTO(U); 



CC* * 



MrMrALPHA-?J jNX 

Labfltablftji*-pi 
RnCTABLEru3«-o; 
if 32<u and us63 
indfpendentrunneR 

t SET OMiT * N0T(DATAC 



CPl 



UP: 



SP* 

MTl 



GO CL 
EMPTY 
IF NO 
SrTNO 
GO CL 
EMPTY 
IT SF 

IF NO 
IF NO 
SfTNO 
GO CL 
IF ST 
GO CL 
IF NO 
BFGIN 



oseout; 
t% 

T UNLAB 
TINUSFC 

oseout; 

PARATE 

T UNLAB 
T SEPAR 

tinusec 
oseout; 

ATE. [43 

OSEOUTI 

T STATE 

IF STA 

REG IN 



I 



% 

FLED 
U.FOR 

% 
ThFN 

else 

ELED 

ATE I 

U»FOR 

% 

*tl T 

X 

.[41 J 

TF.C4 

COOLO 
IF NO 
BEGIN 
F I>N 



NOT 31 ; C9I6J taOl 

41 

then pseudocopy*pseudocopy+i; 

(P(..C0NTR0LcAR0)t(M[ALPHA-2].[CF])& 

OM AND RjE ) 

U[2S42S6UJAR[PlMiX,6]n »HU» 
192); 



THEN P(WAITI0CM[ALPHA-2J.0#IJ)»DFDIX 
MS OR PUNCHLCK); 



P ( WA I TfO (94000 100000,0, U)i DEL) 

P(WA!TtO{?4002000000,0»U)»DEL); 

THEN Pf HAITI 0(MCALPHA-2 1*0, U) .DEL) IX 

HEN PCWAiTlOr?4000iOOOOO»0,U),DEL)> 

MS); 

HEN COOLOFF ELSE EMPTY** 

U THEN* 
3*13 THENX 

ff; blaStqcu);x 
t Rfw THFN 

T*Pi 000000 h0000005&STaTe[ 22* 44* 1]I* 
BUFS THEN DO UNTIL WAlTlO<T»*377,U),r42ll J* 
IF NOT UNLABELED ThEN 
P(HAlTT0cT,P37'7,U) t DEL); 



FNOJ* 
FND ELSE? 

BEGIN pMPTY;* 
EOFlTJ T«-Pl ^37OOOOO00OO00O;X 

P(WAITl0c[T]»#40.u)»0ED»f 
IF NOT UNLABELED THEN* 

BEGlN;STREAM(BC*FlB[6],RC«-FIBr7]fD«-MrALPHA-2])IX 
BEGIN S|#.LOC BCI DWDl + 40;* 

DS*5 DEC* DS*7 DEOX 

END** 

P(WAITI0(M[ALPHA-2],?«0»U).DEL)JX 
P(WAITI0(rT]#P40»U)fDEL)l3! 
T*P1000000 340000005;* 

pcwaitioct.mo.u) »ded;x 

end;* 





38719000 T 


008710 




38720000 T 


0088*1 




38721000 T 


009113 




38722000 T 


009410 

38719000 




38723000 T 


009410 

38711000 




38724000 T 


009410 




38725000 T 


009413 




38726000 T 


009413 




38730000 T 


0099*3 




38731000 T 


010111 




38732000 T 


010212 




38732100 T 


010610 




38732199 T 


0108J2 


IU 


38732300 T 


0l08»2 




38732400 T 


oniu 




38733000 T 


011113 




38735000 T 


0112*1 




38736000 T 


0113*0 




38737000 T 


011613 




38738000 T 


011813 




38740000 T 


0119*1 


*150» 


38741000 P 


0120»0 


X150- 


38741100 C 


0l22«3 




38742000 T 


012612 


X150- 


38742100 C 


0130* 1 




38743000 T 


0133U 




38744000 T 


0134*1 




38746000 T 


013710 




38747000 T 


014110 




38749000 T 


014112 




38750000 T 


0142*2 




38751000 T 


0143*3 




38752000 T 


014513 




38753000 T 


0146*3 




38754000 T 


0149*0 




38754100 T 


015212 




38755000 T 


0153*0 




38756000 T 


0155*0 

38753000 




38757000 T 


0155*0 

38751000 




38758000 T 


015510 




38759000 T 


0158*0 




38760000 T 


0158*3 




38761000 T 


0160U 




38762000 T 


0160*3 




38763000 T 


0164*1 




38764000 T 


0164*3 




38765000 T 


0165*1 

38763000 




38766000 T 


0165*2 




38767000 T 


0168*1 




38768000 T 


0169*3 




38769000 T 


0170*2 




38770000 T 


0172*0 



PX* 



PP; j 



PRt « 



CD* J 



FUV',% 

end risr% 

IF FTRriBj.n J1]ThEN BEGIN F I R f 18 3 . [ ]l 1 ] *F I B 1 163 *0; 

FlBtlOJ, [3*153**05 GO EOFIT END* 

If Rfw then* 

BfGTN P(WAlTiO(P420000000o»P377,U)f DEL) I* 

STATE. [40:i j*Ou 
END FLSF STATE. [40»11*N0T STATE. t**M J I » 

!F RFL THFNX 
BfGTN SFTNOTlNUSE(U#0)> 
STATE. Ml : 23*1 * * 

end elsf state. [41i2]*2j* 

if lock then* 

bfgin setnotinusecUm)* 

STATF,[41 * 23 - 1 S * 

end;* 

if u lss 16 then 

if purge thenx 

bfgin if pRntablecuuo thenx 

BEGIN RDCTABLE[U].rB»6]*0l 
I^DFPFNnENTRUMNER(P( .PURGE I T) * U» 64 ) 
END 



*538- 

X538- 



ELSE SETNOTINUSEfU.OJJ 
STATE. [41 »2J*1 ** 



end;x 



GO TO CLEANUP;* 

IF NOT STATE. [4t t\] THENX 

BFGIN EMPTY? P(WAiTiQ(e?004500000000,940,U),DEL) e n D jj; 

GO TO PX«* 

IF NOT STaTe.[MM1 THEN BEGIN COOLOFF* BLASTQ(U) END;* 

IF RFW THEN P(WAinOf01O3«OOOOOOO»P377»U)»DEL)** 
GO TO PX*S 



IF MrALPHA],[?7in ThF.N MOVE(tO»FlB[l6],c33ll51»MtALPHA-2]) FLSE 
FOOI DO UNTIL REA0FMFN0MDlSKfClDR0WrU-32].MCALPHA-2J)l 
$ SET OMjT = PACKETS 

IF JARrP!MlX,Ol<0 ANp PRT f P 1M I X. 213#0 OR JAR [P 1M I X. 1 ]<0 T H EN 

begin 

$ SET OMIT s NftT(PACKETS) 

PACKFTERRrU-32]»*TRUFJ 

IF CI0TABLEtU-3?»3J LEO C I QT ABLEt U-32 , 7 ] THEN 
t POP OMIT 

BFGTN STReAM(e*"ENDWaiT»I CUPJ4, D*M [ ALPhA-2 3 ) I 

REOIN SI*L0C 8> St*SI+7; IF Sc#DC THEN DI*DI*1J Q*Oll Sl*Q5 

n if sc* M » then begin sust + i> go to l end; 







38762000 


38771000 


T 


0172«0 

38758000 


38772000 


T 


0172:0 

38750000 


38773000 


T 


017210 


38773100 


T 


0180(0 

38773000 


38774000 


T 


0183*0 


38775000 


T 


0183«3 


38776000 


T 


018513 


38777000 


T 


0187*2 

38775000 


38778000 


T 


019112 


38779000 


T 


0192*1 


38780000 


T 


019313 


38781000 


T 


0195«2 

36779000 


38782000 


T 


019753 


38783000 


T 


019853 


38784000 


T 


0200: 1 


38785000 


T 


020250 

36783000 


38786000 


T 


0202:0 


38787000 


T 


0202«3 


38788000 


T 


0204* 1 


38788500 


C 


020553 


38789000 


T 


020853 


38789050 


C 


0209*3 

36788500 


38789100 


T 


021010 


38790000 


T 


0211*2 


38791000 


T 


0213*1 

38786000 


38792000 


T 


0213*1 


38794000 


T 


0213*3 


38795000 


T 


0215*0 

38795000 


38796000 


T 


0218*2 


38798000 


T 


0220*0 

38798000 


38799000 


T 


0223*3 


38800000 


T 


0226*2 


38802000 


T 


0226*0 


38803000 


T 


0226*0 


38804000 


T 


0233*2 


38804999 


T 


0237*2 


38606000 


T 


0237*2 


38806050 


T 


0242*2 


38806099 


T 


0243*0 


38806200 


T 


0243*0 


38806300 


T 


0246*0 


38806301 


T 


0249*1 


38807000 


T 


0249*1 


38808000 


T 


0252*2 


38809000 


T 


0254*1 

38809000 



di-loc e> dt*pi+i» if 3 sc#dc then taliy*i I 

$ SET OMfT 9 NoT(PACKETS) 

if toggle t h e:n 

RETiTN SUSI-3I IF 4 SC»DC THEN TALIY*0; END> 



t POP omtt 



E-TALLY; 
END; 

if p then go to eodi 



fno; 



ENDJ 



K T Nr>«-0; 
00 to cc? 

CLOSFOUTM STATE. r39:4]«-i; Tf Me:«-1 IX 
CLEANUPJI CLOSED' 0K8 RKUPl DM 

P(P«RCW[CTCJiO»RDS»0,XCH»P*PrcTF3»STF)l 

pNn othfR closfj 



38810000 T 0255 

38810099 T 0256 

38810100 T 0256 

38810200 T 0256 

38810201 T 0257 
38810500 T 0257 
388U000 T 0258 

38812000 T 0258 

38813000 T 0259 



38813100 T 0259 



38814000 
38815000 
38817000 
38818000 
38819000 
38820000 



0259 
0259 
0262 
0265 
0266 
0268 



SIZE* 02 



»1 
«2 
«2 
«3 

38810200 

(3 

13 

10 

38808000 

*1 

JO 

38807000 

10 

38806050 

>0 

13 

10 

12 

»0 
12 

38649000 
69 WORDS 



PROCEDURE FTIEOPFNCXTRA, ALPHA)? 



STACKfF+O) » RCW 



BEG I 



PRT(362) • 
STACK(F + D 



STACKfF' 
STACKff. 



4) 
6) 



STACKfF+2) i 
STACKfF+3) t 
STACKfF+4) > 
STACKfF+5) i 
STACKfF + 6) .., 
STACKfF+7) , 
STACKfF+lO) 
STACKfF+il) 

STACKfF+12) 
STACKfF+13) 
STACK(F4H) 
STACK(F+15) 
STACK(F+16) 
STACK(F+17) 
STACK{F+20) 

STACKfF*2i) 
STACKfFf22) 
STACKfF*23) 
STACKfF*24) 

STACK<F*25) 
STACKfF+26) 
STACKfF+27) 
STACKfF+30) 
STACKfF*3l) 

STACKfF+32) 
STACKrF+33) 

STACKfF+34) 
STACKfF+35) 



TOM 

b JOMASK 

m XTRAR 
* XTRAC 

a NBUFS 
« FNUM 
■ RUEN 
« TYPE 
. 10 

i BLEN 

■ U 

■ KIND 

a MODE 

» DJREC 

* FORMS 

■ COBOL 

a unlabf: 

* OPTION 
a CNTCTL 

* Tl 
a T2 
a MASK 
a STATF 

■ MFlD 

■ FID 

■ REEL 

■ cdate 

* CYCLE 

a FIB 
a FPB 

m ACCESS 
« F\B7 



VALUE ALPHA, XTRAJ INTEGER ALPHA, XTRA? 
N RrAL RCW = + 0;j! 

RFAL JOMalOMASK. lOMASKj 



START OF REL 



RFAL XTRAPa-Zi,XTRACss-e; 



INTEGER NBUFS,FNUM»RLEN.TYPE.lO,BLENfUtKIND» 



MODE, D I REC. FORMS .COBOL .UNLABELED. OPT I ONAL»CNTCTL» 



LED 
AL 



RFAL TI.T2.MASK.STATEJ 



Rfal mfid,fid; integer reel. crate. cycles ikeep these together 



ARRAY FlBf*l t FPB[*m 



INTFGER ACCESS. FIB7I 



LABEL DCIN.PBSI 
LABEL DC19J 

Label okrn»spn»dksn.dkun»dkpn.dcnj 

switch insw*dkrn»spn,dksn,dkun»dcinj 

label look.exit.lookout.lps.fjnalin.finalout.spdcix 

rfal subroutine dsed) dsed » atfrmset( pi mi x ) ; 

rfal subroutine cntlbhsu 

CNTLBlTS*l0MASKgM0DEt21« / »7ll]8DlRECl22««7liJ&cNTcTLr23i4/in 
H0[24U7«l]«(KINDa7 OR KlND>9 AND Kl NDS12 ) 1 201 47 1 1 ] 
KIF KINd»10R KlNDa70R K I NDal2THEN*20ElSE 0H27I42I6U 

SUBROUTlNf MAKElODSlX 

BFGIN FlBf 16]*T1*((BLEN-1)XDIREC+M[ALPHA])4CNTLBITS[18U8|15]X 



39000000 T 0000*0 

SEGMENTI DISK ADDRESS a 00961 

39000100 T 0000*0 

39001000 T 0000*0 

39001100 T 0000*0 



39001200 T 0000:0 



39002000 T 0000*0 



39003000 T OOOOiO 



39004000 T 0000:0 



39004100 T 0000:0 



39005000 


T 


0000:0 


39006000 


T 


0000:0 


39006100 


T 


0000:0 


39006800 


T 


0000*0 


39007000 


T 


0000*0 


39008000 


T 


0000*0 


39009000 


T 


0000 >0 


39009030 


T 


0000*0 


39026000 


T 


0003:0 


39027000 


T 


0003*0 


39028000 


T 


0005*2 


39029000 


T 


0010*0 


39031000 


T 


0015*0 


39032000 


T 


0017:0 



STACK(F+36) = HEADER 
STACK(F+37) » TOg 



»CIF BLENS 
&TTNUC IF ( 

then 
if K 

FIBT 19]»(IF STaT 
&C2x 

IF STATt.t 

*RLF 

(1-0 I RF 

*I0[?5M 

IF NOT (10 OR CO 

T1*F1BU9] 

FIBrlO].C3HS)*M 

T2*T1 , T33 J 153-MC 

FOR MASK*0 STEP 

BEGIN 

M[ALPHA+MASK1*FL 
ENDJX 



1023 THFN BLEN EUSF 1023 ) t 8 I 38 I] 03* 
KjNd*7 OR K1NQ«12) THEN IF TYPE<?0 

30 ELSf 22 ELSE 
INDsll THEN 23 ELSE U3[3I3»5] OR Ml 
E. [46(23*0 THEN (DlREC INX T1)X 
PTfiEC+(BLEN>1023)+l)[3»43l5] ELSEX 

46«2)«i then ((not rlen inx 2)xdirec inx td 

Nr8»38»lO]R( 3x0 lREC+2)[3« 4315) ELSE* 

C INX Tl HRLEN[8(38»l03&CDlREC + 6)[3l43$53>X 

bodthenx 

&TU3J3t5]S0t25t25U)IX 

ULPHAJ-2; XHEAD OF BUFFER RING 

ALPHAIU 

1 UNTIL NBUFS-l 1)0% 

%P 
ArC(PCDUP»U0D)*T2)*P(T1»XCH)[33i33m5])|» 



END MAKEI100S1X 



DKROtSPO^DKSO.DKUOfDKPO.DCO; 
l OlJTSW*OKRO,SPO.r)KSO»DKuO,!)COj 

fixfib#find#spacerjx 

n n m _ ■ i i . i ,-. i rf - i ni 



% 



Label 

switch 

Label r i«r iotr inu»>" 

labfl prefinal.dki 1% 

ARRAY HEAOFRr*l*X 

Rfal TOr,« 
Label agn? 

FfB^tALPHA-3 3'' FPB*PRTrPlMIX,3j;X 
TOMASKIalOM; 

NRUrs«.FiBr I3i,n«93; f num^fi Br «].[ 1311131 blen*fibu8] , [3»l53 1% 



NRUFS*.FlBrl33.n«9); FNUM*FIBr4].[13«li: 
TYPE«-FPBrFNUM + 33, [43151 JX 
STREAMCS * CFPBtENUM + 233# «■ [REEL33JX 
BEGIN SI t=SiDSt«B30CT»DS«»50CTI0SJ*OCT | 



PfCDATE. RS 
IF FPR[FNU 
M0DF«-FIBri 
DlREC*FlBr 
STATE*FlBr 
MFlD*FPBrF 
C0B0L«-(FJB 

KIND*FIB[4] 
IF C0B0L>0 
Mr FIB INX 

else mcalp 
s set omit « no 

IF TYPE"19 
IF TYPE»26 
IF TYPF>?6 
IF (TYPE"0 
BFGIN IF U 
t SET OMjT « NO 
THEN 

end; 



ENDJX 



B* .CDATEnO* 

M+4]>0 THEN RFEL ♦ CDATE * CYCLE * Oj 

33. [24(1)1 lO*FlBCm,C27im RLEN*FIBtl83,t33ll53lX 

13 3.I25J 131 FORMS*FPBtFNUM+33,t42ll3lX 

531 UNLABELED*FIB[43. [2IUI 

NUM3J FlD*FPBrFNUM + i3» OPT I 0NAL*EJB [ 43 . [51 1 3 i X 

[133 AND l>&(rFlB3,r8u03«22)[lt47U31 X COBOL 60 4 68 

.[8143; IF F!B[l3J.r28»l03#0 THEN REEL*F I Bt 1 3 3 . r 28 1 10 3 J 

OR FlB[43.[7:i) THEN % COBOL 

NOT 13. [3(63*? 
HA-n,C3*63*2; 
T(DATACOM AND RjE > 

Then go to Dci9 else 
TO okpn else 

TO DcN; 

10) OR TYPF GTR 20 THFN 



60 OR SORT 



THEN GO 

then go 

AND NOT 

SEPBD 
T(PATAC0M 

TYPE**22J 



AND BJE ) 

go to lookout; 



39033000 


T 


002i:0 


39034000 


T 


0023 '.2 


39034050 


T 


0026:3 


39034100 


T 


0029:1 


39035000 


T 


0034(0 


39036000 


T 


003780 


39037000 


T 


0040(2 


39038000 


T 


004313 


39039000 


T 


004713 


39040000 


T 


0051S2 


39041000 


T 


005310 


39042000 


T 


0054(0 


39042100 


T 


0057(2 


39043000 


T 


0061(1 


39044000 


T 


0063(3 


39045000 


T 


0068:0 


39046000 


T 


0066(0 


39047000 


T 


0071(3 

39045000 


39048000 


T 


007281 

39032000 


39049000 


T 


0072(2 


39050000 


T 


0072:2 


39054000 


T 


0072(2 


39055000 


T 


0072(2 


39056000 


T 


0072(2 


39056100 


T 


0072(2 


39056500 


T 


0072(2 


39083000 


T 


0072(2 


39083100 


T 


0084(1 


39084000 


T 


0085(0 


39085000 


T 


0089(2 


39086000 


T 


0091(2 


39087000 


T 


0093(1 

39087000 


39087100 


T 


009412 


39087500 


T 


0095(2 


39088000 


T 


0099(1 


39089000 


T 


0103(3 


39090000 


T 


01071 1 


39091000 


T 


0109(3 


39091100 


T 


0113(3 


39092000 


P 


0117(2 


39092010 


T 


0122«2 


39092020 


T 


012412 


39092030 


T 


0126(3 


39092039 


T 


013212 


39092045 


T 


013212 


39092050 


T 


0133(1 


39092055 


T 


013412 


39092060 


T 


013611 


39092070 


T 


0138(3 


39092074 


T 


0139(1 


39092080 


T 


013911 


39092090 


T 


0141(3 



OR 



(TyPE>!« AND TyPE<l9) THEN 
AND RjE ) 



Tr TYPF*1 OR TYPfc4 
BFGIN IF USEPBP 
« SET 0MjT e N0T(paTAC0M 

then type*«is; 
* set omft « notcpackets) 

IF (TH«PSFUDOMjX[PlMiX3)#0 ThEN IF PACKETPAGE f T 1-32] i»0 
IF FORMS THEN FPBr FNUM+3 ] . C 23 » 1 ] »«1 ELSE 
IF NOT FPB[FNUM + 3],[?3M] THEN TYPE»*15» 
S POP OM|T 

GO lookout; 

END! 



then 
% 



SETS 



X107- 
FREEF 



IF 
IF 



IF 
IF 
IF 



103 ELSE GO LOOK 



RFELsO THEN REFLMJ 

to then 

IF TYPe*6 AND TYPe^20 THEN 

IF TYPE>JO THEN GO TO INSWCTYPE' 
ELSF GO TO DCNJ 

TYPE^IO AND TYPE#20 THFN GO TO OUTSWf TYPE-10] ELSE GO LOOKOUT! 
LOOKS IF TO THFN OTpERF ILEOPEN I N( 1 ) ELSE OThERF ILEOPENOUT{ 1 ) ; 

U LSS THFN GO TO EXIT ELSE GO TO PREFINALJ 
DCN* FTLFHESSr-"I/0 ERR M f 0»MFID.riD»REEL»CDATE»CYCLE)JX 

GrTBUFFE:RS(BLEN.NBUFS» U* ALPHA) IS 
PREFlNAi,:: MAKFIODS;* 
IF K!ND»U THEN 

BFGIN IF COBOL < THEN % ALGOL OR C0B0L68 

IF RFADEMFR0MDlSK(ClDR0W[U-32]»Mt ALPHA!) THEN 
M[ALPHA3*PCDUp»L0pH0[2«2* 13M[27*47»l3j 
END FLSE 



FINAL 
LOOKO 

FINAL 
FIND! 



DCO: 
$ SE 

DCt9« 

t SF.l 

SPOl : 

sPnc* 

SPN» * 



FTLLPUFFERSCFinri63#FIBrl9]#C0B0L»NBUFS)» 
IF fOpOL>D THEN FlBtl63*( *P(DUP))&MtALPHA3[CTC]l 
I Nil FlBt*:i * FIB173 ♦• FfBrl7] * 0; GO TO FIXFIBJ 
UTH TF 10 THFN OThFRFILfOPENIN(O) ELSE OTHERFILEOPENOUT(O)! 

IF U LSS THFN GO TO EXIT ELSE GO TO FIND; 
OUTlt IE NOT FIBtl83.HH] THfN GETBUFFERSf BLEN. NBUFS, U. ALPHA )J X 
MAKEIODS;* 

FiPr63*FiPr7]*o;x 

FIRT 171-IF COBOL THFN F T Bt 1 6] . [ 3 M 53ELSE F I BC 1 8] , [ 1 8 1 1 53 ; % 

if Kind = 10 thfN 

for t2 * step 1 until (nbufs-1) do 

Pf Pi 70000000000, Mr ALPhA + T2 3»o; 

if kind»13 Then 

MfALPHA+13* P(Dl)P.L0D)&PcDUP»LNG)[2At2ait ]I 
GO TO FlXFIBJ* 
U»=30 5 KIND' "10 J 
T OMIT = NOTtDATACOM AND RjE ) 

go to spdc; 

0THERFlLEOPENlN(2) J 
OMiT ■ NOT(DATACOM AND DcSPO ) 
GO SPDCJ 

mode* 0> u* 25; kind* 5! 
cntctl*diRec*o; unlareLfd*i; 

STARTiMiNg(FNUM,U)!X 
GO TO FlNALOUTJX 
U*25J KiND*5; 



390921 
390921 
390921 
390921 
390921 
390921 
390921 
390921 
390921 
390921 
390921 



00 
50 
54 
60 
64 
65 
70 
75 
80 
85 
90 



39092200 
39092500 
39093000 
39093500 
39094000 
39094500 
39095000 
39096000 
39ia3000 
39144000 
39U5000 
39145100 
39145200 
39145210 
39145300 
39145400 

39146000 
39147000 
39148000 
39155000 
39J56000 
39230000 
39231000 
39232000 
39233000 
39233100 
39233200 
39233300 
39?33400 
39233500 
39234000 
39235000 
39235099 
39235200 
39236000 
39236100 
39236154 
39236160 
39236900 
39237000 
39238000 
39239000 
39240000 



39092070 

T 0141*3 

T 014512 

T 014610 

T 014610 

T 014810 

P 014810 

T 015210 

T 0156U 

T 015913 

T 015913 

T 016011 

39092150 

T 016011 

T 0162*1 

T 016212 

T 016413 

T 017012 

T 017012 

T 0176*3 

T 017912 

T 0181U 

T 0184*0 

T 0185*2 

T 0187*0 

T 0187*3 

T 0189*0 

T 0192*0 

T 0196*1 

39145200 

T 0196*1 

T 020010 

T 0204*0 

T 0207*3 

T 021013 

T 0212*2 

T 0216*1 

T 0217*0 

T 0219*1 

T 0223*2 

T 022411 

T 0229*0 

T 0233*0 

T 0233*3 

T 0237*3 

T 0238*1 

T 0239*3 

T 0239*3 

T 024011 

T 0240U 

T 024110 

T 0241*0 

T 0241*2 

T 024411 

T 0246*1 

T 0247*1 

T 0247*3 



M0DF> 
START 
IF Bl. 
GFTPII 

MAKE! 

GO TO 

DKRNJ: pKRO 

DKUO! J 
DKUN! : 



CNTCTl,*niRF-C*.Oj UNLABF.LFD*1»X 

lMlNp,(FNHM,U)IJS 

EN<10 ThE^ BLEN*lOjX 

fffrsfblfn,nbufs»u,alpha>;* 
ods;* 
fimalinsx 

J ACCFSSs^i; 
GO TO DK1> 
jOsall 
ACCESS»=2i 
GO TO OK 1 * 



DKPN«I 
$ SFT 
$ SFT 



$ POP 

DKSN:: 
OKI I 



nKPO 

OMIT 
OMiT 

own 

nKSOi 



■ NOT SHARFOISK 
= ShARfDISK 

go to dcn; 



* ACCFSS*0; 

0!SKFILFOPfN(0)J 

IF TOr, thfn go to fxit; 

G^ TO FiXFlRJ 
DCfMl U*30J KlNO*tOJ 

CNTcTL*DTREC*0; UNLABELFD* 1 * 
SI ARTIMING(FNUm»U)I 
GrT8UFFERS(BUEN»NBUFS»U, ALPHA)! 
IOMaSKJbOJ makeiOdSj 
F1XFIBI t FlBf 4].[2tl J 'UNLABELED J * 
FIflt4] t [fl«4]*K!NDl% 
FlBrt5],[24»A]*U; 
FlBrl3],C?d:iO]«.RFELJ* 
FP8*PRT[P1MIX,3]| 

FPBrFNUM+3 3,[43»5)*TYPEJ 

STREAM(REFL»0»*tFPBrFNUM+2]3); 

BEGIN I * =D J S I I.LOC REEL* DS * »3DEC END! 

RnCTABLErUl,t8i63*PlMlX|« 
IF FlBri8].tUi) THEN* 
BEGIN FlBtl63»0>J! 

FIB[5]*STATf&8C39|42i6]j* 
FIBtl0j f [3ll51*0| 
FNH ELSE* 



3l5]«FIBC5Jt45»45in» 
"X NOT U,[3l6] * 6 



FMTi 



X 

IF 



C"" C u v» c " 

IBT 5 ].rCF]«-STATE&nIREC[ 4414 71114^391 43 
IF COBOL>0 OR FIB[4],[7M] THEN M[FIB IN 

ELSE M[ALPHA-7J.[3«6]*«;» 
FlRr4].[37l3J*ACCFS5l« 
IF U<16 THEN IF KiNo*7 THEN FPB[ FNUM+3 ] , [ 23 I U ** I Ol 
IF CU*T1«TIB[10],C3«153)*0 THEN 

DO BEGIN IF KlND*lO THEN M[U-l3*0| XFAKE QUEUE 
M[U-23. [3*63*3 END UNTIL ( U*M[ U3 . t FF 3-2)*Tl J 



END 



xtra Then 

XTRAC'aNOT(FlBr4j.[7il] OR UNLABELFD) 

if xtra lss 2 then go to initiate? 
rcwuxtrarj 
fiLfopfn;* 



AND XTRAC NEQ 21 



39241000 


T 


0249(2 


39242000 


T 


0252*0 


39243000 


T 


0253*0 


39244000 


T 


0255:0 


39245000 


T 


025652 


39246000 


T 


0258»0 


39247000 


T 


025812 


39248000 


T 


0259*3 


39249000 


T 


0260*1 


39250000 


T 


0261*3 


39251000 


T 


0262*3 


39252000 


T 


0263*1 


39252999 


T 


0264*0 


39254999 


T 


0264*0 


39255000 


T 


0264*0 


39255001 


T 


0264*2 


39256000 


T 


0264*2 


39257000 


T 


0265*3 


39258000 


T 


0266*2 


39259000 


T 


0267*2 


39293100 


T 


0268*0 


39293200 


T 


0269*2 


39293300 


T 


0271*2 


39293400 


T 


0272*2 


39293500 


T 


0274*0 


39294000 


T 


0276*0 


39295000 


T 


0278*2 


39296000 


T 


0281 JO 


39297000 


T 


028312 


39297010 


T 


0286*0 


39297020 


T 


0287*2 


39297100 


T 


0290*2 


39297200 


T 


0292M 

39297200 


39298000 


T 


0293*1 


39299000 


T 


0295*3 


39300000 


T 


0296*3 


39301000 


T 


0298*2 


39301100 


T 


0300*3 


39302000 


T 


0303*1 

39300000 


39303000 


T 


0303*1 


39304000 


T 


0307*2 


39305000 


T 


0313*1 


39306000 


T 


0319*0 


39306010 


T 


0321*2 


39306100 


T 


0327*0 


39306200 


T 


0329*2 


39306300 


T 


0333*1 

39306200 


39307000 


T 


0340*0 


39307100 


T 


0340*0 


39307200 


T 


0340*1 


39307300 


T 


034410 


39307400 


T 


034513 


39308000 


T 


0346*2 

39001000 



Sll£m 0347 WORDS 



STACKf F+! ) m RTi 

STACKfF+2) > I 

STACKrF+3) = D 

STACKfF+4) m ZSF 

STACKrF+5) s VADAK 



PROCEDURE SUSTATUSf A»ODOiB)» VALUE A.DDD.B; REAL AiBI ARRAY ODDf*]; 

START OF REL 
BEGfN REAL RTj,l* 



39900000 

SEGMFNTJ DISK 

39901000 



T OOOOlO 
ADDRESS * 
T 0000:0 



00973 



ARRAY Dr*]»ZSFf»],VADAR[*ll 



SUBR0UT1NF SP0UT|TN0w* 
BEGIN 

STREAM(X8=[TjNUrB]]» 0* EUNUMlsO, SU?*0, I» RTI); 

BEGIN Si »*X; Sm*SI+5I 

n s » « l 1 T " •'; osi*3 chk; sp«d; 

1 Oc IF Sc* M 0" THEN 

BEGIN XixSi; EUNUMJaTALLYJ 

Slt»LOC EUNUMJ DSJa 3 LIT" EU") DS»«*DEC; 
0St"4 LIT* SU »; TALLYl*0> 
5(SUisTALLY; Sll.Xl SKIP SB; SKIP SU SBl 
IF SB THEN 
BEGIN Sl»*LOC SU» 

OS»*DEC; DS*sLlT rt ."; 

fNdj 



TALLYUTALLY + DI 

si«ax; tally j»eunum; 



END? 



tally» = tally+i ; sh»si*dj 

SllaLOc I? Si»»Si+7? DltaDl-1? 

IF SC#"0 H THFN 

BEGIN DSS*5 LIT" WENT"; 

if sca w 2" then ds»m lit" not*; 

END ELSE DS«r4 Li T " ARE"? 

dsis8 lit* Ready. *•»; 



end; 



SPOUT(RTl)? 

end of spoutitnows 



subRoutinf doit; 

BFGIN 

IF NOT (ZSFC03 OR ZSFrll.CllllJ) * NOT THEN 
BFGIN B?si8> D'*ZSF» 

rth«space(20); 
spoutitnohi 

end; 

if not (zsfm or zsfc33.umu) * not then 

BEGIN B»=l9; D»«CZSFt2lll 
RTl«sSPACE(20); 

spoutitnow; 
end; 

END OF DOiT? 



39902000 T OOOOSO 



39903000 
39904000 
39905000 
39906000 
39907000 
39908000 
39909000 
39910000 
39911000 
39912000 
39913000 
39914000 
39915000 
39916000 



39920000 
39921000 
39922000 
39923000 
39924000 
39925000 



39929100 
39930000 
39931000 
39932000 
39933000 
39934000 
39935000 
39936000 

39937000 
39938000 
39939000 
39940000 
39941000 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



39917000 T 
39918000 T 
39919000 T 



39926000 T 

39927000 T 

39928000 T 

39929000 T 



39942000 T 



OOOOlO 
OOOpO 
000110 
000312 
0004>0 
0005»0 
0005»3 
0006H 
0007«2 
000812 
001010 
001012 
001013 
OOU J2 

39914000 
0011«2 
0012*0 
0013*0 

39909000 
001310 
001313 
0014(2 
001510 
001610 
001711 

39923000 

ooiau 

001912 

39906000 
00i9: 3 
0021 «0 

39904000 
0021*1 
002U1 
002210 
002210 
002413 
002710 
002911 
003010 

39933000 
003010 
0032(3 
003510 
003711 
003810 

39938000 
003810 



% 
% 
% 



START OF CODE 

IF B/O THFN 

BFGJN D»»t MULT! TABLET 1613*2181 381 10] I 
«T1 **A» 
S SFT 0MfT » DFX 

IF B THEN D«s2 |NX D* 
$ POP OMJT 

IF NOT (IF B THFN PCRRR).[28ll] ELSE P( RRR ) , [29 1 1] ) 
$ SET OMtT a DFX 

OR NOT CDrO] OR DCll.tlMU) ■ NOT 
S POP OMiT 

then 

BEGIN STREAM(XlstTlNUrB]]» RTl); 
BEGIN Sf8=Xi Sll-Sl+b; 

DSlaLfT" "* DSI*3 CHRI 

dsi«ii lit" not Ready*"* 
fno; 

spoutcrtd? 
end else spoutjtnow; 

end else 

RFGIN Z SFtsrM[SPACEC4)] 3&^r8: 38110] J 

VAOAR I ■[ MULT I TABLE CI 6]] 4418138 HO] I 
DiSKWAITC-A,-30,0tRECTORYT0P)| 
FOR p»0 STEP 1 UNTIL 3 DO 

ZSFU JI-VAOARCM AND NOT DDDF23*n* 

itsi> non* 

FOR t **0 STEP 1 UNTIL 3 DO 

REGIN ZSFrl3:=N0T VADAR[I3 AND DPD[23+I]J 

0ODr23+j ] SaVADARr I]> 
END* 

DlSKWATT(A»-30#DIRECToRYTOP)» 
U=2; DOITJ 
EORGETSPACE(ZSF}> 



ENPJ 



END; 



39942900 
39942910 
39942920 
39943000 
39944000 
39945000 
39945999 
39946000 
39946001 
39947000 
39947999 
39948000 
39948001 
39949000 
39950000 
39951000 
39952000 
39953000 
39954000 

39955000 
39956000 

39957000 

39958000 
39959000 
39960000 
39961000 
39962000 
39963000 
39964000 
39965000 
39966000 
39967000 

39968000 
39969000 
39970000 
39971000 

39972000 T 

SI 



39931000 
003811 
0038U 
0038«1 
003811 
004110 

004312 
004411 
004411 
004612 
004612 
0049*1 
004911 
005112 
005112 
005212 
0054U 
005413 
005512 
005711 

39951000 
005712 
0058*3 

39950000 
006010 

39944000 
0060*0 
0064*1 
0066*1 
0068*0 
0069*0 
0074*1 
0076*0 
0077*0 
0080*0 
0082*0 

39965000 
0084*1 
0085*3 
0088*0 
0089*0 

39958000 
0089*0 

39901000 
ZE« 0090 WORDS 



PRTC703) 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 

STACK 

STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 

STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



F + l) 
F + 2> 
F + 3) 
F + 4) 
F + 5) 
F + 6) 
F + 7) 
F+10 
F+ll 
F + 12 
F + 13 
F + 14 
F+15 

F + 16 
F + 17 
F + 20 
F + 21 
F + 22 
F + 23 
F*24 

F + 25 

F + 26 
F + 27 
F + 30 

F+31 
F + 32 
F*33 
F434 
F + 35 
F + 36 
F + 37 
F + 40 
F + 41 

F + 42 
F + 43 
F + 44 
F + 45 
F + 46 
F + 47 
F + 50 
F + 51 
F + 52 
F + 53 



PROCEDURE nTREcTORYRUILDER(A.DDO)> 



DlRFCTORYBUll.DFR 

VALUE A.DDP? 
REAL A; 
ARRAY DDDr*1J 
BEGIN RFAL Y,Z»B»C» I.J. 



40000000 T 000010 
START OF REL SEGMENT* DISK ADDRESS « 00976 



T>RA,RL»RT1»RMNTEGER RADDtRLENI 



40001000 T 
40002000 T 
40003000 T 
40004000 T 



Y 
Z 
B 
C 
I 
J 
T 



AD, X, K. SEVfN7» FORTY* EUSU; 



STACK(F+54) • 



RA 

RL 

RTl 

R 

RADD 

RLFN 

REAL NfXTLINK* 
NEXTLlNK 

AD 
X 

K 

SEVEW7 
FORTY 
EUSU 

ARRAY Sut*]; 

su 

ARRAY HFA0r*3»«Kt*]#PL[*].l 
HEAD 
KK 
PL 

REAL W,rSPAD0»DlSKT0P.SUPER»FUM,NTl,NT2»NT3,NUJ 
W 

ESPAOD 

DlSKTOP 

SUPER 

EUM 

NTl 

NT2 

NT3 

NT4 

BOOLEAN UCHANG.ERRORI INTEGER LO , REM, TN, TM.MNI REAL X 1 » X2, EUMASK I 
UCHANG 
ERROR 
LO 
REM 
TN 
TM 
MN 
XI 
X2 
FUMASK 

ARRAY ZSFr*3iS0cK[*]l 
ZSF 



X791- 



0000«0 
OOOOIO 
000010 
OOOOIO 



40004500 P OOOOIO 



40005000 T OOOOIO 
40005050 T OOOOIO 

40005100 T OOOOIO 



40005110 T OOOOIO 



40005200 T OOOOIO 



STACKfF+55) m 

STACKfF+56) = 

STACK(F+57) = 

STACKfF+60) b 

STACKfF+61) s 

STACKfF + 62) = 



STACK<F+63) 

STACKfE+64) 

STACKfF+63) 

STACK(F+65) 
STACKfF+66) 
STACKfF+67) 



SOCK 

REAL, D.Y! .Y?l 
P 

Yl 
Y? 

REAL AA,AAA! 
AA 
AAA 

labfl foRgft; 



* V 



VR 

H 

FI 

FJ 



ARRAY V[*»*3; 
INTEGER S; 
ARRAY VR«V[*]; 
REAL H»FI»FJ; 



S SFT OMTT « NOT SHAREDISK 

lAREL LOOKATOKB,BACK»FXIT»M1.SKBLK»BYEI 
DEFINE ROW«SU[X],[3t4]#. 

LASTAVAlL»HEAD[0].t3ll53*» 
AVA!LABLE»HEADrO],[FF]#» 
F!RSTL1MK»HEA0[03.[CF1#» 
DA>9l24*»0ACc9t?4l24> f 

Slzr«PH Jl.tOA )** 
AOnRESS=PL[0] ,[DA3#» 
MlGMLINKePUrOl, [CFlf » 
|,OWLTNK«PL[l ].[CFl*» 
nlSKRUNN|NG«[l8tlJ#, 
FORTYMILUDISK*! J9I1]#» 
OCCUPlEn»[20H3*i 
AV1=480#,AVBLOCK«16#J 
SUBROUTINE SAVIT; 
BEGIN 

if rw*w+2)>?8 Then 

BEGIN ZSFt29]*ESPAD0;DISKWAlTfZSF 1NX 0» 30#ESPADD*GETESPD I SK ) J 
W«-0 END|?SFrW3*TlZSFtW + l]«-DDDr4 79-2xn» 

END SAVfT* 

SUBROUTINE CLEAR* 

BEGIN VtStOUOj 

v r Sp j ) «. bypass;ccf3» 
VrS»33*VrStAj«.oi 

HOVE (57.[V[S,2]j, r V[S,53 3)1 

END J 

SUBROUT T NF SETUp; 
BEGIN 

LOls<X+i) MOD 5;L0ibL0+(L0s0)x5; 

IF RADD NpO (LOtsLOxFORTY) OR CLO»RaDD AND RLEN USS FORTY) THEN 
BEGIN 

IF YI«C5UtX].[CF]»0) THEN 
BEGIN 



XMC 



XMC 



*MC 

*MC 

SMC 

XMC 
IMC 
SMC 

SMC 
«MC 

SMC 



SMC 



SMC 
SMC 



40005210 T OOOOIO 

40005220 T OOOOIO 

40005230 T OOOOIO 

40006000 T OOOOIO 

40006100 T OOOOIO 

40007000 T OOOOIO 

40007500 T OOOOIO 



40007990 
40008050 
40008100 
40008H0 
40008120 
40008130 
40008140 
40008150 
40008160 
40008170 
40008180 
40008190 
40008200 
40008210 
40008220 
40008300 
40008310 
40008320 
40008330 
40008340 



40008350 T 



40009000 
40010000 
40011000 
40012000 
40013000 
400)4000 
40015000 

40016000 
40016020 
40016025 
40016026 
40016100 
40016200 
40016220 



T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOOIO 

T OOOltO 

T 000110 

T 000213 

T 0007*1 

40008330 
0012M 

40008310 

T 001212 

T 0013*0 

T 001413 

T 001710 

T 001813 

T 0022*0 

T 002510 

40010000 

T 002511 

T 002610 

T 002610 

T 003010 

T 003313 

T 0034U 

T 003611 



NT1 »*SU[X] I 
M0VF(16»NT1 

END; 



:SPACE(16>»SumtlBUBl9]l 
'1 • NT 1 ) i 



MCSU[X] !NX K]*RTUSPACF.C64 + Y)» 
KK*rMCRT!m(6» + Y)[8»38!lO]!JuNK«-6WYl 

M0VE<64+Y,RTl-l»RTl )J 

FOR Rl«3*Y STFP 2 UNTIL JUNK |)0 KK [ R ] I »RTl+R+2 J 

HEAP*tMrM[SU[X]]l]*lt8i38llO]| 

IF Y THrN 

BEGIN 

KK[i3jbKK[2]»«SEVEN7* 

KKtl J,tOA)»«LOl 

KKt?],fOA)l»IF X EQL THfN FORTY-C D I SK80TT0M+5 ) ELSE FORTYl 

M[SurXJ) .IDA J l«LOl 
HFADl03« s RTl + n 

end; 

HEADt03,fFF3«-RTl + 3xYI 
HEAD[0];[3lt5]*62 + RTUY; 

END 

ELSE 
DO 

BEGIN Sum,OCCUPlFO»»D 
RADn«*RADD-FORTY> 

XI«X-1 J 

FND UNTIL (RLEN:aRLEN-FORTY) lss forty; 

END OF SETUP? 

SUBROUTINE" BUlLDAVAlLI 

BEGIN 

backs«frRor*i>Rfm*o; 

IF (Z»«SU[X])#0 AND 7,rCF3sO THFN 

begin K*«o> setup; go back end; 

IF fZl*SU[X]).DlSKRUNNING AND NOT Z. OCCUPIED AND RLEN>0 THEN 
BEGIN 

TF M[SUIXn.[OA3 GEO RADD THFN 
REG IN 

PCMf M[SUr XJ1 J«0*RADD[9|24l24]»LLLi0.lNX#.AD«*»DEL>J 
HEAD«-[MrMtSUrX]]]]&ir8«36JlO]IPL«-lMtAD]3&2[8»38JlO]l 
IF t(RA»»ADDRESS)-CRL««SlZE) LSS RADD-RLEN OR 
(RFMIbIFCNTI l.RADD MOD FORTY)»0 THEN ELSE NTl-RLEN) 
0)AND RADD NEQ RA THEN 
BEGIN 

IF RFM LSS THFN RLEN«««ADD MOD FORTYl 

IF available«o thenxneed ANOTHER ROW 

BEGIN 

K*ROWlK*K+l>ROW*KJ 
IF K GTR 15 THEN DO UNTIL FALSE* 
SETUP) 

END? 

NFXTLINK«-M[R«-AVAILABLFI» 
MrR]»AD&(RADD-RLEN)[DACJ) 





40016240 


T 


003613 




40016260 


T 


0041U 


SMC 


40016300 


T 


004311 

40016220 




40016400 


T 


004311 




40016410 


T 


0048)0 




40016420 


T 


005210 




40016500 


T 


005412 


XMC 


40016510 


T 


006112 


SMc 


40016600 


T 


006413 




40016700 


T 


006510 




40016800 


T 


006512 




40016900 


T 


006713 




40016910 


T 


007011 




40016920 


T 


007513 




40017050 


T 


007813 




A0017100 


T 


008012 

40016700 


*MC 


40017200 


T 


008012 


*Mc 


40017250 


T 


008312 




40017260 


T 


008710 

40016100 




40017270 


T 


008710 




40017275 


T 


008710 




40017280 


T 


008712 




40017285 


T 


009010 




40017290 


T 


0091U 




40017295 


T 


009212 

40017280 


XMC 


40017300 


T 


0094(3 

40016020 


XMc 


40027100 


T 


009510 


*Mc 


400?7200 


T 


009510 


«MC 


40027230 


T 


009510 




400?7240 


T 


009612 




40027245 


T 


009912 

40027245 




40027250 


T 


010212 


SMC 


40027260 


T 


010611 




40027270 


T 


010613 




40027280 


T 


010910 


XMC 


40027290 


T 


010912 


SMC 


40027295 


T 


011411 




40039000 


T 


011913 


S 


40039100 


T 


012410 




40039200 


T 


0128U 


SMC 


40040000 


T 


013010 




40040500 


T 


0130)2 


SMC 


40041000 


T 


013310 


XMC 


40042000 


T 


013412 


SMC 


40042100 


T 


013510 


XMC 


40043000 


T 


014011 


SMC 


40044000 


T 


014211 


SMC 


40045000 


T 


014310 

40042000 


SMC 


40046000 


T 


014310 


SMC 


40047000 


T 


014513 



TF AD.tCFJ'SFVEN7 THEN M[ SUr X ] J . [ DA]*RADD-RLEN » 
TF L0WLIMK*SEVEN7 T H EN 

FIRSTL!NK**R 

FLSE 
MILOWLlNK],rCf ]J«RJ 
MrR+l]J«PL[l]&(RADD-RLEN-(RA-RL))tOAC]; 
PLC 1 Jl»R*(RA-RADDHDAC3j 
RLFN*OJ 

AVAILABLP*NEXTLrMKIERROR*FALSFl 
FND 

elseireduce existing aReacbewaRe of address conflict 
xfu underflow). 

BEGIN 

if cra-ru geQ rado Then rlen is o else 

IF RADD*RA AND RL GEO RLEN THEN 
BEGIN 

ADDRESS-RA-RLFNj 

IF HIGHLINK*SfVfN7 THEN 

m[surxj j,cda3»addressi 
size*rl-rlenifRror*rlen*oi 

END 
ELSE 

if Rlen>rl then 
if l0wlink*seven7 and(x-l)mod 5*4 then 

BFGlN 

RAOD*RADO-RL"l»RLFN*RLEN-RL-l»SiZE*OlFRROR*Ol 
FND 

FLSF 
IF RADD-RLEN LSS (NTllaM[LOWLlNK],[DAJ) THEN 
BEGIN 

RLEN«a>RLEN-(RADD-(RADD:«NTl)); 
SUPER»sl*GO BACK? 
END 

ELSE 
IF RADD GTR RA-RL THEN 
BEGIN 

RUENl«RADD-CRA-RL))SUPER»slJ 
GO BACK; 
FND 

ELSE RLEN* 
FLSf 

begin size«-Rl-rlfN)eRRor*RLen*oj fnd; 

END! 

IF SiZE=0 THEN 

begin 

IF HIGHLINK=SFVFN7 AND LOwL iNKbSEVEN7 THEN 

BEGIN 

SU[X],OCCUPlFD*TRUF* 
K*-i I 

HHILECY*MtSUrXllNX (K*K + l)])»tO AND KS15 DO 



%MC 


40047100 T 


0148*3 




40048000 T 


015410 




40049000 T 


015512 




40050000 T 


015710 




40051000 T 


0158«0 




40055000 T 


016112 




40056000 T 


0166*1 


XMC 


40056100 T 


016910 


IM C 


40057000 T 


01691 3 


IMC 


40058000 T 


017212 

40040000 


ORXMC 


40059000 T 


017212 


IMC 


40060000 T 


0l72»2 


*HC 


40060050 T 


017212 


1604- 


40060060 C 


0173*0 




40060100 T 


017512 


IMC 


40060200 T 


017713 


IMC 


40060300 T 


0178»1 


IMC 


40060302 T 


018111 


*MC 


40060305 T 


018213 


IMC 


40060400 T 


018710 


IMC 


40060500 T 


019111 

40060200 


IMC 


40060600 T 


019111 


IMC 


40061000 T 


019H1 


IMC 


40062000 T 


0192«2 


IMC 


40063000 T 


019612 


IMC 


40064000 T 


019710 


XMC 


40065000 T 


020313 

40063000 




40065010 T 


020313 




40065020 T 


020313 




40065030 T 


020810 




40065040 T 


020812 




40065050 T 


021013 




40065060 T 


021210 

40065030 




40065070 T 


021210 




40065080 T 


0212*0 




40065090 T 


0213 » 3 




40065100 T 


0214U 




40065110 T 


021613 




40065120 T 


021711 

40065090 


IMc 


40066000 T 


021711 


IMC 


40067000 T 


021810 


IMC 


40068000 T 


021612 

40066000 


IMC 


40068050 T 


022311 

40060050 


IMc 


40068100 T 


022311 


IMC 


40069000 T 


022413 


IMC 


40070000 T 


022511 


IMc 


40071000 T 


022612 


IMC 


40072000 T 


022910 


IMC 


40073000 T 


0231«2 


IMC 


40074000 T 


023212 



FORGETSpACE(Y)) 
FORGETSPACECSUfX]); 
END 

ELSE 
BEGIN 

IF HlGHLINKaSrVENT" THEN 
BEGIN 

M[PL[l]],[CF]»SEVEN7l 
M[SUtX3],C DA) ♦MCPLtU3.ro All 
END 

ELSE 
BEGIN 
Mt PL tO 3+1 J,rCF3«*L0WLlNKI 

IF L0wLiNKsSEVEN7 THEN 
FIRSTLINK*HIGHLINK 
ELSf 
MtPLtlllitCFJl-HIGHLlNKj 
END? 

if M[lastavail]so then 

M[LAStavaiL]^ad;lastavail*adj 
if available^o then available^adi 

PL[0]»«0* 
END) 



end; 



RADD*X MOO 5JRADD^CRADD+(RADD«0))xF0RTY| 



if Rem lss o thfn begin 

RLFN*APS(RFM)) FNDI 

X«.X-(RLfN*0>; 
EMD ELSE 



IFfNT] »«MtSU[X]].tDA3) GTR RADD-RLEN THEN 
BEGIN RLEN««RLEN-f RADD-CRADOJ«NTl ))) 
SUPERi»ll GO BACK) 
END 

FLSE 

RLEN*Ol 

end: 
if rlen>o and not error Then go back; 

SUPrRl»SUPFR OR (ERROR AND SUr X 1 , D I SKRUNNi Nf, ) I 

end of complementing disk dlrfctory) 
subroutine lockfdj 

BEGIN 

IF CXI IsfRADD-RLEN) DIV TN )*< x2 IsRADD 01 V TN) THEN 

TFfTWOm) AND eUM)«0 THEN BUftoAVAiL else go forgft 

BEGIN 

Yl IbRADDIYZi-RLEN) 

ifcrlenj-cXj + dxtn-cRadd-y? ) )GTR 

BEGIN RAQD»e(Xl*i ) xTn» X ) «5xD+U Yl 



ELSE 



XMC 


xmc 


XMC 


XMC 


XMC 


XMC 


XMC 


XMc 


XMC 


XMC 


XMC 


XMC 


XMC 


XMc 


XM C 


XMC 


XMc 


XMC 


XMC 



40075000 T 0237)3 



XMC 

XMC 



XMC 



XMC 



XMC 
XMc 

XMC 



AND (TWO(Xl) AND EUM)bO THEN 
'Y23DIV F0RTY)IBUILDAVAIL END) 



40076000 
40077000 

40078015 
400780?0 
40078030 
40078031 
40078032 
40078033 
40078034 

40078035 
40078036 
40078038 
40078040 
40078042 
40078046 
40078048 
40078050 

40078052 
40078054 
40078058 
40078060 
40078065 



40078067 T 



40078068 
40078069 

40078070 
40078072 

40078074 
40078076 
40078078 
40078080 

40078085 
40078087 
40078090 

40078091 
40078092 
40078093 

40100000 
40100100 
40100200 
40100300 
40100400 
40100500 
40100600 
40100700 



T 023910 
T 0240)0 

40071000 
T 0240)0 
T 024010 
T 0240)2 
T 0242)0 
T 0242)2 
T 0245)0 
T 0249)2 

40078031 
T 0249)2 
T 0249)2 
T 0250)0 
T 0253)3 
T 0255)1 
T 0257)0 
T 0258)2 
T 0262)1 

40078036 
T 0262)1 
T 0264)2 
T 0269)3 
T 0273)3 
T 0275)0 

40078020 
0275«0 

40069000 
T 0275)0 
T 0279)3 

40076066 
T 0280)3 
T 0282)2 

40027280 
T 0282)2 
T 0286)1 
T 0289)0 
T 0290)1 

40076076 
T 0290)1 
T 0290)1 
T 0291)2 

40027260 
T 0291)2 
T 0293)3 
T 0296)1 

40027200 
T 029612 
T 0297)0 
T 0297)0 

T 0300)1 
T 0304)0 
T 0304)2 
T 0306)0 
T 0311)1 

40100700 



IF r 



RLFN«a Yl-fXgxTN)) GTR AND (TWOfX?) AND EUM) EQL T H EN 
BEGIN RADD8*M; x **5xD + RADD DI V FORTY I RU ! LDAVA I It ENDJ 



while cX2«*x?-i ) gtr xi do 

BFGIN 

Rl,ENl*TNIXl*5X0 + ((RADDJ = (X?+l)*TN)-l>DIV FORTY > 

IF (TW0CX2) AND EUM) B THEN BUJLDAVAlLJ 

END? 

end; 

FORGFTl 

END OF LOCKED! 

X 

* SET OMfT » NOT SHAREDISK 
SU«-rMCRTl*SPACE( 100)]]&100[8«38«10]> 

SEVFN? « 8^77777 > FORTY' =40000 ;TN«clOOOO|MN Is lOOOOOO;TM I » lOOOOOOO I 
M0VF(100»RT1-1»RT1); 

S0CKI«[M[RT1 l«SPACFC40)]]ft40[81 36! 10]| 

M0VF(40,RT!-ltRTJ )J 

Xl»»NEUP.r3«15]-llX CHECK ONLY UNITS THAT EXIST 

VRi«rMULTf TABLET 16] 3* 4lB*38 I 10]} 

LOOKATDKBf *Mc 

FOR J»*o STEP t UNTIL XI DO 

BEGIN 

y 9 { — i Q • 

FOR !i«OSTFP 1 UNTIL X2 DO 
BEGIN 

RADn'*MNxJ+ jxTN} 

STRfAM(Q»sRaDD.BI»40+A); 

BEGIN SMsLOC Q;dSJb8 dec END* 

OKSFJGZEROWRlTFU TRUE* *?04« 

IF I EQL THEN 

BEGIN X2ls?0xWAlTl0(d0*A I NXPl 40000000* ?6<l » J 8 + C ) , [43 1 1 J + X2 1 

IF X2*39 THEN VRtNTn«j+Cx2] l«PcDUP»LOD) OR TWO(H-J)} 
FMD) 

IF N0T(R«-WAlTl0(40 + A JNX P100000000#P64» 18 + C)),t42l 1] THEN 

BEGIN 

NT?i*(NTll*5xJ,f50xC) + C! DT V C SU[ NT 1 ] . FORTYM I LLD I SK+ 1 )DI V 4)1 

SUrNT2]mPfOUP,LOD)8ltl8i47il J 4(X2>l9)t 19U7I til 

IF R.T43U] THFN 

BEGIN F0RTY!*F0RTYX((X2 GTR 19)+1)J 

SOCKrclO + J]: = (*PcDUP)) OR TWO(i)} 

xt»nt2;radds=(rand mod mn) + ( rlen« »tn) } bui lda va i li 
fortyi««oooo; 

END ELSE S0cKtC>«l0 + J + 20] : B {*P(DUP)) OR TWOUF X2»19 THEN I fLSF 

( I DIV 8)x4 + (J AND 3))> 
END FLSE XNOT READY CHECK NfXT SU 

BEGIN EUSUtaEUSU OR Tw0(4-(IF X2*l9 THEN I ELSE CI DIV 8)x4+(! AND 

3))DIV 4)1 
I l«T+(rcSU[NTli*(5*J*50xC)].F0RTYMtLLDlSK*l)x4>-l)l 
0KSEG7ER0WRITE»» FALSE* X?04- 



40100800 
40100900 

40101100 
40101200 
40101250 
40101300 
40101400 



40101500 T 



40101510 
401,01600 

40199900 
40199990 
40249100 
40249105 
40249110 
40249120 
40249130 
40249200 
40249250 
40249300 
40250000 
40251000 
40252000 
40253000 
40254000 
40254100 
40255000 
40?56000 

40256010 
40257000 
40257030 
40257060 
40257100 

40258000 
40261000 
40261010 
40261040 
40261042 
40261043 
40261044 
40261046 
40261047 
40261048 

40261049 
40261050 

40261100 
40261150 
40261200 
40261210 



T 0317«0 
T 0321U 

40100900 
T 032610 
T 032811 
T 032811 
T 033311 
T 0337t0 

40101200 
033712 

40100400 
T 033712 
T 033712 

40100100 
T 033713 
T 033713 
T 033713 
T 035610 
T 035913 
T 036113 
T 036610 
T 036810 
T 036913 
T 037113 
T 037113 
T 037810 
T 037810 
T 037813 
T 038010 
T 038QJ0 
T 038211 
T 0383«3 

40256000 
C 0384»2 
T 038511 
T 0386J0 
T 039111 
T 039710 

40257030 
T 039710 
T 040H0 
T 040112 
T 040710 
T 04UI0 
T 041113 
T 041412 
T 041810 
T 0422*0 
T 042213 

40261043 
T 043H3 
T 043510 

40261000 
T 043510 
T 043913 
T 0442«1 
C 0447J3 



ENO END* 



40261250 T 



STRpAMf A:sf NOT E USU ) . [ 4 3 * 5 1 » 
BEGIN SI IslOC A; Si tsSi + 7; 
PJIbDI+JJ DSSsCHRl 

fndj 



J. D»*VR INX C 1NX C)> 



FUSU«=0) 



FNOJ 



s 



SET 
SET 



OMIT 

own 



AND NOT r>FX) 



J «- 
FOR 



J r8i38« 10] J 



BYE* 



NOT(OKBNODFX 

NOT(DFX) 

J«-DIRM0D» 

V «- rMrSPACF(J)]]g 

J-l J 

S «• STeP 1 UNTIL J 00 
BEGIN VRfS] * [MtGETSPACE(61.0,Q) + im62[8*38«10], 

bypass*bypass-2; 

CLpARf 
END? 

AAA««:AA»«SPACE(480); 

niSKWAlTC-A»480,JJ=DlRECTORYT0P+4^J 

ZSF*rMtSPACE(31)3]&30r8l38»lO]J 

ZSF[0]«-P14J 

W«-0* 

FOR J**J STEP 16 WHILF J/ 16 DO 

BEGIN 

DISKI0(NT3,-(AAA-1)»480.J+16)I 

IF J+15 GEO BYPASS. [CF] THEN 
BYBYCDIRFCTORY FtlLL«-%15); 



BYPASS. [FFUJ+15* 
FOR I ♦ STEP 1 UNTIL 14 DOX 
BEGIN T + DDDt478-2xi]>S 
HI-J+14-IJ 
If T»Ml4 THEN 

BEGIN DD0t479-2xl ]**0* 
UCHANG«"0J 
I 1*151 
END FLSE 



XR61 



If T»P14 OR 

DDD[424-Ix30],tlM] THEN 
BEGIN D0D[478-2xiJi»Pl4, 
UCHANGI"0; 

0DDt479-2xi]l»NEXTSL0T> 

IF NEXTSL0T«O THEN 

BEGIN FI»*I»FJ**J+15 END* 



SSR61 



END 



NEXTSLOTf 
FLSF 



<H* 



BEGIN DPDt429-lx30],n»4?Jt«0» 
Bl»0DDt429-lx30], 



40261300 
40261350 
40261400 
40261450 

40261500 
40262000 

40262299 
40262369 
40262500 
40263000 
40264000 
40264500 
40265000 
40266000 
40267000 
40268000 

40275200 
40275300 
40275500 
40275600 
40275700 
40276000 
40277000 
40278000 
40278100 
40278150 



40278200 
40279000 
40280000 
40280100 
40281000 
40281100 
40281110 
40281200 
40281300 

40282000 
40283100 
40283200 
40283210 
40283300 
40283400 
40283500 

40283600 
40284000 

40285000 
40285005 



0448(2 

40261100 

40254000 
045013 
045410 
0454t2 
0455*1 

40261350 
0455*2 
0456*1 

40251000 
0458»2 
045812 
045812 
045911 
0463*0 
046411 
046510 
046911 
047012 
047210 

40265000 
0474» 1 
0477J0 
047912 
0483*1 
048412 
0485*1 
0489* 1 
0489*1 
0492*0 
0493*3 

40278150 

40278150 
0500*1 
0502*0 
0503*0 
0505*0 
0506*3 
0507*2 
0510*1 
0511*0 
0511*3 

40281100 
0511*3 
0513*0 
0515*1 
0518*0 
0518*3 
0521*0 
0521*3 

40283500 
0524*1 
0525*0 

40283200 
0525*0 
0529*0 



IF 



IF CODDDt423-Ix30])>0 THEN 
BEGIN DDDt423-Ix30]* 
-C&CC2I8I 1031 

UCHANG»«0J XR6l 

DDDC424-!*30J*0| 

END 

ELSE 
DDDt424-Ix301*P(DUP,LOD) 
AND P0037000000007774I 
IF C.IZMOJiO OR 

DDDt42««!*30] t [44ll] THEN 
SAVITJ 
FOR c'=l STEP 1 UNTIL B DO 
BFGIN RADDl»DDDU29-Ix30*C]> 
IF RADD GEQ dISKrOTTOM+5 THFN 
BEGIN 

IF (RADDl«RADD+(RLENJsDDD[428"lx30J)) GTR TM THEN 
BEGIN RADD:"RADD MOD TMlX»«50 END ELSE X**0> 

IF SUCX!=X+5x(D*bRA0D niv MN)],FORTYMILLDISK THEN 
FORTY«*P(FORTY»DUP»+) J 

X:sC(RADD**RADD MOD MN)"l) DIV FORTY + X* 
IF (EUMJ.S0CKCD3) NE« THEN LOCKED ELSE BUJLDAVAIL* 
FORTY'MOOOO; 
SUPER THEN 
PEGtN 3!Mc 

STRfAM(MsT,BI«DDD[4 79-2X| ],TieSUPER««SPACF(lO))l 
BEGIN DS!a2LlT", "J SlJeLOC a; SH>SU1) DS**7CHR> DStsLlT"/"* 
SpsSj + lJ DSI»7chR; D S S « l 9 L I T w DISK ADDRESS ERROR"? 
DS»sLlT"**; 
END* 



SPOUT(SUPER) J 

ERRoR'sSUPERS: 

END; 



■ Of 



END* 



END* 



IMC 



XMC 



B«»DDDt479-2xi]| 
SI«(SI«DISKB0TT0M 
-SCRAMBLE(T.B)), 

t36nn* 

Ct«V[5f 0]; 

V[S*C+2J»*Tj V[S#C+3J*«B* 

VCS#C+43J«HI 

IE (V[S»03l«C+3)«60 THEN 

BEGIN VCS,4J f CEF)*BYPASS* 

BYPASS»2; 

IF J*15>BYPASS.[CF)THEN 

GO bye; 

DlSKWAlT([VtS.2]].rCF]» 
60,VrS*l3)l 

CLEAR* 
END* 



40285010 


T 


0531*0 


40?850?0 


T 


053312 


40285030 


T 


0535*2 


40285035 


T 


053712 


40285135 


T 


053811 


40285140 


T 


0540(0 

40285020 


40285150 


T 


054012 


40285160 


T 


054012 


40285170 


T 


054310 


40285500 


T 


054410 


40285600 


T 


054511 


40285700 


T 


054612 


40286000 


T 


054910 


40287000 


T 


055110 


40290000 


T 


0553*2 


40290100 


T 


055413 


40290200 


T 


05551 1 


40290300 


T 


055813 

40290300 


40290400 


T 


0562*2 


40290500 


T 


056610 


40290606 


T 


0567*3 


40292050 


T 


057110 


40292060 


T 


0576*0 


40292200 


T 


0576*3 


40292210 


T 


0577*0 


40292212 


T 


0577*2 


40292214 


T 


0582*0 


40292216 


T 


0583*3 


40292218 


T 


0587*0 


40292220 


T 


0587*2 

40292214 


40292222 


T 


0587*3 


40292230 


T 


0589*0 


40292240 


T 


0590*1 

40292210 


40292250 


T 


0590*1 

40290100 


40292300 


T 


0590*1 

40287000 


40293010 


T 


0592*2 


40293020 


T 


0594*2 


40293030 


T 


0594*2 


40293040 


T 


0602*0 


40293050 


T 


0603*0 


40293060 


T 


0604*2 


40293070 


T 


0609*0 


40293080 


T 


0611*1 


40293090 


T 


0614*0 


40293100 


T 


0616*0 


40293101 


T 


0618*0 


40293102 


T 


0618*3 


40293110 


T 


0620*1 


40293120 


T 


0622*0 


40293140 


T 


0623*2 


40293150 


T 


0625*0 



PBCOUNT:* fC(("PBD " EQV 
(C H PUO " fQV 
(B.rCFJ * 1)) 
FNp; END*X 



T) * NOT 0) OR 
T) s NOT 0)) AND 
+ PBCOUNT) 



SLrEP(CNT3],N0T 0)J 

ODD «*or)D& p COUP. AAA )rCTC]> 

AAA'sp ]NX 0) XSWAP ODD BUFFERS 

OISKWAIT(AAA.480,J)| 

if i * 16 Then* 

BEGINS 

J «- 01% 

fNd>« 
endj* 

FOR TJs STEP 1 UNTIL DlRMQO-l nO 

BFGIN 0ISK?0(T»[V[ l»l]],[CF]»60,y/[l,i3)> 
SLEEPf [T1#I0MASK)J 

FORGETSPACEf [Vt I.1J]); 

end; 

BJ*V.tCF3> 

IF NpXTSLOT^O ThFN 

BEGIN 

DtSKwAIT(-B#30#fJ)J 

VKI-2XFI+29J Ibhi 

DlSKWAJT(B»30>FJ)t 

END ELSE NEXTSLOTt*HJ 

FORGETSPACE(B)i 

DDD»aDDD&A[CTC]; FORGETSPACECAA)) 

IF PBCOUNT > THFN % TELL OPERATOR *79l 

BEGINJSTREAMfPBcOUNT,X*X*SPACE(10))J 

BEGIN D S - 1 1 LIT* ThE«E ARE"! X*OI> SI*L0C PBCOUNTJ 
DS*4 DEC? DSM8 LIT" PB FILES ON DISK*"? 
DUX; DS*3 FILL* 
FNDJ SPOUT(X)) 

END) 



7*USERDtSKB0TT0M? 
X»»-5) ODDri 3 «»0I 

$ SET OMIT = NOT(SHAREDISK) 
$ SET OMIT « Sharedisk 
ri.o; vri»avtable! 
t POP omit 

RAODtsRj RlssR-1 ; 
NT3»»NrUP.NFUF-l ; X DONT USf NT3 BETWEEN HERE AND 40334065 
FOR NT?JsO STEP 1 UNTIL NT3 nO 

BEGIN |*RA»-1IRLEN*RL*01RA00*RADD + CZ-USEKDISKB0TT0M))C30I 
F0RTY««fSUrXt*X+5].F08TYMjLLDlSK+l)xF0RTY) 
WHILE fCJeSUrX+(I »*I+l)]).DlSKRUNNING AND I LEO 4 DO 
IF NOT C. OCCUPIED THEN 
PEGlN 



XMC 



40309100 
40309150 
40309?00 
40310000 



40311000 
40311100 
40311200 
40311300 
40312000 
40313000 
40314000 
40315000 



40317200 
40317210 
40317220 
40317230 
40317240 

40317300 
40317310 
40317320 
40317400 
40317500 
40317600 
40317610 

40317700 
40317800 
40320100 
40320200 
40320300 
40320400 
40320500 
40320600 



XMC 



40321000 
40321100 
40321104 
40321129 
40321130 
40321131 
40321135 
40321140 
40321200 
40321300 
40321310 
40321400 
40321500 
40321600 



40317000 T 



40320700 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



40293090 
062510 
0626(2 
0628U 
0630)3 

40265000 

40280000 
0633)0 
0634)3 
063612 
063712 
0638)3 
0639)2 
064010 
0640)3 

40313000 
0640>3 

40277000 
0645)0 
0649U 
0652(3 
0654)1 
0655)3 

40317210 
0656)1 
0657)3 
0658)2 
0659)0 
0660)2 
0663(0 
0664)1 

40317320 
0665(2 
0666)1 
0668)2 
0669)1 
0672)3 
0675)0 
0677(3 
0678(1 

40320300 
0679)3 

40320200 
0679)3 
0680)2 
068213 
0682)3 
0682)3 
0684(2 
068412 
0686(2 
0688) 1 
0689)0 
0694)0 
0697)2 
0702)0 
0703(0 



IF C.rCFlsO THEN 
BEGIN 

RA«-RA + 1 ) 
C:=Oj 

Si = c i4t )xforty; 
j*if x+i*o then 

FORTY-fDISKBOTTOM+5) FLSE FORTY) 
END 

ELSE 
BEGIN AD*M[MrSUrX+?ni,[cF]»RA*"ll 



END* 



no 



BEGIN 

IF 



C#0 THEN BEGfN S*Mr AD ] . t D A ] J J*M[ 1 + AD 3 . t DA ] ENDI 



SlsS*(X MOD 50)nIV 5*MN) 
IF J>Rl,EN ThfN RLfN)«J) 
IF X QFQ 50 THEN $t*S+TM) 

IF J fJR AND fNTJI-S-J) GEO DjSKBOTTOM + 3 THEN 
IF CYJ=DDDfABSf R))).DEND EQL NTl THEN 
BEGIN DDDrR]««SR(LO«sY,DSlZE+J)[TODSlZE]) 
IF L.O f,TR RLEN ThEN Rlen«»lo END 

ELSE 
BEGIN 

IF R=AV1 THFN 
BEGIN 

DISKWA|T(AtA\/l»Z))Z*Z + AVBL0CK)R* -j; 
ENDJ 

DDDrR*R+l]* S& JrTODSIZFJJRL*RL+ll 

end; 
if c#o then 

IF MrAD].[CF]#SFVFN7 THEN 
AD*-M[AD3,rCFl ELSf 
BEGIN 

k-- 1 ; 

WHILE (B*(M[SUtX+I)lNX(K*K+l)]))#0 AND K<15 DO 

FORGETSPACFC8);EORGETSPACE(SUtX+l3)* 
C*Ol 

END) 

END UNTIL C»0) 



END) 



MOD 
* X 



MN)«((NT1 )*5xF0RTY)M) 
DIV 5 



THEN DDDCR].DENDl«NTi+ 



IF CDDDfRJ.DEND 
NT2XMN; X NT? 
RL*RL*1? 
VR[NT2 + l]t»O&(SU(X],F0RTYMlLLDlSK4.1)tTOSPEED]RRLtT0NUMENTU 
RADDCT0STARTWRD]&RLEN[T0MAXS|Zji(NT2>NEUP,[3ll53 AND NT2<10 ) [ TOEUNP] ) 
IF R»AV1 THEN 
BEGIN 

D|SKWAlT(A»AVl»7)) 
Z«-Z + AVBLOCK)R*-D 



XMC 


40321700 


T 


0703)2 


XMC 


40321800 


T 


0704)3 


XMC 


40321810 


T 


0705)1 




40321910 


T 


0706)2 




40322000 


T 


0707)1 


?Mc 


40322100 


T 


0709)0 




40322150 


T 


0710U 


*Mc 


40322200 


T 


0713)1 

40321800 


XMC 


40322210 


T 


0713)1 


XMC 


40322220 


T 


071311 

40322220 


XMC 


40322250 


T 


0718)1 


IMC 


40322300 


T 


0718)1 


XMC 


40322400 


T 


0718)1 

40322400 




40322410 


T 


072410 




40322420 


T 


072613 




40322425 


T 


0728)3 




40322430 


T 


0731)1 




40322440 


T 


0734)2 




40322442 


T 


0737)1 




40322444 


T 


0741)2 

40322442 


XMC 


40322450 


T 


0743)2 


XMC 


40322460 


T 


0743)2 


XMc 


40322470 


T 


0744)0 


XMC 


40322480 


T 


0744)3 


XMc 


40322600 


T 


0745)1 


XMC 


40322700 


T 


0748)3 

40322480 




40322800 


T 


0748)3 


XMC 


40323000 


T 


0753)1 

40322460 


XMC 


40323100 


T 


0753)1 


XMC 


40323200 


T 


0754)0 


XMC 


40323300 


T 


0756)2 


XMC 


40323400 


T 


0759)0 


XMC 


40323500 


T 


0759)2 


XMC 


40323600 


T 


0760)2 


XMC 


40323700 


T 


0766*1 


XMC 


40323710 


T 


0769)0 


XMC 


40323800 


T 


0769)3 

40323400 


SMC 


40323900 


T 


0769)3 

40322300 




40324000 


T 


0771)0 

40321600 




40324102 


T 


0771)2 




40324104 


T 


0776)3 




40324120 


T 


0779)0 




40324200 


T 


0780)1 


) 


40324210 


T 


0784)3 




40324300 


T 


0790)1 




40324400 


T 


0791)0 




40324500 


T 


079l>2 




40325000 


T 


0792)3 



FNDJ 
DPO[R!«R+M :=AOO0O0 D J VC?-SU£ X 1 .FORTYMILLDI SK)+< X MOD 100)DIV 5xMN+i; 

if (Lo*sRL piv 4) lss avdiffmin then loj.avdiffmin else 

IF UO>AVD!FFMAX ThEN LO-AVD I FFMAX ; 
IF fRt«R+LO) GTR AVI THEN 
BEGIN 
DtSKWAIT(A#AV1»Z)5Z«-Z + AVBLOCK) 
R»sR-AVl ; 
END* 



40326000 T 



FORTYJ.flOOOO 
RADD**R+1 I 
FNDJ 



i 




FU 



vRroj j»p(dup»lod)reumaskctomaxsiz]; 

£ SET OMjT = NOT(SHAREDISK) 

FORGFTSPACECSU); 
S SET OMtT = 5MAREDISK 

unlockdiRectoryj 



$ POP omit 



toglf*=togle or aboRtmask or userdiskmask; 
messagetablebuilDfR* 
for w«w step •? while zsf[W]*0i4 do 

BEGIN 

IF W<0 THEN 

BEGIN 

DISKWaIT(-(ZSF INX 0),30,ESPADD>* 

F0RGETESPDISK(ESPADD)> 
ESPADn«-ZSF[29]j 

end* 



F0RGFTSPACF(DlRECT0RYSEARCH(ZSFtW],ZSFtW-H].6))J 



FNDJ 



FORGETSPACE(ZSF)» FORGE T SPACE (SOCK) » 
SUSTATUSf A»DDD»0)> 

FND? 



40327000 
40328000 
40329000 
40330000 
40331000 
40332000 
40333000 
40334000 

40334054 
40334055 
40334056 

40334057 
40334060 
40334065 
40334070 
40334075 
40334077 
40334079 
40334081 

40334085 
40334308 
40335000 
40335990 
40336000 



4O336O1O 
40336100 
40339000 
40353100 
40353110 
40353120 
40353130 
40353140 
40353160 
40353170 
40353180 
40353190 

40353200 
40353210 

40356550 
40356800 
40400000 



079510 

40324400 
0795*0 
080l<2 
080412 
080810 
080913 
081011 
081213 
081410 

40331000 
081410 

081413 
081610 

40321300 
0818*1 
061952 

082013 
0823 '0 
0825*3 
0828>0 
0830»3 
0836*1 

40334075 
0838*2 
0841*0 
0841*0 
0842*0 
0842*0 

40336000 

40336000 
0845*2 
0845*2 
0847* 1 
0847*3 
0852*0 
0852*0 
0852*3 
0853*1 
0855*2 
0856*1 
085711 
0858*0 

40353130 
0858*0 
0860*3 

40353110 
0863*0 
0865*0 

0866*2 

40004000 
SIZE* 0867 WORDS 



T 

T 
T 
T 
T 
T 
T 
T 

T 
T 

T 

T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 



PROCFDURF RFALPTLECLOSEfALPHA)? VALUE ALPHA* INTEGER ALPHA!* 41000000 T OOOOlO 

START OF REL SEGMENT) DISK AODRESS * 01005 

BEGIN ARRAY F I Br * ] , FPB [ * ] » HE ADER [ * ] ; % 41001000 T 0000:0 

STACKfF+1) s FIB 
STACKfF + 2) s. FPB 
STACKfF+3) » HEADER 

%%% DONT ^DD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" %%% WCP 41001500 T OOOOtO 

INTEGER KIND,NBUFS»U,BLEN»C0DE»UNLABEL,ED»C0B0L# I» J»FNUMI 41002000 T 0000«0 

STACKfF+4) = KINO 
STACKfF+5) a NRUFS 
STACK(F+6) . U 
STACKfF+7) , BLEN 
STACKfF+10) ■ CODE 
STACKfF+11) * UNLABELED 
STACK(F+12) = COBOL 
STACKrF+13) - I 
STACKfF+14) * J 
STACK(F+15) * FNUM 

STACKfF+16) = MID 

STACKfF+17) * FID 

STACKfF+20) s R 

STACKfF + 21) * D 

STACKfF+22) = C 

STACKfF+23) = FORMS 

STACKfF+24) * STATE 

STACKfF+O) = RCW 
STACKfF-3) * XTRA 



REAL MjDfflOfR»D»C»FoRMS»STATEI 41003000 T OOOOtO 



STACKrF+25) ■ STA 



STACKCF+26) * Ti 

STACK(F+27) = T2 

STACKfF+30) = T3 

STACK(F*31) * 10D 

STACKfF+32) * SFGO 

STACKfF+33) s SKFL 

STACK(F*34) = T 

STACKrF+35) ■ ACCESS 

STACKfF+34) * SAlOD 

STACK(F*36) ■. COMPGO 

STACKfF+37) « TYPE 



RFAL RCW«40fXTRA=-3» 41003100 T 0000*0 

LABEL PX»PBD1 %P 41004000 T OOOOlO 

LABrL DC19; RFAL STa; 41004100 T OOOOlO 

Label cr.lp»mt»closed»dk»sp»cp#bkup»pp,pr.dc»cd»cci 41005000 t ooooto 

SWITCH SW«. cR»LP»MT,CLOSEn»OK»Sp»CP»BKUP»PP»PR»DCf C0#BKUPt0Cl9l 41006000 T OOOOtO 

LABEL F0F,0N,DNE»CLEANUPJ| 41007000 T OOOOlO 

LABEL EOD J 41007100 T OOOOtO 

REAL Ti »T?,T3, T OD J ARRAY SEGOf * ] » SKELT * ] * LABEL Ll»L2»L3t 41007200 T OOOOtO 



RrAL T»ACCESSIX 41017000 T OOOOlO 

name sajodbtj 41017100 t 0000:0 

boolean compgo? 41017200 t ooooto 

RFAL TYPE; 41017300 T OOOOlO 

DfFlNF REWeC0DE.[47li)#,X 41018000 T 0000«0 

KRUNCHbNOT C0DE.r*2 : l]#» 41018100 T OOOOlO 

RFL»C0DF.C46li]#,X 41019000 T OOOOlO 

TlMf»cODEt[45in#»* 41020000 T OOOOlO 

LOcK=NOT CODE. t 44» 1 3*»X 41021000 T OOOOlO 



PURfiE*NOT COOE. t *3l 1 ] #?X 
LABEL CUOSrOUTJX 
LaPFL EOFlTJf 

C0DE*(N0T *P(. ALPHA)). Cl8«l5]|X 
A|. PHA*P(. ALPHA »L0D),[ 33: 153 1% 
FT R«.MrALPHA-3)> FPB*PRTr Pi M I X, 3 ] 1 % 
IF (STATF«-riB[53). [42*13 THEN GO TO CLOSED!* 
Np,UFS*FlBrl3],ri*93j FNUK«-F I Br 4 ] . C 1 3 I 11 J |I 

U*F!BM5].C24I6] J 
UNLABrl.En*FlR[«],r2«i3»« 
BLEN*FIB[l8].r3il5]>X 
STRFAM(S*rFPBtrNUMJJ,D*rMlD])H 

REnjN S I*-S; DS*2 WDS» DS*3 OcTI DS*5 OcTJ 



ds* Oct endjx 



BUFFER RING TO MARK 
NSEC OS! 



IF D<0 THEN D*0.Cl8»303>X 
FORMS*FPBf rNUH+3].L42« 111* 
I*FIBf 133,[28JlO]J* 

if cRsO and i#n or r#o then r*iu 

COBOL*CFlBtl33 AND 1 )& C r F I R3 . r 8 : 103*22 ) [ 1 » 47 : 1 3 * X COBOL 60 g 68 

IF C0R0L>0 OR FIB[4].[7ii] THFN % COROL 60 OR SORT 

MrFlR I NX NOT 13. [3*63*2 

ELSF M[ALPHA-71,[3*63*2j 

IF (T«-J*-FIB[101.[3H5))#0 THEN STHERE-S A 

DO Mr 1-23, [3161*2 UNTIL C l*M[ t 3 . [FF]-2)«JI 

COMMFNT MARK IT ALL DATA TO PROTECT IT FROM 

IF FIB. [7:13 THEN CHECK jOBORFl LEMESSC PI MI X • ALPHA-3 * U) J 

GO TO SWrKlND*FlBf«].[8i4]]»* 
CRICCICP»LP»SPIMT»PP1PR:CDI 

OTHEPCLOSE(O)? 

GO TO CLFANUPlX 
BKUP« TYPF»BFPBrFNUM+33.C43l5]J BACKCLOSEC ) ; 
CLOSEOUTU STATE. [39143*1; TiMf*1*I 
CLEANUP: X% 

IF NOT STATE. [41:13 THEN* 

IF KlND<2 OR KlNDsll OR K]ND>6 AND KjND<9 
t SET OMlT * NOT(PACKFTS) 

OR KlND«4 
$ POP OMlT 

ThEM BEGIN 

$ set omit * packets 

ftLfmessageu 
$ sft omlt - not(packets) 

if purfif then " prg" else if lock then " lok" else 



$ POP OMjT 



" REL w )«TiNU[U][6:30:i8]»0,MlD»FID# 
IF KlNn*2 OR KtNDs9 THEN R ELSE 0, 
IF KlNf)«2 OR KtNDr9 THEN D ELSE 0, 
C»IF KIND=4 THEN 64 ELSE 
CLOSEMESS AND f (T |*JAR [P 1 M I X, 03 )>0 
OR (T<0) AND C0PNMESS))J 



end: 



IF CFIB[5]*STATE).[42tl] THEN F I B[ 4 3 , t 8 I 4 3*31 % 

IF (T*FIB[ 10], r 3« 15 J )#0 THEN XTHERE-S A BUFFER RING TO FORGFT 

BfGIN XFORGETTING IT 

FOR 1*0 STFP 1 UNTIL NBUFS-1 DOX 

BEGIN J*M[T3.[l8tl53-2!J5 



41022000 


T 


41035000 


T 


41036000 


T 


41038000 


T 


41039000 


T 


41040000 


T 


41041000 


T 


41042000 


T 


41043000 


T 


41044000 


T 


41045000 


T 


41046000 


T 


41047000 


T 


41047500 


T 


41048000 


T 


41049000 


T 


41050000 


T 


41051000 


T 


41051100 


T 


41051200 


T 


41051300 


T 


41051400 


T 


41051500 


T 


41051600 


T 


41051620 


T 


41052000 


T 


41054000 


T 


41055000 


T 


41142000 


T 


41144000 


T 


41187000 


T 


41188000 


T 


41189000 


T 


41190000 


T 


41190099 


T 


41190100 


T 


41190101 


T 


41190200 


T 


41190299 


T 


41190600 


T 


41190699 


T 


41190700 


T 


41190701 


T 


41190800 


T 


4U90900 


T 


41191000 


T 


41191100 


T 


41191200 


T 


41191300 


T 


41191500 


T 


41194000 


T 


41195000 


T 


4U96000 


T 


41197000 


T 


41198000 


T 



0000*0 
000010 
000010 
0000:0 
000913 
0011*1 
001413 
00l7»0 

002010 
0021«2 
002310 
002412 
0025*3 

41047000 
0027»1 
0029:3 
0031>3 
0033»1 
0037*1 
0041:0 
0043:0 
004511 
0051 10 
0053J2 
006013 
0060:3 
0064»0 
0073*1 
007311 
007410 
0074»2 
0077*1 
008112 
0082»0 
0083(0 
008611 
0086U 
0087*2 
0087»2 
0088:3 
008813 
008910 
0089:0 
009312 
0093*2 
0095*3 
0099:0 
0102U 
0104*2 
0106»3 
0109*3 

4U90200 
0109*3 
011412 
0116*2 
0117*0 
0121*1 



FNDJX 



forge;t5pacrT);x 

MtALPHA+n*P(DUP#L0D)*0tZ:2in«l[25l47ll]* 
RCALPhA + 1U33:33H5]JX 



ENDIX 



FT Bf 10 j . C 3 * J 5 J*0; Fjail6l,CCF]*0l 



X501' 



IF NOT UNLABFLFD THEN* 

I F KIN0#0 THFfc* 

IF (T*MtALPHA"23.[33U5])#0 ThENS 

F0RGETSPACE(T-2);« 
MrALPHA-2]*P(DUP»L00)&P(0,XCH)[8lflll0]*« 
F|R[6]*FIBC7]«-0;* 

if time Then stoptiming<fnum,i023); 
if c0r0l>0 or fib[4].[7h3 then % cobol 

Mr FIB INX NOT 1 3 . C 3*63 I *6 fLSE M[ ALPHA'7 ] , 
GO TO CLOSED)* 
OKit HTSKCLOSFCO) J 
GO CLEANUPS 

DC* » 

* SET QMfT * NOTCOATACOM ) 
0C19: J 
S SET 



60 OR SORT 
[3I6J i«4f 



OMfT 
GO 
CLOSED: * 

Rf WI«XTRAI 
FND FlLr CLOSFJ 



■ NOT(nATACOM) 

closfout; 



41199000 
41200000 
41201000 
41202000 
41203000 

41204000 
41205000 

41206000 
41207000 
41208000 
41209000 
41210000 
41211000 
41212000 
41212100 
41212200 
41213000 
41215000 
41269000 
41281000 
41281999 
41307010 
41307020 
41307290 
41308000 
41309000 
41310000 



T 012353 

T 0124:2 

T 0125*1 

T 0128 J 1 

T 0130*2 

4U98000 

P 013410 

T 013812 

41196000 

T 0138«2 

T 0139:0 

T 014011 

T 014313 

T 014512 

T 0149:0 

T 0151U 

T 0153*2 

T 0155:2 

T 016312 

T 016410 

T 0164:3 

T 0165*1 

T 0165*1 

T 0165*1 

T 0166*0 

T 0166*0 

T 0166»2 

T 0166*2 

T 0167*3 

41001000 
SIZE* 0168 WORDS 



PROCFDURF L!NKUPfTYPF,KEY); VALUE TyPF.KEYJ REAL TYPE#KEY* 41310100 T OOOOJO 

START OF REL SEGMfNTJ DISK ADDRESS « 01011 
BEGIN 41310200 T OOOOJO 

KEY * = P(.KFY.LOD) iNX -1) 41310300 T OOOOJO 

MrKFY+in* (*P(DUP))&TYPEr3«42«63R(L0GENTRY«*L0GENTRY*l)r25»34ll4]> 41H0400 T 000210 

M[KrY + 2] »* (*P(DUP)) I CXCLOCK + PC RTR ) ) [ 3 » 24 1 24] I 41310500 T 000751 

IF (LOGHOLDFR T NX 0) * THEN 41310600 T 00ll»0 

BEGIN LOGHOLDER.CCF] Is KpY; 41310700 T 0012H 

TNnEPFNOENTRUNNER(P(,MAlNTLOGGER). 0,100); 41310800 T 0014:0 

END ELSF M[L06HOLOER.tFF33.[CF3 Is KEYI 41310900 T 0015»1 

41310700 
M[KfY).[CF] «* o; LOGHOLDFR.tFF] J* KEY) 41311000 T 0018*2 

IF fNUMAlNTMESS»xNUMAlNTMrSS+l) > THEN SLEEPC C NUMA I NTMESS ] , "0) I 41311100 T 002210 

END IINKUPJ 41311200 T 0026»0 

41310200 
SIZE* 0027 WORDS 



PROCFOURF CHFCKjOBORFlLFMESSCM!X»FIB»U)> 



STACK(F*1) 
STACK(F+2) 



VALUE 
BEGIN 
REA|„ 



MjX.FlB.UJ REAL Mix,FlB,U; 
KEY.FNUMJ 



START OF REL 



KEY 
FNUM 



41312000 
SEGMFNT) DISK 
41312100 
41312200 
41312300 



IF NOT jARrMiX.21.t3»l] TrEN 
BFGIN 

JAR[MlX,2].t3ll3 «■ 1J 

KfV :• TYPEDSPACE(5.MAlNTBUFFAREAV)lX 

M[KEY-2],[9I6] :* OJ 



1167' 



MrKEY ] I* 

MtKEY+1] '■ 

M[KEY+2] :* 

MfKEY+3] le 

MTKEY+43 !■ 

LINKUP(12.KEY); 
END* 



& MlXt20»4i«5]l 
JAR[MlX»5].r6*18J{ 
JARtMlX»5]l 
JARrMlX»0] J 
JAR[MIX»1]I 



IF FI Ri*0 THEN IF NOT MlFlBJ«t6H] THEN 

BFGIN 

MrFIB3.f6t 1 J :* 1* 

FNUM :« MtMCFIBl INX 4l.[13lll3l 

KFY u TYPedSPACE(5»MaJNTBUfFAREAV)>X 

M[KEY-2],[9«6] :» o; 



%\67' 



M[KFY } J 



MtKEY+1] Is 

M[KEY+2J :« 

MfKEY+3] :« 

MCKEY + 4] ia> 

ltnkup(13»key)j 
end;eno checkjoborfilemess; 



& MJXE20U355] 

& ((FNUM D IV ETRLNG)+l)[9J39l9]| 
JAR(MIX»5],[6I18JI 



MtCFNUMJ* PRTtMjX»33 INX FNUM)+3]J 

MCFNUM]] 
M[FNUM+l]j 



41312400 
41312500 
41312600 
41312700 
41312800 
41312900 
41313000 
41313100 
41313200 
41313300 
41313400 
41313500 

41313600 
41313700 
41313800 
41313900 
41314000 
41314100 
41314200 
41314300 
41314400 
41314500 
41314600 
41314700 
41314800 
41314900 



T 0000:0 
ADDRESS ■ 
T 0000:0 
T 0000:0 
T 0000:0 



01012 



T 0000»0 

T 000251 

T 000213 

P 0005U 

T 0008J0 

T OOltU 

T 0013* 3 

T 0017«0 

T 0019:3 

T 0022:2 

T 0025U 

T 0026U 

41312500 

T 0026:1 

T 0029J1 

T 0029:3 

T 0032:2 

P 0035:3 

T 0038:0 

T 0041U 

T 0042:2 

T 0045:3 

T 0049:0 

T 0054:0 

T 005613 

T 0060J0 

T 0061*0 

41313700 

41312200 

SIZE* 0062 WORDS 



PROCEDURE" LOGOUTMAINT(B)! VALUE B) REAL B; 



START OF REU 



STACKfF+O) a RCW 
STACKfF-2) . MSCW 



BFGIN 

Real rcm * +o; 

Real mscw=-2) 

Real fw ■ +i» ti ■ +?» T2 * + 3# T3 * ♦«» saventry • +51 



STACKfF+D = FH 
STACKrF+2) a Ti 
STACKfF+3) 3 T2 
STACKfFfft) x T3 
STACKfF+5) > SAVENTRY 

REAL MFID * +6. FID » + 7) BOOLEAN FORKED * +81 
STACKfF+6> * MFID 
STACK(F+7) * FID 
STACKfF+lO) m FORKED 

INTFGFR LASTL s +9, SEGNO ■ +10, SEGSlZ * + 11» LDATE ■ +121 
STACKfF+11) * LASTL 
STACKfF+12) * SEGNO 
STACKrF+13) ■ SEGSTZ 
STACKfF+14) * LOATe 

LABFL CS»SCANtNrWLOG»BUlLDMESS»EXlT»FlN|SHUPl 

SUBROUTINE FI*C0LDHDR) 

BEGfN 

MrFH INX 03»a POOOO5OOO36OOO6OI ) 

MrFH INX !]!■ (XCLOCK + P<RTR)) 8 LDATE t 6 I 30 ) 18 3 ) 

STRFAMfDATE»X:sFH INX 3)1 

BFGlN SPaLOC DATrJ DSJsfi OCT; D I *«X I DS)*2 LIT"**"! 

s i * »x ; siisSi+51 dSi*3 chR) 

END) 

$ SFT OMIT «= NOT(SHAREDISK) 
S SFT OMIT = ShAREDISK 

MrFH INX 4]Ib & 7?[9Hli7]} % SYSTEM DATA FILE 
S POP ©MIT 

MrFH INX 7Uw (L0GSIZEX6)-1J 
END FIXCOLDHDRI 

P(0,0,0»0,0,0t0»0,0,0,0#0)) 

if forked** b*o then % indf p endent Runner 

BEGIN IF MRew > THEN SLfEP(C MROW] # -0 ) > 

MROW l> ABS(MROW)) 

LASTL )* LOGENTRy; 

LOGENTRY \» 0) 
END ELSE LASTL«sABS(B)-2; 

FID:* "MNTLOG * 
t SFT OMIT s NOT(SHAREDISK) 

I 
STRFAM(OATEfCI»tLDATE])l REgJN si)=L0c DATE? DS»*B OCT) ENOI 

T1I.SPACFC335)) 

IF fFHI*DlRECT0RYSEARCHfMFlD5«»' , MAlNT ",T3)*"L0G M 
S SFT 0MjT • NOT(SHAREDISK) 



41316000 

SEGMENT) DISK 

41316100 
41316200 



T 0000*0 
ADDRESS ■ 
T 0000)0 
T OOOOJO 



01015 



41316250 T 0000)0 
41316300 T 0000)0 



41316400 T 0000>0 



41316410 T 0000)0 



41316500 
41316505 
41316510 
41316515 
41316520 
41316525 
41316530 
41316535 
41316540 

41316545 
41316575 
41316580 
41316585 
41316590 
41316595 

41317100 
41317200 
41317300 
41317400 
41317500 
41317600 
41317700 



#5))*0 THEN 



BEGIN 



41317790 
41317800 
41317900 
41318100 
41318200 



41317710 T 

41317719 T 

41317730 T 

41317780 T 



0000 
0000 
OOOl 
0001 
0003 
0006 
0006 
0009 
0010 

0010 
0010 
0010 
0013 
0013 
0016 

0018 
0021 
0022 
0025 
0026 
0027 
0028 

0030 
0030 
0030 
0031 

0032 
0035 
0036 
0036 
0038 








2 


1 



1316530 

1 

1 

1 

1 

1 

1 

1316510 





1 

3 

3 

2 

1 

1317300 

1 

2 

2 



1317780 

3 



1 

1 

1 



Fw«*SPACr(30)J 
M0VF(3O,FH-l»rH)J 
MrFH+ 9]l« i| 

MrFH+lO]»s GFTUSERDISKCCMf FH+8)|«L0GSIZE»"1000))I 
CS: FlXCOLDHOR; 

IF FH.TFFJsO THEN ENTERUSeRF ILE(-MF ID # T3.FH-1 ) 
ELSE DISKWAITCFH I*X 0, 3O, FH , r FF] ) i 
FtD»« T3> 

MROWJs M[FH INX lOU 
GO BU1LDMESSI 
ENDl 

LOGS!ZE»* HrFH INX Hit 

IF MtFH TNX 4],C*5ll3 THEN FORKED »*FORKED OR 21 I JUST COLD STARTED 
IF R>0 THEN 
BFGlN 
I SET OMtT a NOTCSHAREDISK) 
* SET OMjT ■ ShAReDISK 

MrFH INX 4]»« & 72r9Ull73l 
$ POP OMfT 

D?SKWAlT(-Ti,5»MR0Hl«HtFH I NX 
MLOGIs SEGNOls MCT11.C24I153I 

scan: if mlogslogsuem then 
bfgin 

IF (FORKED AND 2>#0 ThEN GO CSJ 

if mlog#segno then diskwaitc-ti»5,mrow); 

MCTn»* P(DUP.LOD) & I [?» 47 t 1 ] i 

Dl SKWA ITCT1 ,5,MR0W)| 

MLOfl»« IF SEGNO<L0f,SlZE-l ThEN SEGNO ELSE L0GSlZE"2J 

go newlog* 
end; 



% SYSTEM DATA FILE 
10]); 



D| SKW 

if Mr 
mi„og; 

LOGEN 
IF (T 

while 
rfgtn 

IF 

ELS 

T3I 

end; 



aitc-ti ,30»mrow+<:mlOgj«mlog+i)); 

Mi* not then go scan; 

* mlog-i ; 

try»« MrTi + n,rcFJi lastl;* ml ti + i 3 

3»»L0GH01DER INX 0) # THEN 
T3#0 DO 



tFFJJ 



M[T3]<0 THEN M[T31,[FF3l« LOGENTRY : »LOgeNTRY+ 1 
E M[T3 + .|J,[25IMJIb LOGENTRY»=LOgENTRY + H 
* MfT3] INX 0; 



if lastl/o then 

BFGIN 
DISKWA 
T3I« ( 
IF T3> 
PFGIN 
MfTl 



IT(-Tl»30,MR0W+(SEGN0j«LASTL DIV 30))l 
M[TU(SEGSIZl*LASTL MOD 30)],C39l9Ul)x5l 
5 THEN IF LASTL+T3 > (T2 J «C MLOG+1 )x30 ) THEN 



n 

ENDJE 



ISK 

nd; 



+ SEGSlZ]«s P(DUP > LOD) & 1C2I47H] & 

((T2-LASTL) DI V 5 »1 ) [ 391 39i9]| 

WAIT(Tl»30»MR0W+SFGN0); 



413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 

413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 

413 
413 
413 
413 
413 
413 
413 
413 
413 
413 
413 

413 
413 
413 
413 
413 
413 
413 
413 
413 
413 



8210 
8220 
8230 
8240 
8250 
8360 
8370 
8380 
8400 
8500 
8600 

8610 
8620 
8630 
8640 
8649 
8679 
8680 
8681 
8740 
8760 
8780 
8800 
8810 
8820 
8840 
8860 
8880 
8900 
8920 

8940 
8960 
8980 
9000 
9020 
9040 
9060 
9080 
9100 
9120 
9140 

9160 
9180 
9200 
9220 
9240 
9260 
9280 
9300 
9320 
9340 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



END! 



41319360 T 



0038: 
004p 
0043< 
0045: 
0050 i 
0051 * 
00521 
006l« 
0062: 
0064: 
0064» 
4 
00641 
0066: 
0070; 
007p 
0071 » 

oo7n 
O07i; 
00741 
0074: 

0077J 

0080: 
0081: 

0062; 
00831 
0086: 
0069: 
00901 
0094: 
0094: 
4 
0094: 
0097: 
OlOO: 
0101: 
01065 

01 os; 
0109; 
0109; 

0113* 

0119; 

0121 1 

4 

0122: 

0123: 

0123; 

01261 
0131 1 
01351 

0135: 

0138: 
0141* 

0143; 

4 

4 

0143: 



3 





1 


1 

1 





2 

1318200 

2 

2 

1 

2 
2 
2 
2 
2 
3 
1 
2 

3 
2 
1 
2 

1 
3 

1316800 
3 

3 



1 
1 

3 
3 

1 
3 
3 

1319060 

1 



2 

2 





2 

1 

1 



1319260 

1319180 





Mc T 1 ] is 5 & 62[3«42l61 8 

fMLOfi +CMDELT A*0))[24*33>15) & L ASTL [9 l 33 J 15] * 
M[T1 + 11 :«= L P A T E 8 (XCLOCK+P<RTR))[3l2«i24JI 
MCTt + 2] » = PATchLEVFL: 
MfTl+3] »« LOGVFRSIONJ 
MfTl+4] Is nATp; 
DlSKWATT(Tt»5.MROW)J 

IF R>0 THEN * CALLED FROM INITIALIZE 
BEGIN 

if (forked and 2)*0 then flxcoldhdr* 
dtSkwaitcfh inx o,3o,fh;cff3)> 
go finishup* 

END? 



NEWLOGt 

IF moldfRee=o then 
locktogcholdmask)) 



SLEFP<rTOGLE],HOLDMASK)j 



DISKWAIT(-Tj, -30. DIRECT ORyT OP- SYSNO)» 
SegNOJb CMf Tl +271 . t 38 * 103 +1 ) MOD 1000J 
MrTi+??]!= PCDUP.LOD) & Sf6N0[38»38I10]| 
DlSKWAlTfTl»-30»DlRECT0RYT0P-SYSN0)l 
UNLOCKTOG(HOLOMASK); 

STRFAM<A»«rACTDATFJ»Bi«SFGNO#CI»tMFID))J 

BEGIN 

Si I = A J S!I»St+2* DT**DI+l! DS:«4 CHRl Sp-LOC B* DSl»3 DFC* 

end; 



NEWLOGI 

% ACCESSED 



IF nlRFCT0RYSEARCH(-MF!D»FlD»5) * THEN GO 

MfFH INX 311b P(DUP,L0D3 & LDATFt 12 I 30 I 18 ] I 

MOVFClO.FH tnx o,td; 

MfFH IMX 1]J= (XCLOCK + pcRTR)) & LDATE[ 6 * 30 I 1 8 1 J 

MtFH INX 3U* P(DUP.LOD) & LDATE C 30 * 30 1 1 8 ) I I CREATION 

M[Tp «]«■ & l[9i«7MJJ X TYPE DATA 

M[Tj+ 7]ts (T2l« (MLOG + (M[)EUA?«0)+2))x6 -p 

MtTl* 81«a T2+105 * TO SIMPLIFY DUMPING 

M r T 1 + 9J is ?; 

MTT1+10]Jx OJ M0VEC20,[MtTUl0]]»rM[Tl+ll]])| 

IF (M[Tl+lO]l» GETUSERDISK(-T2-10 OR M)) « THEN 

BEGIN 

StRFAM(A:*.[MFID]»C **T3:*SPACE(5))» 

BEGIN 

DS»*18 LIT"-N0 USER DlSK FOR "* Sp«A* 

DSl*7 CHR; DSI«UIT»/ W t S I i»SI +1 » DS» = 7 

END? 



SI l*Sl + i » 

CHRl DSl«L!T"*"J 



SP0UTCT3) l 
MrTl+lO]l« 
ENDI 



GFTUSERDISK(-T2-10)I 



T3Is0j SEGNOJ*M[T1+iO]; 

DO BEGIN 

DtSKWAIT(-T1-31»300,MR0w+T3)I 
DrSKWAlTfT 1+31. 300* SFGN0+T3)> 

END UNTIL CT3S.T3+10) GE« T2J 



41319600 
41319700 
41319900 
41320000 
41320100 
41320200 
41320220 
41320240 
41320250 
41320255 
41320260 
41320270 
41320280 

41320300 
41320310 
41320320 

41320330 
41320340 
41320345 
41320350 
41320355 

41320360 
41320370 
41320380 
41320390 

41320400 
41320410 
41320420 
41320430 
41320440 
41320450 
41320460 
41320470 
41320480 
41320490 
41320500 
41320550 
41320600 
41320700 
41320800 
41320900 
41321000 

41321100 
41321200 
41321300 

41321350 
41321400 
41321450 
41321500 
41321550 



41318640 

T 0143*0 

T 0145:0 

T 0148*2 

T 0152*0 

T 015410 

T 0157 JO 

T 015910 

T 0160*1 

T 0161 » 

T 0161*2 

T 0164*0 

T 0166*1 

T 0168*0 

41320250 

T 0168:0 

T 016810 

T 017H1 

41320320 

T 0l74»3 

T 0177:0 

T 0i80»2 

T 0183*3 

T 0185:3 

41320355 

T 0189*1 

T 0190:2 

T 0190:2 

T 0192*0 

41320370 

T 0192*1 

T 0194*3 

T 019850 

T 0200*0 

T 0203*2 

T 0206*3 

T 0209*3 

T 0214*3 

T 0217*1 

T 0219*1 

T 022413 

T 022911 

T 0229*3 

T 0232»3 

T 023213 

T 0235*3 

T 0237*2 

41320700 

T 023713 

T 0239*0 

T 0242*2 

41320550 

T 024212 

T 0245J1 

T 0245*1 

T 024713 

T 0250*0 



FNTrRUSFRF!I.Ff-MFID»FlD»Tt 
DlSKWATTfFH INX 0,30tFH,rF 

HMFSSl 



buildmfssi 

MtTl 

m r t 1 + 

MTT1 + 
M[Tl + 
M t T l + 






MDF.LTAIi 

] :* 
1] j* 
23 «■ 
33 :» 
ft] :« 



0; 



5 & 6?f3:42i6]j 

LOATF X (XCL0CK+P(RTR))f3l24l24]> 

PATCHLEVF.I-* 

LOGVE R S I N ; 
. . , . .. DATpj 
M[Tj+30]J« NOT OJ 
MCTl+313** NUMAINTMESS+100I 
DISKWAITCT1 »32»MR0W)J 

STRFAM(A«*rMFlO3»T0G*'»MFlD" w MAINT %MI »MROW»B « »T t )J 
BFfifN 

DS««?9 L1T"#NFW MAINTENANCE LOG FILE IS "I SM»AI S I l«S I *1 J 
DS»«7 CHRJ DSl*LITV M { SM-SI + ll DSi«7 CHRJ DS l«L I T"»" I 
TOG(PI«"Dl-il nS«=4 LIT" AT "j SlJsLOC Ml DS«*8 DEC! OS *»U lT"*«; 

Dl :bOI-9j DS»s7 FILL)? 
END* 

EXIT: 

SP0UT(T1 )J 
IF B>0 THEN 
BEGIN 

T1 «s TYPrnSPACE(l5»MAlNTRUFFAREAV)lX 
FINlSHUP: 

M0VF(l0,B.Tl+2)» 
M r T 1 ] ! s 2 ; 

Mr t i + i ] :» ldatf; 
LtNkuP(15.ti); 

END ELSE 

IF f TlJsP( f MAINTL,OGARRaY»LOd) INX 0)#0 THEN MOVE ( 31 » Tl -? . Tl - 1 ) I 

Tl is FH INX Oj 

WHATMCP(FH) J 

M0VfC?6»FH»T1+A)> F0«GFT5PACE(FH)J 

STRfAM(KTR«»T1 + A: )) 

PFGlN SI :*«tR; 

ac52(if sc* M *" Then sp*si + i else Jump out 2 to ldjj 
lli ktribsh 
end; 

NTIjs P INX Oi 

M[Tl ] Js CNT1-T1 ) 01 V 5j 

M[Tt+l]S= LDATFi 
$ SET OMIT s NOTCSHAREDISK) 
S SET OMIT = SHARFDISK 

STRFAM(Al«tAVTABUE[in»N| B NEUP,NEUF»0l«TU3)l 
S POP OMIT 

BEGIN Si:=LOC NJ DS:*WDSJ DM=Dl"6; SlJaAJ Sll»SI+4J 
n'cif sb then ds*«set fLSe DS*«ReSeT| Sj»*$I+8)J 

FND> 

* SET OMlT s NOT(SHAREDISK) 

Mr T t +23 «* MCPBASEI 
LlNKUPft6»Ti)» 









41321400 




41321600 


T 


0252U 




41321650 


T 


0254;2 




41321700 


T 


025613 




41321750 


T 


0256J3 




41321800 


T 


0258(0 




41321900 


T 


0260:2 




41322000 


T 


0264:0 




41322100 


T 


0266*0 




41322200 


T 


0269»0 




41322300 


T 


027P0 




41322400 


T 


0273:1 




41322450 


T 


0275:3 




41322500 


T 


0277:0 




41322600 


T 


0279:0 




41322700 


T 


0279:0 




41322800 


T 


0283:2 


*"; 


41322820 


T 


0285:i 




41322840 


T 


0287»3 




41322900 


T 


0288:2 

41322600 




41323000 


T 


0288:3 




41323100 


T 


0288:3 




41323110 


T 


0290:0 




41323120 


T 


0290J3 


X167» 


41323130 


P 


029i:i 




41323140 


T 


0293:2 


XI 4 4- 


41323150 


P 


0293:2 




41323160 


T 


0295:2 




41323170 


T 


0297«0 




41323180 


T 


0299;0 




41323190 


T 


030010 

41323120 




41323300 


T 


0300:0 




41323400 


T 


0308:0 




41323500 


T 


0309U 




41323550 


T 


031010 




41323600 


T 


031213 




41323700 


T 


0314 * 1 




41323800 


T 


0314»2 




41323900 


T 


0317* t 




41324000 


T 


031712 

41323700 




41324100 


T 


0317J3 




41324200 


T 


031813 




41324300 


T 


032111 




41324400 


T 


032381 




41324700 


T 


032311 




41324800 


T 


0323U 




41324801 


T 


0325«3 




41324900 


T 


032513 




41325000 


T 


0327:0 




41325100 


T 


0329M 

41324900 




41325200 


T 


0329J2 




41325400 


T 


032912 




41325500 


T 


033i:2 



IF FORKFD ThFN BF6IN MROW j *NA8S c MROW ) \ K I LL ( [ MSCW ] ) ; ENDJ 

fnd logoutmaint; 



41325600 T 0332?2 

41325600 
41325700 T 0335:0 

41316100 
SIZE* 0336 WOROS 



STACKfF+O) = RCW 

STACKfF-2) s MSCW 

PRT(77) * Mt,A 

STACKfF+1) . KLUDGE 

STACKfF+2) = KEY 

STACKfF+3) * TRANS 

STACK(F+4) m RECS 

STACK^F+5) * WT 



PROCEDURE MAINTL0GGER(B)J VALUE B '» REAL B* 41327000 T 0000*0 

START OF REL SEGMfNT* DISK ADDRESS » 01027 
BEGIN 41327100 T 0000*0 

Real rcw * + o* 41327200 t ooooso 



Real mscw*-2* 41327250 t oooo;o 

array mla * ma i ntlogarra yr * 1 * 41327300 t 0000j0 

real kludge * +1» key * + ?> trans ■ +3» recs = 44» wt a +5) 41327400 t oooojo 



STACKfF+6) > WMCP 
STACKfF+7) « WLOG 
STACKfF+10) = WD 
STACKfF + lD » A 
STACKfF+12) * LASTENTRY 



REAL WMCP s +6, WLOG = +7. WD ■ +8. A * +9, LASTENTRY s 410) 41327500 T OOOOJO 



STACKfF+13) * Ti 
STACKfF+14> = T? 
STACK(F+15) ■ U 

STACK(F+7) « LOCN 
STACK(F+10) - NUM 



REA|, T1 a 411* T? = 412, U = +13* 41327600 T 0000*0 

REAL LOCN* WLOG* NUM* WDJ 41327700 T 0000*0 

LABFL L0P,AN0THER»RECYCLE»K1LLUI 41327800 T 0000<0 

P(0,0,0»0,0,0,0»0,0,0»0#0,0); 41328000 T ooooto 

IF MROW > THFN SLEEP([MROw]»-0); 41328200 T 000311 

MROw *» ABSfMROW)} 41328300 T 0006*1 

IF rA«sP(,MLA,LOD) T MX 0) s ThEN 41328400 T 0007*1 

BEGIN 41328500 T 0009«1 

MLA * = [Mf (AI»GETSPACE(33,MAINTBUFFARFAV»0)43)]] % 321 8 » 38 » 1 0] J % 41328600 P 000913 

M0VEC31 »A-?»i»l)) 41328700 T 0014*0 

MLAT30] ** NOT 0* 41328800 T 00l6»2 

IF MDFLTA#0 THEN D I SKW A I T C -A» 30, MR0W4ML0G+1 ) ; 41328900 T 0018*0 

END» 41329000 T 002H3 

41328500 

LOGANOTHFR* 41329100 T 0021 1 3 

IF MrLOcNl«LOGwOLDER INX 0] < THEN 41329200 T 002113 

BEGIN 41329300 T 0024*1 

M0VE(4,L0CN,[TRANS])I KLUDGE *» TRANS INX 0; 41329400 T 0024»3 

KpY lc -0 * TRANSr26t20t 133 & (TRANS . 1 2 * 1 J + 4 ) [ 31 42* 6] & 41329500 T 002712 

TRANS[9l9l9] 4 TRaNSC 18 » 18 I 2 ] & TRANS [20 » 4 l 53 J 41329600 T 0030:3 

TRANSt* TRANSACTl0N[U»sTRANS.r2»2j4l6]&CXCL0CK4PcRTR))[3l24i243» 41329700 T 003412 

L0GH0L0ER.[CF3 »» tOcN »* [KLlJDGEJ INX 01 41329800 T 003812 

IF KLUDGF«0 THFN LOqhOLdER . CFF 3 «* LOcNl 41329900 T 0040*3 

END» 41330000 T 0043*1 

41329300 

NUM J* (M[L0CN4ll.[39«9]4l) x 5i 41330100 T 0043*1 

IF (LASTFNTRY««(ML0G+l)x30+MDELTA) + NUM > ( LOQSI ZE"1 )><30 THEN 41330200 T 0046*3 

BEGIN 41330300 T 0051*0 

IT MDELTA/O THEN 41330400 T 0051*2 

BFGIN MLAr3l3l*L0GENTRYl D I SKWA I T ( A. 32.MR0W4ML0G* 1 >l END) 41330500 T 0052*1 

41330500 



LOGOUT MAINT(-CM[L0CN+1).[?5 I UJ + 1))) 
L06FNTRY t= 0) Tl U LOcN; 

while ti # o do 
bfgin 
if m[tu<0 then mct1 3 . cff 3 i* logenl ry i *logentry+l 

ELSE MCT1 + 11.C25H41 l» LOgfNTRY I«L0GENTRY + 1I 
Tl I* M[TU JNX 0; 

END* 



LftSTFNTRY 
END* 



is 30; 



NUM THEN 



RECYCLFI 

IF (Tlt«30-M0ELTA) 
BEGTN 

M0VF(NUM»L0CN+1»[MLA[MDfLTA31)» 
MnFLTA ts MOFLTA + NllM; 

fnd flse 
begin 

M0VF(T1 ,LOCN+l,tMLA[MnF.LTA]])J ML A [ 3 1] » «L0GENTR Y 
n»SKWAlTrA» 3?»MR0W+(ML06«"ML0G+1 J)l 
LOCN «= LOCN + Ti; 
NljM »s NUM - Til 

MpFLTA :* Oj M0VE(3l,A -?, A -1); 
IF NUM * THEN GO ReCYcLf* 
FNDJ 



& LASTENTRYfCTFJl 



numaintmfss»=nu 

IF fTll«M[T2l«L 
IF f Tl . r 3«6 3 AN 

SFT OMfT « PACKE 

BEGfN STREAMCAI 

Bi 

BFGIN SI \* 

0S!«3 

DSJal 

DS«*2 

si tss 

Sl»«L 
DRM» SiIbS 

3f IF 
L» DS*«4 

16CDS 
3( 

Sf :«S 

IF SB 



IF 
IF 
IF 
DI 



SB 
SB 
SB 



END? 



MAINT 
OGHOL 
D ?76 
TS 

■ TjNU 

■ fRFC 
LOC A 

dec; 

A LIT 

dec* 

> OS: 

IM* 
oc S; 

i + n* 

SB Th 
LIT" 
«=3 R 
IF SB 
1-5* 

then 
then 
then 
then 

IM* 



MESS - II 
DER 1NX 13) 

) ■ 4 then 



< o then % spout messagf for RE- 
IS COVERED DISK/DRUM ERR 



[U], RlsRECS,ri»4J» XlsKEY. [20153. S I *WT . t27 » 63 , 
S], DSK«sTl.[8U3» D»«TH*SPACE(10))I 
I SISbSi+51 DSl»HT M "J DS«*3 CHR* 

A»*Dt* Dli-Dl-3) DS««? FILL! DI*«A* 
w retrifs. MIX*"* 

A«*Ol> DII.DI-2! DSl«FILL* DH»A* 
= 5 LIT". DA* 1 *; CII-CI+DSKI GO TO DRM* 
DSl«7 ChRI DSI.7 LIT", SEGS«"l 

ds **2 dec; sh»bi sii«si+i6i go to li 

5(DS«*3 RESET* 
EN DSisSET fLSE DSI-RESETI SKIP SB))* Sjl»ST+?> 
» R»"* 
ESeT; 

then dsi*set else ds:»reset* skip sb)); 

DS»»5 LlT w . IO«"l 

ds««»2 liT"4»"* skip 

DS»*? LlT"3»«* SKIP 
0S««2 LlT"2»"; SKIP 
DSt«2 UIT"1 »"; 
DSt.LiT"*"* 



SB* 
SB* 
SB* 



ENDJ 



SPOUTERcTi»PSEUDOMiX r KEY,t20J53]»DiSKMSG OR 34)* 



41330600 
41330700 
41330800 
41330900 
41331000 
41331100 
41331200 
41331300 

41331400 
41331500 

41331600 
41331700 
41331800 
41331900 
41332000 
41332100 

41332200 
41332300 
41332400 
41332500 
41332600 
41332700 
41332800 
41332900 

41332950 
41333000 
41333001 
41333002 
41333005 
41333010 
41333015 
41333020 
41333025 
41333030 
41333033 
41333036 
A1333037 
41333039 
41333042 
41333045 
41333048 
41333050 
41333055 
41333060 
41333065 
41333070 
41333075 
41333080 
41333085 

41333090 
41333095 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 



0056 
0059 

0061 
0062 
0062 

0065 
0072 
0074 

0074 
0075 

0075 
0075 
0077 
0077 
0080 
0081 

0081 
0081 
0085 
0088 
0089 
0091 
0094 
0095 

0095 
0096 
0099 
0102 
0102 
0104 
0109 
0110 
0111 
0113 
0114 
0116 
0118 
0119 
0120 
0123 
0123 
0124 
0126 
0127 
0129 
0130 
0131 
0132 
0133 

0133 
0136 



1 
2 



1 
1 
3 
1 
1 

1330900 
3 
2 
41330300 
2 
2 
1 
3 

1 

1331800 
1 
3 


2 

3 



1 

2 

1332200 

2 

3 

3 





3 



1 

2 

2 

3 

3 

2 

3 

2 



3 

1 



1 
1333015 



41333005 



IF r T 1 JsMrLOGHOLDFR] I NX 0) * THEN 
BEGIN 

IF MDFLTfl * THEN 

BFGTN 

MLA T 31 1 := LOGENTRy & USTENTRY [ CTF ] I 

DTSKWA!T(A,3?»MR0W + MU0G+D» 

END* 

RFCS 1= 5 & 62T3I42I6] & MLOGr 24 I 33 1 1 5 3 * LASTENTRY[ 9| 331 t 5] 1 
WT I* R (XCL0cK+P(RTR))[3l24!24]I 

WHCP !■ patchleveli 

WLOG I* UOGVERSJONJ 
Wfl 1= DATEI 

DtSKWAITURECS 3 JNX 0»5»MR0W>; 
Tt I* M[LOGHOLDER] INX 01 
END} 

IF MtT?3 LSS THEN M[T2].[?U] la 1 ELSE FORGETSPACEC T2) I 
IF Tl * ThEN BEGIN L0GH0LDER.rCF3*»Tl J GO LOGANOTHER; END! 

KlLLLl 

LOGHOtOER.tCF] Is 0; MROW Is NABS(MROW)! 

IF L,0GH0LDER.C9l9]s0 THEN BEGIN FORGETSPACFC A -1); MLAlsOl END! 

KlL|,([MSCW]>» 

END MAINTLOGGERJ 



41333100 
41333200 
41333300 
41333400 
41333500 
41333600 
41333700 

41333800 
41333900 
41334000 
41334100 
41334200 
41334300 
41334400 
41334500 

41334600 
41334700 

41334800 
41334900 
41335000 

41335100 
41335200 



T 013612 
T 013910 

T 013912 
T 0140:1 
T 014013 
T 014212 
T 014453 

41333400 
T 014413 
T 014812 
T 015013 
T 015112 
T 015311 
T 015410 
T 015513 
T 015713 

41333200 
T 015713 
T 016413 . 

41334700 
T 016753 
T 0167 J 3 
T 017010 

41335000 
T 017313 
T 017412 

41327100 
SIZE" 0175 WORDS 



STACKrF+1) 
STACKfF+?) 
STACKfF+3) 
STACKrF+4) 
STACKrF+5) 



* SET OMjT s MOT(STATISTICS) 
PROCEDURE MFSSAGETABLEBUlLDERl 

BEGIN 

INTEGER T» II* I2.TBL#TBLCNTJ 
I 

II 
12 
TBL 
TBLCNT 

DEFINE MARKER = "♦♦♦..♦♦♦"l ; 

LABEL L, STARTI 

GO TO start; PCD* 



START OF REL 



41399999 

41430000 

SEGMENT! DISK 

41430100 
41430300 



T 0000»0 
T 0000*0 
ADDRESS « 
T 0000:0 
T OOOOJO 



01033 



L» » » 



BEC INN 
M DRA0" 
"DRBO" 
"BOJO" 
"FOJO M 
"ORFN" 
w TrRM M 

"DATE" 
"TiMe" 
"0NEB M 
"AUTO" 

"Cl.FA" 

SET OMIT 



t RESET OM 
"CMPL* 
M CLOS" 
"ERRO* 
"RfTO" 
m LtBM m 

n ScHE* 
M SFCM" 
"DSKT" 

"RfLT* 

"PrOR" 

S SFT OMIT 



$ RESET OM 

"DISK" 

"NOT * 

"LiBE" 

"PRDO" 

"Save* 

"RSMS* 
"AUTO" 

"CODE" 
"CORE" 
"DATA" 
"HALT" 
"NOT " 
'•NOT M 
"NOT " 



ING OF OPTION 
M 0000", 
"0000", 
"0000". 
"0000 M » 
"0000", 
H NATE% 
"0000", 
M 0000"t 

w reak*» 

"PRNT". 

"RWRS W » 
= NOT DaTaCO 



"FILE"* 
M E000 ,, » 
"RMSG". 
"0000"* 
"SGOO*, 
"DMSG"» 
"SGOO". 
M 0G00"» 
"0G00"» 
"EL00'% 

* NOTCDFBUGG 
0. 

T 

"MSG0". 
M USEn M . 
"RROO", 
"NLYO"» 
"PBTO w # 
°G000"» 
"UNLD"» 

AUTo". "RN 
H OLAY"> 
"ST00"» 
w OLAY"» 
"OOOO'S 



M 



RFSERVFD WORD 
%«7% 
X46X 
X45X 

X43X 

%no% 

X38X 
X36X 



X35X 
*34X 
X33X 
%32% 
X31.X 
X30X 
%?9% 
X?8X 
%?7% 
%26% 
OR CHECKLINK) 
*25X 



TABLF *************************** 



ING 



00", 



"USED H # 
"USED", 
"USED". 



X?4X 

*23* 
X22X 

*21« 
%20% 
%\9% 
XlBX 

X16X 
Xi5X 
X]4X 
X13X 
Xi2X 
XllX 
XlOX 



X17X 



X149- 



X902- 



41430400 
41430500 
41430600 
41430700 
41430800 
41430900 
41431000 
41431100 
41431200 
41431300 
41431400 
41431500 
41431600 
41431700 
41431800 
41431900 
41432000 
41432300 
41432400 
41432500 
41432600 
41432700 
41432800 
41432900 
41433000 
41433100 
41433200 
41433300 
41433400 
41433500 
41433800 
41433900 
41434000 
41434100 
41434200 
41434300 
41434400 
41434500 
41434600 
4U34700 
41434800 
41434900 
41435000 
41435100 
41435200 
41435300 
41435400 



0000 
0000 
0000 
0002 
0002 
0002 
0004 
0006 
0006 
0010 
0012 
0014 
0016 
0018 
0020 
0022 
0024 
0024 
0026 
0026 
0028 
0030 
0032 
0034 
0036 
0038 
0040 
0042 
0044 
0046 
0046 
0048 
0048 
0050 
0052 
0054 
0056 
0058 
0060 
0062 
0064 
0066 
0068 
0070 
0072 
0074 
0076 



%** + 



'•not " 

"STOP" 
"PNCH" 

"cdon w 

"PKTO" 
"SfPA" 
"NOT " 

"Al'TO" 
"OPTN" 
"♦OOO" 
MARKFR 
ENn OF OP 
BEG INK' I NG 

M 8 S TACK w 
"80PRTR " 
"8 F LAG B m 
"8tNvaLD" 
w 8 r XP0N ♦• 

"BfNToR " 

"flniv BY" 

"BfXCFSS" 
"SfNVALD" 
M 8LlNFXP * 
"8f>C TU " 
,f 8TPUT P" 
"BfILE U" 

"tnooooo" 

"SiNVALl" 
M 8iNVALl H 
"8MEM0RY" 
"1YOOOOO" 
"80PRTR " 
"ByNVAUD" 
"8 SIZE " 
"8JNVALD" 
H 6 DATUM" 
"BTYPF M" 
"Bh READ*' 
"80UT OF" 
"8NQN-C0" 
W 8L ARRA" 
"8N0N-S0" 
"5ATRTX," 

"8NEARLY" 
"8|,AR MA" 
"81JSEP D" 
"BiNVALD" 
"8fC 01 A" 
"BfNVALD" 

"tin « 

I H • * • • • 

"8PARJTY" 
"SoIMENS" 
"6?E ERR" 
"81NVALD" 
"4NAMF.." 
"8TNVALD" 



"used" 

-TFST" 

"LOCK" 

••LYOO" 

"NLYO" 

"RATE" 

-USED" 
t» » 

"DSOO" 
H 0000" 
"0000" 



% 9% 

% n% 

X 7% 
% 6% 
% 5% 
% 4* 
X 32 
% 2% 
% \% 
% 0% 
*STP 



JJ747- 



TJON RFSFRVEO WORD TABLE ***************+*********♦******* 
OF TERMINAL MESSAGE TABLE ******************************* 



"60VRFLW" 

"Sds-edo" 

"2TT0000" 
"6 INDEX" 
"60VRFl.W H 
"60VRFLW 
"5 ZEROO" 
"5 TIMEO" 
"6 ADRSS" 
"6 TO ERR" 
"SNOT Oil" 
"60SSBLE" 
"8N0PENE" 

"5d EOJO" 
M 5D PRLO" 
"8 PARIT" 

"5FS-EP." 
"8 ARRAY" 
"3lDN f .." 
"8 INPUT" 

"8ISMATC" 
"4STMT,." 
"5 DATA." 
"8NF0RMA" 
"2YS...." 
"8UARE M" 

"8 SINGU" 
"4TRIX.." 
"4S-ED.," 
"8 DYNAM" 

1 L t • t * t 

"8 DETAC" 

"6 ERROR" 
♦•8 I ON SI" 

"8 FILE " 

"8 BLOCK" 



% 
% 
% 
% 
% 
% 



0% 
1% 
31 
5X 
7% 
9% 



M3* 
*15X 
%\7X 
%\9% 
*2l* 

X25X 

X28X 
X30X 
%3?% 

%35% 
%37% 

%m% 

%t\8% 
%*>0% 

%57% 

%6l% 
X63X 

X67I 

JB70X 
X72X 

%75% 

X78X 



41435500 

41435600 

41435700 

41435800 

41435900 

41436000 

41436100 

41436200 

41436300 

41436400 

41436500 

41436600 

41436700 

41440000 

41440100 

41440200 

41440300 

41440400 

41440500 

41440600 

41440700 

41440800 

41440900 

41441000 

41441100 

41441200 

41441300 

41441400 

41441500 

41441600 

41441700 

41441800 

41441900 

41442000 

41442100 

41442200 

41442300 

41442400 

41442500 

41442600 

41442700 

41442800 

41442900 

41443000 

41443100 

41443200 

41443300 

41443400 

41443500 

41443600 

41443700 

41443800 

41443900 

41444000 

41444100 

41444200 

41444300 

41444400 



007810 

008010 

0082*0 

008410 

008610 

008810 

0090»0 

009210 

0094*0 

009610 

009610 

01 00 10 

0101*0 

0101*0 

0101*0 

0102*0 

010410 

0106*0 

0108*0 

0110*0 

0112*0 

011410 

011610 

011810 

0120*0 

0122*0 

0124*0 

0126*0 

0128*0 

0129*0 

0131*0 

0133*0 

0135*0 

0136*0 

0138*0 

0140*0 

0142*0 

0144*0 

0145*0 

0147*0 

0149*0 

0151*0 

0153*0 

0155*0 

0157*0 

0158*0 

0160*0 

0162*0 

016410 

0166*0 

0168*0 

0170*0 

0171*0 

0173*0 

0175*0 

0176*0 

0178*0 

0179*0 



X*** 
X*** 



"5 FXTT," 
,, 8tNVALI h 
"8FXCFSS" 
"2MF,..." 
"8oS"E0 " 
"8K ANCE" 
"8fS-F0 " 
"8k ANCE" 
"8tNVAU" 
"8 INITF" 
-eiNVALl- 
"8 CONTI- 

1 N • • • * • 
"BSOFTWA" 
"SfRRUPT" 
M 6 OVFLW" 
"SlNVALD" 

w 6n TAPE" 
n 8aRRAY * 
"8PACF U" 

MARKFR, 
ENn OF teR 
BEGINNING 
COMMfNT 
KfyiN MfSS 
EACH TABLE 
t 616 ] = 



"50 COM,". 
"8 10 Tl"» 

"8RY TAS" 
"4ST0R.." 
W 8BY TAS H 
"4ST0R,." 
M 8D TASK 
"5AH0N." 
"8D TASK" 
"8NUATI0" 

"8RE INT" 
"8 QUEUE" 



"8. LINKe" 

"80LAY S" 
"6SED UP" 



MINAL MESSAGE 
OF KEYIN MESSA 



X81X 
XR3X 

*B6X 

X9OX 

X94X 

X98X 

Xl03X 

*108X 
% 111 
XSTPX 



X517- 
X517' 



f2a:A J 



I33M J 

[34!? 3 



[36H2J 

ENr» OF COM 

"2AX0501" 

"2tL0i0?" 

"2UL0103" 

"0QT0004" 

"2QT0604" 

"20U0105" 

"Owyooo6" 

"2WY0506" 
"0RY0007" 

"Opsoooe" 

"2nS0608» 
"2SD.0209" 
"0TF0410" 



AGE TA 

WORD 

- Mix 

o * in 

1 * Ml 

2 » MI 
TWO LE 

KEVI 

a PR 
* PR 
s PR 

FOR 
MIXC 
s JO 
« JO 

WA 

3 ■ JO 
LABFL 
MENTJ 




1 
? 
1 

HI 

1 

2 



BLf entr 

IS CONFI 
OR INFO 

FO messa 

X OR INF 
X MESSAG 
TTER KEY 
N PROCEO 
OCEDURE 
OCEDURE 
OCEDURE 
ALLOWABL 
ODE ( FO 
B SHOULD 
B SHOULD 
ITING 
B NEED N 
NUMBER ( 



TABLE ************************************* 
RE TABLE ********************************** 

TES - 

gured as followsi 
code - 

GE ONLY 

MESSAGE 

F ONLY 

BOARD MESSAGE 

URE TO BE CABLED - 

KEYINO C DIRECT CALL ) 

KEYIN1 ( DIRECT CALL ) 

KEY1N? ( INDEPENDENT RUNNER ) 

E STANOARD HJE REQUESTS 

R MIX MESSAGES ) - 

BE WAITING FOR THIS INPUT 

BE RUNNING* BUT NOT NECESSARILY 



OT BE RUNNING 
SWITCH LOCATION IN PROCEDURE) 

XAXX iNPUT TO JOB FROM SPO 

XfLX INPUT FILE WITH LABEL SPECIFIED 

%[)l% INPUT FILE WITH UNKNOWN LABEL 

XQTX QUIT PROCESSING PRlNTER"BACK UP 

XQTX QUIT PROCESSING PRINTER-BACK UP 

XOUX OUPUT TO SPECIFIED UNIT 

XwrX SYSTEM INQUIRY 

XWYX SYSTEM INQUIRY 

XRYX READY PERIPHERAL UNIT OR SYSTEM 

XdSX TERMINATE JOB 

IDS! TERMINATE JOB 

XSDX TERMINATE JOB WITHOUT REMOVING DECK 

XTF* TYPE CORE FACTOR 



41444500 
41444600 

41444700 

41444800 

41444900 

41445000 

41445100 

41445200 

41445300 

41445400 

41445500 

41445600 

41445700 

41445800 

41445900 

41446000 

41446100 

41446200 

41446300 

41446400 

41449700 

41449800 

41449900 

41450000 

41450100 

41450200 

41450300 

41450400 

41450500 

41450600 

41450700 

41450800 

41450900 

41451000 

41451100 

41451200 

41451300 

41451400 

41451500 

41451600 

41451700 

41451800 

41451900 

41452000 

41452100 

41452200 

41452300 

41452400 

41452500 

41452600 

41452700 

41452800 

41452900 

41453000 

41453100 

41453200 

41453300 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

C 

C 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



018110 
018210 

018410 

018610 

018710 

018910 

019H0 

019310 

019510 

019710 

0199(0 

020110 

020310 

020410 

020610 

020810 

020910 

021H0 

021210 

021410 

021610 

021710 

021810 

02l6t0 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021810 

021910 

022010 

022110 

022210 

022310 

022410 

022510 

022610 

022710 

022810 

022910 

023010 



11" 
1?" 

>13 W 



4" 

5" 

6" 

T 

7" 

8" 

9« 



"OSFOO 
"2RM05 

$ SET OMIT 
"OdPOO 

t SET OMfT 

M 0nB70l 
"0PT701 
$ RESFT OMi 
"2ST0M 
n OrMOOl 
"OSVOOl 
M OcLOO?0 
"lpK072l" 
"20K0522" 
"2FM0123" 
"2fR01?4 w 
"20F0125" 
"2T10626" 
"2PR0227" 
"ORO002fl" 
"0s00029 w 
"2lT0?30 w 
"0WIO431" 
"2|F053?» 
"0RC0033" 
" 1**77**" 

* SET OMIT = 

"0r070O1" 
M 0t 17002" 
"01,07403" 
"0?Z7004" 
"0TC7005 n 
"0hM7006" 
"2hR7?07" 
"0SS7408" 
"2SS7208" 
"0rS7O09" 
"OuS70lO" 
"0SC70U" 
"0QV7012" 
S SET OMjT x 
"0RR7013" 

* SET OMIT s 

m 0lA70i<i» 
"0cA70l5" 
S RESET OMIT 
"0oTtOl6" 
"0WD1417" 
H 0TR1018 M 
"0WT14J9" 
"0WM1420" 

"Occi42i" 

M OoLl022" 
"0PB1423" 
"0RN1024" 
"0LD1025" 



NOTCDUMP OR 

DUMP OR DFB 



XSFX SET CORE FACTOR 
XRMX REMOVE DUP FILE 

debugging) 

*dpx core dump 
urging 
xddx 

XDBX 

XPTX 



DISK DUMP 
DISK BUG 
PRINT TRACE 



OTCDATACOM aNU 



OT OATACOM 
OT AUXMEM 



XSTX STOP JOB 

XcMX CHANGE McP 

XSVX SAVE PERIPHERAL UNIT 

*CLX CLEAR PERIPHERAL UNIT OR SYSTEM 

XfiKX BREAK 

XOKX CONTINUE PROCESSING JOB 

XFMX FORMS READY 

XFRX FINAL REFL (COBOL) 

XOFX OPTIONAL FILE-COBOL, OK FILE-LIBMAJN 

XTlX PRINT TIME FOR JOB 

XPRX PRINT PRIORITY OF JOB 

SROX RESET OPTION BIT 

*SOX SET OPTION BIT 

XlTX MAINTENANCE INTERRUPT 

XWlX WHAT INTRINSIC 

XlF* IGNORE IN-USE FILE 

XRCX REEL CHANGE ON WRITE 

%**% END OF FIRST KEYIN PROCEDURE CALLS 

DcSPO) 

XfiOX BLACK OUT 

SLIX LOG IN 

XLOX LOG OUT 

XZZX SENSE EOT 

XTCX TIME AND CHARGES FOR REMOTE STATION 

XHMX HALT MESSAGFS 

XhRX HALT MESSAGES FOR JOB 

XSSX STATION TO STATION MESSAGE 

XSSX STATION TO STATION MESSAGE 

XBSX SET BACK UP SPO 

XUSX RESET BACK UP SPO 

XSCX PRINT SPO CONSOLES 

XQVX SET REMOTE TIME OUT VALUE 



XRRX RESET REMOTE AS NON-SPO 

XLAX LIST AUXMEM FILES 

xcax change auxmem files 

xdti change date 

xwdx what date 

xtrx set time 

xwtx what time 

xwmx what mcp 

xccx control card (see 16043680 

xolx print output label 

xpbx start prlntfr back-up 

xrnx set pseudo readers 

xldx start load control 



FOR QMARK) 



41453400 

41453500 

41453600 

41453700 

41453800 

4H54500 

41454600 

41454700 

41454800 

41454900 

41455000 

41455100 

41455200 

41455300 

41455400 

41455500 

41455600 

41455700 

41455800 

41455900 

4U56000 

41456100 

41456200 

41456300 

41456400 

41456500 

41459900 

41460000 

41461500 

41461600 

41461700 

41461800 

41461900 

41462000 

41462100 

41462200 

41462300 

41462400 

41462500 

41462600 

41462700 

41462800 

41463100 

41463200 

41463600 

41463700 

41463800 

41463900 

41464000 

41464100 

41464200 

41464300 

41464400 

41464500 

41464600 

41464700 

41464800 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



023110 

0232J0 

023310 

023310 

023410 

023410 

023510 

023610 

0237J0 

023710 

023810 

023910 

0240*0 

024110 

024210 

024310 

0244>0 

024510 

024610 

0247«0 

024810 

024910 

025010 

025110 

025210 

025310 

025410 

025510 

0255J0 

025610 

025710 

025810 

0259«0 

0260*0 

026110 

026210 

026310 

026410 

026510 

026610 

026710 

026810 

026810 

026910 

026910 

027010 

0271 tO 

027110 

027210 

027310 

027410 

027510 

027610 

0277:0 

027810 

027910 

028010 



"0RD1026*. XRDX REMOVE PSEUDO DECK 41464900 T 0281 

$ SET 0M|T e NOT PACKETS 41465000 T 0282 

"0RP1427". XRPX REMOVE PACKET 41465100 T 0282 

$ SET OM|T m PACKFTS 41465200 T 0283 

"0fD1028 w » XfD* FND PSeUqO DECK 41465500 T 0283 

* SET OMiT = NOT STATISTICS 41465600 T 0284 

"0s|7029"» XSfZ SET STATISTICS INTERVAL 41465900 T 0284 

S SET OMiT ■ N0T(DATAC0M AND DCLOG) 41466000 T 0285 

«OtR7030«, XLRX SET REMOTE LOG 41466300 T 0285 

S RESET OMIT 41466400 T 0286 

"10T1631"» XOTX PRINT PRT CELL OR CORE LOCATION VALUE 41466500 P 0286 

M 2TN163?"» XlNX SET VALUE OF PRT CELL 41466600 T 0287 

"0FF1033". XFEX ENTER MAINT, LOG COMMENT 41466700 T 0288 

"10C1234", XOCX ENTER OPERATOR COMMENT IN LOG 41466800 T 0289 

"0SQ1035". XSQX DISK SQUASH 41466900 T 0290 

$ SET OMIT = NOT SEPTICTANK 41467000 T 0291 

"OcS7036"» XCSX CREATE SEPTIC TANK 41467400 T 0291 

M H S7037", X H SX HALT SEPTIC TANK 41467500 T 0292 

* RESET OMiT 41467600 T 0293 

* SET OMiT s NOTCWORKSET) 41467700 T 0293 

"0WK1338". XWKX WORKSET REQUESTS 41467800 T 0293 

S POP OMiT 41467900 T 0294 

i SFT OMIT s WORKSET 41468000 T 0294 

"1**77**". X**X fND OF SECOND KfiYlN PROCEDURfS 41469900 T 0294 

S SFT OMIT K N0T(DATAC0M AND DcSPO) 41470000 T 0295 

"lwU720l M i XWUX WHAT (REMOTE) USERS 41470500 T 0295 

"0WP7002". XWPX WHAT PROGRAMS ATTACHED TO REMOTES 41470600 T 0296 

"?WA7?02 M , XWAX WHAT (REMOTES) ATTACHED TO JOB 41470700 T 0?97 

* SET OMjT s NOTCDATACOM AND DCSPO AND DCLOG) 41470800 T 0298 

"0WR7003". XWRX WHAT REMOTE LOG 41471100 T 0298 

S RESET OMIT 41471200 T 0299 

»0MX2fl04»# XMXX LIST JOBS IN MIX 41471300 T 0299 

"1T52305*» XTSX TYPE SCHEDULE 41471400 T 0300 

"2PS?306 M # XpSX CHANGE PRIORITY OF JOB IN SCHEDULE 41471500 T 0301 

"2FS?707"t XfSX REMOVE JOB FROM SCHEDULE 41471600 T 0302 

M ?XS2308"# XXSX FORCE SELECTION FROM SCHEDULE 41471700 T 0303 

W 0LF2409"» XLFX LIST FILES FOR USER 41471800 T 0304 

"0LC2410** XLCX LIST FILES FOR CREATOR 41471900 T 0305 

"0LS?411"» XL.SX LIST FILES FOR SECURITY 41472000 T 0306 

"0FX241.2". XFXX LIST FILES EXPIRED 41472100 T 0307 

n 0PD24t3 M » XPDX PRINT DIRECTORY 41472200 T 0308 

t SET OMJT n N(>T(DATACOM AND DcSPO) 41472300 T 0309 

"1SM7214"» XSMX START MIX MFSSAGES 41472600 T 0309 

$ RESET OMjT 41472700 T 0310 

"OT024J5«S XTOX TYPE OPTIONS 41472800 T 0310 

"0P02416"» XPOX PRINT SPECIFIED OPTION 41472900 T 0311 

"0PG2017"* XPGX PURGE TAPE UNIT 41473000 T 0312 

t SET OMJT * NOT AUXME.M 41473100 T 0313 

"UU7418*. X A UX PRINT AUXMfM IN USE 41473300 T 0313 

t POP OMIT OMIT 41473350 T 0314 

$ SFT OMiT » NOT MONITOR 41473400 T 0314 

"0MS7019", XMSX SET/RESET SYSTEM MONITOR 41473600 T 0314 

S POP OMJT OMIT 41473700 T 0315 

"0LN2020", XLNX START LOG 41473800 T 0315 

n 0cD2«?l"# *CDX PRINT PSEUDO DECKS ON DISK 41473900 T 0316 

$ SET OMJT ■ NOT PACKETS 41474000 T 0317 

"0PP2422"* XPPX PRINT PACKETS 41474100 T 0317 



"0PC?4?3"» 

$ SET OMIT * PAC 
"1cU2624% 

S SET OMIT = NOT 
"0RY7025", 
"0sL7026"» 

S RFSFT OMJT 
"0RW20?7«, 
"Of J2028", 
"?CT?6?9«, 
"2XT?630"» 
"2TL263l"» 
"0XD?032"» 
"OmR2033"» 
"0MC2034"* 

S SET OMJT * NOT 
"0RS7035". 

t RESFT OMJT 
«OhD?036"# 
"25A2637", 

$ SET OMJT * NOT 
"1FI7638". 

t POP oMfT OMIT 

w l»*600-0". 

MarKfR* 

**** pNp OF KFYlN 

X*** BFRTNNING OF 

"UNLOCK 

"USF 
"LOCK 

"FREE 

"PUBLTC 

"PACKET 

"USER 
"RUN " 
"R " 
"COMPILE" 
"C " 
"EXECUTE" 
"EX 

"COPY " 
"DUMP " 
"UNLOAD " 
"ADD " 
"LOAO " 
"RFMOVE " 
"CHANGE " 
"UNIT " 
"PACKFNO" 
"END " 
$ SET OMiT * NOT 

"wait " 

$ POP OMJT 

"DATA " 
"DATA0?9" 

"Label " 
w srT " 



KFTS 
STATISTICS 



BREAKOUT 



xpc* packet count 

«cux print core usage 

xsyx set statistics files 
x5lx set statistics files 

xrwx rewind tape unit 
xci« change intrinsic files 
xctx change tjme limits 
xxtx extend time limits 
xtl* print time limits 
xxdx create bad-disk area 
xmrx make reserve disk 
XMCX MAKE compiler 

xrsx re-start after breakout 



(BREAKOUT) 



xhdx 

XSAX 
XEIX 



HOW MUCH (AVAILABLE) DISK 
SEG & REL ADDR OF RUNNING 



BREAKOUT FROM SPO 

x**x fnd of table 



PROGRAM 

X139- 
X139- 
X139« 



message table *** 
cc Reserved word 
?i 

22 

23 
24 
2b 
?6 
?7 
?8 
?« 
?9 
29 
30 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
39 
PACKETS 
40 

41 
41 
42 
43 



************************************* 
TABLE ******************************* 



X890' 



41474200 
41474300 
41474700 
41474800 
41475200 
41475300 
41475400 
41475500 
41475600 
41475700 
41475800 
41475900 
41476000 
41476100 
41476200 
41476300 
41476600 
41476700 
41476800 
41476900 
41477000 
41477300 
41477400 
41479700 
41479800 
41479900 
41480000 
41480100 
41480200 
41480300 
41480400 
41480500 
41480700 
41480900 
41481000 
41481100 
41481200 
41481300 
41481400 
41481500 
41481550 
41481600 
41481700 
41481800 
41481900 
41482000 
41482100 
41482200 
41482400 
41482600 
41482700 
41482800 
41482900 
41483000 
41483010 
41483100 
41483200 



T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
C 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 



031810 
031910 
031910 
0320J0 
032010 
0321 »0 
0322*0 
0322*0 
0323*0 
032410 
0325»0 
032610 
0327*0 
032810 
032910 
033010 
033010 

033110 
0331*0 

033210 
033310 
0333*0 
033410 
033410 
0335*0 
033610 
033610 
0336*0 
033810 
0340*0 
0342*0 
034410 
0346*0 
0348*0 
035010 
0352*0 
0354*0 
0356*0 
0358*0 
0360*0 
036210 
0364*0 
036610 
0368*0 
0370*0 
037210 
037410 
037610 
0378*0 
038010 
0382*0 
0362*0 
038410 
038410 
038610 
038810 
0390*0 



"RFSFT " 
"E?LE 

"expired" 
"accessd" 

"PROCFSS" 

"10 

"PRIORTT" 
"COMMON " 

H CORF " 
"STACK " 

"Save 
m algol " 

"XftLGOL " 
"FORTRAN" 
"TSPOL " 

"PASIC " 
"C0B0L68" 

"with " 

"COBOL " 

"Library" 

"SYNTAX " 

"FROM " 

"TO " 

"ON " 

"FORM " 
"RANDOM "» 
"LINFS66 1 



"DUMMY 
"NO 



"DISK 

"Tape 

"PUNCH 
"PRINT 

"Back 

"SPECIAL" 

"Rfmotf. 

"SfRTAL 
"UPDATE 
"SPO 

"PAPER 
"EU 
"SLOW 
"B6500 " 
"FAST " 

"Maximum" 

"EREEF " 
"ElXED " 
"PPOTFCT" 
"SFNSJTI" 
"LftTFST " 
"EXCEPT " 
"AS " 
"NOHASH " 
"CC " 



44 
47 
48 
49 
50 
5! 
5? 
53 
54 
55 
56 
60 
61 
62 
63 
64 
65 
66 
67 
66 
69 
'70 
71 
72 

75 
7fl 
77 

7 
79 
80 
61 
82 
83 
85 
90 
89 
86 
87 
68 
64 
91 
92 
93 

9a 

96 

97 

98 

99 
100 
101 
10? 
103 
104 

14 




% a storf near 
% makfs use of 
% of "process" 



THE END OF PCC 

THE ORDER AND VALUfS 

THRU "SAVE". 



* SWITCH D(PCC) 



% "EORM"-"SPECIAL" 



X148- 
X846- 
X603- 
X724- 
S846- 



% CC MUST EQUAL QUEST X 



markfp» 

%*** FNn OF CC RFSFRVED WORD TABLE ************************************* 



41483300 
41483400 
41483500 
41483600 
41483700 
41483800 
41483900 
41484000 
41484100 
41484200 
41484300 
41484400 
41484500 
41484600 
41484700 
41484800 
41484900 
41485000 
41485100 
41485200 
41485300 
41485400 
41485500 
41485510 
41485600 
41485610 
41485620 
41485630 
41485700 
41485800 
41485900 
41486000 
41486100 
41486200 
41486300 
41486400 
41486500 
41486600 
41486700 
41486800 
41486900 
41487000 
41487100 
41487200 
41487400 
41487500 
41487600 
41487700 
41487800 
41487900 
41488000 
41488100 
41488200 
41488900 
41489000 
41489100 
41489200 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
C 
P 
C 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0392 
0394 
0396 
0398 
0400 
0402 
0404 
0406 
0408 
0410 
0412 
0414 
0416 
0416 
0420 
0422 
0424 
0426 
0428 
0430 
0432 
0434 
0436 
0438 
0440 
0442 
0444 
0446 
0448 
0450 
0452 
0454 
0456 
0458 
0460 
0462 
0464 
0466 
0468 

0470 
0472 

0474 
0476 
0478 
0480 
0482 
0484 
0486 
0488 
0490 
0492 
0494 
0496 
0498 
0500 
0502 
0503 



(0 

to 

tO 
:0 
tO 
10 

to 
to 
to 
to 
to 
to 
to 
to 

(0 

to 

10 

!0 

to 
to 

:0 
tO 
tO 

to 
to 
to 
to 
to 

;0 

to 

10 

to 

10 

to 
to 
to 

10 
tO 
10 

to 
to 

10 

to 

10 
10 

to 

10 

to 

tO 

to 
to 
to 
to 
to 

10 

to 
to 



II ^ ff 

"LOADFO " 
"OUMPFH " 
"CHANGED" 
"RfMOV'FO" 
** M c ™ F T' *■" 

"ftxfd *" 
"RfSft *" 

M SpT * " 
"ACCFSSF" 
"NOT ON " 
M NoT ON " 
"NOT FXF" 
"NOT A C" 
"SySTFM " 
"TftPr PA" 
"DUP FlL" 
"NO USER" 
"UNEXPFD" 
"DISK PA" 

"Bad nam" 

"TK'V RFC" 
"INVALID" 

"Bad he a" 

"IN USF- M 
"AODFO *-" 
"#TAPF P" 
"AUTO-ZI" 

"CHANGED" 
"Mf-FD T" 
"FXTRA R" 
"DUP LIB" 
"SFNSITI" 
"BFINR B" 
"NOT LAT" 
"COPlFD*" 
"ON DISK" 
MARKFR* 
X*** ENp OF LBM 
X*** FNn OF RFS 
START: 

TBL««I2»«M 
WHtLF MTTB 

mibtpi; t 

FOR I 1*2 S 
WHtLF mttb 

STrfaM(A«« 
Dis 
BFfilN 

Sj *«F 
A(60( 

Cf DSI 

nrDSJ 

END* 



of lrm 

X 



" * 

X 9 
X 10 

X 1 1 
X 1? 
"D* 

"DISK* 
"TAPE*- 
"CUTAB 
"OMPJL 
"F ILF- 
"RITV* 
"F* 

" DISK 
" EOF* 
"RITY* 

"F + 

" SIZE 
" USE.R 
"DER* 
X 45 
X 46 
"OSITI 

"PPfd«- 

" TO * 
"0 * 
"FCORD 
"RS* 
"VE* 
"LANKF 
"EST V 
X 67 



fSS MpSSAGF tarLf ************************* 
". X 



1 

X 3 
X 5 

% 7 



n 
i» 

»i 

U" 
ER" 



X 13 

X 15 
X 17 
CORF* 



19 
22 



25 
27 
29 
31 
33 
35 
37 
39 
41 
43 



ON" 



S*" 
it 



D*" 
FR" 



"ED* 
X 50 



"» X 47 



52 
54 
56 
58 
60 
62 



"SION* 



* X 64 



"» X 68 



X160- 



FSS MESSAGE TARLf ******************************* 

fRVFP WORD AND MfSSAGE TABLES *************************** 

rP(..MFSSAGFTARl-FBUlLDEB)3.[CFJ + 2J 

L»«TBL*1 ]*MaRKfR DOJ X SEARCH FOR END OF OPTION TBLF 

BLl«TBL+l i 

TEP 1 UNTIL MESSaGETaBLESIZF DO 

L«xTBL+l] * MARKER DO* 

Illm(TBL + 2)-M> 

1 Dl V 60# B**f I I*C I MOD 60))»ci«!l DI V 60» 

f II 1st II MOD 60))#E«»I?)* 

j or »«f; 

SI 8*S!*4i DS»=4 CHR)U 
«Si+4{ DS«*4 ChR)> 
■60 WDS); 
»WDS)> 



41490000 
41490100 
41490200 
41490300 
41490400 
41490500 
41490600 
41490700 
41490800 
4H90900 
41491000 
41491100 
41491200 
41491300 
41491400 
41491500 
41491600 
41491700 
41491800 
41491900 
41492000 
41492100 
41492200 
41492300 
41492400 
41492500 
41492600 
41492650 
41492700 
41493010 
41A93020 
41493030 
41493040 
41493050 
41493060 
41493070 
41493080 
41493085 
41493100 
41493200 
41500000 
41500100 
41500200 
41500300 
41500400 
41500500 
41500600 
41500700 
41500800 
41500900 
41501000 
41501100 
41501200 
41501300 
41501400 
41501500 
41501600 



T 0503« 


T 05031 


T 05041 


T 0506t 


T 0508* 


T 0510* 


T 05121 


T 05131 


T 0514* 


T 0515 » 


T 05161 


T 05181 


T 05201 


T 05221 


T 05251 


T 05281 


T 0530* 


T 05321 


T 05341 


T 05361 


T 0538* 


T 05401 


T 0542* 


T 0544* 


T 05461 


T 05481 


T 05491 


T 0550: 


T 05535 


T 0555* 


T 05571 


T 0559* 


T 0561* 


T 0563* 


T 0565* 


T 0567* 


T 0570* 


C 0571* 


T 0573J 


T 0574* 


T 0574* 


T 0574* 


T 0574* 


T 0577* 


T 0582* 


T 0584* 


T 0585! 


T 0592* 


T 0595* 


T 0598* 


T 0600* 


T 0600! 


T 0600* 


T 0602* 


T 0603* 


T 0604* 


T 0605* 



JO 
:0 

!0 

to 
*0 
10 
10 
»0 
!0 
10 
10 
10 
10 
10 

to 
to 
to 
to 
to 
to 
to 

10 

to 

10 

to 
to 

10 

to 
to 

iO 
10 

to 

10 

10 

to 

10 
10 

to 

10 
JO 

to 
to 

»0 
10 
10 

to 

tO 

*1 
*1 
«1 

to 
to 

12 

'1 

'2 
*2 
*2 

1501000 



END 



TB|.,:«J2! 

FOp TpLCNTi.O STpP 1 UNTfL (M^SS AGETABLES iZE- I) DO 

BEMN 

WHILE M[TBL»=TBL+1 ]#MaRKER DO; I t«TBL- I 21 

l*ESSAGETABLErTBLcNTjUGETuSERDlSK(U+29) DJV 30 )& i [ 8 I 38 « 1 0] J 

D!SKWAlTn2,l,MESSAGETABLF[TBLCNTj,r?2l26])l 
T2»«TBL««TBL+1» 
END? 

BUILDING TABLES; 



41501700 
41501800 

41501900 

41502000 

41502100 

41502300 

41502400 

41502500 



41502600 T 



T 060513 

T 0606J2 

T 061013 

T 061013 

T 061711 

T 062111 

T 0623M 
T 062510 

41501900 
062512 

41430100 
SIZE" 0626 WORDS 



PROCFDURF" FNTfRSYSFlLE (N)J VALUf N» RFAL N; 



START OF REL 



% 

BEGIN 



STACK(F+1) 3 A 

STACKfF+2) a J 

STACKfF43) - WC 

STACK?F+4) « MFID 

STACKfF+5) « DISK 

STACKfF*6) ; ODD 



REAL A#J.Wc»MFin,DlSK> 



array onor*j; 

LABEL RETURNtFXjT; 

if n*i then 

BEGIN 

MFID l» "LIBMAIN"? J |s U 
END ELSE 

IF N-? THEN 
BEGIN 

MFID I* "LDCNTRL"; 
ENn ELSE 

if nb3 then 

BEfilN 

MFID 5* "PRNPBT "; 
ENp ELSE 

GO EXIT J 

DISK «* "DISK "J 

IF (A»=D1RfCT0RYSEARCH(MfID'DISK,5)) * THEN 

BEr,lN 

MfA INX 21 »* mcp; 

MrA INX 5] Is MfA INX 6] l» 014J 

DjSKWAlTf A.[CF]»30,A.rFF3)l 

go return; 
ENnJ 

DDD 1= fMTA »* SPACECWC I* i8U30xJ) ] ]&WC t 8 t 38 1 10 ] I 
MOVEf MC*A*ltA)l 
STRFAM(DATf,DI»A+3) i 
BEftlN 

SI IwLOC DATEI DSl»8 OqT; 

DI »«DJ DSI»2 LlT«+#"» 

si i »o j St i *si +5; dsi«3 chr; 

END« 

DDDf 0] la P3600036000l0i J 

DDDf tl » s (XCL0CK+P(RTR))&DDDr3]r6l30ll8]l 

DDDt 2] »■ MCPI 

ODDt 4]«c9l2 J is 3t 

DDDC 5] »■ DDD[6J :» 014} 

DDDt 71 I* 4 + JJ 

DDDt 9] I* if 

DDDftO] l* PeTUSeRDISKC(DDD[8] 1 = 5*J)U[2M7in»l>l 



41600000 
SEGMFNTl DISK 

41600100 
41600200 
41600300 



T 000010 
ADDRESS m 
T 000010 
T 000010 
T 000010 



01054 



41600400 T 000010 



41600500 
41600600 
41600700 
41600800 
41600900 
41601000 

41601100 
41601200 
41601300 
41601400 

41601500 
41601600 
41601700 
41601800 

41601900 
41602000 
41602100 
41602200 
41602300 
41602400 
41602500 
41602600 
41602700 
41602800 

41602900 
41603000 
41603100 
41603200 
41603300 
41603400 
41603500 
41603600 

41603700 
41603800 
41603900 
41604000 
41604100 
41604200 
41604300 
41604400 



T 000010 

T 000010 

T 000010 

T 0002U 

T 000213 

T 0004U 

41600800 

T 000411 

T 000613 

T 000711 

T 000810 

41601200 

T 000810 

T 001013 

T 001111 

T 001210 

41601600 

T 001210 

T 001210 

T 001210 

T 001213 

T 001510 

T 001512 

T 001811 

T 002210 

T 002411 

T 002710 

41602300 

T 0027*0 

T 003213 

T 003413 

T 003611 

T 003611 

T 003613 

T 003712 

T 003811 

41603200 

T 003812 

T 003913 

T 004213 

T 0044 * 3 

T 004711 

T 004912 

T 0051U 

T 005212 



DD0C31 ] «* 3-JJ 

nnnrs?] s* none 38] *• ?j 

DDnr33i '* '»-j; 

Dnnr3fl] »* 22; 

DDOC35) J* 2+j+j; 

ODD r 36] I* 61 

DDnC37] Jb IF J THEN -1 fLSE U 

onnMf] »* nDnr48J :* 0377777777777; 

DDnU9] Js IF J THfN 2 ELSE Oj X 

nnntsn «» if j then 64 fuse 4; 

00nr52] »■ IF J THEN 200 ELSE 150J 

nnnt6u *« PO000012600001Q11 

kuf J then 35 else if n*2 

is P002MQ1100000000J 

:a P0000220000200001I 

J= FLAG(0274OO1OOOO1OOOOO)1 



TIME LMT 
PRIORITY 

CORE EST 
STACKSIZ 



%7\1 



ni»CD00f9t ]])J 



THEN 23 ELSE t9)[24t38»10]l 

Donr62] 
onnn??-30xj] 

DDnt l69-30xJ] 

if not J then 

STREAM(C**Ns2, 
BEfilN 

CI »»CI+CJ 

ns**4o lit 

"012C0NTR0LDECK 
GO L2j 

ns*«4o lit 

"012PRlNTERBACK-UPlA0220000000PRlNTERlB00 , M 



GO LI 



1A022BACK-UP0F DECK1B00' 



LI t 



L2: 
ENn; 

ENTFRUSFRF I LE (MF I D»D I SK» A" 1 )* 
DISKWAITCA+31.WC-31 »DDnt 10]); 

RETURN! 

FORGFTSPACFf A); 

EXIT: 

end ENTfRSYSFILf* 



41604500 
41604600 
41604700 
41604800 
41604900 
41605000 
41605100 
41605200 
41605300 
41605400 
41605500 
41605600 
41605700 
41605800 
41605900 
41606000 
41606100 
41606200 
41606300 
41606400 
41606500 
41606600 
41606700 
41606800 
41606900 
41607000 
41607100 

41607200 
41607300 
41607400 
41607500 
41607600 
41607700 



T 
T 

T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 



SIZE 



0057« 
0058* 

00611 

0062* 
0064t 

00661 
0067* 
00701 
00721 
00751 
00781 
0081 I 
00811 
0086* 
0088* 
0090? 
0092J 
00931 
00951 
0095* 
0096* 
0096* 
0101? 
01011 
0102* 
0107* 
01071 

4 
0107* 
0109* 
0111* 
0111* 
0112* 
0112: 

4 
* Oil 




3 

3 


I 
2 

2 
3 
2 
1 

3 
3 


1 
3 
1 
2 

2 

1 

2 

2 

3 







1606300 

1 

1 

3 

3 

2 

2 

1600200 

9 WORDS 



COMMFNT ARTN RFTURNS 
PROCEDURE ARTNfA.N)! 



ALL STORAGE - FOR AN N«D I MpNS I ONAL ARRAY 
VALUE A.N* ARRAY A[*]) INTEGER Nl* 



a;% 



STACKfF*!) - I 



BEGIN INTFGER MI 



START OF REL 



IF NOT SToRFDY THEN SLEEP( fTOGLE] . STOREMASK ) I 
IF A.[T8»i5]*0 THEN A*MrA,tl8li5ni 

IF N>1 THFN DO ARTN( A[ J ] »N-1 ) UNTIL (I +1 +1 >>A. Si ZE J 
N*A I N| X 01 

if a.pbit Then 

begin i*mcn«i j.cffji 

forgetspace(n) 

ELSE I*NJ 



END 



IF 
ARTNJ 



I>511 

% 



END 
THFN 



DlSKRTN(I» A. SIZE)* 



42473000 
42474000 

segmfnti disk 

42475000 

42476000 
42476100 
42477000 
42478000 
42478200 
42478400 
42478600 
42478800 

42479000 
42480000 



T 000010 
T OOOOlO 

ADDRESS ■ 01058 



T OOOOlO 

T OOOOlO 
T 0003M 
T 000712 
T 0013*2 
T 0015«0 
T 001610 
T 001910 
T 001911 

42478400 
T 002H0 
T 002410 

42475000 
SIZF« 0025 WORDS 



COMMTNT ASR IS 
PROCEDURF ASR; 



the algol storage return commun! c ate > x 
bfgin integfr t.bcntr; array aitt*]i real 



STACKfF+1) 
STACKfF+2) 
STACKfF*3) 
STACKfF+4) 



STACKfF+5) 
STACKfF*6) 



TEMPJX 

START 



OF REL 



I 

BCNTR 
AIT 
TEMP 



MOTHER 
DESC 



42461000 
42482000 

segment; disk 



L 



ABEL 
REAL 



l.li; 

MOTHER* 



ARRAY DESCf*];* 



WHILE CAJT«-PRT[P1MIX#AITNDX3),PBIT«0 DOX 

MAKEPRESEnT([PRTCP1MIX,AITN0X]] INX 0)1% 
MFM0RY[AIT INX NOT 1 J . [2! 1 ]»U X 
I »«A I T T03 + 1 ; 

IF (BCNTRSsPRT[PtMlXiCURBLKCNTR]5 LEQ THEN 
BEGIN TERMiNATE(PlMlX); 

terminalmessagec78); 
end; 

whilf (temp«-altr ui-1]).blkcntr>bcntrx 
do begin desf«-memory[mother*temp,mom];x 

IF TeMP.[U2]#1 THEN * CHECK FOR FAULT ENTRY 
IF TEMP,U»2J*2 THEN 8! FILE 
IF TEMP.t33M,5Js2 THEN BEGINX 
FILfCL0SE((M0TheR+3)&((DESC[4].[25»?3«2)xP12) 

[18J33J15J); 
GO TO L END ELSEX 

BEG?N FILFCLOSECCDESC INX 5)* 

({M[DESCC2] INX 4] . [ 25 « 23*2 )xf>12 ) 

tl8l33M5])l 
FORGETSPACE(DFSC INX OHX 
END ELSE IF TEMP. [Hi] THEN X SaVe MYSELF TASK 

IF MOTHER=T$X THEN ELSE IF X ARRAY FOR C0M5 
(<NTl*DESC[3J)8l 0R(NTl*2 AND DESC t 4 ] * ?\ MI X ) ) 
THFN X TASK ARRAY OF A SCHEDULED OR 

X RUNNING OFFSPRING 
BFGIN IF NT1»1 THEN 

ShEETD!DDLER(0,20,DESCC4]); X ES 
IF DESC[3]«2 THEN % RUNNING 

BEGIN TeRMINATE(DESC£4H86[CTFJ); % OS 
HALT; 

noprocesstog ♦ noprocesstog-h 
end; 



SLEEP(tDESCt333.-0); 
GO TO LI * 

ENn ELSE GO TO Ll ELSE 



X WAIT FOR DS 



Ll 



IF SOFTl>0 THEN IF JAR[P1 Ml X#2 1 , [ 5 I 13 THEN 
IF MOTHERaSFlNTX THEN ELSE 

else else 
a rtnfdesc» temp. dimensions); 
memoRy[MotheRJ*o;i 



42485000 
42486000 
42487000 
42488000 
42488100 
42488200 
42488300 
42488400 

42489000 
42490000 
42490100 
42491000 
42492000 
42493000 
42494000 
42496000 

42497000 
42498000 
42499000 
42500000 
42501000 



4250 
4250 
4250 
4250 
4250 
4250 
4250 
4250 
4250 
4250 
4250 



1040 
1050 
1060 
1070 
1100 
1200 
1300 
1400 
1500 
1550 
1600 



42501810 
42501820 
42501830 
42501900 
42502000 
42503000 



T 000010 
T OOOOlO 
ADDRESS * 01059 



42483000 T 
42484000 T 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



42501650 T 
42501700 T 
42501800 T 



OOOOiO 
OOOOlO 



00001 
00041 
0007* 
0010$ 
00121 
00141 
00l5« 
00161 

4 
00161 
00181 
0022> 
0023S 
00251 
0027S 
00301 
0031« 

4 

00311 
0033* 
00361 
0037« 
00381 
4 
00391 
0042* 
00451 
00451 
00451 
00471 
00491 
00501 
0052» 
00521 

0053» 
4 
00531 
0055» 
00561 
4 
0056 1 
00591 
00611 
00621 
0064* 
00661 





2 


3 

1 

1 

2 

1 

2488200 

1 

3 

1 

2 

t 

2 

1 



2492000 

2 

1 

1 



2 

2497000 

3 



2 

3 

3 









2 

3 

2501400 

3 

3 

I 

2501100 

1 

2 

1 

1 

2 





END 



ENOJ* 

PRT[P1M1X,CURBLKCNTH]«.BCNTR*1JX 

IF !>0 THFN DOSSIWIPE OUT BAD LABELS IN FAULT CELLS 

if a itc t J.n *23*i then 

IF M[AIT[I].M0MJ,BLKCNTR2BCNTR THEN 
MC A I T r f],MOMJ*0 UNTIL (I*I-l)<OI 
MEMORY[AlT INX NOT 1 ] v [2l 1 ]*OIS 

ASRJ* 



42504000 T 



42505000 
42506000 
42506100 
42506200 
42506300 
42506400 
42507000 
42508000 



006610 

42490000 

T 006612 
T 006713 
T 007010 
T 0071H 
T 0072»3 
T 007610 
T 008110 
T 008413 

42482000 
S!?E* 0085 WORDS 



PROCFDURF |NT|fRRUPT(TYP£J' VALUF TYPE) REAL TYPE* 42510000 T OOOOJO 

START OF REL SEGMENT) DISK ADDRESS ■ 01062 

BEGIN LABEL. FlAGBIT»INVAUIDINDEx»ExpUNDERFLOW»OIVIOEBYZEROI 42511000 T 000010 

LABEL, XYT; 42511500 T OOOOJO 

SWITCH SW«.FLAGBIT,INVALIDINDEX»EXPUNDERFL0W,DIV1DEBYZER0S 42512000 T OOOOJO 

ARRAY T0P«-5t*U 42513000 T 0000*0 

STACK(F-5) ■ TOP 

REAL FLAGTESTERs-3; 42513500 T OOOOJO 

STACKfF»3) a FLAGTFSTER 

RFAL M0M»SIZE» ALOC I ; 42514000 T 0000*0 

STACK(F+1) « MOM 
STACK{F+2) * SIZE 
STACK(F*3) a ALOC 
STACKfF+4) « I 



STACKfF+1) * RCW 

STACK(F+2) * RCWL 

STACK<F*4) * SAVlT 

STACKfF+3) * A 



STACKrF+1) * R 
STACKfF+2) * S 
STACKcF+3) * Y 



RFAL RCW*+l»RCWL»+2»SAVy Tk + 4) NAME A« + 3) 42515000 T OOOOJO 



RFAL Rb+1 »Ss+2» Y»+3; 42516000 T OOOOJO 



BOOLFAN SUBROUTINE D0U8LEPREC ! S lON ; 425l70l0 T OOOOJO 

BEGIN R«.MrS*PRT r PiMlX»8) INX 03) XIRCW 42517020 T OOOllO 

STREAM(R*fR INX 0) 8R[ 30 : 10 « 23 » Y*[ Y 3 ) ) XGET OP CODE 42517030 T 0004J1 

BFGTN St«-R) Sl*Sl-?l DUDj+6) DS*2 CHR END) 42517040 T 0006J3 

42517040 

DOUBLEPRECISION*Y,[45:3]*5J 42517050 T 0008J0 

END; 42517060 T 000912 

42517020 

ChFCKSTACKSPACE;* XWF 42517100 T 0009*3 

42517100 

GO TO SWfTYPF]; 42518000 T 0015H 

FLAGBITi 42520000 T 0018*1 

SaVtT*TOP{ 42521000 T 001811 

NTUANALYSIS; 42522000 T 0019J1 

IF SYLLABLE, f4lJ7]/P35 THFN 42523000 T 002011 

IF SYLLABLE. f45J3])«0 THfN 42524000 T 0021*2 

BFGTN ERR0RF1XFR(1&); IFRM I NATE (P 1MI X ) ) TERM I NALMESSAGE ( 5) END» 425?4l00 T 0023*1 

42524100 

A*PRTfPlMiX#43* 42524200 T 0026:0 

RCW * MrRCWL * PRT[PlMlX»83 INX NOT ( ( SYLLABLE»?235)+2) ] I % 42525000 T 0027*2 

IF RCW. [33*1] THEN % TYPE 13 jNTRNSc 42525100 T 0032*0 

BfGJN 42525110 T 0032*3 

1*0) 42525115 T 0033*1 

Y*t I 3.CCFJI 42525120 T 0034*0 

I *FLAGt fP2520000000000000)«(Rcrt.[34*14])[CTCJ)* 42525130 T 0035*1 

MaKfPRESFNT(Y)J 42525140 T 0037*1 

MrRCWL]«-FLAGfRCW&(M[RCW,[FF]3|NX CNFLAGC I > ) , [ CF 3 ) t CTC 3 ) ) 42525150 T 0038*0 

GO TO INITIATE? 42525160 T 0042*3 

END ELSE 42525170 T 0043*1 

42525H0 

IF NOT PRT[PjMlX»AtRCW].C8HO]3 f [2li) TMENX 42525500 T 0043*1 

MAKFPRFSFNT(PRTR0WtPlMIx3 INX AtRCW3,c8*lO])|X 42526000 T 0048*0 

MrRCWL3*FLAG(RCW&(M[RCW. 118*1533 INX A[RCW3 , [ 18 « 1 53 ) [ 33 J 33 * 153 ) * 42527000 T 0051*1 

GO TO INITIATE* 42528000 T 0056*2 



TNVAMDTNnrX: 

FOR 1*6 STEP 5 UNTIL 11 DO 

IF TOP. [ 18!15] = (M0M«. r PRT[PlMlX» j] J, [33115]) THEN 
IF (SlZE*M[MOMl,[8 { 10])<10?3 THEN 
BfGJN IF MCMOMl.tZU J«0 THEN MAKEPRESENT( MOM) i 
Mf <ALOoM[MOMJ f [33»i5])-2],[2UJ M | 

IE fNTli»MCALOC-l].fFF])#0 THEN DlSKRTN(NTl# SIZE)! 
M[M0M]*FLAG(0&M0Mrl8t33jl5] 

&MF SIZE<512 THFN 2xSIZe ELSE 1023 ) 1 8 I 38 » 1 ] > J 
IF TYPE «• P(FLaGTfSTER»TOP,XCH»DEL) THEN MAKEPRESENTC MOM) 
ELSE 

maKfprfsfnt(analysis); 
move(size»aloc,m[momi); 

FORr,FTSPACFf ALOO; 
IF TYPE THEN GO XyT> 

go to initiate; 

END! 

ERR0RFIXFRC4)! TERMl NATfC P JM I X ) ; TERMl NALMESSAGEf 7 ) i 

fxpunderflow: 

IF nOURLFPRFClSlON THEN MrS-3]*0; 

MrS-pj^o? 

IF JARrPlMlX,23.[3M] AND PRT( Pi MIX , P5 1 ] . [ 43 ! 13 ThFN 
PRTrPlMIX,P5l]*P(0UP.L0D) OR 61 
GO TO INITIATE? 
DIVIDEBYZERO! 

IF CP(JAR[PlMTX,2],DUP)>0 AND NOTC P( XCH) , I 3 » 1 ] AND 
PRTrPlM!X,(P5i].tA4il])) THEN 
BEGIN ERR0RFIXERC8); TfRMI NATE C Pi M I X ) ; TERMl NALMESSAGE( 1 3 ) END 

FLSE IF JARTP1M1 X,23 < ThFN IF PRT[P1M I X 1 1 1 ] , [ FF] * THfN 
PRT[P1MIX, 113*1 ELSE PRT[P1MI X»PRT[P1MI X, 1 1 ] ,[FF1 )*l 

FLSE 

BEGIN PRT[PlMlX»P5H*Pf DUP.LOD) OR 1! 
IF DOUBLEPRECIStON ThfN M[S-3]*0j 
MfS-23-O; 

END! 

GO TO INITIATE* 
XYT« 

fNd intfRRUPt; 



42530000 


T 


0057«0 


42531000 


T 


0057t0 


42532000 


T 


0058J0 


42533000 


T 


0061 «1 


42534000 


T 


0064* 1 


42535000 


T 


006810 


42535500 


T 


0073*0 


42536000 


T 


0077«2 


42537000 


T 


0078J3 


42537050 


T 


0083*1 


42537060 


T 


0085*2 


42538000 


T 


0086:0 


42539000 


T 


0087*2 


42539050 


T 


0089*3 


42539060 


T 


00901? 


42539100 


T 


0091*2 


42539200 


T 


009210 

42534000 


42540000 


T 


0094!! 


42542000 


T 


009612 


42546000 


T 


0096*2 


42547000 


T 


0100*2 


42547100 


T 


010212 


42547200 


T 


010513 


42548000 


T 


0108*3 


42550000 


T 


0109* 1 


42550500 


T 


010951 


42550600 


T 


0111*3 


42551000 


T 


0114*0 

42551000 


42551090 


T 


0116*3 


42551100 


T 


0121*1 


42551110 


T 


0126*1 


42551200 


T 


0127 JO 


42551300 


T 


0130(0 


42551400 


T 


0133*2 


42551500 


T 


0135*2 

42551200 


42552000 


T 


0135!2 


42553000 


T 


0136*0 


42554000 


T 


013610 

42511000 


SIZ 


F* 0137 WORDS 



$ SET OMfT * NOTCncUOfi ANn DaTaCOM ) 42599999 T OOOOlO 

% THF FORMAT OF DJRFCTORy TOP* 44000000 T OOOOlO 

* nrOl=OPTiON WORDS 44001000 T OOOOlO 
% nrn=OATFX 44002000 T OOOOlO 
% Dr?JsMUMBFR OF ELECTRONIC UNjTS* 44003000 T OOOOlO 
% Dr3J=HTGHEST ADDRESS OF BACKUP STORAGE* 44004000 T 0000*0 
% Dt*3«HiGHEST ADDRESS OF DIRECTORY* 44005000 T OOOOlO 
% nr5]*UST NUMBER USED FOR CONTROL DECK* 44006000 T OOOOlO 
X 0r6]*FlRST CONTROL DFCK QUpUED (LOCATION IN DIRECTORY)* 44007000 T 0000*0 
?! Df73*LAST CONTROL DECK QUEUED (LOCATION IN DIRECTORY)* 44008000 T OOOOlO 
% DrB]«NEX.T NUMBER AVAILABLE FOR PRINTER BACKUP DISK %P 44008100 T 0000:0 

* Df9]=C0RE. CONTAINS MULTIPROCESSING FACTOR 44008200 T OOOOlO 
II DMO] THRU DM5] SPECIFY WHICH DC-STATIONS ARE SPO-LIKE. 44008300 T OOOOlO 

* Dri61«0UEUE VALUES FOR SPO STATIONS 44008305 T OOOOlO 
* Or 1 7] SPECIFIES WHAT ThE SPOES ARE 44008310 T OOOOlO 

% DMB]*T!ME 0F DAY 44008320 T OOOOlO 

* D[19J»VALUE OF FENCE (TIME SHARING MCP) 44008330 T OOOOlO 
X D[?0J.[8I101*NUMBER OF LAST LOG FILE 44008340 T OOOOlO 

* itl8l30]»NUMBER OF ENTRIES IN LOG (TIMESHARING) 44008350 T OOOOlO 
X Dr?l]«SCHEDWORD (TIMESHARING) 44008360 T OOOOlO 
% nt2?l.C38llO]»NUMBER OF CURRENT MAINTENANCE LOG. 44008380 T OOOOlO 
% ,r?8H0]=NUMRER Op CURRENT REMOVTE LOG. 44008390 T OOOOlO 
% Or 23] THRU 0(263 SPECIFY WhICH SU-S WFRE READY AT THE LAST H/L, 44008400 T OOOOlO 
% DT?7] IS RESERVED FOR USE BY THE LOCAL SITE. 44008410 T 000080 
X nr28]»DlSK ADDRESS OF DtRECTORYTOP 44008499 T OOOOlO 

PROCEDURE TNTFTNlSH(AA); 44008998 T OOOOlO 

START OF REL SEGMENTl DISK ADDRESS * 01067 
PRT(704) = tNTftNISh 

VALUE AAJREAL AAI FORWARD* 44008999 T OOOOlO 

SAVE PROCEDURE MORE JN I T I AL I ZE I FORWARD) 44009000 T OOOOlO 

START OF SAVE SEGMENT} BASE ADDRESS * 01023 
PRT(705) m MOREINITIALIZE 

SAVF PROCEDURE INITIALIZE; 44010000 T OOOOlO 

START OF SAVE SEGMFNT| BASE ADDRESS * 01023 

BEGIN 44010100 T OOOOlO 

REAL A»BfC» l» J#TtW>Y»Zl 44011000 T OOOOlO 
STACK(F+1) ; A 
STACK(F+2) . B 
STACKfF+3) » C 
STACK(F+4) ■ I 
STACK(F+5) « J 
STACK(F*6) u T 
STACK(F+7) * W 
STACK(F*10) s Y 
STACK(F+11) * I 



STACKfF+12) * INTS 

STACKfF+13) = INTSS 

STACKfF*14) * LASTL 

STACKfF*15) * LDATE 

STACKfF+16) * LOC 

STACKfF+17) » MEND 

STACKfF+20) a 1RPB 

STACKfF*21) * IRPTB 

STACKfF+22) » IRPDBS 

STACKfF+23) * iRPTU 



REAL TNTS,INTSS»LASTL.LDATE>LOC,MENDl 44012000 T OOOOlO 



REAL IRPB. IRPTB»IRPDBS. IRPTU» IRPBUF* 44013000 T 0000:0 



STACKfF+24) « TRPBUF 

STACKfF+1) « MSTART 
STACKfF*14) ■ Ti 
STACK(F+17) « SHLM 

STACKfF+25) * IRPBTS 
STACKfF+26) c IRPWRS 

PRT(jn) * XCLICK 

STACK(F+27) » DDO 
STACKfF+30) * GI 



STACKfF+7) 



REAL MSTART. A» T1*LaSTL» SH|,M = MfND> 

intfger irpbts»irpwrs; 

) 

) 

INTFGFR XCUCK.XCLOCKJ 
ARRAY n00t*l»6It*ll 

ARRAY XsWf*]! 



labfl unitl,timul»miSSl,; 

LABEL AVLP»lNLP.LT,LE»lF»LN,lP»L$) 
$ SET oMfT s NOT SHAREDISK 

$ SET OMJT « PUMP OR DEBUGGING OR BREAKOUT 
SUBROUTINF XXXXXXJ BEGIN a«-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X J ENDIS 

SUBROUTINF MAKfSAVEl 

BEGIN niSKWAlT(-C,Mn).C8ilO]tM[U. r FF J+MCPBASE ) I 

MriJ.rcni»c» mcc-h 1*977777; c»»c*Mti].t8iiO] + n* 

end; 

subroutine fix}* 

BEGIN P(CMrJ]]*It8l38»lO]»T»OIX 

J •- j + i;x 

END IX 



X162- 



$ SET OMIT 
MCPBASEtsMr 
DIRECTORYTO 

S SET OMlT 

PEUiOJafUfO 



HOLpER* 
USERDtS 

IF rl «• 

ESPniSK 
ESPniSK 



SET OMlT 

STRFAMf 

BE 



* NOTC 

01.tl8« 
P»=M[1J 

■ NOT( 

Rest 

lerMfPl 

IOQU 

IOQU 

"DIRECT 

KBOTTOM 

CUSERDI 

ROTTOMI 

TOP*eSP 

RRRM 

WjTc 

WORD 

NOPR 

SOFT 

* NOT 
S 4-16,0 + 
GINX 

si * 

D! * 
19(S 
DI*D 
DI *S 



DCSPO 
30 1 J 
I 

SHARED 
ARTINQ 
331H2 
FSLOTS 
EAVAIL 
ORYTOP 
l«HOLD 
SKBOTT 
p50 + (S 
DlSKBO 
ECH *■ 

hiNgho 
ofease 

OCESST 

1 *■ 0; 

STATIS 

100m 



AND DATACOM ) 



ISK) 
M02 
Of 8 t 

»*31 
-7-( 

ER-D 
OM-5 
YSNO 
TTOM 

M«0 
URlc 

J»?2 

OG «• 

TICS 



3} 

38« 10] J 

{ 



HOLpMAX+29) Dl V 301 

iskavailtabuemax; 

0) div sysmax) > 247 then 

x f )| % BOTTOM OF ESPDISK 
+ T»8I STOP OF ESPDISK 
000000; % 
5i8a000> 

5?52525?5252525> 
• II* 



% see also 40200100 

I 1*2471 



s> ds * u wosi n ♦ on 

SI 1KDS •• 8 LIT "102(0000" 
I * Sl+8)| S ♦ Si I 
I DS*2 WDSI* 
I DS«-l6 LlT"042(0000"* 



)l 



44014000 T 0000:0 



44015000 T 0000*0 



44016000 T 
44017000 T 



44019000 
44020000 
44024990 
44025990 
44037000 



44062049 
44083000 
44083100 
44083200 
44085000 
44085100 
44085500 
44085600 
44086100 
44086200 
44086300 
44087000 
44087100 
44088000 
44090500 
44091000 
44092000 
44092100 
44092490 
44093000 
44094000 
44095000 
44096000 
44097000 
44098000 
44099000 



44037200 T 

44037300 T 

44037400 P 

44037500 T 

44079000 T 

44080000 T 

44081000 T 

44082000 T 



OOOOlO 
OOOOlO 



44018000 T OOOOlO 



OOOOl 
00001 
OOOOl 
OOOOl 
OOOOl 

4 
0012 J 
00131 
00171 
00241 

4 
0026' 
00261 
0028» 
00291 

4 
00291 
0029s 
00371 
0038: 
0038» 
00391 
0042: 
00431 
00431 
00461 
0047: 
00511 
00531 
00541 
0055' 
00561 
00571 
00581 
00581 
00561 
00591 
00591 
0060: 
00621 
00631 
0064? 













4037000 

3 



2 

3 

4037300 





1 

2 

4080000 

3 

3 

1 

3 

3 

2 

1 



3 

2 

3 

1 


3 
2 
1 


3 
3 
3 
3 
2 
2 
2 




MSTARTJ«P(.,lN T TlALiZE»LOn).tCF]) 
AVAtL«-?77776;X 
AVLPtMrAVA!L]«-P7777700000 + AVAILJ18 

inlp! !f j*coreno then* 
begins: 

memaskl«memask or twouvail d iv 4096)1 

AVAlL*AVAIl-4096jX 

go to avlpx 
enh;x 

IF J»2 THEN GO TO jNuPjX 
M[AVAIL+1]*AVA|L>* 
MtMFNO*AVAIL-l]*0*l [2U7I il« 

&MSTART[CTr]U 

MrO3*-MSTART*MEN0[CTFUll2i47in»I 
MtM$TART]*LASTL«-MENDJX 
L0C*MEND-4094»X 
LTIIF l,0c>4095 THEN* 
RFRIN* 

M r L0r]*P77777jX 

IF j«-corend THENX 

RFG I N % 

MEMASKI.MEMASK OR TW0(L0c DlV 4096)1 
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end;* 
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OMfT ■ 
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+ MIXMAXXNOX 

+ JORNUMAX 
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+SLATESI2E 

NOT(WORKSeT) 
WKSETDATASlZE+MIXMAX+lf 

WORKSET 

+ MESSAGETABLESiZF 

+ 16 

+(6x32) 

aRedisk 

T OMIT 
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+ PUNTSlZE 
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MrJ] «■ 0*1 
M0VE(I-1»J»J+1)|* 
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T 
T = 



T = 

T = 
T * 



$ SET OMIT 



$ POP OMfT ?! 



$ SET OMj 

$ SET oMf 
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COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMFNT 
COMMfNT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



MTA 
MTB 
MTC 
MTD 
MTE 
MTF 
MTH 
MTJ 
MTK 
MTL 
MTM 
MTN 
MTP 
MTR 
MTS 
MTT 
DRA 
DRB 
OKA 
DKB 
LPA 
LPB 
CPA 
CRA 
CRB 
SPO 
PPA 
PRA 
PRB 
PPB 
OCA 
ZIP 
CDA 
COB 
CDC 



44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 

44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 



191025 
191030 
191125 
191145 
19U50 
19H55 
19H60 
191165 
19U70 
191175 
191180 
191185 
191190 
191195 
191200 
191205 
191210 
191215 
191220 
191225 
191230 
191235 
191240 
191245 
191250 
191255 
191260 
191265 
191270 
191275 
191280 
191285 
191290 
191295 
191300 
191305 
191310 
191315 
191320 
191325 
191330 
191335 
191340 
191345 
191350 
191355 
191360 
191365 
191370 
191375 
191380 
191385 
191390 
191395 
191400 
191405 
191410 



035913 
036250 



0362 
0362 
0365 
0365 
0366 
0367 
0368 
0369 
0370 

0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 

0380 
0381 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 



$SfT OM 
MI5SL1 
$ SET 



OOl 
001 
001 
001 
001 
OOJ 
001 
001 
001 
001 
OOl 
OOl 
OOl 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
!T*NOT SHAR 
• 000 



9 

p 
a 

P 

P 

P 
P 
P 
P 
P 
P 
P 
P 

P 



P 
9 
p 
9 

P 
P 

P 

p 

P 
P 
P 



3*00002 
4100002 

4200002 
4400002 
5100002 
5200002 
5400002 
6100002 
6200002 
6400002 
7100002 
7200002 
7400002 
0100002 
0200002 
0400002 
1100002 
1200002 
1400002 
2100002 
2200002 
2400002 
3100002 
3200002 
3400002 
4100002 
4200002 
4400002 
5100002 

E01SK 
0000004 



32424, 
32425, 
32426, 
32427, 
32430, 
32441. 
32442. 
32443, 
32444, 
32445, 
32447, 
32450, 
32451, 
32462, 
32463, 
32464, 
32465, 
32466, 
32467, 
3^470, 
32471, 
32402, 
32403, 
32404, 
32405. 
32406, 
32407, 
32410, 
324H, 



COMMEN 
COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 

COMMEN 
COMMEN 
COMMEN 



cdd; 
cde; 

CDF? 
CDGJ 
CDHI 
CDvJ) 
CDKj 
CDU 
COMJ 
CON* 
COPJ 
CDO» 
CORl 

cos; 

COT* 
CDUI 
CDVJ 
CDWl 

cox; 

coy; 
cdz; 

CD2; 

C03; 
CD4; 

CD5I 
CD6J 

cd?; 

CDS; 

Co'; 



46367 COMMENT MTX, AtL SCRATCH TAPES; 



M|T * 



1 UNTIL MIXMAX DO* 

P2003777777777777;j! 



I SFT OMfT * 



FOR i * 1 STfP 
NOT PATACOM 

PROCTlMfflJ «■ IOTIHEC I 1 

FOR ! 1=0 STfP J UNTIL 31 DO 
BFGIN lOQUEt n«=!-i; 

TlNUtI].ri8»l2J'«0; 

end; 

FOR fl*0 STEP 1 UNTIL PSEUDOMAXT 

LABELTABLErll * P114;* 
LABELTABLEt25] ♦ Ot% 



DO 



COREUPr 



NOT DEBUGGING 
FOR l * STEP 1 

uNiTcODrr n 

* FlNo INITIAL VAUUr 

corend.lod).[cf)«p(; 
i ♦ mcm[avail]]; 
while i.lffj * 977777 do 
begin core * core ♦ 



UNTIL PSEUDOMAX + 9 DO 
«» -o; UNITCODET^] »* 0; 
FOR CORE 
INITIALIZE, LOD).CCF]J 



i.iffii I * Mtn end; 



core «- core div 64; 
$ set omit ■ notcdatacom ) 
t set omit * not(debugging) 

i*p(.olay)j makesave; 

Shlm*spacecio); 



44191415 1 


r 04161 





44191420 1 


r 04171 





44191425 1 


r 04181 





44191430 1 


r 04191 





44191435 1 


r 04201 





44191440 1 


r 04211 





44191445 1 


r 04221 





44191450 1 


r 04231 





44191455 1 


r 04241 





44191460 1 


r 04251 





44191465 1 


r 04261 





44191470 1 


r 04271 





44191475 1 


r 04281 





44191480 1 


r 04291 





44191485 1 


r 04301 





44191490 1 


r 04311 





44191495 1 


r 04321 





44191500 1 


r 04331 





44191505 1 


r 04341 





44191510 1 


r 04351 





44191515 1 


r 04361 





44191520 1 


r 04371 





44J91525 1 


r 04381 





44191530 1 


r 04391 





44191535 1 


r 04401 





44191540 1 


r 04411 





44191545 1 


' 04421 





44191550 1 


r 04431 





44191555 1 


r 0444 





44191560 1 


r 04451 





44191590 1 


r 04451 





44191595 1 


r 04461 





44192000 1 


r 04461 





44192490 1 


r 04471 





44193000 1 


r 04471 





44)93200 1 


r 04511 


2 


44193400 " 


r 04541 





44193600 1 


r 04551 


3 


44193800 1 


r 04561 


1 

14193400 


44194000 1 


r 04691 


>2 


44195000 1 


r 04621 





44196000 1 


r 0465 


2 


44196999 1 


r 0466' 


13 


44201110 1 


r 04661 


3 


44201120 1 


r 0471 





44201200 1 


r 0474 


1 


44201300 1 


r 04741 


1 


44201400 1 


r 04771 


10 


44201500 1 


r 04791 


1 


44201600 1 


r 04811 



14201600 


44202000 1 


r 0486 


10 


44202004 ' 


r 0487 


11 


44202105 1 


r 0487 


It 


44202119 1 


r 0487 


»1 


44202120 " 


r 0489 


10 



4 SET DM JT 



!>0Dla[M[Ai-SPACF<483> Jl«*fl3c8«38ll0]l 
DlSKWA!T(-A.-30,0); 
DlSKWA!T(-3l-A»-30#MCPNAMt:SEG)l 
M0VE(2» A+l0>5xSySN0#A+5l+2xSYSN0)l 
DISKWAIT(A+31»-30,MCPNAMESEG)» 

STREAMCML:*MARKLFVEL»PLl»Mt3]|*PATCHLEVEU»LL«aL0CALEVFL 
.MEMASK,Nl«A+l0+5xSYSN0 

t SET OMfT * NOTCSHAREDISK) 

,Tl«NTl»»SPArEC 10)); 
BEGIN DS«-5 LjT ""h/L, " ; 
NOTCSHAREDISK) 

DS*6 LiT w W|TH "I5I*NIS|*SI*1IDS*7 
DS»*LTT"/»*Si»«SI + UDS**7 CHR*DS**6 LIT" 
si **loc ml? tf sc GEO H " THEN! 

8(!F TOGGLE THEN TF Sc* H 0" THEN SI««SI+1 ELSE DSl*CHR 

ELSF OS:»CHR)l D&* =LIT»«.* , J 
Sf»«LOC PL* IF SC GEQ " 
6(IF TOGGLE THEN IF Sc< 

ELSE DSisChR)J DS«a?CHR* 
Si l«LOC LL* IF SC GEO « » THEN* 
fl(!F TOGGLE THEN IF Sc»"0" THEN SIIsSI + 1 ELSE OStcCHR 

ELSE DSJsChH); 
I) S » * 1 7 L I T •♦ MODS -*«J 

Siisloc memask; S i i=S i +6; SKIP 4 sb; Dl»*DI-2* 
flfD! I-0I-2MF SB THEN DSi»LlT»P« ELSE DS I «LI T«R"; SKI P SB); 

end; 



chR> 

MARK 



" then; 

«"0" THEN 



SflaSUl ELSE DSlsCHR 



fnd of 



M0VE(10»NT1 »SHLM){ 
SPOUT(NTl)! 

moReinitialize; 
tnitializf; 



44202500 
44202600 
44202700 
44202800 
44202900 
44203000 
44203150 
44203179 
44203200 
44204000 
44204099 
44204200 
44204500 
44204600 
44204650 
44204700 
44204750 
44204800 
44204850 
44205000 
44205050 
44205100 
44205220 
44205300 
44205600 
44206100 

44206200 
44206300 
44206350 
44206400 



T 0491 t 1 

T 049512 

T 0497*1 

T 0500JO 

T 050412 

T 050710 

T 050911 

T 051013 

T 051013 

T 0513*3 

T 051413 

T 0514»3 

T 051612 

T 0518*2 

T 05l9:i 

T 0521*0 

T 0522U 

T 0523«0 

T 0524»3 

T 0525*3 

T 0526*2 

T 052811 

T 0529J0 

T 0531*2 

T 053212 

T 0535*1 

44204000 

T 0535*2 

T 0537*0 

T 0538*1 

T 0538*3 

44010100 
SIZF* 0541 WORDS 



STACKf F+l ) a A 
STACKfF+2) a B 
STACKfF+3) « C 
STACK(F+4> a I 
STACKfF+5) a J 
STACKfF+6) . T 
STACKfF+7) = W 
STACKfF+lO) c y 
STACKfF+ll) m Z 



SAVE PROCFPlifF MORf jNfTl ALl ZE J 
BEGIN 

Real 

A«+l»B-+2,C=+3> ls+4,J»+5»T=+6>W=+7»Y»+«#Z*+9> 



START OF SAVF 



REA|. 



STACKfF+1?) - I 

STACK(F+13) a I 

STACKfF+H) « L 

STACKfF+15) a U 

STACKfF+16) s L 

STACKfF+17) = M 



NTS 

NTSS 

ASTL 

DATE 

OC 

END 



lNTSo+10. lNTSS«+li»LASTi,ii + l2»LDATE»+13»L0C" + l«»MEN-D»*l5l 



REAL. 



STACKfF+20) a I 

STACK(F+21) = I 

STACK<F+22) > I 

STACKfF+23) = I 

STACKcF+24) = 1 



RPB 

RPTB 

RPDRS 

RPTU 

RPBUF 



IRPB»+16»lRPTBs+t7» lRP0BS*+l8,IRPTUa+i9,lRPBLJFa + 2O; 



STACK(F*14) a T 
STACKfF+17) s S 



REAL. 

T1»IASTL,SHLM«MENDI 



1 
HLM 



STACKfF+25) * I 
STACKfF+26) a \ 
PRT(171) « XCLI 

STACK(F+27) a o 
STACKfF+30) a & 

STACKfF*7) a X 



RPBTS 
RPWRS 
CK 

DD 

I 



iNTpGFR 

lRPBTSs+21 , !RPWRSa+2?,XcLlCKsXCLOCKJ 



ARRAY PDD = + 23[*]»r,I* + 24r*]) 



ARRAY X =Wf*Jj 
J SET OM|T a NOT ShAREOISK 

LABFL mullint. continue, BOMBOUTl 
PfDEL.STF); 

$ SET OMJT a NOT(SHAREDISK) 

$ SET OMIT * NOT(WORKSET) 

DlSKWAIT(-A,3O,0!RFCT0RYTOP+n; 
WK$ETCYCLETlME»*DDD[Ti«4xSYSNO-M3J 
WKSETINSTRUCT laDDO[T+l Jj 

WKSETOLERANCE J*DDD[T+2 ]J 

WKSETMAXOLAY UDDDCT+3 JJ 



44206450 

SEGMENT! BASE 

44206500 

44206550 
44206700 



$ POP OMJT 



DISKWAIT(-A,30»DIRECT0RYT0P-SYSN0)> 
CORE.f»ll«ll«IF DDDt9]«0 THEN 100 ELSE 
OPTION «■ DDDrO]jX 



X143" 
J143- 
*1«3- 
XI 43- 
X143* 
* t 43- 
X143* 



DDDC93, [411411 



T 0000*0 

ADDRESS • 
T OOOOJO 

T 0000:0 
T 0000*0 



44206750 T OOOOJO 
44206800 T OOOOJO 



44206850 T 000010 
44206900 T OOOOsO 



44206950 T 
44207000 T 



44?07050 
44207100 



44207218 
44207250 
44207300 
44207899 
44209000 
44209100 
44209200 
44209300 
44209400 
44209500 
44209600 
44213000 
44213500 
44214000 



000010 
OOOOSO 



000010 
OOOOJO 



44207150 T OOOOJO 



44207200 T OOOOJO 



0000 10 
OOOOJO 
OOOOJO 
000013 
0000J3 
0000J3 
0002 » 3 
0005J3 
0007*3 
000913 
001113 
001 1 1 3 
0013J3 
0018J2 



01564 



$ SET OMIT » 



% 

% 
% 

% 
% 
% 



% 
% 

% 



SAVEW0RD«*RRRMECH»xDDD[29 3l 

for t»»0 step 1 until 31 do 
if (two(t) and savfword) 
la8eltablect]»*mh; 

T * 01% 
NOT SHAREDISK 

XCLICK«»(P7777777777700 AND 
NFUPl*DDD[23 MOD lOO j 
NpUP«aNEUP&(NEUP+DDDt?3 DIV 

DATEt*DDDt U* 
NOT(SHAREDISK) 



* THEN 

X MARK SAVED 



Doonei) mod sieaoooi 

100)rCTFl*NEUP[3l33H5)l 



X146" 
*1«6« 
X146« 
X146- 



SET OM|T 

set up disk pointers and build or 



CtEANOUT DIRECTORY 



ESPniSK MAY NOT BE USED A80VE ThIS POINT SO THAT THE SHAREDISK 

scraTchdirectory. which is unprotected* can be recovered, 

stream<bj«0«a»«»bypasst«dddu]#d**p(,dirdsk)); 
begin sp.loc a; dsi*b decj dl*»loc bj 

Sl»«LOC DJ SftBSl+8; DS**WDS* 

END* psP INX 0; % GET LOCATION IN INITIALIZE 



S SET 



$ POP 



$ SET 



$ POP 



OMp 
OMjT 

OMIT 
OMp 



* SET OMIT * 



DlSKBO 
M[ INTS 

MCJJ.C 
Mf J 3 |a 

FORGET 
INTSlc 
IF (T* 
NEUP*N 

h-neu 

Zl«(Y! 

Shared 
+ c 

*J»«GE 
MOVECZ 
EUlOla 

PEUI0» 

shared 

AVTABb 

Tll*GE 
ACTDAT 
NOT(SH 
DIRECT 
FORGET 
MTPC, 
NOT(SH 



TTOM 8=BYPASS-2J 

"2J«*(JI»*P(0UP))H[CTC]I 

FF]»*I» 

J*(INTS-2)[CTF]> 

SPACE(INTS)> % RETURN PART OF INITIALIZE 

I + 2; 

NEUP.[FF3-NEUP,tCFJ)>0 THEN 

EUPUO[CTcJ*CiO + T)[CTFmSAVE # OF EUS ON DKA. 

p.neufi 

»I * EUlOFFSET) ♦ I 

ISK 

Bl*C I + D DIV 2 + I + 2) 

TSPACEfZ»AVTABLEAREAV,i) + 2J H67- 

» J"l» J)l 

(J INX M)&Y[8*38*l0] I 

s(CJ'»J + Y) INX M)iIt8l38H0]> 

ISK 

E»»C(J*I) INX M)&Bt8'38»lO]l 

TSPACEC200#0#1)+2J X SPACE FOR JNTRNSC 

F««WEEKDAY««Ol 

AREDISK) 

ORYBUiLDER(A»DDO>> 

SPACE(Pc.;D[RECTORYBUilDER,LOD) INX 0)1 

DIRECT0RYBUlLDER)]l«C*P(DUP))*(*P(,ESPBlT))[CTC V% 
AREDISK) 



SET OMp 
SET IIP INTRINSJCS TABLES AND LOCK MCP, 



DlSKWAlT(-A.-30#i 

IF fDDOCl *«5><SYSN0 + l33 E«V 0) AND -CODDC 1*11 EQV 0) * NOT THEN 

GO TO NULL I NT; 
IF ( TlsOlRECTORYJ 
IF fNTi tsMfT+4], 



.0)1 



'SEARCHrDDom»DDD[I + l]#tn)#0 THEN 

r 3 6 » 6 j ) *» o and nti#ocjntype then 



44314100 
44214200 
44214300 
44214400 
44215000 
44216690 
44216900 
44216910 
44216940 
44216950 
44216959 
44239500 
44239600 
44239700 
44239800 
44239900 
44240000 
44240500 
44240520 
44240540 
44240560 

44240580 
44240600 
44240620 
44240640 
44240660 
44240680 
44240690 
44240695 
44240700 
44240800 
44240819 
44240820 
44240821 
44240840 
44240860 
44240880 
44240900 
44240919 
44240920 
44240921 
44241000 
44241150 
44241179 
44242000 
44242010 
44242020 
44242049 
44242700 
44242800 
44242900 
44243000 
44243250 
44243500 
44243750 
44244000 



C 0019*2 

C 0021*0 

C 002250 

C 002313 

T 002713 

T 002812 

T 0028*2 

T 0030»2 

T 0032*0 

T 003512 

T 0036*2 

T 003612 

T 003612 

T 0036*2 

T 0036*2 

T 0036*2 

T 003612 

T 0036*2 

T 003813 

T 003912 

T 0040*1 

44240520 

T 0041*2 

T 004213 

T 0046*0 

T 0048U 

T 0050*3 

T 0051*2 

T 0052*3 

T 0055*2 

T 0058*1 

T 005912 

T 0060*3 

T 0060*3 

T 0063*1 

P 0063*1 

T 0067*0 

T 0069*0 

T 0071*1 

T 0074*2 

T 0074*2 

T 0077*1 

T 0077*1 

T 007912 

T 0080*3 

T 0080*3 

T 0082*0 

C 008312 

T 0086*0 

T 0086*0 

T 0066*0 

T 0086*0 

T 0086*0 

T 0087*3 

T 0092*3 

T 0093*2 

T 0096*3 



BEGIN FOWGETSPACE(T); 

Pr Ot RFC TOR YSF ARCH (NABSfDDDr I ])»DDD[I + 1 ]»16)»DEL>* 
ODDC r 3 laeDDDT 1 + 1 3 l«OI X REMOVE INTRINSICS 

0KSEGZER0WRITE«« TRUE* X204' 

D!SKWAlT(A»"30,0)j 

OKSEGZEROWRlTE«s FALSE) X204« 

NUULINTi FORGETSPACE(Tl); 
Tl j«o; 
F.ND ELSE 

BEGIN INTRINSICTARLEBUILDFR{T&T1[CTF])I| 

FORGfTSPACEfT)* 
END ELSF GO TO NULLlNTj 

$ SFT OMIT * NOT SHAREOISK 

!NTfREE»«=1> 

IF fTl«D!RFCT0RYSEARCH*DD0tf3],D00t!"2)»l7))#0 THEN 

BEGIN 
S SET OMjT « NOT STATISTICS 
FORGFTSPACE(T)} 

END FLSF 

LBMESSfDDDt I-33.0DDC 1-2] »-15»0»0»0# i )l 
S SET OMIT * ShARFDISK 

MCPFREESsil 
S POP OMIT 

ABORT LOGGING, 



% 
% 
% 



DISKWAJT(-A,210»ESPDISKT0P+1)J 

T*«OJ *761- 

FOR I ♦ 1 STEP 1 UNTIL MJXMaX 00% 

BEGIN USERCODEril »* Oj 

T ♦ DDDC3XI+92.1 ,[2<t:?4) OR T; 
END{ 

Gl»»[M[SPACFf2lO>m210[8| 38110]) X761- 

MOVrf ?lOt AtGDJ %76l" 

DDnr3]l"0> X761- 

M0Vf(?06»A+3»A+4)> X761- 

DISKWAIT(A»210,ESPDISKT0P+1); X761- 

IF T * AND DDDT2] * "ABORT" THENX 
BEGIN X761- 

FOR I * 1 STEP 1 UNTIL MIXMAX DOX 

IF CB*G![3M + 92],tCF]>#0 T H EN 

IF B 01 V lOOOOOO+i LfO NEUp.CCf] ThEN 

BEGIN 

DlSKWAlT(-A#30#B)! 

IF CT»*DDDtl] DfV 5x6) GTR 999 OR T LSS THEN GO BOMBOUT! 

USERCODECI]*SPACE(T)! 

FOR J*0 STEP 1 UNTIL (T-l) DIV 30 DO 

BEGIN 

MOVECIF (C*T»30xj)>30 THEN 30 ELSE C» 
A#USERCODEtl3+Jx30)! 

IF (C«-DDD[03)itO THEN 

IF C DIV I000000JNEUP.CCF] OR C<0 THEN 
GO BOMBOUT ELSE 



44244500 


T 


0101M 


44245000 


T 


0l02«2 


44245500 


T 


010511 


44245999 


C 


01.08 JO 


44246000 


T 


0108*3 


44246001 


C 


onou 


44246500 


T 


oiino 


44247000 


T 


011113 


44247500 


T 


011212 

44244500 


44248000 


T 


011212 


44248500 


T 


0116*1 


44249000 


T 


011710 

44246000 


44249495 


T 


0117J0 


44250000 


T 


011710 


44250500 


T 


011813 


44251000 


T 


012212 


44251495 


T 


0123*0 


44252000 


T 


012310 


44252500 


T 


0123*3 

44251000 


44253000 


T 


0123*3 


44253495 


T 


0128*1 


44253500 


T 


0128*1 


44253505 


T 


0130*0 


44253700 


T 


0130*0 


44253800 


T 


0130*0 


44253900 


T 


0130*0 


44254000 


T 


0130*0 


44254100 


C 


0132*0 


44254500 


T 


0132*3 


44255000 


T 


0134*0 


44255500 


T 


0135*1 


44256000 


T 


0138*1 

44255000 


44256100 


C 


0140*2 


44256150 


C 


0144*1 


44256200 


C 


0146*0 


44256250 


C 


0147*1 


44256300 


C 


014913 


44256500 


T 


0151*2 


44257000 


P 


0153*2 


44259500 


T 


015440 


44260000 


T 


0156*0 


44260500 


T 


0159*0 


44261000 


T 


0161*3 


44261500 


T 


0162*1 


44262000 


T 


0163*3 


44262500 


T 


016711 


44263000 


T 


0170*3 


44263500 


T 


017512 


44264000 


T 


017512 


44264500 


T 


017913 


44265000 


T 


0181*3 


44265500 


T 


0183*1 


44266000 


T 


0186*2 



DlSKNATTf-A»30»C)! 

End; 

emd else go bombouti 

for 1*1 stfp 1 until mjxmax do 
if (c*usercooecM)#o then 

PFGIN 

fi|[3Ki+92].[2*i?4]*B*fiETESP0TSKI 

T*(USERCODEriJ*M[C+il) 01 V 5X6) 

FOR J»0 STEP J UNTIL (T-D 01 V 30-1 00 

MrC + Jx30]«-GETESPD!SKJ 
DISKWAIT(C#T»B); 

FORGFTSPACE(C)J 

END! 



END! 



GO ("ONTINUEJ 
BOMBOUTI 

STRfAM(0*T*SPACF(3)) I 

PS*?? LIT"**AB0RT LOr, DESTROYED*"* 

SPOLlTfT); 

FOR i*l STEP 1 UNTIL MyXMAX DO USERCODE [ 13*0) 
CONTlNUp: 

intfinishca)* 

if autorn then begin runumbfR«-mixmaxi startaoeckco) end* 

FORftETSPACEf I NTS)) FORGET SPACE ( I NTSS ) I 

MtPf .>ORE?NiTfALTZE)n«(*Pf DUP))«(*P(.ESPBIT))CCTC3>« 

go to nothingtodo; 
end; 



X902- 
*162- 



44266500 
44267000 



44267500 T 



44268000 
44268500 
44269000 
44269500 
44270000 
44270500 
44271000 
44271500 
44272000 
44272500 



44273000 T 



44273500 
44274000 
44274500 
44275000 
44275500 
44276000 
44276500 
44280000 
44280100 

44281000 
44281500 
44282000 
44440000 



T 018612 
T 0188*3 

44263500 
0191 tO 

44261000 
T 019351 
T 0194J0 
T 0195*2 
T 019610 
T 0200*1 
T 0204*1 
T 0209*2 
T 0212*3 
T 0214*0 
T 0214*3 

44269000 
0217*0 

44257000 
T 0217*0 
T 0217*2 
T 0217*2 
T 0220*1 
T 0223*2 
T 0224*3 
T 0229*2 
T 0229*2 
C 0230*1 

44280100 
T 0233*0 
C 0234*2 
T 0237*0 
T 0237*2 

44206500 
SIZE= 0238 WORDS 



STACKf F*2) * T 



save rfal procedure corendjx 
begin rral tj p( i n| )j end)* 



41441000 T 0000»0 
START OF SAVE SEGMENT) BASE ADDRESS ■ 01802 

44442000 T 0000:0 



44442000 
SIZE« 0002 WORDS 



STACKfF+O) 
STACKfF»2) 

STACKfF+i) 
STACKfF*2) 
STACKfF+3) 
STACK(F+4> 
STACK{F*5> 
STACK(F+6) 
STACK(F*7) 
STACKfF+10 
STACKfF+11 

STACKfF*12 
STACKfF+13 
STACKfF+14 
STACKfF+15 
STACKfF+16 

STACK(F+17 

STACKrF+20 
STACKfF+21 
STACKfF+22 
STACKfF423 

STACKfF*24 

STACKfF+25 
STACKfF+26 

STACKfF*14 
STACKfF+17 

STACK(F+27 
STACKfF*30 

STACKfF*7) 



PROCEDURF !NTF!NlSHf AA);VAUUF AAJRFAl. AA> 
BEGIN RfAI, RCWs + 0,MSCW*-?J 



START OF REL 



= RCW 

* MSCW 

* A 

* B 
s C 

b I 

* J 

* T 
s W 

s Y 
* Z 



45000000 

SEGMENT! DISK 

45001000 



T OOOOJO 
AOORESS s 01067 
T 0000:0 



REA|, A«+i ,B B A + 1 ,CsB+1 » !*C+1 , J>I+1 »TbJ+) ,WeT+l ,Y*W+l , ZbY+1» 



■ ?NTS 
b JNTSS 

■ LASTL 
b LOATE 
b LOC 

b MEND 

b JRPB 

s IRPTB 

b JRPDBS 

m fRPTU 

b IRPBUF 

b IRPBTS 

b JRPWRS 

b Ti 

b SHLM 

b DOD 

= Gt 



REAL, TNTSbZ+Ip INTSSbINTS*1»LASTlbINTSS + i»LDATE»LaSTL + 1»U0CbL0ATE*1» 



MENDbLOC+1 J 

Real iRPrbMend+i> iRptbbiRpb+i» irpdbs»irptb*i»i"ptu»iRpdbs*i. 



irppufbirptu+i; 

TNTFGFR IRPBTSBIRPBUF+It IRPwRSbiRPBTS+11 
REAL Ti.bLASTL»SHLM = MF.ND) 
ARRAY D0D«IRPWRS+U*3»6!»DD0+lt*]l 
ARRAY XbW[*j; 



LABfL NOGOno#LOOPJ 

* SFT OMfT B NOT(STATlSTicS) 
$ SET OMIT s NOT(AUXMEM) 

$> SET OMJT = NOT(DATACOM) 

P(RCW»MSCWiSTF)' RCW«.RcWftPfXCHHCTC3? 

timeout(Spacecio));dateouT(space(10)}; 
s set omit b not septictank 

* SET OMfT n NOTCDCSPO AND DaTaCOM ) 

WHILE FALSE DO* *FlX FOR ORELATlVF CONSTANT ERRORS 
TF( I !bDTRECT0RYSFARCh(»SYSTFM 'S»'LOG ",5)>#0 THEN 

BEGIN TF(J : »M[ W103>*0 THEN 

REG IN M[I + 10]»BjJ«GETUSERDlSK(MtH83); 

STREAM(DATE»A»bo»B»bI I N X 1)1 

BEGIN SPaLoC DaTEJOJIbLOC AIDSIbB OCT* 

0I'«L0C A|DI IbBjOIIbDI+1IOS|»3 CHRJ 

fnd; 



45002000 T 000010 



45002100 T 0000:0 



45002200 T 0000:0 
45002300 T OOOOlO 



45002400 T 
45002500 T 



45003000 
45003199 
45003299 
45003999 
45075590 
45075600 
45088990 
45090000 
45092105 
45092110 
45092120 
45092130 
45092140 
45092150 
45092160 
45092170 



0000:0 
OOOOtO 



45002600 T OOOOSO 



45002700 T 0000»0 



45002800 T 0000:0 



OOOOtO 
0000:0 
OOOOtO 
0000:0 
0000:0 
0002M 
0007:0 
0007»0 
000710 
000881 
00l0:2 
001382 
0018>2 
0020U 
0021 10 
0022:0 



M[I INX 1].C?5I23]I»XCL0CK*P(RTR)> 
niSKWAlTf i INX o» 30# I .IFF])* 
END; 

r>lSKWATTC-A»30»J); 

IF DDDfO] LSS nnO[l] AND 

DDOri3»M[i+8]X6 AND 

DDDr4]= M DlSKL0G" ThTN 

BEGIN OISKWA!T(-A-60,30,j+DDDr23 DIV 

IF noOtCDDfH?! MOO 6)x5+60]*4 THF.N 
BEGIN ODDrO]l*PDD[2J-l) 

diskwait(a#30»j)i 
fno; 



6)> 



END ELSE 
BEGIN 



DDDrO]J»0;DDOtl]»«M[ t+8]x6; 

DDDr23:*DDDC3J«*Oj 

O0nr4]«* w DlSKLOG"»DDD[53»«s4J 

diskwatT(A»3o»j); 



END» 



* SET OMTT ~ 



,OOP« 
* SET 



OMJT 



FORQFT5PACEC I )» 
LOfiFRFE»"NABSf J)l 
END ELSF J*Oj 

NOT(SHAREDISK) 

IF CI l=DlRECTQRySFARCH("REMOTF "."USERS 
BEGIN IF f JIbMU + 101>#0 THEN 
BEGIN DlSKWAlTc-A,30,J)l 
MCP«»NFLAG(M[AJ)J 
X«-MCI].[t«143 - 1* 
T *«OI 

NOTCDATACOM AND RJE ) 
END* 



"»5)>#0 THEN 



FORGETSPACEf 1)1 
END ELSF MrP* w SlTE 



* * CHANGE IF REM0TE/USERSS7H- 



ENTERSYSFlLErDl X "LlBMAlN" 
ENTERSYSFILEC2); J! "LDCNTRl" 
ENTERSYSFILE(3)J * "PRNPBT •• 
X| B [M[SPACE(30)l]&3Or8«38»lO]| 
TOGLE*TOGLE OR ABORTmASK OR USERDISKMASK ; 

if gi#o then* 

BEGIN* 

FOR 1*20 STEP 1 UNTIL 21 DO 

PfWAlTl0(P4000i00000,P77 7»l)»DEU)l 
LDATf» s GI[13J 

FOR ? * 1 STEP 1 UNTIL MjXMAX DO* 
IF USERCODEtlJ#0 THEN 
BEGIN 

J ♦ 3X11 

JARR0W[i]»»X» 

PROCTIMecI] ♦ -CLOCK-P(RTR)!* 



45092180 T 
45092190 T 
45092200 T 

45092210 T 

45092220 T 

45092230 T 

45092240 T 

45092250 T 

45092260 T 

45092270 T 

45092280 T 

45092290 T 

45092300 T 



45092310 
45092320 
45092330 
45092340 
45092350 



45099900 
45099910 
45099920 
45101000 
45102000 
45103000 
45104000 
45104100 
45104200 
45105000 
45106000 
45107000 
45108000 
45109000 
45111000 
451 12000 



45092360 T 
45092370 T 
45092380 T 

45092390 T 
45093000 T 
45094000 T 
45094200 T 
45094400 T 
45094600 T 
45094800 T 
45095000 T 
45095199 T 
45099400 T 

45099600 T 
45099800 P 



45092150 
0022*1 

0026J0 

0028:1 

45092130 
0028< 1 
0029:3 
003110 
0034:0 
0035M 
0039*0 
004113 
0044S1 
004512 

45092270 
0045:2 

45092250 
0045*2 
0053*1 
0055*2 
0058:0 
0059*1 

45092310 
005911 
0060:0 
0061*0 

45092120 
006313 
0063:3 
0066:0 
0069:0 
007t:0 

0073*2 
0076:0 

0076*3 
007613 
0076*3 

45094200 
0076:3 
0077*2 

45094000 
0081*2 
0082*1 
0083*0 
0083*3 
0087:2 
0089*1 
0090*1 
0090*3 
0093*0 
0096:3 
0097*3 
0100*0 
0101*0 
0101*2 
0102*3 
0104:1 



HI MIX * ]i% 

X[03 * GIU + 903) 

XtU «• NABS(GltJ + 9l])l 

STREAM(a*ILOATE3»B»CXI53])I 

BEGIN Sj*AJ DS«-8 Oct end* 



$ SET OMfT » 



ir gi 

IF X[ 
X[5]« 

xr5] *- 

XT6J* 
USERC 
XC 3 J 

x r 4 1 

xm 

IOTIM 

otoio 

X[2], 

NOT(STATlS 

SIGNO 

P1MIX 
JflRRO 
STREA 

BFGIN 



[J*9P 
5] MO 
a (X[5 

GI[J + 
GI[J + 

ODETI 

* Git 

* Git 

* GI t 
EC 1 3 
UETIM 
C8| 10 
TICS) 
fF()(» 
*0> 
W[I1* 
MC 1 . X 

si i» 

DSI* 
Dl ** 

DS» = 



E N D * X 



1 . r 1 « 233 GTR XCLOCK THEN 

n iooo gtr i then xr5ji**P(DUP)-i else 

]-j00l) + 365 + ((Xt5J D I V iOOO)MOO 4»0)* 

92], t i I 23 J&X t53 C 1 « 251 233 1 

92J,C24*24HUSERC0DEUHCTFJl 

]*6lt!+180JlPlM!X*!l 

J]** 

j+im 

* OS x 

F * (CL0CK + P(RTR))x2-X[3Jl!l 

] ♦ 99)X 

fMtSPACE(5)J]»0)J 

0* 2 IN CASE LOG IS NOT ON DISK, 

,JtsJt»SPACE(10))>X 

Xl0Sl"?W0SIDH«Jl* 

L I T "*" J D 1 1 »D I +7 1 DS I *L I T V" ) 

DI*7)DS»*»L1T"»")SI «*LOC II 

2DFC * DS*»9L IT"* ABORTED*" «X 



nogood** 



S SET OMTT 



spoutcjh* 

end;i 

not(statistics) 
forgetspacE(gi);x 

END! 

FORgfTSPACE(X)J 

IF CLOCK»0 THEN « CC103F IS INHIBITED 

BFGIN STREAMfTJsTl»SPACE(lO))> 

BEGIN DS ««1 9 LlT«#TlMER NOT RUNNING*"' 

DSI*?2 LIT** RESET CC103F INHIBIT*") 

END) 



SPOUT(T)> 



END! 



\f GIVFDATE THF-N 

BFGINI STREAM(B*I*SPACE(2>>) 

DS*11 LIT "#DT PLEASE*"! 

SPOUTf i 3| 

DATE*-1* 

END* 

TF GIVETIME THEN 

BEGIN* STREAM(B*I*SPACEC2))) 

DS*11 LIT "#TR PLEASE*") 



45 
45 
45 
45 
45 

45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 

45 
45 
45 

45 
45 
45 

45 
45 
45 
45 
45 
45 

45 
45 

45 
45 
45 
45 
45 
45 

45 
45 

45 



13000 T 

14000 T 

15000 T 

16000 T 

17000 T 



18000 
19000 
20000 
21000 
22000 
23000 
24000 
25000 
26000 
27000 
28000 
29000 
29099 
30000 
30100 
31000 
31100 
31200 
31300 
31400 
31500 
31600 



35100 
35110 
35120 
35130 
35140 
35150 



31700 T 

32000 T 

33000 T 

33099 T 

34000 T 

34100 T 

35010 T 

35030 T 

35040 T 

35050 T 

35060 T 

35070 T 

35080 T 

35090 T 



35160 T 
35170 T 
35180 T 



0106tl 
0107*0 
0109:0 

onm 

0112*2 

45 
011311 
0115*1 
011913 
012510 
0128*3 
0132 10 
013413 
0136*1 
0136*1 
0140*1 
0141 12 
014410 
0146*2 
0146*2 
0150*0 
0150*3 
0152*0 
0155*2 
0156*1 
0157*2 
0158*2 
0160*1 

45 
0160*2 
0161*3 
0161*3 

45 
0164*0 
0164*0 
0165*0 

45 
0165*0 
0166*0 
0166*3 
0170*0 
0172*3 
0175*3 

45 
0176*0 
0177*1 

45 
0177*1 
0178*0 
0181*1 
0183*1 
0184*2 
0185*2 

45 
0185*2 
0186*1 
0189*2 



117000 



131200 



108000 



104000 



135050 
135040 



135110 



SPOUT(i); 
XCLOCK*"5184000S 



END? 



37324000 



ACCIDENTAL 
$ SET 



kfyboaRdcounteRjsoj 

TOGLf*TOGL.E OR mOLDMASK OR KEYBOARDMASK J 

COMPLFXSLEEP(CLOCK>0 aND XCLOCK>0 AND DATE*0); 
pNTRY AT 
OMfT * NOT(AUXMEM) 

10G0UTMAINT(SHLM)J 

MROWtcNABS(MROW)* 

FORGFTSPACE(SHLM)> 
8 SET OMJT * ShAREDISK 

DiSKwAIT(-KLUMP,3,DIReCTORYTOP+3)> 

$ POP OMyT 

TOfiLr JsTOGlE OR cdmaskj 

* SET OMIT * NOTCOATACOM ANq OCLOp,) 

FORGETSPACECA)J 
S SET OMiT * NOT DEBUGGING 

TOGLE * TOGLE OR SHEETMASK OR STATUSMASK 

OR nsecondmaskj 

READY *■ P341600000JX 
PRTR0WtPlMIX3,[PSF)»*0> 

if ti»o then 

BEGIN STREAM(D8»I tsSPACEC4))J 

DSJ*?7 LlT"*# UOaD INTRJNSJCS NOH,.,,*"J 
SPOUTf n; 

end; 

* SET OMiT * NOT(STATISTICS) 

rrrmech ♦ rrrmech and $7637777777 j * 

Ready ♦ Ready and ^76^7777777;% 
$ set omit s notcdcspo and datacom ) 
* set omjt = not(breakout) 

P(P4RCW[CTCl«0»RDS»0,XcH»P*PrCTF3.STF)l 
END?* 



XRHR 



45135190 T 

45135200 T 

45135210 T 

45135215 T 

45135220 T 

45135230 T 



45J35299 
45135600 
45135700 
45135800 
45136000 
45137000 
45137001 
45138000 
45141000 
45143000 
45144000 
45150000 
45151000 
45152000 
45153000 
45154000 
45155000 
45156000 
45157000 
45158000 

45178000 
452?9000 
45230000 
45231000 
45247099 
45248000 
45249000 



0191 
0192 
0193 

0193 
0194 
0196 

0203 
0203 
0204 
0205 
0206 
0206 
0208 
0208 
0209 
0209 
0210 
0210 
0211 
0212 
0213 
0215 
0216 
0219 
0223 
0225 



2 
3 

3 

5135170 

3 

2 

1 

3 

3 
2 
2 

i 
l 
i 
l 

2 
2 
1 
1 
1 
2 
1 
3 
2 
3 
3 




SIZ 



45155000 
022510 
0225«0 
0226«1 
0227:2 
0227«2 
0227*2 
0230»0 

45001000 
F» 0236 WORDS 



S SET OMJT * 
$ SET OMjT » 



STACKOVrRFLOW 



STARTS*! 
TiMfRt « 
S SET OMjT 



»16« 


M7S 


MBl 


1191 


« 20* 


» 21 1 


i??: 


»23: 


t?m 


I25J 


*?6* 


1271 


«288 


»29» 


ShAR 


* 30: 


• 31 * 


NOT 


* 32* 


i 33 t 


»34i 


* 361 


* 37* 


« 3©: 


1391 


JftOJ 


MIS 


»42» 


M3I 


1441 


U5i 


1481 


1491 


:50» 


*5?» 


*53» 


»54* 


• 551 


S56» 


t 57: 


I5B: 


>|9| 


1601 


I6H 



P(..C0ReND.L0D#4, INX»STS) J 



GO T 
GO T 
GO T 
PRfN 
PRIN 
IOFI 

i of i 

JOFI 
I OF I 
GO T 
GO T 
GO T 
FDJSK 
GO T 
GO T 

SHARE 
P(0) 
PC4. 
Pf4, 
PC 6) 
P(8) 
Pf 10 

Pf ta 

P(12 
Pf 12 
PC 12 
PC4. 
P{4» 
PC 12 
PCO) 
P(4, 

PC4# 
P(6) 
Pf8) 
PC 1 

pc ia 

PC12 
Pf 12 
PC12 
PC4, 
P(4» 
PC12 



o timer; 

o iobusyj 

o keyboardRequest; 

tfRfiNtShc?0)> 

TERFINiSh(21)> 
NIShCRfSULTI,) )J 
NIShcRfSULT2,2)J 
NTShcRfSUUT3.3); 
NIShcRfSULT4,4)J 

P2BUSYJ 
INOUfSTJ 

external; 



EX 
EX 

DISK 

7); 



5 

; 

0)1 

i)» 
2); 

9); 
1); 
3)> 



i 

• 

0)1 
1)1 
?)J 

u 
1)1 

3); 



ternal; 

T E R N A L J 



GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 



TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 



P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CFSS 
P2PR0CESS 
P2PR0CESS 
P2PR0CFSS 
P2PR0CESS 
P2PR0CESS 
P1PR0CESS 
P1PR0CESS 
PlPROCFSS 
PlPROCFSS 
PlPROCFSS 
PlPROCESS 
PlPROCFSS 
PlPROCESS 
PlPROCFSS 
PlPROCESS 
PlPROCESS 
PlPROCESS 
PlPROCESS 



JNITIA 

X 21 

* 22 

* 23 
X 24 
X 25 
X 26 
X 27 
X 30 
X 31 
X 32 
X 33 
X 34 
X 35 

X 36 

X 37 



X 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
X 
% 
X 
X 
X 
X 

% 
% 

% 

% 

% 
% 
% 
% 
% 



40 
41 
42 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
60 
61 
62 
64 
65 
66 
67 
70 
71 
72 
73 
74 
75 



LIZE> 

- RES 

• TIM 

• 1-0 

- KEY 

- PRI 

- PR! 

• CHA 

• CHA 

• CHA 

• CHA 
. pg 

■ DAT 

- SPE 

- DKA 

- DKB 

- P2 

. P2 

- P2 

- P2 

• P2 

- P2 

• P2 

m p 2 

• P2 

- P2 

- P2 

- P2 
. p ? 

• PI 

■ PI 

p Pi 

- Pi 

- PI 

- Pi 
. pi 

• PI 

- Pi 

- PI 

• PI 

- Pi 

- PI 



X 20 
FOR 
E INT 
BUSY 
BOARD 
NTER 
NTFR 
NNEL 
NNEL 

NNFL 

NNEL 

BUSYX 

ACOM 

CIAL 



-1ST 
NO MF 
ERVAL 
X 
REOU 

1 FIN 

2 FIN 



CODE 
M MSG 

X 



FSTX 
ISHX 
ISHX 

1 COMPLETE 

2 COMPLETE 

3 COMPLETE 

4 COMPLETE 



INQUI 
INTER 



RY 
RUPT 



READ CHECK 
READ CHECK 

MEMORY PARlTYX 
INVALID ADDRESS 
STACK OVERFLOW 
COMMUNICATFX 
PROGRAM RELEASE 
CONTINUITY BIT 
PRESENCE BIT 
FLAG BIT 
INVALID INDEX 
EXP UNDERFLOW 
EXP OVERFLOWX 
KINT OVERFLOWX 
DIVIDE BY ZERO 
MEMORY PARJTYX 
INVALID ADDRESS 
STACK OVERFLOW 
CQMMUNjCATEX 

PROGRAM RELEASE 
CONTINUITY BIT 
PRESENCE BIT 
FLAG BIT 
INVALID INDEX 
EXP UNDERFLOW 
EXP OVFRFLOWX 
INT OVFRFLOWX 
DIVIDE BY ZERO 



CLOc 
NOT( 
IF C 



K «- CLOcK + 64' XCLOCK * XCL0CK + 64J 
Nf WLOGGING) 
L0CK.[37i5] ■ OR 
(SECONDCTR - CP2MIXS0HSFC0NDCTR)> 4 ORX 
XCLOcK GEO WjTCHlNGHOUR THEN 
BEGIN IF PfTiO) * THENX 

IF FIRSTWAIT * NEXTWAIT THENX 

NEWIOJ* 
SECONDCTR * 3)1 
IF nsfcondRfady THENX 

BEGIN TOGLE-TOGLE AND NOT NSECONDMASKI 

INDFPENDENTRUNNERCPC.NSEC0ND),0,100)J 



46000000 


T 


0000 


to 


46000500 


T 


0018 


to 


46001000 


T 


0018 


:0 


46002000 


T 


0018 


12 


46003000 


T 


0019 


:2 


46004000 


T 


0020 


(2 


46005000 


T 


0021 


!3 


46006000 


T 


0022 


13 


46007000 


T 


0024 


10 


46008000 


T 


0025 


iO 


46009000 


T 


0026 


to 


46010000 


T 


0027 


10 


460H000 


T 


0027 


12 


46011500 


P 


0028 


12 


460H990 


T 


0029 


:2 


46012000 


P 


0029 


•2 


46012500 


P 


0030 


(2 


46012750 


T 


0031 


12 


46014000 


T 


0031 


'2 


46015000 


T 


0032 


83 


46016000 


T 


0034 





46017000 


T 


0035 





46018000 


T 


0036 


3 


46019000 


T 


0037 


3 


46020000 


T 


0038) 


3 


46021000 


T 


0039 


3 


46022000 


T 


0041 





46023000 


T 


0042 





46024000 


T 


0043 


.0 


46025000 


T 


0044 





46026000 


T 


0045 


iO 


46027000 


T 


0046 





46028000 


T 


0046: 


3 


46029000 


T 


0050 





460^0000 


T 


0051- 





46031000 


T 


0052! 


3 


46032000 


T 


00531 


3 


46033000 


T 


00541 


3 


46034000 


T 


00551 


3 


46035000 


T 


0057! 





46036000 


T 


00581 





46037000 


T 


0059 





46038000 


T 


00601 





46039000 


T 


00611 





46040000 


T 


0062 





48000000 


T 


0454! 





48000099 


T 


04561 


2 


48000500 


T 


0456) 


2 


48001000 


T 


04571 


3 


48002000 


T 


0460) 


1 


48003000 


T 


04611 


1 


48004000 


T 


04621 


2 


48005000 


T 


0463" 


3 


48006000 


T 


04641 


3 


48007000 


T 


04651 


2 


48008000 


T 


0466 


1 


48009000 


T 


04681 


1 



END 



EN[)JX 



SET OMIT a NOT(STATlSTicS) 
SFT OMIT = NOT(WORKSfT) 

IF wksfTcycleTjmf gtr o Then * workset is operational 

IF CCI.OCK-WKSFTCLOCK) GfO WKSfTCYCLETTME THEN 

IF WKSFTRUNNlNQsO THFN % WORKSET IS NOT CURRENTLY I 
HFGlN 

WKSFTCLOCK :» CLOCK} % RESET THEN WORKSET CLOCK 
INDEPENDFNTRUNNERfPf .WORKSET), 0,iOO )> 

wrSetrunning i» n 

. END) 



S 



POP 
SET 



OMIT 
OMIT 



NOT(DATACOM AND DCSPO ) 

IF (PfRRR) OR RRRMECH)#READY THEN 

IF STATUSBIT THFN 

BEGIN TOGLE«-TOGLF AND NOT STATUSMASK) 

INoePfNoENTRUNNER(P(,STATUS)»0,100)| 



if p?Mix>o Then 
if nsute=lslatf 
tf jobnum>o then 
if cpry0r[p2m!x] 
go to p2fake) 

EXTERNaLMX 

IF PlMiX 

INITJATEMX 

NTl * PRT[P1MIX»8] t% 
IF P2MjX*0 THEN GO TO COMJNIT) 
NSLATE n LSLATE ThENX 
JORNUM < THEN* 



THEN 

I NX 0)>(PRY0R[BEDt0],[3l5]],tFFJ) 



THEN GO TO NOTH I NGTODO i I 



IF 
IF 
COMINm* 
S SFT OMIT 

IF 
GOGOGOj 

S SFT OMjT 



a NOTCDATACOM ) 
NOPROCFSSTOG < THENX 

BEGIN IF PRTfPlMlX»0] # WORDOFEASE THEN 
BEGIN Pf64,STS)l 
a N0T(NF«L0G6ING) 

GO TO STACK0VEHFL0W1 
END) v 

PnNl))8 

IF PRTROW[PlMjX].[pSF] NpO THEN 
BEGIN PrNTl »STS,0,STF)1 
S SET OM?T a NOT(BREAKOUT) 

IF NoTERMSfT(PlMlX) 

Then stopmcTrue) 

ELSE IF NOT TeRMgO JNG(P 1M I X > THEN 

TFRMINALMESSAGE(PRTR0W[P1MIXJ,[FFJ)I 

ENDI 

SFCONDCTR * Otl 

if softj>o then 

if JARtPiMfX,23, r 5)iJ then % poss, software 

IF CTSKA * PRTtPlMlX»TSX]),PBlT THEN 
IF TSKA[d].rH3]«2 THEN 





48010000 


T 


0469)2 

48008000 
48003000 




48010004 


T 


0469)2 




48010070 


T 


0469)2 




48010072 


T 


0469)2 




48010074 


T 


0470)2 


NfNG 


48010076 


T 


047213 




48010078 


T 


047413 




48010080 


T 


0475)1 




480i0082 


T 


047612 




48010084 


T 


047713 




48O1OO86 


T 


0480)1 

46010078 




48010088 


T 


048011 




48010099 


T 


0480)1 




48012000 


T 


0480)1 




48012500 


T 


048l«2 




48013000 


T 


048213 




48014000 


T 


0484)3 




48015000 


T 


0486)0 

48013000 




46015100 


T 


0486)0 




48015200 


T 


0486)3 




48015300 


T 


0488)0 


J) then 


48015400 


T 


0489)1 




48015500 


T 


0492)3 




48016000 


T 


0493)1 




48017000 


T 


0494)0 




48018000 


T 


0495)1 




48019000 


T 


0496)0 




48019500 


T 


0497)2 




480?0000 


T 


0498)3 




480?1000 


T 


0499)2 




48022000 


T 


0500)3 




48022099 


T 


0501)1 




48023000 


T 


0501)1 




48024000 


T 


0502)0 




48025000 


T 


0504)0 




48025099 


T 


0505)1 




48025200 


T 


0505)1 




48025300 


T 


0505)3 

48025000 




48026000 


T 


0505)3 




48027000 


T 


0506)0 




48028000 


T 


050712 


J5139- 


4B0?8090 


C 


050912 




48029000 


T 


0509)2 




46030000 


T 


0509)2 




48031000 


T 


0512«0 


FJ)I 


48031100 


T 


0514)1 




48031200 


T 


0516)1 

48028000 




48032000 


T 


0516)1 




46032100 


T 


0517)0 


INTERRUPTS 


48032150 


T 


0517)3 




48032200 


T 


0519)3 




48032250 


T 


0522«1 



BEGIN 



|F MOT PRTtPlMlX, I NTRPTX J , P9 I T THEN 
BEGIN 

PCNTl»STStO»STF)J 

MAKEPRESENT(tPRT[PlMIX»INTRPTX]]INX 
NTl ♦ PRT[PlMlX»8]J 
ENOJ 



0)) 



% 



oun incw 

% ICW 



END 



P(NT1#STS»NFLAG(NT1)» 

FLAGfO&PRTR0W[PlMiX) [6l33l9j 

&1 U7l47ll)),SSN» 
FLAGf04PRT[PlMlX»lNTRPTX][CTc] X|RCW 
«(NTl INX DtCTrJ)»SSN)IXF-REG«*>OLD INCW 
Ptfl INX PRTtPiMIX,TSX]»DUP»LOD»NTl,CFX» 

XCH»4-)I 
PRTtPlMIX.6] «• NTl ♦ -FLAG(NT1 INX 3)IXINCW 
ELSf TSKAt83 * PCOUP»LOD»SSP)l 



S SET OMTT c NOT(NFWLOGGING) 

IF P2MIX * THFN P(NT1»IP1)»« 

IF NSLATE«LSLATF THEN* 
IF JOBNUM < ThEN P(NT1,IP1>|X 
P(NTi, |P2)IX 

P2MIX «■ P1MIXJX 
GO TO NOTHINGTODOJ* 

end;* 



P(IND»* 

Pf NTl»5TStOfSTF)J* 
SLEEPCtNOPROCESSTOGl* 
NTl * PRTtPlMlX»8];X 
GO GOGOGO;* 
NOTH!N f ,TOnOJ »Pl Ml x ♦ Ol* 



'0)1% 



t SFT OMiT 
$ SFT OM T T 



NOT(STATlSTjcS) 
Pi I N t )!! 

NOTCDATACOM ) 

IF NSLATE * LSLATF THFNS 
IF STACKUSE THEN* 

BEGIN TOGLF'sTOGLE AND NOT STACKMASKJ 

?! MOVF INTO ISTACK 

P(TSTaCK»STS»SeCONDCTR»«0,STF)I 

nslatfi b nslate+2 and slatenoi 

% if "run" then no stack necessary 

IF (NT<M«SUTE[NSl,ATE+n>,rFF] NEO 

BEGIN 

PfGETSPACE(NT4,[FF]»l?»NT4 L$S 
STACKUSE«*TRUE* 

END? 



THEN 
0)*i,STS)> 



P(MKS.NT4lBSLATEtNSLATE*13iDlB 

SLATErNSLATE3#C0C)l 
GO TO NOTHINGTODO;* 



0»LODi 



FNDJI 

P( 64tSTS)IX 

TF TOGLE THEN GO 

FOR NTl * STEP 



48032300 
48032400 
48032500 
48032600 
48032700 
48032800 
48032900 

48032910 
48032920 
48032925 
48032930 
48032935 
48032940 
48032945 
48032950 
48032960 

48032979 
48033000 
48034000 
48035000 
48036000 
48037000 
48038000 
48039000 

48040000 
48041000 
48042000 
48043000 
48044000 
48045000 
48045899 
48046000 
48046099 
48047000 
48048000 
48049000 
48050000 
48051000 
48052000 
48053000 
48054000 
48054200 
48054400 
48054600 
48054800 



T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 

T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



TO PROCSWITJ COMMENT 
2 UNTIL JOBNUM DOX 



TEST HP2T0GJ 



48055000 T 

48055200 T 

48056000 T 

48057000 T 

48058000 T 

48059000 T 

48060000 T 



0524 
0524 
0526 
0527 
0528 
0530 
0532 

0532 
0533 
0534 
0536 
0537 
0539 
0541 
0542 
0545 

0547 
0547 
0549 
0550 
0552 
0553 
0553 
0554 

0554 
0554 
0556 
0557 
0559 
0559 
0560 
0560 
0561 
0561 
0561 
0563 
0565 
0565 
0567 
0569 
0569 
0572 
0572 
0576 
0577 

0577 
0580 
0580 
0581 

0581 
0582 
0583 



1 
3 
2 

2 

1 



8032500 



1 


1 
2 

1 
3 

1 
2 

8032300 

3 

3 

2 

1 

2 



3 

1 

8024000 

1 

2 



3 

1 

3 

3 

3 





3 







1 

2 

2 

1 

3 



3 

8054200 

3 



3 

1 

8049000 

1 







BEGIN Pf INT )>X 

NT? * BFD[NT1]JX 

IF P(NT3 ♦ BEDtNTl + i],TOP»XCHtDEUNOT) 
BEGIN P1MIX * rNT23,MlXF*X 
P(rNT?3.rFFJ+l»STS)? % SfT S REGISTER ABOVE LOGGING FLAG. 

NT3 ♦ NT3JX 
PlMjx ♦ 01% 
P( 64#STSm 

fNdj* 
if n0tcnt2 and nt3) * not then* 

BEGIN P1MIX *■ [NT?3.MIXF)I 
IF JOBNUM * NTl THENX 
STREAM(N*jOBNUM»NTltA*CBEDCNTi+?]],X 

B+cBEDrNTnm* 

BEGIN SI*AI OS * N WDS 

JOBNUM * J0BNUM-2JI 
SfCONDCTR * OIX 
PRYOR[PlMiX3,tFF]* 0* 
P(rNT21»STF); 



S SET OMIT = NOT(MFWLOGGING) 



STARTLOG(PlMlX)* 
P(X|T)J 

fn d jx 



end;* 



£ SFT OMfT = NOT(STATISTKS) 

DO DO P(IN!) UNTIL (P(RRR) 

UNTIL STATUSBIT»X 
TOGLF*TOGLE AND NOT STATUSMaSK* 
INDEPFNDENTRUNNFRfP( . STATUS) , 0, i 00) * 
GO To NOTHINGTOOOJ* 

TOGLE»TqGLE OR HP2MASK; 
NOT(NEWLOGGING) 

P(HP2,INI);« 
NOT(NEWLOGGING) 

P(16); 



OR RRRMECH)« J READYX 



P2FAKEI 

t SET OMJT 



S SFT OMIT 
PROCSWfT: 

P2PR0CFSS* »* 

IF P(PlMlX.P2MjX, ,P1M!X»»».P2MIX,STN) 

RFGIN 
S SFT OMjT * NOT(NEWLOGGING) 

P(PRTtP2MiX,8],?P?)? 

FMDJ 

TOGLE-TOGLF AND NOT hP2MASk; 
PlPROCrSSt IX 

P(PRTCPtMiX,8],STS»0,STF)i* 
$ SET OMfT ■ NOT(NEWLOGGING) 

f,0 TO P(0NE0H0NE)JX 

go to mfmoryparity; 

P(NOP,NOP)j 

go to normalerror; 
shortcommunicate; 
progRamrelfasej 
contiNijitybit; 



* THEN* 



% 


0% 


% 


2% 


% 


4X 


% 


6% 


% 


B 


% 


10 





48061000 


T 


058410 




48062000 


T 


0584M 


THEN?! 


48063000 


T 


0585*1 




48064000 


T 


058713 


551.53- 


48065000 


P 


058912 




48066000 


T 


059JI2 




48067000 


T 


0592*1 




48068000 


T 


059310 




48069000 


T 


0593»3 

48064000 




48070000 


T 


0593*3 




48071000 


T 


0595*2 




48074000 


T 


0597U 


1 + 2H.X 


48075000 


T 


0598*0 




48076000 


T 


060012 


NOIX 


48077000 


T 


060111 

48077000 




48078000 


T 


0602U 




48079000 


T 


06Q3J2 




48079100 


T 


0604*1 




48080000 


T 


0606*1 




48080099 


T 


060710 




48080200 


T 


0607*0 




48080300 


T 


060912 




48081000 


T 


060913 

48071000 




48082000 


T 


0609:3 

48061000 




48082999 


T 


0612*0 




48084000 


T 


0612:0 




48084100 


T 


0613IQ 




48084200 


T 


061511 




48084300 


T 


0616 » 3 




48084400 


T 


0618J0 




48085000 


T 


0618<2 




48085099 


T 


061913 




48086000 


T 


0619;3 




48086099 


T 


0620*1 




48087000 


T 


0620:1 




48095000 


T 


0620J2 




48096000 


T 


062110 




48097000 


T 


062310 




48097099 


T 


0623*2 




48097200 


T 


06?3«2 




48097300 


T 


062413 

48097000 




48098000 


T 


0624*3 




48099000 


T 


062611 




48100000 


T 


0627*0 


*550- 


48100499 


C 


062911 




48101000 


T 


062911 


XWF 


48102000 


T 


0629*3 


SWF 


48102100 


T 


0630*1 




48103000 


T 


0630*3 




48104000 


T 


0631*1 




48105000 


T 


0631*3 




48106000 


T 


0632*1 



RfTURNs 



INT 



iohus 

S SET 



P?BUS 
* SET 



S SET 

iNQUES 
t SET 
S SETT 
t SET 

X USE 

S POP 



YH 

OMjT 
NT J 
UNI 
STA 
GO 
Yl • 

OMIT 
SAV 
P1M 
P2M 
OLD 

GO 
OMIT 

T«: 

OMlT 
OMIT 
OMJT 
ArTljAl, 
1 NO 
OMIT 



FRPtjPT(ONFOnTWO); P(NOP)J % 12 

to initiate; % 16 

rP«FSENTf ANALYSIS) J ?! 18 
NT!*PRTrPlMlXf8] J 

go to comjNjt; 

a NOTCNeMLOgGINg) 

* UNlTf NT2*CHANN r L[0]]j 
T[NT23 «• NTl&Or 1 3:5; 5] >% 
RTl0(NT2)5X 

to fxtfRnal;* 

= not(newlogging) 
fmix(Pimix); 
ix «• pzmix;x 

IX * -1 1% 

idlftimf * oldiolftime-clock-p(rtr)ix 
to fxtfRNaljx 

* not(sharedisk) 

* not(nfhlogging) 

s NOT DATACOM 

* DATACOM 

I0ERR STACK TO SPOUT "DAT ACOM/ I NQU 1 RY INTERRUPT 

EPFNDENTRUNNER(P(^.ACTUALlOERR)»0,lOO); 



IGNORED" 



KFYBOARDRFO 
* SET OMlT 
$ SET OMlT 
IF 

TND 
GO 

MEMORYPARIT 
TER 
TFR 

NORMALFRROR 



GO T 
UEST 
a NO 
= N0 
(KEY 
FPEN 
TO E 
Y: ix 
MINA 
MINA 

; ix 

IF 



o external;* 

MX 

t(nfwlogging) 

t debugging 

boardcounter * keyboarocounter+d 

DENTRUNNER(P(.KfY IN). 1,160)1 

xternal;* 

TE(P1MIX);x 
LMESSAGE(32);x 



* i THEN! 



Pi MIX » THFNX 

BEGIN P(*100,STS);X 
PUNT(53; 

end;x 



* INVALID ADDRESS 



if oneOhtwObi then 

BEGIN P(NF0[(NTl*-(PlMlX-l)xNDX)*2]»STS)J 
PRTCPlMiX»i5l*MtPRTtPlMIX.833l 
PRTtPlMiX.8 3*-[PRT[PlMlX#i53]l 
PRTCPlMiX»33*NFOtNTl3; 
PRT[P1MIX»43*NF0[NT1+13; 

END* 

P(ONfohtwo); 

IF PCDUP#DUP)-9 OR P(XCH)"11 THEN 
ERR0RfIXERC(ONEOHTW0«9)*1)I 
TFRMINATE(P1MJX)J 
NT1 » Pi 

TERMlMALMESSAf,F(NTl); 
DTFFCOMt 5NT4*Pi 





48107000 


T 


0632*3 




48108000 


T 


0633*3 




48109000 


T 


0634:1 




48110000 


T 


063551 




48H1000 


T 


063752 




48H7000 


T 


0638(0 




48U7099 


T 


0638:0 




48H7200 


T 


063810 




48H8000 


T 


0639:3 




481 19000 


T 


064210 




48120000 


T 


0642*3 




48121000 


T 


064351 




48121099 


T 


0643*1 




48121200 


T 


0643J1 




48122000 


T 


064453 




48123000 


T 


064552 




48124000 


T 


064652 




48125000 


T 


06485 1 




48125099 


T 


064853 




48125500 


T 


064853 




48)25509 


T 


064853 




48125540 


T 


064853 




48126400 


T 


064853 




48126429 


T 


064853 




48126430 


T 


064950 




48126431 


T 


065051 




48127000 


T 


0650»1 




48128000 


T 


06505 3 




48128099 


T 


0651J0 




481?8500 


T 


065150 




48131000 


T 


0651 10 




48132000 


T 


0652<3 




48133000 


T 


065452 


XWF 


48134000 


T 


065550 


XWF 


48135000 


T 


065550 


XWF 


48136000 


T 


0655 5 3 




48137000 


T 


065652 




48138000 


T 


065750 




48139000 


T 


065753 




48140000 


T 


065950 




48141000 


T 


065953 

48139000 




48141100 


T 


065953 




48141200 


T 


066052 




48141300 


T 


066450 




48141400 


T 


066711 




48141500 


T 


067050 




48141600 


T 


067250 




48141700 


T 


067412 

48141200 




48142000 


T 


067452 




48142100 


T 


067413 




48142200 


T 


067613 




48142500 


T 


067950 




48143000 


T 


067953 




48143500 


T 


068051 




48144000 


T 


068150 



FNn.* 



Pf 0»STF»PRTrPlMlX,8] l STS#MKS»NT4,D!B »LOD » XCH »COC ) ; 

go to initiatt; 



48145000 
48146000 
48161000 



NUMBER OF ACCIDFNTaL ENtRIFS * 044 45135?30 

NUMBER OF TRRORS DFTECTfD * 000. COMPILATION TlME s> 1?84 SFCONDS, 

PRT SfZF«45a BASF ADDRESS-0686 cORf ReQ«2490 DISK RfQ»34740 



T 0661«2 
T 068511 
T 0685*3 

00003000 
SIZE* 0686 WORDS 



LABEL OOOOOOOOOLlNF 00177244? EXECUTE ESPOL/DISK 



ESPOL /DISK 



? EXECUTE FSP0L/D1SK 



PACKFT 
INPUT 
TIME 
DATE 



13 

2313 

1159 

77?4/J 



cards from 7|p 
Thursday, 09/01/77 



*** BURROUGHS B5700 DCMCP MARK XVl.O.iTB AND INTRI NSlcS MARK XVI, 0.13? *** 
*N0 MESSAGES TODAY 



11 


1591 


11 


!59« 


11 


1591 


11 


1591 


1 1 


I59» 


11 


I59» 


11 


159* 


11 


1591 


11 


159 * 


11 


I59« 


1 1 


159: 


11 


1591 


11 


1591 


12 


1001 


12 


100? 


12 


OOJ 


12 


1001 


12 


1 191 


12 


1 1?» 


12 


l?1 » 


12 


l?U 


12 


'?1» 


12 


1211 


12 


I2U 


12 


>2ll 


12) 


121 I 


12 


2lJ 


121 


?U 


12 


1211 


12 


>2?t 


121 


24» 


121 


1251 


121 


t?5« 


12 


1251 


12 


I3?l 


12 


1341 


12 


I34J 


1 21 


I39J 


12 


391 


12 


1391 



154 
«54 
154 
t54 
»55 
155 
«55 
»55 
157 
157 
:58 
>59 
159 
102 
104 
107 
• 13 
151 
»5l 

Ml 
M9 
119 
120 
120 
120 
120 

J21 
138 
159 
103 
105 
157 
»57 
158 
14? 
157 
»57 
J57 
157 
158 



? 

? 
? 
? 

DATA 



EXECUTE ESPOl/DfSK 
? STACKs 1000 

FILF LINE* LINE BACK UP TAPE 
FILF TAPFs SYMBOL/MCP DISK SrRlAL 
FILE DISK* MCPA/OISk 
FILF STUFFs DCMCP/STUFF 
CARD 
5«ESP0L/DlSKs 1 BOJ 1159 0ft/??/77 
OKA OUT SER CODE S 1 Tf ! FSPOL./D I SK« 

CHB IN card:espol/disk s 1 

OKA IN SER SYMBOL MCP » ESPOL/D I SK* 

NFIfJ PBT ON MTB 

MTB OUT 1006 L I Ne I ESPOL/D ISK* 1 

nKA OUT SfR DSK2 S I If t eSPOL/D I SKb 1 

DKA OUT SFH DSK1 S I Tf * FSPOL/D I SK« l 

DKA OUT Sf^ DCMCP STUFF ' ESPOL/D I SKs 1 

DKA OUT SFR COQISk S t Tf » ESpOUU I SKe 1 

+OPERATOR KEYED I N I 1TI 
TiMF FOR ESPOL/DISK* 1 jSt CP* ll«59» 

#DUP LIBRARY DCMCP/STUFF > ESpOL DISK* 1 

♦ OPERATOR KEYED I N t 1RM 
DCMCP/STUFF REMOVED 
DKA LOK DCMCP STUFF «FSPOL/D I SK« 1 
CDB REL CARDiESPOL/DlSK" 1 



? END. 



1 



1 



DKA REL SYMBOL McP l ESPOL/Dl SK» 1 

MTB LOK LiNEIESPOL/DlSK* 1 

OKA OUT SFR MCPA I SK « ESPOL/D I SK« 1 

DKA LOK MrPA DISK«ESP0L/DISK= 1 

OKA OUT SfR DSRTl S ITE t ESPOL/Dl SK» 1 

DKA OUT SER DSRT2 S I TE t ESPOL/D I SK« 1 

DKA REL DSRTl SI Te » ESPOL/Dl SK« 1 

DKA REL DSRT? S I Te : ESPOL/Dl SK« 1 

DKA OUT SER DSRTl SI TE J ESPOL/D I SK* 1 

DKA OUT SER DSRT2 S I TE J ESPOL/D I SKs 1 

NEW PBT ON MTA 

MTA OUT 107 LINEIESPOL/DISK* t 

DKA REL DSRTl S I Te » ESPOL/Dl SK* 1 

DKA REL DSRT2 S I Te * ESPOL/Dl SK* 1 

DKA REL C0D1SK S I TE « FSPOL/O I SK« 1 



10* 3t49 IN 12157 



1 21 39156 
12139159 

12139159 
1 21 401 00 
12U0I00 
12140101 
12140*02 



OKA RFL DSK? SjTEJE SpOL/DlSK* 
OKA REl, 0SK1 SiTEitSpOL/DlSK- 
MTA RFL LIKT«ESPOL/DtSK« 1 
OKA REL CODF S J TE ! F SpOlV D I SK« 
ESPOL/OlSKs 1 EOJ 1239 
FOR ESPOl/DISK* U PROCESS* 
PKT*00l3 REMOVED 



?lll SECS» IOa 841 SECS» OlAY« 20 



\: 



RURROUr.HS R-5700 FJSPftL cOmPILfR MARK XVl, 0,116 THURSDAY, 09/01/77, 12134 PM, 



-.< 



MCPA /DISK 

(CEiECstltSCsss 

source: file: symbol /mcp 

— STREAM LABFL — DFfLARrn AT 06109400 

— STREAM UBFL « DFrLARFn AT 07257400 

— STREAM LABFL — DFfLARED AT 08275500 
•- STREAM LABFt. — DFrLARFn AT 08437200 
-• STREAM LABFL — DFrLARFn AT 14383000 
«•- STREAM LABFL -- DFrLARFn AT 19768800 
•• STREAM LABFL — DFrLARFn AT ?i?069lOG 
•• STREAM LABFL — DFrLARFn AT 28440800 
-- STRFAM LABFL -- DFCLARFn AT 38151000 

A — real -- value parameter -- declared at 00316000 

A " INTEGER -- VALUE PARaMfTER -- DFCLaRFD AT 01)379000 

a "- Real -• VaIuf paRa m ftfR -- decided at 00379100 

00379200 
A »- REAL -• VALUF PARAMfTER -- DECLARED AT 00379700 

00379600 
A -- REAL "- VALUE PARAMFTFR -- DECLARED AT 00389000 
A — ■ RFAL ■- VALUF PARAMfTER -- DECLARED Al 00389100 

00389200 
A -- REAL -- VALUE PARAMFlER -- DECLARED AT 00390200 

00390000 00390100 
A "- REAL — VALUF PARAMETER — DECLARED AT 00427000 
A -- REAL •- VALUE PARAMFTFR -- DECLARED AT 00429000 

004?8000 
A -- REAL ARRAY -- VALUE PARAMFTFR — DECLARED AT 00431O00 
A — REAL •• VALUE PARAMrrFR -- DECLARED Al 00463300 
A " STREAM VARIABLE — DFCLARFD AT 00652000 

00653600 00653800 00651000 
A -- REAL ARRAY — VALUF PARAMETER " DFCLARFD AT 02047000 

02049000 
A — REAL — VALUE PARAMETER -- DECLARED AT 02052800 

02052700 
A *" REAl "" VALUE PARAMETER -- DECLARED AT 02178500 
A " STREAM VARIABLE -- DFCLARFD AT 02181000 
A •- REAL — VALUF PARAMETER -- DECLARED AT 02187300 

02187100 02187200 
A •• PEAL "* DFCLARFD AT 02190000 

*02?06000* 02223000 02254000 *02255000* 02281000 0?287240 02295000 02317000 
A — STREAM VARIABLE — DECLARED AT 02223000 

♦02228000* 02?29000 02215000 +02237000* 02240000 *02244000# 02244500 *02245000**0225 1 01 0* 02251030 *0225l05o* 

02251070 *0225t090* 02251HO + 0225n5o* 02252000 

A *• STREAM VARlABLF -- DFCLARFn AT 02255000 

02255100 
A — STRfaM VARURl'E "" DFCLaRFD AT 02281000 

02282000 
A <•» STREAM VARIABLE — DECLARED AT 02295000 

02297010 02297100 *02?973OO* 



A -- STREAM VARIABLE *" DECLARFD AT 02350000 
02353500 

A -- REAL -- VALUF PARAMETER -- DECLARED AT 02379000 

A « STREAM VARIABLE -- DECLARFD AT 02385000 

02386000 
A — STREAM VARIABLE — DECLARED AT 02434270 

02434280 
A •• STREAM VARIABLE -- DECLARED AT 02434424 

02434426 
A »• REAL -- NAMF PaRAMFTER -- DECLARED AT 02604000 

02603000 02606000 
A *- STREAM VARIABLE — DECLARED AT 02606000 

02607000 *02631000* 
A -•» STREAM VARIABLE — DECLARED AT 02664000 

02664100 
A « STREAM VARIABLE — DECLARED AT 04004170 
A -- STREAM VARIABLE -- DFCLARFD AT 04083000 

04084000 
A -" STREAM VARIABLE — DECLARFD AT 04088000 

04089000 
A — STREAM VARIABLE — DECLARFD AT 04213000 

*04?16000* 
A " STREAM VARIABLE — DECLARFD AT 04271800 
A •• STREAM VARIABLE "»- DECLARFD AT 04325800 

04330200 04331200 04331600 
A •- STREAM VARIABLE « DECLARED AT 04359400 

04360000 

a •• stream variable -- declared at 04398400 

04398800 *04399000* 04399800 *04400000* 
A •• STREAM VARIABLE — DECLARED AT 04<i0l000 

04401400 
A — STREAM VARIABLE -- DECLARED AT 04567320 

04567400 

A -- stream variable -- declared at 04567790 

04567800 
A — STREAM VARIABLE « DECLARED AT 04568550 

04568560 
A "" STREAM VARIABLE — DECLARED AT 04644000 

04645000 
A *- STREAM VARIABLE " DECLARED AT 04656i00 

04656600 04657000 
A — * STREAM VARIABLE " DECLARED AT 0465B?00 

04659800 0466JO00 
A *- STREAM VARIABLE — DECLARFD AT 04672500 

04672550 
A — STREAM VARIABLE — DECLARFD AT 04672950 

04673000 
A — STREAM VARIABLE — DECLARED AT 04675000 

04675150 
A -- STREAM VARIABLE — DECLARED AT 04683500 

04683650 
A -- STREAM VARIABLE — DECLARFD AT 04686100 

04686250 
A "• RFAL "" VaL^'F PARAMETFR — DECLARED AT 04702000 

04700000 04701000 04712000 04732000 04733000 
A "- STREAM VARIABLE •" DECLARED AT 04712000 
A •• REAL — VaU'F PARAMETER -- DECLaRFD AT 05606900 



A •» REAL ARRAY — nFCLAREO AT 05702000 

*05703000* 05705000 *057i5000* 05725000 057?9000 
A -- LABEL -" DECLARED AT 0584J650 -- OfCURS aT 05842300 

05844110 
A — REAL -*" VALUE PARAMETER — DECLARED AT 05846600 

05848900 05849000 0^8^460 05850300 QSB5O4OO 05850500 05850600 05851850 
A •" REAL — DECLARrD AT 05951000 

05951200 05 q 53i25 *05953800**0595480o**05956300**05957050* 05957250 *05957300* 05957700 05958600 05959000 

05960685 05962000 05967200 05962400 05962600 05962700 *05962900* 05963000 05968800 05969150 05970800 

05972600 05973400 05973800 05976200 05976400 05976450 05976700 05977050 05977100 #05977400* 05977600 

05978050 *05979o50* 05979320 
A " STRFftM VARUBLf — DECLARFD AT 05958600 

05958800 
A •" STREAM VARIABLE — DECLARED AT 05978050 

05978200 
A — STREAM VARIABLE " DECLARED AT 06023000 

06024000 +06026000* 
A — STREAM VARIABLE -- DECLARED AT 06037300 
A — STREAM VARIABLE — DECLARED AT 06074i00 

06074500 *06074600* 

A " STREAM VARIABLE — DECLARED AT 06077900 

06081300 06081*00 *06082400**060832()o**06083500**06083fl00* 
A ** STREAM VARIABLE -- nECLARED AT 06090000 

06090200 

a •- strpa m variable -- declared at O6098700 

06098800 

A »- STREAM VARIABLE — DECLARED AT 06115800 
A *" REAL — DECLARFD aT 06185000 

06196000 06206140 *06207000* 06212000 06234000 06254000 *06255000* 06258000 06261000 *06262000* 06263000 
*06263200**06268000* 06269000 06271000 06272000 

a •• stream variable -- declared at o&i96noo 

06197000 
A •• STREAM VARIABLE — DECLARED AT 06206l40 

06706150 *06206 175**06706 190**06206205**062062 15* 
A — STREAM VARIABLE — DECLARED AT 06234 00 

06235000 
A •• STREAM VARIABLE — DECLARED AT 06353600 

06353620 
A «•- STREAM VaRIAHLf — DECLARED AT 06360350 
A — REAL ARRAY — DECLARED AT 06406000 

0647600Q 
A "* INTEGER — DECLARFD AT 07008000 

*07lft4000* 07145000 07148000 *07165000* 07ife7000 *07l75000* 07176000 07178300 07179260 
A — STREAM VARIABLE — DECLARFD AT 07*79260 

07179290 
A — STREAM VARIABLE "- DECLARED AT 07260000 

♦07761000* 
A "* REAL mm DECLARFD AT 07269000 

♦07271900* 07272000 *07?73000* 07275000 07276000 *07278000* 
A — REAL -• DECLARFD AT 07299000 

♦07313000* 07317000 0731R0J0 *07320000* 07322000 07326100 
A — STREAM VARlARl-E — DECLARED AT 07358000 

♦07365500* 
A — REAL — DECLARFD AT 07386000 

07388000 *07397000**07400500* 07401000 
A «- REAL *- DECLARED AT 07424000 

*07432000* 07435000 07436500 07438200 *0745tOOO* 



A -- STREAM VARIABLE -- DECLARED AT 0743*500 

07436610 

A — STREAM VARIABLE « DECLARED AT 07461000 

A — STREAM VARIABLE — DECLARFD AT 08009000 

oeotoooo *oboiiooo* 

A -" STREAM VARIABLE -- DECLARED Al 08034000 

08037000 
A — STREAM VARIABLE " DECLaRFO AT 08051010 

08051030 
A — STRFAM VARIABLE -- DECLARED AT 08t05700 

08105800 
A — STREAM VARIABLE — DECLARED AT 08106350 

♦08106700* 
A — STRFAM VARIABLE — DECLARED AT 08j07i00 

08107300 *08t07/j00* 

A "- STREAM VARIABLE — DECLARED AT 0bl08?50 

08108350 *08108700* 
A — STREAM VARIABLE — DECLARED AT 08109300 

08109450 *08109550* 
A •- STREAM VARIABLE — DECLARED AT 08110350 

08110850 

A — STRFAM VARIABLE -- DECLARFD AT 08H3300 

08U3450 *08113550* 
A »- REAL ARRAY -- DECLARED AT 08172500 

♦08175200* 06175300 08175400 *08176000» 08177000 *08l77l00* 08177200 08178000 08179600 *08l79800* 
A " STRFAM VARIABLE — DECLARFD AT 08179600 

08179700 
A " REAL — DECLARrD AT 08255400 

*08?59225* 06259?50 082594?5 06259450 08259525 *08268500* 08268600 08269100 *08272000* 08273250 08276220 
08276260 06276410 

a -- stream variable — declared at o8276?6o 

•08276310* 

A " STREAM VARIABLE — DECLARED AT 08276410 



BURROUGHS B-5700 ESPOL cOMPUfR MARK XVI.O.H6 THURSDAY, OQ/01/77. 12134 PM. 



MCPA /DISK 

SSsJCS3g«8!*g- 



SOUrtCF FILE: SYMBOL /MCP 



STREAM LABFL — DECLARED AT 06109400 
STREAM LABfL " DFCUARED AT 07257400 
STREAM LABEL — DFCLARED AT 08275500 
STREAM LABFL — DECLARED AT 08437200 
STREAM LARFL — DECLARED AT 14383000 
STREAM LABEL -- DECLARED AT 19768800 
STREAM LABEL — DECLARED AT 220{>9io0 
STREAM LABEL — DECLARED AT 28440800 
STREAM LABEL -- DFCLARED AT 38151000 
A — REAL — VALUE PARAMETER -- DECLARED AT 00316000 
A -- INTEGER -" VALUE PARAMFTER -- DECLARED AT 00379000 
A — REAL — VALUE PARAMETER -- DECLARED AT 00379100 

00379200 
A — REAL •- VALUE PARAMETER -• DECLARED AT 00379700 

00379600 
A -- REAL •- VALUE PARAMETER -- DECLARED AT 00389000 
A •- REAL — VaLUf PARAMETER -- DECLARED AT 00389100 

00389200 
A -- REAL — VALUE PARAMETER -- DECLARED AT 00390200 

00390000 00390^00 
A -• REAL — VALUE PARAMFTER -- DECLARED AT 00427000 
A • - REAL « VALUE PARAMETER -- DECLARED AT 00429000 

00498000 
A •- REAL ARRAY — VALUE PARAMETER — DFCLARED AT 00431000 
A — REAL — VALUf PARaMfTFR -- DECLARED AT 00463300 
A -• STREAM VARIABLE " DE^LARFD AT 00652000 

00653600 00653800 006&4000 
A -- REAL ARRAY — VALUE PARAMETER — DFCLARED AT 02047000 

020^9000 
A — REAL •- VALUE PARAMETER -- DECLARED AT 0?052800 

02052700 
A •- REAL •- VALUE PARAMETER -- DECLARED AT 0?178500 
A — STREAM VARIABLE -- DECLARED AT 02181000 
A " REAL ■"• VALUE PARAMFTER -- DECLARED AT 0?187300 

02187100 0?187?00 
A •- REAL •- DECLARED AT 02190000 

♦02206000* 0?223000 02254000 #02255000* 02281000 02287240 022*5000 02317000 
A ** STREAM VARIABLE — DECLARFD AT 02223000 

*022?8000* 02229000 02235000 *02237000* 02240000 *02244000* 02244500 *02245000**0225 10 10* 02251030 *0225t050* 
02251070 *02251090* 02251110 *0225n50* 02252000 
A — STREAM VARlABLF " DECLARED AT 02255000 

Q2255100 
A — STREAM VARIABLE " DECLARED AT 02281000 

02282000 
A — STREAM VARIABLE -- DECLARFD AT 02295000 
02297010 0?297i00 *02297300* 



a -- stream variable 

02353500 
A — REAL — VALUF 
A -- STRFAM VARIABLf 

02386000 
A -- STREAM VARIABLE 

02434280 
A — STRFAM VARIABLE 

02434426 
A -- REAL -- NAME 

02603000 0260 
A — STREAM VARIABLE 

02607000 *0263 
A — STRfaM variable 

02664100 
A — STREAM VARIABLE 
A -- STRfaM VARIABLE 

04084000 
A -- STRFAM VARIABLE 

040fl9000 
A -- STREAM VARIABLE 

*04?16000* 
A — STRFAM VARIABLE 
A -• STREAM VARIABLE 

04330200 0433 
A — STRFAM VARIABLE 

04360000 
A — STRfAM VARiABLf 

04398800 *0439 
A — STREAM VARIABLE 

04401400 
A — STREAM VARIABLE 

04567400 
A — STRfaM VaRIARLe 

04567800 
A — STREAM VARIABLE 

04568560 
A -- STREAM VARIABLE 

04645000 

A -• STREAM VARIABLE 

04656600 O465 
A -- STREAM VARIABLE 

04659800 0466 
A — STREAM VARIABLE 

04672550 
A "- STREAM VARIABLE 

04673000 
A — STRFAM variable 

04675150 
A « STREAM VARIABLE 

04683650 
A -- STREAM VARIABLE 

04686250 
A -- REAL -- VALUE 

04700000 0470 
A — STREAM VARIABLE 
A •» REAL " VALUF 



DECLARFn AT 02350000 



PARAMETER -- 

-- DECLARFO 

-- DECLARED 

— DECLARED 

PARAMETER -- 
6000 

— DECLARED 

1000+ 

-- DECLARED 

-- DECLARED 

-- DECLARFO 

-- DECLARED 

-- DECLARED 

" DECLARED 

— DECLARED 
1200 04331600 

-- DECLARED 

-- DECLARED 

9000* 04399800 

-- declared 

« declared 

— declared 

— declared 
-- declarfo 
-- declarfd 



DECLARED AT 02379000 
AT 02385000 

AT 02434?70 

AT 02434424 

DECLARED AT 02*04000 

AT 02606000 

AT 02664000 



7000 



1000 



DECLARED 



-- DECLARED 

-- DECLARED 

DECLARED 

— DECLARED 

-- DECLARED 

PARAMETER — 

1000 04712000 

" DECLARED 

PARAMETER -- 



/ST 04004170 
AT 04083000 

AT 04088000 
AT 0421.3000 

AT 04271800 
AT 04325800 

AT 04359400 

AT O43984OO 
♦04400000* 
AT 04401000 

AT 04567320 

AT 04567790 

AT O456855O 

A T 04644000 

AT 04656i00 

AT O46585OO 

AT 04672500 

AT 04672950 

AT 04675000 

AT 04683500 

AT O46861OO 

DECLARED AT 04702000 
04732000 04733000 
AT 04712000 
DECLARED AT 05606900 



A — REAL, ARRAY — nFCLAHFD AT 05702000 

♦05703000* 05705000 *057i5000* 05725000 05729000 
A -" LABFL -- DFCLARFD *T 05841650 -- OCCURS aT 05842300 
058441 10 

A « REAL — VALUE PARAMETER -- DECLARED AT 0S846600 

05848900 05849000 058^9460 O585O3OO O585O4OO O585O5OO 05850600 05851850 
A -• REAL -- DECLARfD AT 05951000 

0595J200 05953125 *05953800**05954800**05956300*+05957050+ 0595^250 +05957300+ 05957700 O59586OO O5959OOO 

05960685 05962000 05^62200 05962400 05962600 05962700 *05962900* 05963000 05968800 05969150 05970800 

05972600 05973400 05973800 05976200 05976400 05976450 05976700 05977050 05977100 +05977400* 05977600 

05978050 *05979050* 05979320 
A — STRfaM VARIABLF — DFCLARFD AT 05958600 

05958800 
A — STREAM VARIABLF -- DECLARFD AT 05978050 

05978200 
A <■- STRFAM VARIABLE -- DECLARED AT 06023000 

060?4000 *06026000* 
A -» STREAM VARIABLE — DECLARED AT 06037300 
A -» STREAM VARIABLE — DECLARED AT 06074i00 

06074500 +06074600* 
A « STREAM VARIABLE -- DECLARED AT 06077900 

06081300 O6O814OO +06082400**06083200**06083500**06083800* 
A mm STREAM VARIABLE " DECLARFD AT 06090QOO 

06090200 
A — STRFAM VARIABLF — DECLARED AT 06098700 

06098800 
A -- STREAM VARIABLE -• DECLARED AT 06U5800 
A -- REAL -- DECLARfD AT 061.85000 

06196000 06206i40 +06207000* 06212000 06234000 06254000 +06255000* 06258000 06261000 +06262000* 06263000 
•06263200**06268000* 06269000 06271000 06272000 
A — STREAM VARIABLE — DECLARFD AT 06196000 

06197000 
A -- STREAM VARIABLE — DECLARFD AT 06206140 

06 206150 *06 206 1 7 5+ * 0620 6 190** 06206205** 0620 62 t 5* 
A -- STREAM VARIARLE — DECLARED AT 06234000 

06235000 

A — STREAM VaRUBLf -- DECLARFD AT 06353600 
06353620 

A — STREAM VARIABLE « DECLARED AT O638O350 
A -- REAL ARRAY — DECLARED AT 06406000 

064^6000 
A — INTEGER -- DECLARED AT 07008000 

*07i44000* 07145000 07148000 *07l65000* 07167000 +07175000* 07i76000 07178300 07179260 
A — STREAM VARIABLE — DECLARED AT 07179260 

07179290 

A -- STREAM VARIABLE — DFCLARFD AT 07260000 

♦0726)000+ 
A •<• REAL -- DECLaRfD AT 07269000 

#07271900+ 07272000 +07273000+ 07275000 07276000 +07278000* 
A -- REAL " DECLaRfD AT 07299000 

♦ 0731.3000+ 07317000 073i80jO +07320000* 07322000 07326100 
A « STREAM VARIABLE — DECLARFD AT 07358000 

♦07365500+ 
A — REAL — DFCLaRfD AT 07386000 

07388000 +07397000++07400500* 0740i000 
A -" REAL « DFCLaRfD AT 07424000 

*07432000* 07435000 07436500 07438200 +07451000* 



A "" STRFftM VARIABLE -- DFCLARfP AT 07436500 

07416610 
A « STRfaM VARlARLF -- OFCLARfD AT 07461000 
A -- STRFAM VARIABLE -- DECLARFD AT 08009000 

O8O1OOOO *060iioOO* 
A -- STREAM VARIABLE -- DECLARFD AT 08034000 

080-»7000 
A — STREAM VARIABLE -- DECLARFD AT 06051010 

08051030 
A « STREAM VARIABLE -- DECLARFD AT O81O57OO 

08105800 
A " STREAM VARIABLE " DFCLARFD AT 08i06350 

♦08J06700* 
A — STRFAM VARIABLE -- DECLARfO AT 08l07i00 

08*07300 *08l07400+ 
A -- STREAM VARIABLE — DFCLARFD AT 08j08?50 

08108350 *08l08700* 
A — STREAM VARIABLE — DECLARED AT O81O93OO 

08109450 *08109550* 
A -■* STREAM VARIABLE -- DECLARFD AT O811O350 

08110850 
A — STREAM VARIABLE -- DECLARFD AT 0BH33O0 

08113450 *08113550* 
A -- REAL ARRAY -- PFCLARED AT 08l7?500 

*08i75200* 08175300 06175400 *08l76000* 08i77000 *08i77l00* 08i77200 08l78000 08179600 *08l79800* 
A «— STRFAM VARIABLE — DECLARED AT 08179600 

08179700 
A -- REAL -- DECLARFO AT 08?554C0 

*08?59??5* 08j>59 ? 50 082594?5 08259450 08259525 *08268500* 08?68600 08269i00 ,08272000* 08273250 08276220 

08276260 08276410 
A •- STREAM VARIABLE — DECLARED AT 08276260 

♦08276310* 
A — STREAM VARURLE — DECLARFD AT 08276410 

08276450 
A -- STREAM VARIABLE « DECLARFD AT 08371000 
A — STREAM VARIABLE — DECLARFD AT 08385400 
A — STREAM VARIABLE -- DECLARFD AT 08412200 
A — STREAM VARIABLE « DECLARFD AT 08424000 

08425000 
A -- REAL — VALUE PARAMFTER -- DECLARED AT 08438900 
A -- REAL -- DECLARFD AT O844OOOO 

O8444OOO *08447000* O8448O5O 

08471110 *0847li70* 08474000 
A — STREAM VARIABLE " DECLARED 

08445000 *08446000* 

a -- strea m variable -- declarfd at 084A8oso 

a " stream variable " declarfd at 08450l00 

a — stream variable -- declarfd at 0845h00 

a •- strram variable " declarfd at 06454000 

a « stream variable « declarfd at 08462000 

a -- strfam variable -- declared at 08471030 

a — stream variable •- declared at 08471 1 10 

a — stream variable -- declared at 08471000 

a — stream variable -- declared at 08478900 

a — stream variable -- declared at 08488000 

08492000 

A •" STREAM VARIABLE — DECLARFD AT 08532000 



DECLARED AT 08438900 

08450100 08451100 08454000 *08459000* O8462OOO *08470000* 08471030 *0847i080* 
♦08478700* 08478900 08488000 
AT 08444000 



A *• 

A — 

A -■ 

A -' 

A »■ 

A "' 

A -' 

A -■ 

A -■ 

A -' 

A -' 

A - 

A — 

A -• 

A •> 

A - 

A — 

A — 

A •• 

A — 
A 

A "• 

A — 

A •• 

A — 

A — 

A -• 

A — 



HFCLARFD AT 08551100 
DECLARFD AT 08556000 

- DECLARED aT 08568000 



08513000 
STRFAM VARIABLF " 
08552000 

STREAM VARIABLE - 

08559000 
REAL •- VALUE PARAMETER 

08572520 08573300 
STREAM VARIABLF -- DECLARED AT 08572520 

08572530 
REAL « DECLARrD AT 08576000 

08578000 08578100 085900QC 08597050 *08597700* 
STREAM VARIABLE — DECLARFD AT 08578t00 

08578300 
STREAM VARIABLE — OECLARfD AT 08590000 

08592000 
STREAM VARIABLE — OECLARFD AT 08597050 

08597100 *08597s00* 
REAL •- DECLARED AT 08601000 
♦08605000* 08621500 

STREAM VARIABLE -- DECLARED AT 08605000 
#086tt000**086l9500* 08620500 
STREAM VARIABLE — DECLARED AT 08659000 

08664000 
STRFAM VARIABLF « OECLARFD AT 08717000 

087?0000 
STRFAM VARIABLE "- OECLARFD AT 08887i00 

08899000 
REAL -- DECLARED AT C960t000 

09632000 09633000 09633400 09634)00 09644000 
STREAM VARIABLE — DECLARED AT 09633400 

09633500 
REAL -- DECLARfD AT 09679300 

09679900 09680<;00 09680800 0968i000 09681515 09681545 09681700 09682200 
STRtaM VARIABLf "- DECLARFD AT 09681000 

09681 100 
STRFAM VARIABLF — OECLARFD AT 09681515 

09681520 
STREAM VARIABLE -- DECLARED AT 09662200 

09682300 

real « value parameter — declared at 09700000 

09704000 09704iQ0 09704500 09706000 09706050 09706100 09707000 
STREAM VARIABLE — DECLARFD AT 12657000 

12661000 
STREAM VARIABLF « DECLARFD AT 12833000 

12834500 
STREAM VARIABLF •- DECLARFD AT 12892500 

12893000 
REAL — VALUE PARAMETER -- DECLARED AT 14342100 
REAL — DECLARfD AT 14351205 
*14356597* 14358598 14383100 
STREAM VARIAPLE -- DECLARED AT I4383l00 
♦14383500* 
STREAM VARIABLE -- DECLARED AT 14535000 

14537200 
REAL — VALUE PARAMETER — DECLARED AT 14543000 

14551500 *14559200* 14559300 14562000 14569200 14570000 14585300 14585360 14599900 14599910 14600000 

14603000 14603750 



A — 

A « 

A « 

A — 

A — 

A " 

A — 



A 

A 

A 

A 

A 
A 

A 
A 

A 

A 

A 

A 

A 

A 
A 

A 
A 
A 
A 
A 
A 



strfam VAR 

14573000 

STRFAM VAR 
NAMF -- 

1470?300 
STRp/yM LAB 
STRFAM VAR 

15114100 

STRfftM VAR 

*155?4000* 

INTEGER. " 
♦15*00950* 

♦15604100* 
REAL -<■ 

16048100 

16234000 
STREAM VAR 

16091000 
STRFAM VAR 

16142000 
STREAM VAR 

16195000 
REAL — 
♦16505100* 
STRFAM VAR 
REAL — 

16695000 

I6816OOO 
STREAM VAR 
STREAM VAR 

16781000 
STREAM VAR 

16828500 

REAL -" 

16910500 
REAL — 
*l70O2000* 

STREAM VAR 

17003500 
REAL "' 

18000000 
STREAM VAR 
REAL -- 

18155000 
♦18283000* 
STRFflM VAR 

18438140 
STRFAM VAR 

18456000 
REAL ARRAY 

18528100 
STREAM VAR 

18528300 
STREAM VAR 

18570300 
REAL ARRAY 
♦18770100* 



IAPLf "- OFCLaRfo AT 14570000 



IAPLf -' 
DFCLARrO 

EL -- n 
IABLE " 

I ABLE "- 

15525000 

- DECLAR 

♦1560J000 

OECLaRfO 
16088000 

16238000 
IABLE — 
♦16098000 

IABLE -* 
• 1M47000 

IARLE — 

ofcLaRfd 

16506000 

IABLE « 
DFCLARrO 
16696800 
I68165OO 
IABLE — 
IABLE -• 

I ABLE — 
♦16828600 

DFCLARrO 

DFCLARrO 
l700?600 

IABLE « 

n a me p*Ra 
18O13000 

IABLE — 

value par 

18156000 

18345000 

IABLE "" 



OECLARFO AT 14603750 
AT 14624500 

FCLARED AT 14702300 -• 
OECl.ARFD AT 15113800 

OECLARFO AT 15501600 



OCCURS AT 14702400 



FO AT 15600500 

* 15601150 15601200 15601400 ♦15602200**15602400* 1560?500 15602600 15602640 15602680 

AT 16048000 
♦16105000**16108000* 16109000 16139000 *!6l49000^ 16150000 16187000 *16228000* 1622*000 

DECLARFO AT 16068000 
* 

OECLARFO AT 16139000 
* 

OECLARFO AT 16187000 

AT 16349000 

16600000 

OECLARFO AT 16600000 
AT 16694500 
♦16756000* 16769000 ♦16770000* 16770500 16780500 *16807500* 1681O5OO 16814OOO *l68i5000* 

I6818OOO 16827100 l68?7900 168281OO *i6828300* 16829600 

DECLARED AT 16756000 

DECLARED AT 16780500 

OECLARFO AT 16828i00 
♦* 16828900 ♦♦168291 00 ♦♦168?9300* 
AT 16910000 

AT 17000800 

17003000 17003100 17003250 
OECLARFO AT 17003250 

METER — DFCLaRED AT 18002000 

18025000 18027000 18O315OO 18035000 

OECLARFO AT 18013000 
AMFTER « DECLARED AT 18156000 

18225000 18227500 18255000 *i8255200* 1826OOOO 18265000 *l8266000* 18273040 *l8277000* 
•18425700* 18438120 18439 125 18442000 18443000 18455000 18460000 18465000 

OECLARFO AT 18438120 



IABLE -- DECLARFO AT 18455000 
LARED AT 18502400 



— DEC 

18570000 

IABLE — 

♦1B528600 

IABLE — 

-- OEC 
18770000 



DECLARFO AT 18528l00 
* 18528900 

OECLARFD AT 18570000 

LARED AT 18701900 
*lB780600**ia7d0700**l8780800**i8780900**i8790i00**i6790200* 18790300 18790400 18790500 



A 
A 
A 

A 
A 

A 

A 

A 

A 

A 



A 

A 

A 

A 
A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



A 
A 
A 
A 



18790600 l679ift?0 *l88i0200* 18810300 l88?0?00 *]8840200* 18840500 18840700 
STRF/yM VARIARLF -- DFCLARFD AT 18790600 
STREAM VARIABLE -- DFCLARFD AT 18791620 
STRFAM VARIABLE -- DFCLARFD AT 188?0?00 

l88?0700 1882U00 
REAL ARRAY -- DECLARED AT 19520000 
STREAM VARIABLE -- DFCLARED AT 19768768 

197^8774 
STREAM VARIABLE — DECLARFD AT 19768900 
*19771000* 

REAL ARRAY -- DECLARED AT 19900270 
*l9900300**i9900395**t9900745* 19900750 *l9900805* 
REAL — DECLaRfD Al 19901500 

+ 19902190* 1990??00 *i9903670* J9903700 i99038i0 * 19903830** 19904360* i9905i00 *i9905200* 
STREAM VARIABLE - " " 

20021000 
STREAM VARIARLF - 

20031900 
STREAM VARIABLE — DECLARFD AT 20043700 

20044200 
STREAM VARIABLE -' 

20088900 
STRFAM VARIABLE - 

20106400 
STREAM VARIABLE - 

20172300 
STREAM VARIABLE «■ 
STREAM VARIABLE - 

20194600 
STREAM VARIABLE - 

20289310 

real -- Value parameter « 

20382010 2038206? 20382170 
STRFAM VARIABLf — 

20478530 
STRFAM VARIABLE •■ 

20500000 
STREAM VARIABLE - 

20511380 
STREAM VARIABLE -■ 

20511690 
REAL — DECLARfD AT 20566100 

20571700 
STREAM VARIABLE -- DECLARFD AT 20571700 

20571720 
REAL — DECLARfD AT 20581000 

20582750 
STREAM VARIABLE — DECLARFD AT 20582750 
*20582950* 



OECLARFO AT 20020800 

DECLARED AT 20030800 

DECLARFD AT 20043700 

DECLARED AT 20088700 

DECLARED AT 20105900 

DECLARFD AT ?0l 7?i 00 

DECLARFD AT 20i72800 
DFCLARFD AT 20194400 

DECLARED AT 202692*0' 

DECLARED AT 20382015 

DFCLARFD AT 20478520 

DECLARFD AT 20^98000 

DECLARED AT 20511370 

DECLARED AT 20511660 



REAL •• 
REAL « 
REAL « 
REAL — 
REAL — 

20595950 
STREAM VARIABLF 

20596000 



DECLARFD AT 20584000 

DECLARED AT 20586800 

DECLARfD AT 20589800 

DECLARFD AT 20591000 

DECLARFD AT 20595000 



DECLARED AT 20595950 



A 
A 
A 

A 



A 
A 
A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 
A 

A 

A 

A 

A 

A 

A 

A 

A 
A 



REAL 
Rf AL 
REAL 
REAL A 
*22008 

STRFAM 
*22069 
STREAM 
STREAM 
STRFftM 

22165 

STREAM 

22182 
STREAM 

22192 
STRFAM 

22417 
REAL A 
*22904 
STREAM 
*241?0 
STRFAM 

2*1 36 

STREAM 

24159 
STREAM 

280?4 
STREAM 

28056 
STRFAM 

28065 
STRFAM 

2808] 
STRFAM 

28218 
STREAM 

28255 
STREAM 
STREAM 
*28?77 
STREAM 

28298 
STREAM 

284t8 
STRFAM 

284 44 
REAL 

32000 
STRFAM 

32001 
STRFAM 

3200J 
PEAL 

36006 
STRFAM 

370.16 
STREAM 



— DFCLARfD AT 20596800 

•- DECLARfO AT 20600010 

-- DECLARFO AT 20/01500 

RRAY -- DECLARED AT 22003000 

000**2?°l3000**2?0i4000**220l8000**220?l000**2?022000* 22024500 *22027000* 22029000 22050000 

VARIABLE — DECLARED AT 22069230 
280* 

VARIABLE -" DECLARED AT 22115030 

VARIABLE -- DFCLARFD AT 22159000 

VARIABLE " DECLARFO AT 22164000 
000 22167000 

VARIABLE — DECLARED AT 22l«1000 
000 

VARIABLE — DFCLARFD AT 22191000 
000 

VARIABLE -- DECLARED AT 224J6000 
000 

RRAY -• DECLARED AT 22901000 
000* 22907C00 *22909000**229 lOOOO **229^ 2000**229 i 4000**229 \ 5000 **229 16000**229 17000* 229l8000 22921000 

VARIABLF "- DFCLARFD AT 24H6000 
000* 

VARIARLf — DFCLARFD AT 24134000 
000 24137000 *24138000* 

VARIABLE -- DECLARFO AT 24158000 
000 *24162000* 

VARIABLE - 
000 

VARIABLE - 



- DECLARED AT 28023800 
■- DECLARED AT 28056*00 
'- DECLARED AT 28065000 

— DECLARFD AT 26081600 
■- DFCLARFD AT 28218400 
■- DECLARED AT 28255200 



600 

VARIABLE 
200 

VARIABLF 
800 

VARIABLF 
600 

VARIABLE 
400 

VARIABLE -- DECLARFD AT 28?634<>0 

VARIABLE — DECLARED AT 28276600 
000* 

VARIABLE "- DECLARED AT 28297800 
200 

VARIABLE -- DECLARFD AT 28418/|00 
600 

VARIABLE « DECLARFD AT 28444200 

400 *?8445000+ 28445400 

— value parameter -- declared at 32000100 

000 32000810 32001700 

VARIABLE — DECLARFD AT 32000810 
180 

VARIABLE — DECLARFD AT 32001700 
800 

" VALUE PARAMETER -- DECLARED AT 36001000 
000 

VARIABLE — DECLARED AT 37036400 
800 

VARIABLF « DECLARFD AT 37Q46l92 



370/|62l5 
A -- REAL. — DECLARfD AT 37j80iOO 

37291320 *372213^i0* 37221400 
A -- REAL « VALUE PARAMETER — DECLARED AT 37286200 

37386000 37286100 37288000 37289000 
A -«• REAL ARRAY — DECLARED AT 37504000 

♦37508000* 37509000 * 3752 1000** 37535000** 37538000* 37542000 37543000 37545000 
A — STREAM VARIABLE — DECLARED AT 38159500 

38160500 
A -- STREAM VARIABLf -- DECLARED AT 38281000 
A — STREAM VARIABLF. « DECLARED AT 38603000 

386O4OOO 
A — REAL — value parameter -- DECLARED at 39900000 

39945000 39960000 39968000 

a -- real — ■ value parameter -- declared at 40002000 

40000000 40001000 40255000 40257030 40258000 40261300 40275300 40278150 40292212 40317800 40322600 

403?4500 40332000 40334057 40356800 
A ~- RTRFflM VARIABLF "- DFCLaRfo AT 40261300 

40261350 
A »«• STREAM VARIABLE -- DECLARED AT 402/8,50 
A -- STREAM VARIABLE -- DECLARED AT 40?9221? 

40292214 
A — STREAM VARIABLE — DECLARED AT 41320360 

41320380 
A — STREAM VARIABLE " DECLARED AT 41320600 

41320800 
A "" STREAM VARIABLE — DECLaRFD AT 41322500 

41322700 
A — STREAM VARIABLE " DECLARFD AT 41324800 

41324900 
A -• REAL — DECLARrD AT 41327500 

*4i328400**4i328600* 4j3p8700 4,328900 41330500 4i332400 41332700 4i333005 41333600 41335000 
A •- STREAM VARIABLE -- DECLARED AT 41333005 

41333015 *41333020*+41333030* 
A -- STREAM VARIABLE « DECLARED AT 41500800 

41501200 
A -- REAL -" DECLARED AT 41600300 

♦41602200* 41602400 4160250C 41602600 *41602900* 41603000 41603100 41607200 41607300 41607500 
A " REAL ARRAY — VALUE PARAMETER — DFCLARED AT 42474000 

♦42476100* 42477000 42478000 42478200 42479000 
A -- NaMf -- DFcLaRfD AT 42515000 

♦A2524200* 4?525500 4252^000 42^27000 
A -- REAL — DECLARED AT 44011000 

440,4000 +44O370OO* 441HOO0 *4420p500* 44202600 44202700 44?02800 44202900 44203150 
A «- STREAM VARIABLE — DECLARED AT 44181000 
A -- REAL -• DECLARFD AT 44206700 

44209100 44213000 44240500 44242000 44243000 44246000 44254000 44256i50 44256250 44256300 44261500 

44264500 44266500 44280000 
A — STREAM VARIABLE — DECLARED AT 44240500 

44240520 
A -• REAL — DFCLaRfD AT 45002000 

45092140 45092210 45092250 45092280 45092340 45094200 45094400 45116000 45143000 

a -- stream variable -- declaRfd at <*5092i4o 

45092150 45092,60 
A — STREAM VARIABLE — DECLARFD AT 45H6000 

45117000 
A -- STREAM VARIABLE -- DECLARED AT 48075000 



AA — 
AA — 

AA mm 

AA ••» 

AA — 

AA •• 
AAA - 

A8 — 
ABN - 
ABORT 

ABORT 
ABORT 
ABORT 
ABORT 
ABORT 
ABORT 
ABORT 
ABORT 
ABORT 

ABORT 
ABORT 

ABORT 

ABORT 

ABORT 

ARORTa 
ABORTf 

ABORTF 

ABORTE 

aborTm 
abortm 
abortm 
absevt 
absevt 



48077000 
STREAM VA 
02173160 
STRFAM Va 
02173306 

RFAt "" 
*047il000* 

REAL — 
♦40975200* 
REAl. 

44008998 
REAL — 

- REAL -• 
♦40275200* 

STREAM La 

- L, ft qEL - 
-- LA8FL 

13058000 

•- REAL 

«•• REAL 

-«■ REAL 

•» REAL 

•• REAL 

-* REAL 

-- REAL 

— REAL 
•" REAL 
#20600150* 

— REAL 
-- SUBROIJ 

280?22°0 
28086200 
-• DEFINE 
28?|6800 
28295800 

— DEFINE 
28467400 

•• SU8R0U 
28849000 
BLF -" DF 

d -- Real 

12507000 

-- REAL 

12807000 
D •- REAL 

130-S6000 
ASK — DE 

22009000 
S6 •- LAB 

12814000 
Sr "" DEF 

13083000 

— REAL 
♦14358580* 

— REAL 
19902850 
19903850 



RlABLE " DECLARED AT 02173150 

RUBLE "- DECLARED AT 02173300 
♦02173325* 02173330 

DFCLARFn AT 04704000 

04722000 04723000 *04726000* 04731000 

DECLARED AT 40005220 

4 C »317800 

VALUE PARAMETER -• DECLARED AT 44008999 

44008999 

VALUE PARAMETER « DECLARED 
DECLARED AT 40005220 

40278000 40311100 *«03U200* 
BEL — DECLARED AT 12882000 
" DECLARFD AT 14629000 

— DfCLaRFD AT 13018000 — 



AT 45000000 

40311300 

OCCURS 



AT 12884000 



20 

m m 

TyN 
? 8 

m 

28 
28 

28 

TIN 
2« 

FIN 

*12 
*1? 



DEfL 
DECL 
DECL 
OECL 
DECL 
DEcL 
DECL 
DErL 
DErL 
6OO39 
DErL 

E — 
0?8V0 
08960 

- DF 
22520 
3036D 
* DE 
4 7 280 
E — 
85220 
E — 

- nE 
56450 

- DE 
88000 

- DE 



ARED 
ARED 
APED 
ARED 
ARED 
ARED 
APF-F) 
ARED 
ARED 
*206 

ARED A 
OECL 
28O 
280 
CLAREO 
282 


CI, ARED 

284 

DEfL 

288 

DFCL 

cLaRed 

0**126 

CLARED 

0* 

Cl ARED 



occurs at 13083000 



T 20566J00 

T 20581000 

T 2O584OOO 

T 20586800 

T 20589800 

T 20591000 

T 20595000 

T 20596800 

T 20600010 

00500**20608130* 20608710 *20608750* 

T 20701500 

ARED AT 2» 
36200 ? 80 
91200 280 
AT 282076 
30400 282 



011600 

41600 2BO43OOO 28046400 28O618OO 28065600 28O68OOO 28O73OOO 28O841OO 

95600 28097200 28100200 

00 

32800 28242200 28254600 28258700 28268000 28270824 2^271000 28285400 



AT 28406800 
76200 

ARED AT 28817000 
63000 28882000 
ARED AT 00080900 

AT 12505500 
86000**12687400+ 

AT J2805500 

AT 13007000 



12694800 12741500 



FINE -- DECLARED AT 00080900 

22010000 22030000 22905000 22906000 22920000 40336100 45102000 
EL -- DECLARED AT 12813000 •- OCCURS AT 12879500 

INF — DECLARED AT 13028000 
13115000 

-- DFCLARED AT 14351210 

14358^82 *14358584* 14358586 14358588 14358590 14358605 
« DFCLARED AT 19901300 

19902860 19902900 19903200 19903500 19903600 19903650 
19903865 19905360 



19903660 19903670 j9903700 19903825 



ABSOLD " REAL -- DFCl-ARED AT 19901500 

*19902000* 19902100 *19902120* 19902130 19902140 1990?360 

ac ■• switch Label -- dfc.larfd at tesoizoo 

AC "• SWITCH LaBEL -- DECLARED AT 19518000 

ACCEPT -- LAREL «■- nrcLAREO AT 22062000 — OCfURS AT 22163000 

ACCESS — TNTFftFR — OFCLaRfD AT 38009000 

38005200 38045^00 
ACCESS -- INTEGER -- OFCLARED AT 381O29OO 
ACCESS -- INTEGER -- DFClARED AT 38?00900 
ACCESS -- REAL " OFCLARED AT 3B366010 

♦383A8000* 38389rfi00 3B3^lO]0 *3839i025**3839 1060* 38391080 *3839ll00* 38393000 38396000 38411100 38411200 

♦ 38411400**38411600* 38411700 *384H900* 
ACCFSR •- REAL -- OfCLaRFO AT 38561000 

accfss -- Real — dfclaRfd at 38658000 

ACCESS -- TNTRfiER -- DfCLARfD AT 39006000 

*39?/»7000**39?50000**39?56000* 39306000 
ACCESS — REAL — DfCLARFO AT 4lOl7000 
ACCESSO -- DEFINE « OFCLARED AT ?0228400 

20569730 ?O7i4000 
ACCESSD — DEFINE — OFCLARED AT ?8404000 

28/H7800 
ACCUM -- REAL ARRAY .- NAME PARAMETER — DECLARED AT 20314300 

20314000 20328000 20363000 *J?03681.00* 
ACCUM — STREAM VAPlApLF -- DECLARED AT 20328000 

20330000 
ACCUM -- REAL ARRAY -- NAME PARAMETER — DECLARED AT 20386100 

20384000 20397p00 204H000 20415100 204j8000 2042J000 20427000 20433000 20439000 20478520 20484300 

20498000 

- OErLARFD AT 20411000 



ACCUM 
ACCUM 

ACCUM 
ACCUM 

ACCUM 
ACCUM 

ACCUM 



•• stRfam vaRtapLf 

204|4000 

•- STREAM VARlARLF 
20498000 

-- STREAM VARIARL.E 

20434000 
'- STREAM VARIARLE 

20440000 
'" STRFAM vaRIapLf 

20478530 
- STREAM VARlAnLF 



DECLARED AT ?04?7000 
DECLARED AT 20433000 
DECLARED AT 20439000 
DECLARED AT 2o47852o 
PECLARFD AT 20484300 



20484400 
— RFAL ARRAY •- DECLARED AT 20566100 

2 0«j66900 ? °5669i5 ?0 5 6706 5 20567^ 2°567i60 205672™ 2°569845 ? 0569fl50 2 569940 ?0569970 2O57O16O 

20570220 20570*60 ?05734l0 ?0573^40 2O577O5O 
ACCUM -- STREAM VARlARLF « DECLARED AT 20566915 

20566925 
ACCUM -- REAL ARRAY -- DECLARED AT 20581000 
ACCUM -- REAL ARRAY .- DECLARED AT 20584000 

20584200 20584400 20584550 20585360 20585370 20585450 
ACCUM — REAL ARRAY -- DECLARED AT 20586800 

205A7100 
ACCUM — RFAL ARRAY — DECLARED AT 205^9800 

20590000 20590050 20590450 20590600 20590660 20590680 20590700 
ACCUM -- STRFAM VARlARLF " DECLARED AT 20590660 

20590665 
ACCUM •- STRFAM VARlARLF — DECLARED AT 20590680 

20590685 
ACCUM -- STREAM VARlARLF -- DECLARED AT 20590700 



20590705 
ACCUM — REAL ARRAY -- DECLARED AT ?0591000 

20591400 20591R00 20591900 20593200 20593310 
ACCUM — RFAL aRRaY — DECLARED AT 20595000 

20596300 20596350 
ACCUM -- RFAL ARRAY -" DECLARED AT 20596800 
ACCUM -- REAL ARRAY -- DECLARED AT 206000,0 

20600040 *?06Ois00**?O60l550* 2060a300 20601500 ?0604850 20605050 20605360 20605400 2O6O581O 20607020 

20610300 
ACCUM • « STREAM VARIABLE -- DECLARED AT 20607020 

20607220 
ACCUM •- REAL ARRAY -- DECLARED AT 20701500 

20706000 20717000 20720000 
ACTDATE — REAL — DECLARED AT 08303100 

08333000 085/1800 187i]500 20289265 41320360 *44241l50* 
ACTDATE "" STREAM VARIABLE — DECLARED AT 20289265 

20289295 
ACTSPaCT — tNtfbfN PROfFDURF — DFCl-ARED AT 24032050 

*24035200**24039900* 24O421OO 24O436OO 
ACTUALDTSKADDRESS '— OEFINE -- DECLARED AT 20019900 

2OO5OOOO ?0059^00 
ACTUAi.DjSkADDrESS -- DEFINE -- DECLARED AT 20086400 

20171800 70125000 
ACTUALlOERR •- PROCEDURE " DECLARED AT 04353200 "" FORWARD AT 04121425 

48126430 
ACTUALOVERLaYADDRESS "- INTERFR PROCEDURE — DECLARED AT 14105000 — FORWARD AT 02697750 

14203000 14292100 22331400 
ACO — LARFL — DFCIARfD AT 18501100 

18501700 
ACO -- LABEL — DECl.ARFD AT ,9517000 

195*8000 
AC 1 -• LABEL -- DECi.ARED AT 185O11OO 

18501700 
AC1 -• LABEL — DECLARED AT 19517000 

19518000 
AC2 -• LAREL -- DECLARED AT 18501100 

18501700 
AC2 — LAREL — DECLARFD AT 19517000 

19518000 
AC3 — LabfL -- DFCIARFD AT 18501100 

18501700 
AC3 — LARFL — DECLARED AT j95l7000 

j95i8000 
AC4 *- LABEL •• DECi.ARED AT 18501 J 00 

18501700 
AC4 -- LABEL -- DEC| ARED AT 19517000 

19518000 

acs — Label — declarfd at issohoo 

18501700 

ac5 •• Label — declarfd at 19517000 

19518000 
AD — LabfL -- DECLaRfo AT 18701000 -- OCCURS AT 18711500 

18701200 
AD — REAL «•- DECLARED AT 40004500 

400?7?90 4OO77995 4OO47OOO 40047,00 4OO78O54 4OO78O58 *40322220* 40377400 40323200 *40323300* 
ADDR -- NAME -- DECl.ARFD AT 16912000 

16912100 



ADOR -• NAME — DECLARED AT J8702000 

♦18840700* 18840*00 18840900 18841000 18841600 18843400 
ADDR •• N a Me — DFCI..ARFD AT 19522000 

ADDR -• INTEGER -- nFClARED AT 19696000 

*l97jl300**l9762000* 19766300 
ADOR •- NaMf -- DFCLARFD AT 200J4300 

20014400 
ADDR •• NAME -- DECLARED AT 20063500 

20083600 
ADDR -• NAME -- DECLARED AT 20143900 

20144000 
ADDR •• REAL — NAME PARAMETER — DECLARED AT 20386000 

20334000 *20400n00* 2040^000 *20*05000* 
ADDR — NaME — DECl.ARFD AT 20566100 
ADOR •- N A M r -- OFClARrn AT 20581000 
ADOR — N a Mf -- OFCLARFD AT 20584000 
ADDR -• NAME -- DECL.ARFD AT 20586800 
ADDR — NAME -- DECLARED AT 20569800 
ADDR -- NAME -- OECi.ARED AT ?0s9lO00 
ADDR *■- NAME -- DEC| ArFD AT ?0«595000 

addr — name -- dec) ared at 20596800 

addr — name — ofclarfd at 20600010 

addr -- name -- declared at 20701500 

addr -- name — declared at 31004000 

31005000 *31 01 0000**3 101 7000**31 01 71 00**31 01 72 00**31 01 8000**31 01 9000**3} 020000* 31022000 
ADDRESS " N A M F — v A LllF PaRaMfTFR " DFCLaRED AT 00021000 

00090000 
ADDRESS -- NaMf — y/ALUF PARAMFTFR -- DfCLARED AT 02002500 

02000000 0?OOiOQO O7OO81OO 
ADDRESS -- DEFINE -- DECLARED AT 4OOO816O 

400^9000 40060*00 400^0305 
ADDRS -- REAL "- DECLARED AT U342000 

♦14353000* 14357000 
ADDV — DEFINE -- DECLARED AT 20224000 

20569528 20569770 
ADDV — DEFINE — DFCLfiRED AT 2fl208000 

28270810 28281600 28281800 28282600 262R5800 
ADECK — REAL — DEtLaRFD AT 07008200 

07039410 *07J08]00**07118690* 07139510 07139520 
ADR -- RfaL — DECLARED AT 02190000 

+ 02209000* 0221.0000 ? 2ll0i0 *022l2000* 02215000 *022l7000* 0221?l00 *Q2275l00* 02275200 02276260 02276270 
*02276500**02276550**02292000**02294000* 02295000 02308000 
ADR -• STRFAM VARIABLF -- DECLARED AT 02295000 
ADR — REAL -- DECLARED AT 07003410 

*07003430**07003440* 07003450 O7OO3462 
ADR -• REAL SUBROUTINf " DECLARED AT 07042000 

07047000 07144000 07165000 07175000 
ADR -" REAL -- DFCLARFn AT 16696210 

*16851200* 16851500 16851900 *16852l00* 16852800 #16854400* 16854600 
ADR -" STREAM VARIABLf — DECLARED AT 16854600 
ADR — INTEGER " DfCLaRFD AT 30904000 

*309i0000* 309^2000 309i3000 *309i6000* 30920000 
ADR — STREAM VARIABLF — DECLARED AT 30920000 
ADR — ■ REAL — DECLARED AT 3)005000 

♦3J005300* 31005130 310053SO 3l0j0000 3lOi3000 3lOl 7200 
AG — STREAM LABEL — DECLARED AT 28421800 — OCCURS AT 28422200 
28422800 28423?00 



AGAIN 
AGAl N 
AGAIN 

AGAIN 

AGAIN 

AGAIN 

AGAIN 

AGAIN 

AGAIN 

AGN • 
AGN • 

AGn < 
AIT • 

AIT ' 

AIT ■ 

A ! T • 

AIT - 

AITL 

AlTU 
AITNDX 

Al*FA 
ALfiQL 

AtGOLF 
ALOC 

ALPHA 

ALPHA 

ALPHA 

ALPHA 
ALPHA 

ALPHA 



- occurs at 06110400 

- Occurs at 07107000 

DfCLARFD AT 07425500 -- OCCURS AT 07427500 

declared at 08419000 -- occurs at 08420000 

dfclared at 08576100 -- occurs at 08577700 

dfclared at ? ? p 3 6 1 •- occurs at 22286050 



-" LABEL -" DfCLaRFO AT 06070000 
06112300 06112800 06113200 

— LABFL — DfCIaRFP AT 07009000 
07l?9300 

— LABEL - 
07450200 

-- i.ABL'l, - 
06416250 

— LABEL - 
08597750 

-- LABEL - 
22286180 

— STREAM LABEL — DECLARED AT 2841)4oO -- OCCURS AT 28411800 
28412600 28413200 

— Label -- dfclaRed at 37505000 -- occurs at 37523000 
37530000 

— LABEL -- nrCLftRFO AT 38548000 -- OCCURS AT 38608200 
38608700 

- STREAM LABEL -- DECLARED AT ?0600440 -- OCCURS AT 20600450 
• LABEL — DECLARED AT 38009)00 -- OCCURS AT 380)4400 

38015500 

- LABEL -- DECLARED AT 39056S00 

- REAL ARRAY -- DFCLARED AT 14162500 

♦14218040* 14218050 14218055 *14218065* 142)8072 14218078 14218080 *14218082* 14218084 *1 4218086**14218088* 

- ReaL ARRAY " OFCLARFD AT 18701900 
*18720300* 18720400 18720600 18720700 *l8720800* 

- RFAL ARRAY -- DFCLARED AT 19520000 
I9591OOO * 1 96850)S**)96850?0* )968506S 

- REAL ARRAY -- DECLARED AT 31003000 
♦31007000* 31009000 310)0000 

- REAL ARRAY « DECLARED AT 42482000 

•42485000* 42*87000 42488000 42489000 *42505000* 42506200 42506300 42506400 42507000 
"- REAL -- DECLARED AT 18701900 

18720200 *18844-S00**18845200* J8845400 

- REAL —• DECLARFD AT 19520000 

-" DEFINE -- DFCLARFD AT 00067050 
14218040 14218045 14218065 14358320 
'" OFFINF -" DFCLARFD AT 04670700 

04674300 04675800 04679550 04680850 
— ' OFFfNF " nFCLARED AT 20234000 
20585209 20585355 20604500 
IBAREAV -- DEFINE -- DECLARED AT 00017230 
-- REAL -- DECLARED AT 42514000 
♦42535000* 42535500 42539000 42539050 

— REAL — VAI..UF PARAMETER " DECLARED aT 08700000 
08709600 O8726O00 

"" REAL — DErURFP AT 37388400 
37388500 37404000 37406000 

•• tNtfcfR -- vaLuf paRametfR -- oeclaRfd AT 38000000 

380 ? 7000 380 2 8000 3804))00 38O43OOO 38053500 38O54OOO 38073000 3808)000 38O82OOO 3808?400 38083000 

38090000 3809?oOO 38093000 38O94OO0 
-• STREAM VARIARLF '- DECLARED AT 38083000 

38084000 
-- INTEGER — VALUE PARAMETER -- DECLARED AT 381O2OOO 

38107000 38)09000 38H6500 38121000 38129500 38147500 38)52000 38164500 

-- integer — value parameter — declared at 38200000 

38905000 3«238o00 38243500 38246500 38248OOO 38270500 38271500 38275500 38278000 38280000 38280500 



14358325 31007000 31008000 42485000 42486000 



38281000 38283500 38284000 38284500 38285000 38286000 38287000 38287500 38288000 38290000 38292000 
38297500 

aLPha •- tNTfgfR -• vaLUf PaRaMfTfR — ofcURfd at 38355000 

36171000 3837?000 36374000 
ALPHA -- TNTFGER -- VAI.Uf PARAMETER -. DECLA&fD AT 38540000 

385S4000 ^8555000 38557000 3857i000 36574OOO 38575000 38583OOO 38584000 38587000 ^8588000 3 8590000 

38S90200 385920^0 38592100 38593000 38594100 38594200 38628000 
ALPHA -" 1N1FGER "" VaLUf PARAMETER -- DECLARFD AT 38648000 

38667000 38668n00 18670000 38663OOO 38700000 3870i000 38707000 38711000 38720000 38726000 38732100 

38716000 38742000 38762000 38766000 38803000 38804000 38807000 
ALPHA •" INTFGFR — VaLuf PaRaMFTfR "" OFO^aRfD AT 39000100 

39000000 39000J00 39032000 39042100 39043000 39O46OOO 39083000 39092030 39144000 39145210 39145300 

39147000 39230000 39233300 39233500 39244000 39293400 39305000 
ALPHA •»• TNTFGFR — VaLUF PaRaMfTfR -- DECURfD AT 41000000 

4l0i8000 *4l039o00* 4j040000 4j05i300 4l05l620 4t20i000 4ip02000 41208000 4l2i0000 41212200 
ALWAYSBtT — DEFINE -- DECLARED AT 00417100 
ANALYSIS -» RFAL PROCEDURE — DECLARED AT 14000000 — FORWARD AT 02111400 

♦14078000* 14079000 4?522000 42538000 48i09000 
ANS -- STREAM VARIABLE — DECLARFD AT 08804000 

088??00e 06823000 
ANVIL -- REAL PROCEDURE -- DECLARED AT 08546000 

16082000 
AQ -- STREAM LABEL -• DECLARED AT 07295102 " OCCURS AT 07295160 
ARD — LABEL -- DECLARED AT 28806000 -- OCCURS AT 28889550 

28882100 28882160 
AREA — RFAl — VALUE PARAMETER "" DFCLaRFD AT 01250200 

01250100 012502OO 01251100 0l25i800 01252600 01254000 01255200 01256J00 01258700 01258900 01261300 
AREA "• STREAM VaRIARI.F -- DFCLaRfD AT 01251100 

01251200 01251400 
AREA — STREAM VARIABLE — DECLARED AT 0l?5i800 

0i95?000 
AREA -- STREAM VARlABi.E -- DECLARED AT 01252600 

012S2700 
AREA — STREAM VarUBi.E « DECLARED AT 01254000 
AREA "» REAL -- DECLARED AT 04259200 
AREA "• RFAL ARRAY -- OFCLARED AT 22061000 

22061100 *22069000* 22107000 22112000 22)0030 22115070 22119000 22124000 22129000 22136000 22145050 

22145550 22156000 22157000 22159000 22164000 22179000 22180000 22181000 22191100 22196000 22225000 
ARFA — STRFAM VaRIARLF " OFCLaRfD AT 22U9000 
AREA -- STREAM VARIABLE -- DECLARED AT 22129000 
AREA • • STREAM VARlABi.E -- DECLARED AT 22136000 

22138000 *22140000* 22142000 
AREA — STREAM VarTaB|,E -- DECLARED AT 22145050 

22145150 *22145250* 22H5350 
AREA -- STREAM VARIABLE " DECLARED AT 22191100 
AREAAVAILF -- FIELD — DECLARED AT 00017780 
AREABACKLJNKE — ElELn — DECLARED AT 00017820 
AREAEWDLINKF — FIELD " DECLARFD AT 00017830 

14364800 
AREaMtXf — EIFL-D -" DFCLARED AT 00017810 

08?75600 i4364?00 14364500 1852O6OO gOOs^gO 2OO8982O 20J76048 22297000 28435010 38l2l500 38148OOO 
AREASAVFE — FIELD — DECLARED AT 00017790 
AREATYPFE — FIELD — DECLARED AT OOO176OO 

02142100 0?216000 14364300 16853000 22303000 ??386000 22l86i00 38l2l500 38148OOO 
ARN -• LABEL — DECLARED AT 04670650 -- OCCURS AT 046865S0 

04686750 
AROUND — LABEL -- DECLARED AT 14165000 -- OCCURS AT 14223000 



14197000 14199000 
AROUND — LABEL " DECLARED AT 17902500 — OCCURS AT 17906500 

17917500 17918500 
AROljNn -- LABFL -- nF^LARFO AT 22236000 — OCCURS AT 22265000 

2228^000 
AROUND « LABEL -- DECLARED AT 37004000 -- OCCURS AT 37045000 

37O43OOO 
ARO^ -- REAL ARRAY -- DECLARED AT 28004400 

*28069400**?R069f,00**?8069800* 28090400 28091200 
AROW — REAL ARRAY — DECLARED AT 28204800 

28205000 28235400 28237200 28243400 28273000 28273400 28276000 
ARRAYDESC — DEFINE — DECLARED AT 00017020 

20059120 20089820 20176048 28451800 28855000 , 
ARTN •• PROCFnuRF "- DFCLaRfD AT 42474000 -• FORWARD AT 00431000 

18720100 i88!0i00 1885O1.OO 42477000 42480000 4250j900 
AS -- DEFfNE «- DFCI.ARFD AT 20247980 

205 70 1 00 
ASFlO mm REAL -- DECLARED AT 28000800 

28001000 
ASFID -- REAL — DECLARED AT 28400600 

*284?5600**28426?00* 28430800 
ASIT -- SUBROUTINE — DECLARED AT 28424600 

28470200 28474200 28478600 
ASIZE — DEFINE — DECLARED AT 06070600 

06088300 0AQ89O00 06097100 06100800 06101100 06110800 06110900 06111700 

AS^Fin — Real — dtcLaRfd at 28000800 

ASMFIn — RFAL — DfCLaReD AT 28400600 

*284?5?00**2B4?6000* ?8427800 ?8'*30600 
ASR •- PROCEDURE -- DECLARED AT 42482000 — EoRWARD AT 00474000 

14360300 19566000 3lOi6000 42508000 
ATLEASTONE — REAL -• DECLARED AT 08853000 
♦08884000* 08886000 *08902000* 08904000 
ATTACHL "- LABEL " DECLARED AT 19901600 — OCCURS aT 19902800 

19901700 
AU — LABfL « DECLARED AT 16700000 — OCCURS AT 16771500 

16704000 
AUT — LARFL — DECLARFD AT 12512500 •" OCCURS AT 1259^500 

12592500 
AUTODS •- DEFINE — DFCLaRED AT 00416995 

06360515 06463260 14581500 ]79i4i00 1854O12O 36006500 37046735 37225800 
AUTOLOADER " SUbROUTiNf -- DECLARED AT 22069010 

2206^600 22209^00 
AUTOMFSS — DEFINE ... DECLARED AT 0041699? 

20100900 20174400 
AUTOPRlNT — DEEInE -- DECLARED AT 00412000 

07419200 08258800 12753000 20152200 22206000 38609100 
AUTORN — DEFINE — DECLARED AT 00416710 

44280100 
AUT0ST°P "" RFAL — DFCLARFD AT 17903500 

♦17904000* 17908000 l79i7000 
AUTOSTOP • - STREAM VARIABLE — • DECLARED AT 17908000 

17910500 
AUTqUmlD -- DEFINE -- DECLARED AT 00416630 

06353580 06353590 
AUX — REAL -- VALUE PARAMETER « DECLARED AT 00367000 

00365000 00366000 
AUX -- REAL -- VALUE PARAMETER -• DECLARED AT 24103000 



24101000 24102000 
AV — INTfGER — DECLARED AT 06069100 

06069200 06088300 06091500 06099400 06099500 06100800 06100900 *06111300* 
AVAIL -" t^TfgfR ■- DFcLaRfd AT 00069000 

240?3000 240?/)000 240?7000 24036300 *44l0200Q* 441O3OOO 44J06000 *44l07000* 44111000 44112000 44201400 
AVAILABLE — DEFINE -- DECLARED AT 40008120 

4OO41OOO 4OO46OOO 4OO57OOO 40078058 
AVBLOCK -- DEFINE -<• DECLARED AT 40008??0 

10322600 40325000 40332000 
AVDIFFMAX -- DEFINE -- DECLARED AT 05780400 

05852100 05852200 40329000 
AVDIFFMJN — DEFINE — DECLARED AT 05780400 

06380600 40328000 

avLP •" Label — dfpLaRed at 44020000 -- occurs at 44103000 

44108000 
AVS -- INTEGER " DfCLaRFD AT 05841615 

♦05844920**05844925* O584493O 05946360 
AVS • • INTEGER -- DECLARED AT 05847600 

*05850HO* 05850120 05853495 

avs -- integer « dfclared at 05952400 

05952500 *05961200* 05961400 05975600 
AVS — DEFINE — DECLARED AT 06351105 

06381250 
AVSUf -- INTEGER "" DECLARED aT 06069200 

♦06109300* 06109400 06110300 06114300 
AVSMAX "" DEFINE — DFCLaRFD AT 05780600 
AVSMiN — DEFTNF — DFCLARFD AT 05780600 
AVTABlE -- REAL ARRAY -- DECLARED AT 00i66006 

05^42475 05842700 O5840OOO O584492O O5844935 *05845400**05845700**05848?55* 05849420 O584946O 058*9500 

05850200 O585O3OO *05852700* 0596i000 05961800 05962000 *0597i800**05974000* 05974200 *05975000**0610 1200* 

06108000 06108300 *06380100* 0638 l5o 06380250 06380550 06381070 06381300 06381320 16826600 16828100 

16828200 40321130 41324800 *4424Q920* 
AVTABLEAREAV " DEFINf — DECLARED AT 00017500 

44240840 
AVTMaX " DEFINE " DFCLaRFD AT 05780500 

06380650 
AVI -- DEFINE — DECLARED AT 40008220 

403^2470 40322600 40324300 40324500 4O33OOOO 40332000 40333000 40334057 
AWAKEN — REAL SUBROUTJNF -- DECLARED AT 22237000 

22246000 22320,00 ??3?54i0 22332000 22336200 ? ? 356000 22356400 ? ? 364000 22365400 2?383l00 ??4ll000 

22429000 
AWAY — LABEL — DECLARED AT 08419000 -- OCCURS AT 08438300 

08429000 
AX -# LABEL — DECLARED AT I6O54OOO -- OCCURS AT 16078000 

16062000 
AXET -- STREAM LABEL — DECLARED AT 16956060 — OCCURS AT 16956070 
AZ — LABEL — DECLARED AT 05847800 -- OCCURS AT 05852000 

05851500 

az — Label — oecl a Red at 05952600 — occurs at 05970800 

05962700 06078600 

Ai -- Real — declared at O6O686OO — OrcuRs at O6O78500 

06080800 06091800 *06107200* 06114900 
Al -- STREAM LABEL -«■ DECLARED AT 06080800 -- OCCURS AT 06082200 

06081100 
A? — REAL — DECLARED AT 06068600 

06086800 06087900 06095200 O6O953OO *06095400* 06096700 *06l07200* 06114900 
A3 *• REAL •" DECLARED AT 06068600 



06098400 06098700 *06107300* 06107400 06114900 
A* *» REAL •• DFCLARFD AT 06068600 

06086300 O6O864OO 06089900 06090000 06097000 *06103900* 06115600 
A* *- RFAL A^RaY -- DFCLARFn AT 1.8500300 

l85?0i00 18520800 1&521000 j8530iO0 l 8540 1 00 ^540600 j8552400 i855?600 18552700 *i8553l00* t8553400 
*l85S3500**i8553700**i8553800**l8554000* 18554600 * 18554700** 185548OO** 18555OOO** i8555l00* 18555700 185558OO 
♦18556200**1 8556 300**1 8556400** 18556500** 18556800**1 85571 00* 
A4 -- STRFAM VARIABLE •- DECLARED AT 1852l000 

18521100 18521500 
Aft -- REAL ARRAY — DECLARED AT 18700300 

18840100 18840200 18844200 
A4 -» REAL ARRAY " DECLARFD AT 19503000 

♦19590000* 19592000 
A5 — REAL "" DFCLARFD AT 06068600 

06068700 *06077«500* 06077600 O6Q846OO 06H5600 

a5 — Real array *- dfclaRfr at 18500300 

18580100 i8580?00 *i8580300* 18580410 * 1 8580500**1 8580600** 18580700* 
A5 -- REAL ARRAY -- DECLARED AT 18700300 

I874O1OO 18740^00 18740300 18740400 1874O9OO i874l000 1874U00 *i8770iOO* 18770200 18770900 i88i0j00 

18810200 18810300 
A5 — HEAL ARRAY — DECLARED AT 19302000 

19303000 
A5 — REAL ARRAY « DECLARED AT 19503000 

19569000 19571000 19574000 19575000 *19576600* 
A6 — RFAL ARRAY " OFfl-ARFn AT 18500300 

18503400 18559000 
A6 -- REAL ARRAY — DECLARED AT 18700300 
A6 — REAL ARRAY -- DECLARED AT 19503000 
A7 -- REAL ARRAY -- DECLARED AT 18500400 
A7 — REAL ARRAY -- DECLARED AT 18700400 
A7 "- REAL ARRAY — DECLARED AT 19504000 
B " REAL — VALUE PARAMETER -- DECLARED AT 00089100 
B — REAL " VALUE PARAMFTFR -- DECLARED AT 00379700 

00379600 

b — real -- Value parameter -- declared at 00429000 

00428000 
B — REAL *- VaLUF PARAMETER -- DECLARED AT 00463300 
B « REAL -- VALUF PARaMfTER — DFCLaRED AT 00480100 
B -- REAL -- VALUF PARAMETER -- DECLARER AT 0?02l000 
B «- REAL -- VALUE PARAMETER -- DECLARED AT 0?052800 

02052700 
B mm REAL -- NAME PARAMETER •- OECLARED AT 02178500 
B — NAME -- DECLARFD AT 02191000 

♦02207000* 02216510 *02218000* 02219000 02223000 02253050 02255000 
B — STRFAM VARlABLF " DECLARFO AT 02255000 

02255100 
B — REAL — VALUF PARAMFTER — DFCLaReo AT 0?379000 
B -- STREAM VARIABLE -- DFCLARFD AT 02385000 
B -- REAL — DECLARFD AT 02434120 

02434170 02434?70 *02434320* 0?434330 02434630 0?434850 
B -- STREAM VARIABLE « DECLARED AT 02434170 
B — STREAM VARIABLE -- DECLARED AT 02434270 
B — STREAM VARIABLE — DECLARED AT 02434330 

02434350 02434*60 

b — real — name parameter — declared at 02696700 
b -- real — value parameter -- declared at 04121600 
b -- peal — value parameter -- declared at 04121650 



B 
B 
B 

B 
B 
B 
B 
B 

B 

B 

8 

B 

B 

B 

B 
B 
B 

B 
8 

B 
B 
B 
B 
B 
B 
B 

B 
B 



B 
B 



stream variable: 

04214000 

str F a m vaRiabLf 

STRfaM VARIABLE 
STRFAM VARIABLE 

04198800 
REAL ARRAY -- D 
♦04707000* 047110 
INTEGER -- DECL 
♦05703000* 05704o 

Label •- decLar 

05843200 

tNTFRER -- DECL 
*05850i?0* O58534 

REAL — DECLARE 

05951400 05952? 
#05961400* 059640 
STREAM VARIABLE 

05953015 *059530 
STREAM VARIABLE 

05953155 
STREAM VARIABLE 
REAL — DECLARr 

06074100 060780 
STRfaM vaRiabLf 

06074900 06075? 
STREAM VARIABLE 

06081600 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 

06206175 
STREAM VARIABLE 
INTEGER -- DECL. 
♦06380525* 063805 
STRfaM VARIARLF 

07179270 
REAL -- VALUE P 

07968000 07268V 
REAL — VALUE p 

07357000 073580 
STREAM VARIABLE 

07359000 *07360? 
REAL -- DECLARF 
♦07389000* 0739ln 

strfaM variable 

07394000 

Real -- dfcLaRf 

*074i?000* 074130 

stream variable 
real — value p 

07461000 *07461S 
STREAM VARIABLE 

07461100 
STREAM VARIABLE 
REAL — VALUE P 

07475000 *074760 



DECLARED AT 04213000 



dfcLaRfd 
declared 
declared 



AT 
AT 
AT 



04271800 
04371930 
04398400 



EClARED AT 04703000 

00 04725000 04732000 04736000 

ARED AT 05702000 

00 05722000 05724000 *057?7000* 05728000 

ED AT 05841650 — OcCURS AT 05842700 



ARFD AT 05847700 

25 

D AT 05951P00 

10 05953000 *05953070* 05953130 

00 *05967900**05968?00* 05968400 

" DECLARED AT 05953000 

25* 

-- DECLARED AT 05953140 



05953140 
♦05969200* 



05953210 
05975600 



05953220 
*05979340* 



05953350 05953400 05956300 



•- DECLARED AT 05964000 

AT 06068300 

00 *06092500* 0609?(}00 *06097l00* 

-- OFCLaRfO AT 06074100 

00 06075400 *06076000* 06076100 

-- DECLARED AT 06078000 



06097300 
06076500 



06097400 06098300 06098700 



-- DECLARED AT 
-- DECLARED AT 
-- DECLARED AT 



06098700 
06196000 
06206140 



-- DECLARED AT 06234000 

ARFD AT 06351250 

50 06380750 06380800 06381250 

— OECLaRfo AT 07179260 



DECLARED AT 
DECLARED AT 
AT 07358000 



07268100 



07354000 



ARAMETER — 
00 07?7l900 
ARAMETER -- 

00 07369000 

— DECLARED 

00**07367000* 

D AT 07386000 

00 07392000 07393000 07400000 07402000 

-- DECLa«FO AT 07393000 



07404000 



AT 07408000 
00 07414000 
-- DECLARED 
ARAMETER -- 
70* 07461800 
•-' DECLARED 



« DECLARED 
ARAMETER — 
00* 07479100 



07418500 

AT 07418500 
DECLARED AT 07457000 
07463000 07468100 

AT 07461000 

AT 07463000 
DECLARED AT 07473100 
07480000 07483000 



B •- RFAL " DFCL.ARFD AT 07486000 

♦07487000* 07488000 
B -• STRFAM VARIABLE -- DECLARED AT O7488OOO 

07489000 *0/49l000**07494000* 
B -- STREAM VARIABLE — DECLARED AT 07549000 

b — stream variable -- declared at O8029015 

080*9020 *08029o45* 
B — STREAM VARIABLE — DECLARED AT 08051000 
08051004 

B — STREAM VARIABLE — DECLARED AT 08051olO 
08051050 

B *- real -- value parametfr -- declarer at O8070000 

B -" STRFAM VARIABLE "" OFCLaRFO AT 08110350 
B -* STRFA M VARIAB^F -" DECLaRfd AT 08U2150 

08112350 
B -- STREAM VARJAHLF -- DECLARED AT 08^79600 
B -- REAL -- DECLARED AT 08?83000 

08985000 0829?000 
B — STREAM VARIABLE — DECLARED AT 08?85000 

08286000 *08289n00**08290000* 08290500 *082P 1 1 25**0829 1 225* 08305000 0P3100O0 08315000 
B •• STRFAM VARIABLE "" DFCLaRfd AT 08310000 

b -- Real « vaLuf paWa m eteR -- dfcl a Red at 083i700o 

08333000 08340000 
B »- STRFAM VARIABLE -- DECLARFD AT 08333000 

08334700 *08334900* 08335000 08335600 O83375OO *08338000* 
B -- REAL •• DECLARFD AT 08344000 

08344?00 *08359000* 
B • • STREAM VARIABLE -- DECLARED AT 08344?00 

O8346OOO *O8354000**08355000* 08356000 
B »- REAL •- DECLARFD AT 08377000 

#08180000* 08381000 08381100 08383000 08383100 08384000 08387000 
B •• REAL " DECLARFD AT 08391000 

08397000 
B -- STRFAM VARURLF -- DECLARFD AT 08397000 

08398000 *08«05p00* 
B — RFAL — DFCLA^rD AT 08418500 

*084?4000* 08428000 *08433000**08434000* 08435000 08436000 08437000 *08437?00* 08437450 
B -- STREAM- VARIABLE •- DECLARED AT 08424000 
B -- STREAM VARIABLE -- DECLARED AT 08437?00 
B -- REAL -- VALUE PARAMETER -- DECLARED AT 08438900 
B -- REAL — VALUE pARAMETEfi -- DECLARED AT 08439000 

08440000 08444O00 08448050 08451100 08480000 *08481000* 08482050 0R483O00 *0848400n* 08484500 08488000 
*08494000**08498o00* 08501000 08502000 08507000 
B "- STRFAM VARIABLf -" DECLARFD AT 08444000 
B « STRrAM VARIABLE — DECLaRfd AT 08448050 

O844811O 
B •- STREAM VARIABLE -- DECLARED AT 0845H00 

08451210 
B — STREAM VARIABLE -- DECLARED AT O8488OOO 

08489000 
B -- STREAM VARIABLE -- DECLARED AT 08502000 
B — REAL « VALUE PARAMETER -- DECLARED AT 0B527000 

08525000 08526000 08540000 08544700 
B -- STREAM VARIABLE -- DECLARED AT 08540000 
B •• REAL -• DECLARFD AT 08547000 

08548000 
B "- STRFAM VARIABLE — DECLARED AT 08572520 



08572540 
B "" PEAL — VaUIF PARAMpTFR — OFCLaREo AT 08575000 

08576000 06577000 08577100 *08577600* 
B -" STRFAM VARlABLp -- DFCL.ARFO AT 08577100 

08577200 *08577a00* 
B -- REAL — DECLARfD AT 08601000 

♦ 08604000* 0860/> 1 00 08605000 08621600 
B — STREAM VARIABLE — DECLARED AT 08605000 

08615000 
B — REAL -- DECLARFD AT 08626000 

•06629000*. 06630000 08671000 08673000 08676000 
B -" REAL -- DECURFD AT 08801000 

♦08802500* 08804000 *0883l000* O8832OOO O8833OOO O8834OOO 08835000 
B — STREAM VARIABLE — » DFCLARfo AT 08804000 

08805000 088^3000 
B -- REAL -* DECLARED AT 09601000 

09612000 09633000 09633400 09634100 09645000 09670000 
B -- STREAM VARIABLE « DECLARED AT 09633400 
B — STREAM VARIABLE — DECLARED AT 09670000 
B -- REAL — DECLARFD AT 09679300 

09679900 09680600 09680800 09681545 09681800 

b — real -" Value parameter — declared at 09/00000 

09703000 09705000 09708000 

B — Real — dfcLaRtd at 12503500 

12504000 *12521500* 12522500 12545500 12546500 12547000 12550000 i?607000 1260500 12623000 12648500 
12653500 12655000 12657000 *12672500* 12757000 

b »- strfam variable -- declared at 12657000 

♦12661000* I266l«s00 *12663500* 
B -- REAL « DECLARED AT 12803500 

12804000 12843000 12880500 1?887000 
B — STREAM VARIABLE -- DECLARED AT 12880500 

12881500 

B -- stream variable -- declared at i2887ooo 

B -- REAL " DECLARFD AT 13004000 

13036000 1.3049000 13057000 13062000 13069000 13072000 13075000 13076000 
B *- RFAL -- VALUF PaRaMfTfR — DFCL a RE0 AT 14342100 
B — STREAM VARIABLE -- DECLARED AT 143»31 00 

14383200 
B -- STREAM VARIABLE -- DECLARED AT 14414000 

14420000 

b — stream Variable -- declared at 14535000 

b -- real •- value parameter — declared at 14543000 

14552000 14559300 14562000 14569200 14570000 14585300 14585360 14599910 14600000 14603000 
B " STRFA M VaRIabLf " OFCLaRfo AT 14570000 

14576000 
8 — REAL — DFCLaRfD AT 14624450 

*1 4636000**) 4637000** 14640000** 14642000** 1464 3000* 14645000 * 147 12550* 
B — STREAM VARIABLE -- DECLARED AT 14645000 
B -- REAL ARRAY — DECLARED AT 15170000 

♦15182000* 15185000 *l5l86000* 
B .- REAL — VALUE PARAMETER «- DECLARED AT 16044000 

16070000 16088000 16124000 16135000 16139000 16187000 
B " STREAM VARIABLE — DECLARED AT 16088000 
B — STREAM VARIABLE — DECLARED AT 16139000 
B — STREAM VARIABLE — DFCLARED AT 16187000 

♦16193000* 
B — REAL •- VALUE PARAMETER -- DECLARED AT 16345000 



16371000 16521000 
B *" REAL — DFCLaRfD A 

16696200 16708000 
B -- STRfaM variable -- 
B -- STREAM VARIABLE « 
B -• REAL, -- VALUE pARA 

16917500 I69i8s00 
B — STREAM VARIABLE « 
B -- STRFAM VARIABLE " 

17003900 
B -* REAL " DECLARFD A 

*17909000* 17914000 
B — STRFAM VARTABLF — 
8 -- REAL -• NaMe PaRaM 

18000000 1B027000 
B -- REAL " VALUE pARA 

l8i^5000 18156000 

18439125 18443000 
8 — STREAM VARIABLE — 

18438150 

b -- strfam variable -- 

18457000 
B — STREAM VARIABLE — 

18578500 
B -- STREAM VARIABLE -- 

1976877? 
B -- STREAM VARIABLE -- 

19768950 

b — stream variable « 
B -- stream variable -- 

20031800 

8 -- stream variable — 

20044100 

b -- STRFaM variable — 
b "" strfam vaRIabLf " 

20106300 
B — REAL « VALUE 

?03fl?0i0 ?0382064 
B -- STREAM VARIABLE -- 
B -- STREAM VARIABLE -- 
B -- STREAM VARIABLE -- 

20571820 

B — stream variable -- 

20592500 

b — strfam variable — 
b mm STRFaM variable -- 

B -• REAL ARRAY -■ nECL 
*229t3000* 22914000 

B -- REAL -- DFCLARrD A 
♦24006000* ?40t4000 

variable — 

variable -- 

variable -- 

variable — 

variable -- 

variable •- 

variable •- 



16529000 
T 16696100 
♦16713000* 16714000 16828100 

DECLARED AT 16714000 

DECLARED AT I6B281OO 
METER -- DECLARED AT 16904000 

16959000 16960500 169^2000 16968500 

DECLARED AT 16962000 

DFCLARED AT 17003400 



16971.000 



T 17902000 

declarfd 
eteR — 

I8O315OO 
METER -- 
18225000 
18454000 
DECLARED 



AT 17909000 
DECLARFD AT 18002000 

18035000 

DECLARED AT 18156000 

18228000 18254000 18255000 

18455000 18460000 
AT 18438120 



18260000 18265000 18273030 18431050 i8438l20 



DECLARED AT 18455000 

DECLARFn AT 18528100 

DECLARFD AT 19768768 

DECLARED AT 19768900 

DECLARED AT 20020800 

DECLARED AT 20031500 

DECLARED AT 20043800 

DECLARED AT 20088700 

DECLaRfh AT 20106000 



PARAMETER — ■ 
?038?200 
DECLARED AT 
DECLARED AT 
DECLARED AT 



DECLARED AT 20382015 



2 0511370 
20511660 
20571700 



DECLARED AT 20592400 



B 


• M 


STREAM 


B 


m m 


STREAM 


B 


mm 


STREAM 


B 


m m 


STREAM 


B 


• - 


STREAM 


B 


»•» 


STREAM 


B 


m m 


strfam 



DECL 
DECL 

AREO 
229i 

T 2^0 
240i 
DECl 
DECl 
DECl 
DECL 
DECL 
DECL 
DECL 



ARFD AT 

aRfd AT 

AT 22901 
5000 22 
04000 

7000 

ARED 
ARED 
ARED 
ARED 
ARED 
ARED 
ARED 



AT 
AT 
AT 
AT 
AT 
AT 
AT 



20595950 
22181000 
000 
916000 



28052400 
28053600 
28071400 
28073200 
28081600 
28248800 
28249600 



B " 

B — 

B — 

B -- 

B -- 

B — 

B — 

B — 

B — 

B -- 

B ■»• 

B -- 

B -- 

B -■ 



B 
B 
B 



B - 
B - 

B - 

B - 

B " 
B « 

B - 

B -■ 

B - 

B - 
B "" 
B - 
B - 
BAC 

BAC 

BACC 



STRFftM VaRIARLf 
STRfaM VARIAHLf 

strfam vaRjabLf 

?8?7?600 

stream variable 
real •- value 

32000000 

peal •- value 

36006000 
STRFaM variable 
stream variable 
strfam label -- 
stream variable 
stream variable 
strfam variable 
strfam variable 

REAL -- VALUE 



•- declaRfd 
-- oeclaRfo 

« declaRfd 

-- declared 
parameter -• 

parameter -- 



AT 
AT 
AT 



28255200 
28263400 
28?72400 



AT 28451600 
DECLARED AT 



32000100 



DECLARED AT 36001000 



"- OFCLARFn 

-- ofclaRfd 
ofclaRed at 
-- declared 
-- declared 
-- declared 
-• declared 
parameter -- 

39905000 *39933000**39938000* 
REAL -- DECLARED AT 40004000 
40255000 #40285005* 40286000 
40317700 #40323600* 40323700 

stRfaM vaRiarLf -- dfclaRfo 

STRfaM VARTABLf -- DFCLARFn 
RFAL — VALUF PARAMETER — 



A T 37046192 
AT 38014200 
38134000 -- 

AT 38159500 
AT 38219000 
AT 38290000 
AT 38593000 
DECLARED AT 



OCCURS AT 38135000 



39900000 



39943000 39946000 39947000 
10292212 *402930l0* 40293030 



39950000 
40293060 



40309200 #40317300* 40317400 40317600 



«l3i8630 

DECLARED 



— DECLARED 
PARAMETER -- 



AT 40255000 
AT ^0292212 

DECLARED AT 4l3l6000 

41320240 41320360 4t322500 
AT 41320360 



AT 41322500 
DECLARED AT 



41327000 



4j3i7200 4i3l7700 
STREAM VARIABLE — 

41390380 
STREAM VARIABLE 
REAL « VALUE 

41333010 

stream variable « 

41333033 41333037 

stream variable -- 

41501 300 

real -- dfcLaRfd at 

REAL « DECLARrD AT 44206700 

44240500 *44240fl20* 442409j>0 *44260000* 44260500 
STREAM VARIABLE — DECLARED AT 4424O5OO 

44240520 
REAL — DECLARED AT 45002000 



41323H0 4U23150 



DECLARED 
DECLARED 
44011000 



AT 



AT 



41333010 
41500800 



44261500 +44269500* 442M500 



45092140 45116000 

stream variable — 

45092160 

STREAM VARIABLE — 

STRfaM VARIABLE " 

strfam VARIABLE — 

STREAM VARIABLE — 
•- LarfL -• dfclaRfd 

28043800 

■- LABEL -- DECLARED AT ?8?i0800 
28231200 



45135110 

declarfd 

declared 
dfcLaRfd 
oeclaRfd 
declaRfo 



45135170 
T 45092140 



AT 
AT 
AT 
AT 
AT 28005800 



45116000 
45135110 
45135170 
48076000 

— Occurs 



AT 28026000 
OCCURS AT 28220600 



- STREAM 
37394260 

back — label 

back — ofeine 

20461100 
BACK -- RfaL • 



VARIABLE -- DECLARED AT 37394200 

37394300 37394350 37394400 
-- DErLAPED AT 14628000 

-- DFCLaRED AT 20?46000 

20461320 20468000 20470110 38647000 

- dfclaRfd at 22230000 



?2?A8000 22284300 ???86070 +22296000* 22307000 22309000 22315000 22354000 22356300 22363000 22365300 

22390000 22410000 
BACK — REAL -- DECl.ARFD AT 24004000 

*24OO6000* 24017000 240ifl000 24019000 
BACK -- LABEL — DECLARED AT 28005800 -- OCCURS AT 28042600 

28025800 28043600 
BACK — LABEL — DECLARED AT 28210800 -- oCCUrS AT 28?30000 

28220400 28231000 
BACK — LABEL — DECLARED AT 28402800 -- oCCUrS AT 28459600 

28461200 28464600 
BACK — LaREL -" DErLAREO AT 40008050 « OCCURS AT 40027230 

40027245 40065050 40065110 40078078 40078091 
BAfKAfiAlN -- LaBfL -- PF CLaRfD AT 22236000 " OCCURS AT 22371200 

22379000 
BACKCLOSE — PROCEDURE -- DECLARED AT 3B54OOOO 

41 144000 
BACKSpACER -- DEFINE « DECLARED AT 28006400 

28046000 28089200 
BACKSpAClT « SUBROUTINE -- DECLARED AT 28045600 

28087800 26091*00 28093000 
8AP -" LarfL -■ DECLARFO AT 01250500 -• OCCURS AT 01261450 

01261170 01261200 
BAD •- STREAM LABFL — DECLARED AT 04326600 — OCCURS AT 04332000 

04326800 04328200 04328400 04330800 04331200 04331400 
BAD -- LABEL -- DFCi.ARFD AT 08284000 -- OCCURS AT 08298800 

08295600 08296800 08297400 
BADEXjT -- LABEL — DECLARED AT 24112500 -- OCCURS AT 24155500 

241S2000 
BADFM -- SUBROUTINE -- DECLARED AT 12832000 

12836500 12865000 
BADFM — SUBROUTINE — DECLARED AT 37036100 

37037300 37047615 
BADHDR -" LABEL -- DECLARED aT 28210800 -- OcrURS AT 28257800 

28280800 
BADNM -- LABEL. « DfCLaRED AT ?8403000 -- OCCURS AT 28479200 

28476600 
BASE — DEFINE -- DFCLARED AT 00338000 
BASE -- REAL -- DEC|,ARFD AT 09679300 

♦ 096*0400* 09680c,00 09680600 09681600 09681650 09681700 09681800 09681900 
BASIC -" DEFINE — pECtARED AT 20235075 
BB — REAL "- DECLARED AT 02133150 

02148000 *02173230* 02173275 02173294 02173300 02149000 
BB "- STRFAM VARlABLF •• DEcLaRFO AT 02173300 -- OCCURS AT 02148000 

02173305 
BC — STRfAM VARIABLE — DECLARED AT 04679050 

04679300 
BC -- STREAM VARIABLE -- DECLARED AT 38762000 

38763000 
BCL •• STREAM VARIABLE -- DECLARED AT 07066100 

07066350 
BCL — DEFINE — DECLARED AT 37502000 

37512000 37521200 
BCNTR — INTEGER — DECLARED AT 42482000 

#42488100* 42489000 42506000 42506300 
BD — LABEL — DECLARED AT 06351500 — OCCURS AT 06380350 

06380650 
BED -" RFAL ARRAY " OFCLaRFD AT 00094000 



*02007300**0?007«$00 + *02008i00**02008200* 22042000 *2204 3000**22044000* 22399000 44163000 480i5400 48062000 
48063000 48075000 48076000 
BEDENTER — LABEL -- DECLARED AT 02004900 -- OCCURS AT 0?008000 

02007400 
BEEoRETrYnEXT .„ lABEi. -- DECLARED AT ?0597fi50 -- OCCURS AT 2O6O4O5O 

20599000 
BE — INTEGER — DECLARED AT 30904000 

*30907000* 30920000 30930000 
BF •- STREAM VARIABLE " DECLARED AT 30920000 

*309?1000* 30922000 *3()924500**30926000* 30927000 30928000 
BH — LARFL -- DECLaReP AT 2821Q800 — OCCURS AT 28280400 

28273200 
BhS -- DEFINE — DECLARED AT 282O84OO 

289S7400 ?8280fl00 28?i0600 
BIQGERQ -- NAME -- DECLARED AT 19901840 

*19904400* 19904650 19904700 19904860 
BITLOCN -- STREAM VARIABLE — DECLARED AT 04659400 
04660100 04662300 

bits — oefine — dfclared at 19523000 

bk — label — declared at 16055000 -- occurs at 16219000 

16064000 
BKUP •»- STREAM V A RlABLE " DECLaRFD AT 04679050 

04679250 
BKUP — STREAM VARIABLE " DECLARED AT 04680350 

04680609 
BKUP »m LABEL — DECLARED AT 38661OOO -- OCCURS AT 38818000 

38662000 
BKUP -- LABEL — DECLARED AT 41005000 -- OCCURS AT 41144000 

41006000 
BKUPTAPF — REAL SUBROUTINE -- DECLAREO AT 37038000 

37O45000 370*6000 37046120 37046800 

bL -- strfaM variable -- declared at 16506000 — occurs at 0736isoo 

16508100 
BLASTQ " PROcFDllRE -" DFCLaREO AT 37320000 -- FORWARD AT 00392000 

04252800 !4254POO ]4676000 14700000 28O12O3O 280i21l0 28033200 28O866OO 28222400 37214000 37336000 

38i05600 38203600 38699000 387i9000 38724000 3875l000 38798000 
BLEN -- INTEGER -- VALUE PARAMETER — DfCLARED AT 00396000 

OO393OOO 00394000 
BLEN -- REAL -• DEC| ARED AT 02191600 

02276270 *02276l00* 
BLEN — INTEGER — VALUE PARAMETER — DECLARED AT 37421000 

37418000 37419000 37424000 37424200 37425000 37426000 37446000 
BLfN — INTEGER "" DECLARED AT 38003000 

38013400 38024000 *38024300* 38025000 380?6000 #38027300* 38029000 38030000 38O36OOO 38O56OOO 3809<l000 
BLfN — fNTEGFR -" nFCLARED AT 38102300 

38122000 *38l23000* 38143000 *38l50000* 3<M5l6'00 38152000 *38i58000* 
BLEN — INTEGER *- DECLARED AT 382OO3OO 

♦38240000* 38240^00 *38246000* 38249000 38p77000 38296500 38297500 
BLEN — INTEGER — DECLARED AT 38359000 

3B39l0*0 ^8398000 38399000 384O4OOO 384O5OOO 38411100 

blen -- Integer -- declared at 38544000 

38585000 

blen — Integer — declared at 386520oo 

38681000 38688000 38704000 
BLEN — INTEGER — DECLARED AT 39002000 

39032000 39033000 39036000 *39084000* 39144000 39230000 *39243000* 39244000 39293400 
BLfN *- TNTEGfR "" nECLAREn AT 41002000 



*4ioa5000* 

BUKCNTR -- FIELD « DECLARED AT 00061060 

3t 01 31 00 -nOiaooo 31O15000 42489000 42506300 

BLKODT — REAL " V ALUE PARAMETER -- DECLARED AT 37342000 

37337000 37339000 
BM5G — LAREL — DECLARED AT 20085800 
BO -- LAREL — DECLARED AT 16355000 -- OCCURS AT 16379000 

16363000 
BOJBIT — DEFINE -- DECLARED AT 00417010 
BOJMESS -- DEFJNF « DECLARED AT 00405000 

20043000 20100700 20105000 20118370 

bomb -- Label -- declared at 07009000 *- occurs at 07231000 

07028100 

bomb •- label •- decLarfd at 18205000 

bomber « label — dfclared at 12512500 ■»- occurs at 12635000 

12699500 1263200? 12642500 12650000 12652000 

bombout •- label •- declared at 14548000 — occurs at 14620000 

14583300 

BOMBOUT — LABFL — DECLARED AT 44207250 — OCCURS AT 44274000 

44262000 44266000 44267500 
BOMbTjMf -- SUrROUTINf " DECLARED AT 07027000 

07121000 07221000 07225000 
BOTH — SUBROUTINE — DECLARED AT 20566752 

20566855 20571600 20576720 
BOUNDARYCK -- SUBROUTINE -- DECLARED AT 06086600 

06094400 
BREAKMASK -- DEFlNF -- DFCLARED AT 00081970 
BREAKSET — DEFINE -- DECLARED AT 02110260 
BREAKT06 — DEFINE -- DECLARED AT 0008l960 
BRL — DEFINE — DECLARED AT 37502000 

37S13000 37516000 37517000 3754?000 37544000 
BS -- LABEL « DECLARED AT 16355000 — OCCURS AT 16395000 

16363000 

bs -- real -"• declared at 22230000 

22266000 *2??8i000 t *22284000**22286030* 22286050 *22286 150**22286 180 **2230 1000**22326400* 22326800 *22329200* 
•223 7 7000**223 8 7000* 22390000 *223 93 000**223 9 5000**223 9 7000**223 99000**22 421 000* 

bSize — Real -- decLaRfd at 04554100 

♦0456852^* 04566530 
BSIZE -- REAL — DECLARED AT 0/4668500 

*04674200* 0^674225 04675650 04675700 O46765OO 0/J676700 04676850 0^677050 
BSIZE -- REAL — VALUF PARAMETER — DECLARED AT 37343000 

37338000 37340000 *37352000* 
BSIZE -" REAL — DECLARED AT 37388400 
37406000 37408000 37413000 

bu — Real -- declarfd at 07269000 

07284000 
BU — STRFAM VARIABLE -- DECLARED AT 07284000 
BU -• REA|, •- DECLARED AT 08440000 
BUF -« REAL ARRAY -- DECLARED AT 02133200 

♦02173110+ 02173120 021731*0 02173230 02173240 02173282 02173284 02173288 02173292 *02173294* 02173296 

02173300 02173301 02173380 
BUF — STREAM VARIABLE " DECLaRFD AT 0?17H50 
BUF — . STREAM VARIABLE — DECLaRFD AT 02173240 
BUF -• STREA M VARlARLr — DEC.LaRED AT 02173301 
BUE — STREAM VARtABLf — DECLARED AT 08H2175 
BUF — STREAM VARiABLf « DECLARED AT 08887000 

08890200 



BUF -- REAL -- DECLARED AT 20289035 

209*90^5 20289060 209*9065 *2028914R* 20?r9i63 20289252 20289255 20289265 2028932*1 20289335 20289350 

20289360 20289365 20289395 20289510 20289530 20289590 
BUF -" STREA M VARTARL.F — OFCLaRFD AT 20289163 

20289165 20289j75 * 20269 190**20289205**20289215**20289225* 
BUF — STRFAH VAHTABLf -- OfCLaRFD AT 20289265 

*20289275* 20269280 *202§9305* 20289315 
BUF •- STREAM VARiABLf -- OFCLARED AT 20289395 

20289400 *20289/ii5* 20289495 
BUF — RFAL — DFCLARFD AT 32000200 

♦32000300* 32OOO51O 32000650 32000812 32001575 32002300 
BUF -- STREAM VARIABLF — DECLARED AT 32000510 
BUF •- STREAM VARIABLF -- DECLARED AT 32000812 

32001000 
BUF -- STREAM VARIABLE — DECLARED AT 37394250 

37394260 37394300 37394360 
BUFA — REAL ARRAY — DECLARED AT 16049000 
BUFA *- REAL ARRAY — DECLARED AT 16350000 
BUFA — RFAL ARRAY »- DECLARED AT 16697100 
BUFA "" RFAL ARRAY — OECLARED aT 16912000 

BUFF — RFAL — VaLuf PaRA^FTER " DFCLaRFD AT 02393100 
BUFF "- RrAL -• VAl-UF EaRA^fTeR " DFCLaRfD AT 02434110 

02434100 02^34110 +024 34 170**02^342 15* 02434220 02434330 *02434695* 02434700 02434870 
BUFF — STREAM VARIABLF " DECLARED AT 02434220 
BUFF -- STREAM VARIABLE « DECLARED AT 02434330 

02434365 02434367 
BUFF -- STREAM V A R I A R | , E « DECLARED AT 02434/00 
BUFF -- REAL -- value parameter -- DECLARED AT 05950000 

05953140 *05953350* 05954000 05955000 05956300 05959200 05964000 05978050 05979340 05979400 *05979500* 
BUFF "- STREAM VARIABLE "- DECLARED AT 05954000 
BUFF — STREAM VaRIABLF — DECLARED AT 05955000 
BUFF — STREAM VARIABLE — DECLARED AT 05959200 
BUFF -- STREAM VARfABi.E. — DECLARED AT 05964000 
BUFF -. STREAM VARIABLE -- DECLARED AT 05978050 

05978200 05978900 
8UFF -• REAL -• VALUE PARAMETER — DECLARED AT 06068100 

06068000 O6O681OO 06077400 O6O845OO 06115800 06115900 
BUFF -• REAL — DECLARED AT 06351000 

♦06353500* 06353555 06355000 06360510 *06360600* 06361100 06361610 06365110 
BUFF -- STREAM VARIABLE " DECLARED AT 06355000 
BUFF -• STREAM VARIABLE " DECLARED AT O636HOO 
BUFF •- RFAL -- VALUE PARAMETER " DECLARED AT 07485000 

♦07487000* 07504000 07511000 
BUFF "- STREAM VARIABLF " DFCLARFD AT 07504000 

*07506000* 07507000 
BUFF — RFAL -• NAMf PARAMFTER « DECLARED AT 08001000 

08000000 O8OO30OO *08004000* 08006000 08009000 O8O13OOO 080l5l00 080i9000 
BUFF — STREAM VARIABLE -- DECLARED AT 08006000 
BUFF — STREAM VARIABLE — DECLARED AT O8OO9OOO 
BUFF -- STREAM VARIABLE — DECLARED AT 08015100 
BUFF — STREAM VARIABLE — DECLARED AT 08019000 
BUFF -- REAL — VALUE PARAMETER -- DECLARED AT 08024000 

08028000 08029015 08030200 08031000 08033993 08034000 08043000 08044000 08044600 08051000 0805l0l0 

08052000 08055000 
BUFF — STREAM VARIABLE — DECLARED AT 08030200 
BUFF — STREAM VARIABLE " DECLARED AT 0803l000 
BUFF — STREAM VARIAB|E -- DEC|.ARED AT 08033993 



BUFF -- STREAM VARIABLE " DECLARED AT 08034000 
BUFF — STREAM VARIAB|,F « DECLARED AT 0805J0OO 
BUFF — STREAM VARlAB|E -- DECLARED AT 08051010 
BUFF -- REAL -- DECLARED AT 08080000 

08083000 08092000 08093000 
BUFF — STREAM VARIABLE " DECLARED AT 08092000 
BUFF -- REAL -• VALUF PARAMETER — DECLARED AT 08098700 

08098600 08098650 *08101520* 08106350 *08li5300* 08115950 08116050 08116950 
BUFF -- STREAM VARIABLE " DECURFD AT 08106350 
BUFF — STREAM VARIABLF " DFCLARFD AT 08U5950 
BUFF — RFAL -- VALUF PARAMfTpR " DFCLaRfD AT 08282000 

08?83000 08285000 08293500 *08296400* 08298?00 08299000 08301800 
BUFF -- STREAM VARIABLE — DECLARED AT 08?*3500 
BUFF -- STREAM VARlAB|,E «- DECLARED AT 08?99000 

♦08300000* 
BUFF — RFAL -- VALUE PARAMETER — DECLARED AT 08343000 

08359000 *08361000* 08373000 08374000 
BUFF — RFAL — VALUE PARAMETER -- DECLARED AT 08376000 

08384100 08385000 
BUFF — RFAL -- VALnr PaRA m FTfR — DFCLaRfD AT 08390000 

08391000 *08408()00* 08412000 084J500O 
BUFF — RFAL -- VALUF PaRaMfTeR — DFCLaReD AT 08418000 

084i'9i00 08^li9p00 *084i9f00* 08420000 08437?00 08437550 *08438200* 
BUFF — STREAM VARIABLE -- DECLARED AT 08*19200 

08419300 *084l9«s00* 
BUFF -- STREAM VARIABLE -- DECLARED AT 08437200 

08437300 
BUFF — STREAM VARIAB|,E -- DECLARED AT 08fl37550 

08437600 *08438000* 
BUFF — REAL — VaLUE PARAMETER « DECLARED AT 08625000 

08624000 08625000 08629000 08632000 
BUFF — STREAM VARIABLE " DECLARED AT 08632000 

08634000 *08642000* 
BUFF — STREAM VARIABLF " DFCLARFD AT 06690100 

08690H0 *06690j80* 08690240 
BUFF — INTEGER — DECLARFO AT 08733000 

*08735000* 08784000 08791000 08798500 
BUFF — STREAM VARIABLE -- DECLARED AT 0879i000 

♦08795500* 08796000 
BUFF — REAL -- VALUE PARAMETER -- DECLARED AT 08800000 

*08802500* 08839600 08848000 
BUFF — STREAM VARIABLE " DECLARED AT 08839600 

buff *•- rfaL -- vaLuf parameter -• dfcLaRfd at osesoioo 

08850000 08882050 *08882500**08886000* 08887100 0890J000 08905000 08906000 08911000 08926000 08927000 

089^7100 08947^00 08947600 
BUFF — STREAM VARIABLE -- DECLARED AT 08887100 

08888000 
BUFF — STREAM VARIABLE — DECLARED AT O89O5OOO 
BUFF -- REAL — VALUE PARAMETER — DECLARED AT 09400000 
BUFF — REAL -- VALUE PARAMETER — DECLARED AT 09600000 

09631000 09633*00 09659000 09670000 09676000 
BUFF — REAL — VaLdF PARA m FTER — DECLARED AT 09679100 

09679800 09681000 09681515 09682200 09682800 
BUFF "- RFAL — DFCLARFD AT 12204000 

*12222000* 12223000 12298000 12310000 12321000 
BUFF — STREAM VARIABLE " DECLA^FD AT 12310000 
BUFF -- REAL -- VALUE PARAMETER -- DECLARFD AT 15400000 



154CH000 15423000 154?7000 15437100 15438060 1543M50 
BUFF -- STREAM VARIABLE — DECLARED AT 15404000 

15405000 
BUFF •- REAL -" NAME PARAMETER — DECLARED AT 15500000 

*15501200* 15501600 15531200 
BUFF — STREAM VARIABLE " DECLARED AT 15531200 

15531300 *1553l500* 
BUFF — RFAL -- VaLiiE PARAMETER -» DFCURrD AT 15534000 

15541000 15550000 
BUFF "- STREAM VaRIABLF — DECLARFD AT 155*1000 
BUFF -'- STREAM VARIABLE " DFCLARFD AT 15550000 
BUFF -• STREAM VARfABLF -- DECLARED AT 16036200 

16036400 16036*00 16037500 16040600 *l60ft0700* 
BUFF mm STREAM VarIAB|,E -- DECLARED AT 16041200 

16041400 *16043300* 
BUFF — REAL — DECLARED AT 16048000 

16049000 16070000 *16072000* 16076000 16079000 +16085000* 16109500 16154000 16247000 16261000 16343200 

16343500 16343700 
BUFF -- RFAL — DFCLARFD AT 16349000 

16350000 16371000 M6373000* 16377000 16494000 16500000 16503000 16503*00 *16503200* 16505100 16506000 

16689100 16689300 
BUFF -- STREAM VARIABLE -- DECLARED AT I65O6OOO 

16508000 
BUFF -- REAL •- DECi.ARFD AT 16692500 

16693000 16697100 16708000 *16710500* 16712500 16713000 16714000 I68l9<|00 I68548OO 16902600 16902800 
BUFF •- REAL -* DECLARED AT 16908000 

16908500 16912000 # 1 69 1 8500**1 69 19500* 16921000 16921500 1.6925500 16926000 16927000 16954000 16954500 

16956040 16958620 16959000 16962000 16965000 *16967000* 16967500 *16968l20* 
BUFF — STREAM VaRIARLF " DFCLaRfD AT 16956040 

16956050 
BUFFADR -• REAL ARRAY -- DECLARED AT 28604000 

28831OOO *2«87l000* 288?2000 28873000 
BUFFEND -- STREAM VARIABLE -- DECLARED AT 0*652200 

04652400 04652500 04653400 O46536OO 
BUFFER — REAL -- DfCLARED AT 04554600 

*04651500* 04652100 04652200 04656400 04657700 04658800 04659500 
BUFFER <■- STREAM VARIABLE — DECLARED AT 04656400 

04656800 
BUFFER -- STREAM VARIABLE « DECLARED AT 04657700 

04657900 
BUFFER -- STREAM VARIABLE -- DECLARED AT 04659500 
BUFFERSIZE — REAL — DFCLARED AT 04554600 

*04651600* 04652200 *04654700* 04656300 04657600 04658900 
BUFFERSIZE •• STREAM VARIABLE *» DEC.LaRFD AT 04656300 

04656900 
BUFFERSiZE -" STRFAM VARIABLE — DECLARED AT 04657600 

O4658OQO 
BUFFSjZE -- DEFINE — DECLARED AT i550i)00 

15501200 
BUFFSTApT — STREAM VARIABLE — DECLARED aT 04652100 

04652600 
BUILDaVaIL -• SUBROUTINE -- DECLARED AT 40027100 

40100300 40100700 40100900 40101300 40261046 40292050 
BUILomEaDFR — SURROUTlNr — DFCLa r FD AT 20289045 

20289140 20289520 
BUILDLABEL — PROCEDURE « DECLARED AT 37337000 

37455000 38?75500 



BUIlDmESS -- LABEL -- DECLARED AT 41316500 -- OCCURS AT 41321700 

41318500 
BUMP — REAL — VALUE PARAMETER -- DECLARED AT 02347210 

023>»7?O0 O?347?10 0?3fl7240 
BUMpF A — REAL — OFCLARFD AT 28003000 

28003200 
BUMPFa " REAL " DFCURFD AT 26401400 

28429000 28429/jOO 28443200 *26457000* 
BUMPTUMaSK « DEFI^F — DFCLaRfD AT 00080950 
BUMPTUTtME — DEFINE -- DECLARED AT 000b0950 
BUS .- REAL -- DECLARED AT 08676000 

*086?9000* 08660000 06667100 08669000 
BUS »- STREAM VARIABLE — DECLARED AT 08660000 
BYBY — DEFINE « DECLARFD AT 00005220 

02181000 04004170 06037300 06380350 14603750 18O13OOO 40278150 
BYE — LAREL — DECLARFD AT 14547000 — OCCURS AT 14603750 

H598000 
BYF -" L.ARFL -- DECLARFD AT 40008050 -"" OCCURS AT 40278150 

40293102 
BYPASS "• REAL -- OrClARFD AT 00418850 

+14596000* 14598000 14598200 *H603330* 14603700 4OO11OOO *40?6600O+ 40278i00 *40278200**«0293090* 40293100 

4079310) *44?40500* 44240580 
BZ -- LABFL -- DECLARED AT 058*7800 -- OCCURS AT 05853700 

05849000 
BZ — LABEL — DECLARED AT 0595260O — OCCURS AT 05961000 

05971400 
B6500 -- DEFINE -- DFCLAPED AT 20247800 -* OCCURS AT 16192000 
B6500 •• DEFINE " DECLARED AT 78007800 

28022400 76025000 28078600 78036400 28063200 28063800 
R6500 — nEFlNF -* nFrl aRED AT 28206800 

28213200 28217000 28219600 28225000 28225400 28235000 28735200 28237?00 28273400 ?8276000 
B6500 — nEFlNF — OFCURED AT 28405400 
C «<* REAL — VALUE PARAMETFR -- DECLARED AT 00379700 

00179600 
C — REAL — VALUE PARAMETER -- DECLARED AT 00429000 

00478000 
C — INTEGER — VALUE PARAMETER -- DECLARED AT 00432000 
C « REAL — VALUE pARAMETFR -- DECLARED AT 00452800 

00452600 00452700 
C -- REAL -" NAME PARAMETER -- DECLARED AT 02052800 

02052700 
C -" STREftM VARIABLE " DECUaRFD AT 02275800 

02275900 
C •" REAL " DFCURrD AT 02361000 

♦02364000**02368000* 07371000 0?372000 
C — REAL « DFCURrD AT 02384000 

02392000 
C -» STREAM VARIABLE -- DECLARED AT 02392000 
C «•- REAL — VALUE PARAMETER -- DECLARED AT 07393500 

02393400 
G — REAL -" VALUE pARAMFTFR -- DECLARED AT 0?696200 
C — REAL « DECLARFD AT 04004000 

04007000 0401400? 
C — STREAM VARIABLE — DECLARED AT 04109000 

04111000 

c "' real — value parameter — declared at 04122000 

04128900 04129000 04134060 0«l46l00 04146200 04150200 04194600 



C — LABEL -- DECLARED AT 05841650 -- OCCURS AT 05843600 
05842500 05643950 

C -- INTEGER -" DECLARFD AT 05847700 

05848300 *05850jl0* O585O13O 058513C0 *05652000* 0585?l00 05852700 
C "• INTEGER -" DECLARFD AT 0595J800 

05952220 *0596l?00* 05961600 #05968600* 05968800 05968900 05971800 05972000 #05973000**05973600* 05974000 

05974400 
C •- TNTECER — DFCLARFD AT 06069100 

06074100 O6O863OO *060f?700* 06092800 06093700 *06097200**06097300**06098700**0610 1000* 
C — STRfaM VARIABLF -- DECLARFD AT 06074100 

06076200 *06076300* 
C -- REAL •- DECLARfO AT 064621 00 

06463600 06463620 06463680 06464*00 06464900 *06465000* 06465l00 06465850 *064659l0* 
C »- REAL " DECLARFD AT 07244000 

•07251000* 07253000 07253100 +07255000* 07259200 07262400 
C *• STREAM VARIABLE " DECLARED AT 07262400 

07263200 
C "• STREAM VARIABLE -- DECLARED AT 07295o?0 

07295050 
C — REAL -- OFCLaRfD AT 08099450 

08104900 08104950 08105400 08112150 
C — STREAM VARIABLE — DECLARED AT 08)12i50 

08l J2400 
C -- INTEGER — DeCi.ARfD AT O83O6OOO 

♦08307000* 08308000 08309000 
C ■»• REAL SUBROUTINE -- DECLARED AT 08344100 

08344200 08358000 08356100 0836000O 
C — STREAM VARIABLE -- DECLARED AT 08344200 

08355000 
C •" REAL — DECLARFD AT 08377000 

#08385100* 08385200 08385300 08385400 08385500 
C •" STRFAM vaRIABLf — DECLARFD AT 08473000 
C •• STRFAM VARIABLF -- DECLARFD AT 0888700] 

08888000 
C -- STREAM VARIABLE -- DECLARED AT 12657000 

12659500 
C -- REAL •- DECLARED AT 14002000 

♦140 38000** 1404 0000** 14058000** 14 064 00** 14066000* 14067000 14078000 

c -" real "" value paRa m ftfr — declared at iaissooo 

H186000 14186J60 14186170 14206320 14206330 14208000 14216000 14218030 H218088 14225000 14239000 

14299000 
C — REAL -- VALUF PARAMETER " DECLARED AT 14342100 

C -- STREAM VARIABLE -- DECLARED AT 14535000 



14537100 



C -- STREAM VARIABLE -- DFClARF.D AT 14570000 

14578000 
C -• REAL — VALUE PARAMETER — DECLARED AT 15169000 

15168000 15168100 15170000 15176000 15182000 
C •• REAL ARRAY — DECLARED AT 15600400 

♦15600800+*15600950^*15601000**1560l600* 15602500 15602600 15602640 15604000 15604100 15604800 
C *• STRFAM VARIABLF — DECLARFD AT 16088000 
C •» STRFflM VARlABLp -- DFCLARrD AT 16828200 
C •- STREAM VARIABLE « DECLARFD AT 18455000 

18456000 
C »- SWITCH LABEL — DECLARED AT 185O18OO 

18504000 18521000 
C -- STREAM VARIABLE -- DECLARED AT 18521000 



18521400 
C -- SWITCH LABEL « DECLARED AT 18701300 

18702200 
C -• SWITCH LABEL -- DFCLARED AT 19511000 

195?6000 
C *- STRFAM VARIABLE " DFCLARFD AT 20030800 

20031700 
C •* STRFAM VARUBLF — OECLaRfh AT 20043700 

20044000 
C — STRfaM VARUBLF — OFCLaRfh AT 20053200 

20054100 ?0054500 
C •- STREAM VARIABLE — DECLARED AT 2O06H00 

20061300 20062?00 
C -- STREAM VARIABLE — DECLARED AT 20105900 

20106200 
C •- REAL •" NAME PARAMETER -- DECLARED AT 20382015 

20382010 20382056 20382095 *20362600**20382680* 
C — STRFftM VARIABLE •• DFCLARFD AT 20511660 

205H670 20511702 
C " STRFAM VARIABLf -- OFCLARFD AT 20571700 

20571820 
C -- STREAM VARIABLE — DECLARED AT 20595950 
C -- REAL " VALUE PARAMETER -- DECLARED AT 3p000l00 

32000000 32000*00 
C -- STREAM VARIABLE « DECLARED AT 32000800 

♦32001400* 
C -• STREAM VARIABLE *- DECLARED AT 37046192 
C — STREAM VARIABLE « DECLARED AT 37256000 

c -- stream variable -- dfclared at 37284i3o 

c — real -- value parameter -- declared at 37357500 

37357300 37357400 
C "• STRFAM VARIABLE " DFCLARFD AT 38159500 

*38l6l000**38162000* 
C « REAL ~- DECLARrD AT 38362000 

3B456OOO 38464000 
C • - REAL •- DECLARfD AT 38547000 
C •• REAL — DECLARED AT 38655000 
C -- REAL " DECLARED AT 40004000 

40257030 40?57n60 4C2580O0 4026lOin 40261044 40261048 40261200 40261300 #40285010* 40285030 40285500 
*40286000* 40287000 *40293050* 40293060 40?93070 40293080 *40321400* 40321500 40321700 *4O32l9l0* 40322400 

40323100 #40323710* 40323900 
C -- REAL -- DECLARfD AT 41003000 

41191100 
C mm STREAM VARIABLE « DECLARED AT 41317780 
C — STREAM VARIABLE — DECLARED AT 41320360 
C •- STREAM VARIABLE « DECLARED AT 41320600 
C — STREAM VARIABLE -- DECLARED AT 41500800 

41501400 
C — STREAM VARIABLE « DECLARED AT 41606200 

41606400 
C -" REAL -- DECLARFD AT 44011000 

44037300 *44037400**44154010* 
C " REAL "- DECLARFD AT 44206700 

♦44264000**44265000* 44265500 44266500 *44268500* 44270000 44271000 44271500 44272000 
C •- REAL — DFCLaRfO AT 45002000 
CA -• LABFL -- DECLaRFH AT 16355000 — OCCURS AT 16486000 

16364000 



CADOR -- REAL — DECLARED AT 20566100 

*20580300* 

CADDR «- REAL -- DECLARED AT 20581000 

20582100 20582350 

CADDR — REAL — DECLARED AT 20584000 

♦20585550* 

CADDR — REAL — DEpLaRED AT 20586800 

caddr -" real •- ofrlared at 20589800 

cadd" -- Real — declared at 20591000 

caddr -- real — declared at 20595000 

caddr •- real — declared at 20596800 

caddr -- real — declared at 20600010 

20605050 *20605340* 
CADDR — REAL — DECLARED AT 20701500 
CALCULATEpUpGE — InTpG-ER PR06EDURE •• DECLARED AT 02380000 

♦02391000* 0264ln00 06188100 08105700 l56?2000 20157700 22012000 22909000 28418400 37345000 
CALLEnORCONT — REAL — OFCLaRFO AT 19693000 

♦19696700* 19697200 19799060 
CANDETNPUTARFAV " DFFINf " DFCLARED AT 00017572 
CARD — RFAL — VALUE PARAMETER -- DFCLaRFD AT ?0289020 

202890^0 20289020 20289j«i? 20?89i60 
CARD -• STREAM VARIABt.E « DECLARED AT 20289160 

20299210 20289?40 
CARD -• REAL -- VALUE PARAMETER « OECLARFD AT 20511120 

20511100 20511110 20511420 20511720 
CARD -- REAL -«■ DECLARFD AT 20566100 

20566785 20574925 
CARD "• REAL — DECLARFD AT 20581000 
CARD •- RFAL -• DECLARFD AT 20584000 

20585610 
CARD •- RFAL -- DFCLARFD AT 20586800 

20587370 
CARD -- REAL -- DECLARED AT ?0589800 
CARD -- REAL -• DEC| ARED AT 2059J000 

20592700 
CARD -- REAL -- DECLARED AT 20595000 
CARD — REAL -" DECLARED AT 20596800 

CARD — REAL — VALUE PARAMETER « DECLARED AT 20597550 
CARD -- RFAL — DECLARFD AT 20600010 

20600850 20600000 *20600950* 20601000 20601200 20602000 20602470 20602480 20602500 20602530 20602900 

20604400 20605500 20605510 20607020 20607600 20606112 206Q8H4 20608870 20609435 20609436 20609660 

20610260 
CARD — RFAL -• DFCIARFD AT 2070J500 
CARD -• LABEL -<- DFrLAREO AT 22064000 -- OCCURS AT 22209000 

22065000 
CARDLOC -- REAL — VAlUE PARAMETER -- DEC L ARED AT 20292200 

20292000 20292J00 20295100 20298000 20299000 20299030 20300000 20303000 
CARDLOC -- STREAM VARIABLE — DECLARED AT 20299030 
CARDLOC — STREAM VARIABLE -- DECLARED AT 20300000 

20301000 20301100 20301500 
CARDLOC — REAL — VALUE PARAMFTER "" DFCLARED AT 20314200 

20314000 203J4100 20325000 2037*400 20374401 20374415 
CARDLOC "- STRFAM VARIABLE "- DFCLARED AT 20374401 

20374402 *20374<|04**20374406* 
CARDLOC — STREAM VARfABlF — DECLARED AT 20374415 

20374425 
CARDLOC -- REAL -- VAL^E PARAMETER -- DECLARED AT 20386000 



20384000 ?0385000 20397200 

CARDLoC -- REAL "" DECLARED AT 20566100 

20566900 20576754 20576756 20576768 

CARDLoC -- REAL " DFCLARED AT 20581000 

CARDLOC " REAL — nECLARFO AT 20584000 

20584200 20585715 20585725 

CARDLOC "- REAL -- hECLaRFO AT 20586800 

20587100 

caRd^oc -- Real. -- hfcLaRed at 20589800 

20590000 

CARDLOC -- REAL — DECLARED AT 2059i000 

20591400 

CARDLoC — REAL — DECLARED AT 20595000 

20595350 20595400 205*5550 20595560 20595900 20595950 20596200 20596300 

CARDLOC " REAL -- nErl-ARED AT 20596800 

CARDLOC " RFAL — nFCURFn AT 20600010 



n^AU nFCLANFi) AT <r"CUUUJO 
20600040 20600|50 20600170 20600390 *20602000* 20602100 20602150 20602250 20602530 20603100 20603150 
20603250 20604}05 20604850 20605050 20607020 20606070 20608200 20608700 20609000 20609350 20609435 
20610200 



2< 

► 1 02< 

CARDLOC -- STRFAM VARIABLE -- DFCLARED AT 20600t70 

20600180 *p0600?60* 
CARDLOC — STRFAM VARIABLE «— DECLARED AT 2O6OO39O 

20600410 ?0600<i60 
CARDLOC « STREAM VARIABLE -- DECLARED AT 20607020 

20607260 
CARDLOC — REAL — DFCLARED AT 20701500 

20706000 

caseo -» Label — dfclared at 26006000 -- occurs at 23050000 

28010000 

casfi •- label -- dfcLaRfd at 28006000 — occurs at 28O67200 

28010000 
CASE2 • « LABEL -- DfCLaRED AT 26006000 — OCCURS AT 26067600 

280^0000 
CA5E3 — LABEL -- DfClARED AT ?«006000 -- OCCURS AT ?B050l00 

28010000 
CASE4 -- LABEL — DECLARED AT 26006000 -- OCCURS AT 28067800 

28010000 
CASES -" LABEL « DECLARED AT 28006000 — OCCURS AT 26068200 

28010000 
CASE6 -" LABEL — DfCLaRFD AT 28006000 -- OCCURS AT 28075600 

28010000 
CASE7 -- LABEL — DfCLaRFD AT 28006000 -- OCCURS AT 28094400 

260i0000 
CASf.9 -- LABFL -- DfClARED AT ?8006000 -- OCCURS AT 28097600 

280i0200 
CATCH •• INTEGFR -- DECLARED AT 14351200 

♦14358150* 14383740 
CAUSEL -- LABEL -- DECLARED AT 19901600 — OCCURS AT 19903500 

19901700 

cc — Label -- declared at 16356000 — occurs at U505000 

16365000 

cc — label — declared at 20597650 — occurs at 20602650 

20599000 20606700 20608810 20609410 
CC — UaBfL " OFCLiRFO AT 88661000 -- OCCURS AT 38725000 

38815000 
CC — LABEL — DECLARED AT 41005000 »- OCCURS AT 41054000 
CCA -- LABEL -- DECi.ARFD AT 20566600 -- OCCURS AT 20580300 



20576790 20580000 20560100 
CCA -- REAL ARRAY -- DECLARED AT 28004400 

28012130 28012140 28053600 28054600 
CCA •" RF«L ARRAY « nFfURFO AT 28401800 

28409600 2P409800 *28455400**28«55600* 28456000 28458400 28459000 28460000 28461000 28462200 28462800 

28464400 28465*00 28482400 28482600 
CCATN •- RFAL -- DECLARED AT 28002400 

2800?600 38053 6 00 28O546OO 
CCAIN -- REAL -- DECLARED AT 28401200 

*284j0200**?8456?00* 28458400 28459000 *?6459800* 28460000 28ft6l000 28462?00 #28462600* ?846?800 2^464400 

28465400 *2848l000* 28482400 
CCC • • LABEL -- DECLARED AT 20590910 -- OCCURS AT 20594450 

20592850 20594000 
CCC — LABEL — DECLARED AT 20597880 -- OCCURS AT 20605870 

20609560 20609«s70 
CCCQMplLE — REAL PROCEDURE « DECLARED AT 20583800 

*20584340**20585250**20585350**205853BO* 20586650 20603750 
CCrOUNT — DEElNf -- OFCLaRFD AT 02112100 
CCFRR •- LABFL « DfCLaRED AT 20701000 -- OCCURS AT 20782000 

20714500 20717000 20718000 20721000 
CCFTNp -- REAL PROCEDURE " DECLARED AT 20596750 

♦ 20597450* ?0597«s00 ?0602950 2O6O445O 
CCFINISH -- PROCEDURE -» DECLARED AT 20580800 

20583750 20609 ft 00 
CCLABEL -" REAL PROCEDURE — DECLARED AT 20594850 

♦20505750**20596500**20596600* 20596700 206095O0 
CCLIB •■ REAL PROCEDUpF " DECLaRFD AT 20566000 

♦20580100^*20580?00+ 20606600 
CCSFCMAfNT -- RFAL PROCfOURf — DfCLARfD AT 20590850 

*2059i750^2059 1 e50^*20592800*+?0594400*+20594500^*?0594550^20594700* 20594800 20606050 2O6O61OO 20606350 
CCSET -- REAL PROCEDUPF -- DECLARED AT 20700000 -- FORWARD AT 20580400 

20606700 *207i n 00**?07» j 000* 2078<i000 
CCTABt.S? » DEFINE -- DECLARED AT 00«4i00o 

20601660 20601720 20601740 
CCTBLADDR -' DEFINE — DECLARED AT 02112200 

20601640 20601760 20610420 20610430 
CCTBLWORD — REAL — DECLARED A T 02112000 

*20601600^ 206016*0 20601660 ^2060 1760 **206 10400* 20610420 *20610430* 
CCTYPr " LapfL -- nFCtAREn AT 20597650 — C rURS AT 20602800 

20599000 20606000 20608080 20610100 
CCUNIT — RFAL PROCEDURF « DECLARED AT 20589700 

*20590300**20590730+*?0590740* 20590800 20606800 
CD -- LABFL — DECLARED AT 16700000 -- OCCURS AT 16786000 

16704500 
CD -- STREAM VARIABLE -- DFCLARED AT 38274000 
CD *- LABEL — DECLARED AT 3866J000 -- OCCURS AT 388O2OOO 

38662000 
CD •• LABEL -- DECLARED AT 41005000 — OCCURS AT 41054000 

41006000 
CDATE -- REAL — VAlUE PARAMETER -- DECLARED AT 00373000 

00371000 00372000 
CDATE •" REAL "• VaLUF PARAMETER " DECLARFD aT 00376000 

00374000 00375000 
CDATE •• RFAL — VALUF PaRAMETfR « DECLARED AT 37002000 

37000000 37001000 37046178 37046730 37174100 
CDATE »- REAL — VAlUE PARAMETER « DECLARED AT 37179000 

37177000 37178000 37193000 37l97500 37i99 t 00 37216000 372242^0 3724O2OO 37260000 



COATE • - REAL -- VALUE PARAMETER •- DECLARED AT 37342000 

37337000 37339000 
CDATE — INTEGER — DFCLARFD AT 38007000 

38014400 *380l540n* 
COATE -- JNTFGER — DECLARED AT 3810?700 

38104900 38105800 36113000 38151000 
CDATE •" TNTFGFR — DFCLARED AT 38200700 

38202900 38203800 38213500 38274000 38275500 38296750 
CDATE — TNTFGFR -" OFptARFO AT 39004100 

39087100 *39087500* 39143000 
CDEX »- REAL -- DECl.ARFD AT 2O5661OO 

*20580300* 
CDEX — REAL — DECl.ARFD AT 20581000 

20582250 20582300 *20582500* 20583300 20583450 20583500 20583600 
CDEX •• REAL -" DECLARED AT 20584000 

♦20581750**20585000* 
CDEX -» REAL — DECLARED AT 20586800 
COFX -- RFAL — DFCLARFD AT 20589800 
CDFX — RFAL -» DFCLARFD AT 20591000 

♦20591900* 20592000 *20592950* 20593650 

cdex — Real — dfclarfd at 20595000 
cdex — real — dec| ared at 20596800 
cdex — real — decl.arfd at 20600010 

20605050 *2O6O53A0* 
CDEX — REAL — DECLARED AT 20701500 
CDFREE — DEFINE " DECLARED AT 00081710 
CDMASK •- DEFtNE -- DECLARED AT 00081710 

07001640 07001840 07272500 07296000 07301000 07352000 07371300 07371600 07371950 07426000 07427625 

07455000 07572000 451*8000 
CDNljM mm sTRFAM VARTARLF — DECLARFD AT 07001680 

07001720 
CDONLY -- DEFINE — DECLARED AT 00416780 

07253100 20152300 22209400 
CDONLY -- REAL — DECLARED AT 07007100 

07059110 »07072000* 
CELL — REAL — DECLARFD AT 04257600 
CELL "• DEFINE " DFCLARED AT 06073200 

06090600 06090800 06101600 06108000 06J09000 06115700 
CFON — RrAL ARRAY -- OECLrtRFD AT 20566100 
CFGN -- R rA L ARRAY — OFCLaRED AT 20581000 
♦20582200**2058 2250**20582300* 20562350 

ceon -. Real array -- declared at 20554000 

*20584 400+^?05fl4550*^20584600*^20584650**20584700^*?05847i0 ♦♦20584850 ♦♦20584900 ♦♦20585000* 20585450 205856 30 
205B6000 20586050 

CEON -« REAL ARRAY -- DECLARED AT 20586800 

CEQN -» RFAL ARRAY -- DECLARED AT 20589800 

CEON — REAL ARRAY — DECLARED AT 2059iQ00 

CEON — REAL ARRAY — DECLAREO AT 20595000 

CEQN -« REAL ARRAY — DECLARED AT 20596800 

CEON — REAL ARRAY — DECLARED AT 20600010 
♦20601900^ 20605050 

CEON -• REAL ARRAY -- DECLARED AT 20701500 

CF •- FIELD — DECLARED AT 00060100 

00060120 00656200 01250800 0l26n00 01261300 01261400 02133300 02173230 02208000 02212000 02215000 
02216010 02216200 02262000 02263000 02275600 02276400 02285000 02318000 02319000 02321000 02322000 
02323000 02662000 04004150 04137250 04137270 04194500 04568470 04568520 04568530 04638200 04638900 
04647100 04671750 04686450 04726000 047 2 7000 05953400 06013000 06031000 06086400 06089900 06097000 



CHAIN m 

* 
CHAN •- 

CHANG • 
CHANGE 

CHANGFAB 

CHANGfDa 

CHANGfFa 

CHANGElN 

CHANGFMC 

CHftNGFNfl 

CHaNGfNa 
CHANGfOP 

changfpr 
chanIo 



063*0525 
07333000 
08177200 
06839000 
12397000 
I3l0 t 000 
14360600 
15422000 
16852100 
18047500 
18443000 
19685350 
19768750 
20035500 
20124900 
20567335 
20576210 
20582550 
2060l760 
22?84000 
22354000 
240?4000 
28051200 
28A67000 
32001500 
38439000 
38594300 
40060302 
40293l0i 
41310900 
44101000 

- REAL 
14358800* 

LABEL 
20566620 

- DEFINE 
"- LABEL 
20598000 
ORT — 
06187000 
TE -- P 
06188100 
CTOR -- 
08849000 
TRINSICFI 
16801500 
P — PR 
16168000 
ME — L 
18524400 
ME — L 
TlON — 
16254000 
IORTTY - 
075l?000 
•"" REAL 
04007000* 



064 1 inoo 
07417000 
08179*00 
08864000 
12«22500 
l40]5?00 
14362000 
15601000 
16852800 
l80/|9f)00 
18559000 
19685360 
19778000 
20035700 
20125000 
?05673«5 
20577*75 
20583150 
20607040 

222842 00 
22356300 
24030000 
28246R00 
28612000 
37046830 
38443000 
38683000 
40062000 
40293110 
413H000 
44149Q00 

— DECLARE 

144U620 

■- DECLARE 

20579900 

— • OECI.A 

— DECLA 



06463880 

07451000 

08259450 

08886000 

12561600 

1 6 18616O 

14387000 

15601400 

1*853000 

18053000 

16720200 

19707000 

19779000 

20035900 

20125300 

20567350 

20577775 

20583250 

206j04?0 

22286050 

22363000 

24033200 

28254000 

28823000 

37047600 

38452000 

38732100 

40065020 

40309200 

41319000 

44150000 

D AT 1435 

14 4H660 

D AT 2056 



06463968 
07503000 
08269200 
08932000 
12647500 
14206320 
14403900 
15602200 
16853100 
18063000 
J8720400 
197H300 
19761000 
20049800 
20163700 
20569975 
20577925 
20583350 
206i0430 
22286060 
22365300 
24034000 

28273400 
28858000 
37233500 
38458000 
39303000 
40070000 
40317210 
41329800 
44189550 

1210 
144j i740 

6600 -- 



07003440 
07559000 
08269300 
06936000 
12653500 
14280000 
14431470 
15602500 
16853500 
18071000 
18740600 
19720000 
19785000 
20050000 
20174300 
20572300 
20578600 
20583600 
20704250 
22286i80 
22390000 
24034400 
28299600 
28882400 
37255900 
36466000 
4OO11OOO 
40078030 
40317300 
41334700 
44189600 



07264000 
07565000 
08270000 
08938000 
12665500 
14283000 
14598000 
15602640 
16926020 
18075500 
18740900 
19724000 
19900760 
20066600 
20187300 
20572500 
20578650 
20585375 
20758000 
22296000 
22410000 
24035800 
28307710 
28887000 
37329000 
38471000 
40016200 

40078032 
40321700 
41334900 
44201300 



07278000 
08105350 
08276500 
09618000 
12863000 
!4284000 
14598200 
15604200 
16928500 
18232000 
18810300 
19727000 
19900815 
20089600 
20382680 
20572700 
2O58O3O5 
20587550 
22069440 
22301000 
22907000 
24037000 
28409800 
30910000 
37509000 
38476000 
40027240 
40078038 
40322220 
41500200 
44240690 



07312000 
08105400 
08296350 
09622000 
13036000 
1435J350 
14599910 
16224000 
17003000 
18272200 
18844600 
19750000 
20021700 
20105350 
205H420 
20575050 
20581400 
20588900 
221*5550 
22307000 

229J8000 
24037300 
28425200 
31010000 
38137000 
38496000 
40047100 
40078040 
40323200 
41602600 
44260000 



REO AT 20225500 
RED AT 20597800 



OCCURS AT 20576850 



OCCURS AT 20606500 



DECLARED AT 22900000 



FORWARD AT 06179000 



PROCFDURF - 

20180600 
ROCTDURE " DFCLARED AT 08376000 -- FORWARD AT 02393100 

06373000 15622000 20157700 220i2000 22012500 22909000 

PROCFOLIRF -- DFCLARED AT O880O0Q0 

16132000 
LE -- PROCEDURE -- DECLARED AT 09600000 -- FORWARD AT 02111200 

OCEDURF -- DECLARED AT 09679100 -• FORWARD AT 021H100 

ABEL — DECLARED AT 185olloO " OCCURS AT 18525700 

ABFL — DFCLaREO AT 19521000 
PROCFOURF -- DFCLARED AT 08624000 

- PROCEDURE -- DECLARED AT 07485000 

16251000 
ARRAY -- DECLARED AT 00169000 

04128900 44164020 



07318000 
08106040 
08299000 
09657000 
13075000 
14358398 
14600000 
16505)00 
18015000 
18273030 
18845200 
19751000 
20025000 
20H9000 
205H610 
20575i00 
20581800 
20594350 
22264000 
22314000 
24006000 
24152000 
28431800 
31017300 
38247500 
38499000 
40048000 
40078042 
40323300 
42525120 
44260500 



07321100 
08108200 
08434500 
12271500 
}3080lOO 
14358615 
14603700 
J6804500 
I8O18OOO 
18273040 
19569000 
19754000 
20034500 
20120100 
20566830 
20575200 
20582000 
20600120 
22266000 
22326800 
24007000 
28012140 
28455600 
31017400 
38284000 
38573100 
40049000 
40078048 
41204000 
42525150 
44265500 



07330300 
08H6350 
08718000 
12387500 
13081000 
14360370 
14702600 
16851200 
18022000 
18276500 
19575000 
19766300 
20035300 
20121800 
20567325 
20575600 
20582350 
20601640 
22267000 
2232«400 
24017000 
28013000 
28459000 
31021000 
38437000 
38587000 
40051000 
40278jOQ 
41310700 
44037400 



CHANNFl -- REAL ARRAY — DECLARED AT 00170000 

♦04005000* 0^129000 *04156000* 44164010 48117200 
CHAR — RrAL — DFCLARFO AT 22230000 

22259000 22283000 *22286020* 22286040 22286)70 +22300000* 22305000 *22307000* 223H000 *?23l4000* 223l5000 

22320000 *22376000**22420000* 
CHECK -- SUBROUTfNF »- DFCLAREO AT 02434)62 

02434600 0?434630 
CHECK -- LABEL « DfC|,ARED AT. 14548000 -- OCCURS AT 14563000 

14589000 
CHECK — LABEL — DFCLARED AT 16914000 — OCCURS AT 16946600 

16926270 
CHECK -«• LABEL — DECLARED AT 18202000 — OCCURS AT 18291000 

18302000 
CHECK — SUBROUTINE -- DECLARED AT 20566665 

20566805 20566pl0 20569925 20570030 20570140 20570160 20570560 20570577 20576220 
CHFCKtO " RfaL SUBROUTINE "" DFCLARED AT 37323100 

37323300 37324000 
CHECK. lOBORFfLEMESS -- PROCEDURE -- DEClARfD AT 41312000 -- FORWARD AT 04121500 

04283000 04366800 41051620 4)3)4900 
CHECKlJNK •- DEFINE — DECLARED AT 00416560 
CHECKSTACKSpACE — DEFINE — DECLARED AT 02693000 

04103100 08173200 14014100 19525000 31005010 42517100 
CHECKTERMIX « SUBROUTINE — DECLARED AT 37185310 

37218400 37228000 37241500 
CHK -- STREAM LABEL — DECLARED AT 04363200 — OCCURS AT 04363800 

04363400 
CHKLbL — OFFINE — DFCLaRED AT 28009200 

28025600 2»026?00 ?60?9400 28055000 2«062600 28066000 28068800 
CHKLBL " DEFINE — DFCLARED AT 28209800 

28220200 28220800 
CHRERR — STREAM VARIABLE — DECLARED AT 04658600 

*04661300* 04662400 
CHUnkSIZE -- DEFINE -- DECLARED AT 00339000 
CI «■- LABEL -- DECLARFD Al 16700500 •• OCCURS AT 16798000 

16704500 
CIDROW •• REAL ARRAY — DECLARED AT 02187500 

02347330 07372)00 07409000 07415100 *074l9800* 07429000 #07433000**07437300**07453000* 07462500 07478500 

06175300 08478800 20297000 *20489 lOo **20585050* 20595450 *20595500**20595550**20596450**20606900* 37241020 

38i46500 *3fli47000* 36804000 39)45210 44164500 
C1DR0WAREAV -- DEFINE »- DECLARED AT 00017390 
CIDTABLE *- REAL ARRAY -- DECLARED AT 02187500 

02347300 07372200 07417400 08478900 *20289i44* 20289160 20289i63 20374100 20374200 20608650 37046410 

37241030 38BO63OO 
CK -»• LABEL -* DECLARED AT 06069900 -- OCCURS AT 06085900 

06085300 
CKBKUp — SUBROUTINE — DECLARED AT 36570000 

38583000 385P4000 38588000 38591100 38595000 
CKFM -» LaBEL -- DErLARED AT 37007000 -- OCCURS AT 37046960 

37046060 37046075 
CL — STRFAM VARlARLF -• DECLARED AT 00032000 

00033000 

cl -*• strfam variable -- declared at 02173300 

02173325 0?l73340 
CL -- REAL -» DECLARED AT 14OO2OOO 

♦14019000* 14020000 14030000 *14072000* 14077000 
CL — STREAM VARIABLE « DECLARED AT 14020000 

♦14022000** 14 027000* 



• - REAL -- DECLARED AT 00024005 

00039055 01260*55 01261170 02008300 02027000 0203A000 02107000 02185900 02364000 

04194050 04194600 04377400 04557200 04557300 04568364 04568366 04671400 04671450 

06203700 06237000 06361705 06415000 070i8000 07262000 08276360 08533700 08536000 



CL -* LflRFL " PF'CLaRFD AT 16055000 — OCCURS AT 16203000 
16063000 

CLAIMT -" LABEL -- DECLARED AT 37004000 -" OCCURS AT 37046160 

37046940 
CLpK -- TNTFfiFR -" HFCURED AT 08395000 

♦08410200* 
CLEANUP -- LABFL -- OFCLARFD AT 38363000 -- OCCURS AT 38537000 

385?9000 
CLEANUP *- LABFL — DECLARED AT 38663000 -- OCCURS AT 38818000 

38792000 
CLEANUP — LABEL — DECLARED AT 41007000 — OCCURS AT 41188000 

41142000 41269000 
CLEAR •- LABEL »- DECLARED AT 04357600 — OCCURS AT 04432400 

04378800 04391800 04406000 
CLFAR — SUBROUTINE — DFC'-aRED AT 40009000 

40267000 40293140 
CLEARTHFFILF •- SUBROUTINE -- DECLARED AT 20704200 

20704280 ?0769000 
CLEARWRS -- DEFINE — DECLARED AT 00413000 
CLOCK *- REAL — DECLARED AT 00024005 

04007000 04014002 
06190000 06203650 
08538000 08886300 
12750250 
18032010 
20190620 
37283000 

48124000 
CLOCK 

08395000 *084tl000* 

close -• label -- declared at 14166000- -- occurs at 14258000 

14268000 

close -- label -- declared at 14627300 -- occurs at 14659000 

14632000 
CLOSE -- LABEL -- DECLARED AT 18205000 — OCCURS AT 18431000 

18358000 18366000 18373000 
CLOSERlT — DEFINE — DECLARED aT 00417050 

cLOSm -- Lapel -- nFcLARFO at 38661000 -- Occurs at 38818000 

38662000 
CLOSER -- LABEL — DECLARED AT 41005000 -- OccURS AT 41308000 

41006000 41O41OOO 41?13000 
CLOSEiNpUT -- LABEL -- DECLARED AT 18206000 — OCCURS AT 18359000 

18213000 
CLOSEmESS — DEFINE -- DECLARED AT 00416000 

38610250 41191200 
CLOSEoUT — LABEL « DECLARED aT 38548000 — OCCURS AT 38645000 

38643000 
CLOSEOUT "- LABEL -- DECLARED AT 38692000 — OCCURS AT 38817000 

38733000 38738000 38744000 38747000 
CLOSEOUT -- LABEL — nrrLARFD AT 41035000 — OCCURS AT 41187000 

41307290 
CLOSEOUTPUT — LABEL — DECLARED AT I82O6OOO -- OCCURS AT 18363OOO 

18914000 
CLO s EpRO T ECT -- LABEL — DECLARED AT 18210300 — OCCURS AT 18374000 

18220000 
CLOSESHARED -• LABEL — DECLARED AT 18206000 — OCCURS AT 18350000 

18213000 




CLOSEWRITELOCK -- LABFL 

18214000 
CLOSEXCLUSTVE " 
18214000 
CM •• LAbfL 

16063000 
CMM • • REAL ARRAY -• NAM 
20511100 ?05lJi8t 
♦ 2051.1480 + 20511S15 * 
CMM -- rfaL ARRAY « OFC 
*20566755*+20566760»* 
*20572800**?0^>7340?*» 
20574850 £057491.0 
20576230 ?0576?40 

*2°577625* 20577675 
20578400 ?0578^?5 
CMM -- REAL ARRAY « OFC 
*2058i350**?O58i950** 

CMM •- REAL ARRAY « DFC 
♦20585450**20585500** 

CMM -- REAL ARRAY -- DEC 
20587200 20587?50 

*20589300**20589<j00** 
CMM -- R Ffl L ARRAY " OFT 
CMM — R Fft L ARRAY — DFC 

*2059i800**2°59i900* 
20593350 20593ft00 
CMM -- RfaL ARRAY " HFC 
CMM .- REAL ARRAY -- DEC 
CMM •- REAL ARRAY — DEC 

*2060l850* 2O6O19OO * 
20606865 20606fi70 
CMM -• REAL ARRAY « OFC 
20704260 20704?70 * 

*20732000* 20765000 
C MM1 -- R FA L — DFCLaReD 

♦20587200* 20587550 

CMPLR — REAL — DECLARE 
CMPLR — REAL -- DEcLARF 
CMPLR -- REAL -- DF.CL.ARt' 

♦20585450* 
CMPLR «• REAL — 
CMPLR — PEA|. •- 
CMPLR -- REAL — 
CMPLR "" REAL — 
CMPLR — REAL "- 
CMPLR " m REAL -- 

20604300 20 
CMPLR -- RFAL mm 
C N "- DEFINE — 
CN -- DEETNE — 

19542000 ]9 

CN -- REAL — DE 

205668^7 ?0 

♦20567178**20 

♦20569320* 20 

♦20569800* 20 



DECLARED AT 18206000 



OCCURS AT 
OCCURS AT 1 



LABEL "" DECLARED AT 18207000 — 
]6278oOO 18374600 
PECLaRft AT 16055000 -- OCCURS AT 16167000 



18367000 
8371000 



L" PARAMET 

205H1B? 

20SH530* 

LARED AT 

20566785* 

20573410* 

20575050 

20576350 

?0577750 

20578525 

LARED AT 

20582550* 

LARED AT 
20585550* 
LARED AT 
20587310 
20589450* 

LaRfd AT 

LaReD AT 
20592000 
20593450 

LARFD AT 
LARED AT 
LARED AT 
?0603200* 

20610350 
LARED AT 
20716000* 
20766000 

AT 20586 
20588100 
D AT 2056 
D AT 2058 
D AT 2058 



ER — D 
2051 1 1B4 

♦20511560 

205661.00 
20566850 

*20573432 
20575100 
20576500 
?05776i0 
20578550 

20581000 
20582600 

20584000 

*205856j0 

20586800 

20587550 
♦20589460 
20589800 
20591000 
♦2059 2 250 

2059 3 650 
20595000 
20596800 
20600010 

20603250 

20701500 
*207l70CO 

20769400 
950 

20586250 
6100 
jOOO 
4000 



ECLARED AT 20511130 

20511188 205U300 
• ♦20511590* 205U620 

20567057 20567097 
•♦20573440* 20573450 
20575200 20575550 
♦20576758* 20576768 
2°5778!5 20577826 
20578575 20578600 

♦2°582650^^20583050* 

♦* 2058 5 6 30 ♦♦20585750* 

2O588O5O *20588200* 
♦•20589470 ••20589480* 



♦ 2°592300 20592400 
20593700 20593750 



20511306 205M315 20511350 20511370 *205ll457+ 
20511660 20511685 

♦20569420+ 20571702 20572300 20572500 20572700 
20573900 20574100 *20574300**20574400* 20574750 
20575650 20575700 *20576050* 20576216 20576217 

♦20577025++20577050+ 20577300 20577325 ♦20577600* 
20577875 20577975 2°578,25 20578 2 00 20578375 
20578625 20578650 

•20583100**20583550* 20583600 

20586450 

•20588250**20588500**20588550* 20588900 20589000 
♦20589490* 



20592725 *20592900**2059 3200**2059 3 3 1 0**2059 3 320* 
20594350 



20605050 *20605340**20605360**20605400* 20605405 ♦20605480++20605500+ 



♦* 20 7 19000**20 7 20 000* 
20771100 20779000 

20588900 20589000 



20724000 20725000 *20726000* 20729000 20731000 



DECLARED AT 20586800 

DECLARED AT 20589800 

DECLARED AT 20591000 

DECLARED AT 20595000 

DECLARED AT 20596800 

DECLARED AT 20600010 
604500 

DErLAPED AT 20701500 
DECLARFD AT 18701100 
OECLARFD AT 195JS000 
553000 19566000 19580000 
CLARED AT 2D566J00 

566915 ♦20567045^ 20567065 ^20567080+ 20567lO5 
567?15**?0567225**20567235* 20567240 20567250 
569610 20569650 *20569670* 20569690 *205697l0* 
569flO? *20569804+^20569846^^20569860* 20569930 



19586000 !9588000 J9682000 1968556O 19685595 19685596 

•20567H5* 20567i20 +20567 158++20567 160+ 20567166 
20567255 20567265 20567270 + 2056727 l* # 20569260 + 
20569730 ♦20569750* 20569770 ♦20569780^ 20569790 
20569940 ♦20569960+ 20569970 +20569990^ 20570000 



♦ 20570065* 20570^0 ♦20570130* 20570150 *20570l90* 20570210 *20570235**20570250* 20570270 20570310 20570370 
20570400 *20570430* 20570450 *2057046 2 * 20570470 ?0570500 20570520 *20570575**20573400* 20573410 *20573430* 
20573440 *?0573470* ?0573480 *20573500» 2«5735l0 *20573850* 20574i00 *20574500* 20574700 ?0576500 *2057(>600* 
20576700 *20576925* 20577025 20577050 *20577300* 20577325 20577350 
CN -- STREAM VARIABLE « DFCLARED AT 205669t5 

*20566940* 
CN -- REA[, — DECLARED AT 2058«|000 

♦20581200* 20583700 
CN -- REAL -- DECLARED AT 20584000 

♦20585200* 20585250 20585300 *20585350* 20585355 
CN -• REAL " DECLARED AT 20586800 
CN -- REAL — DECLARED AT 20589800 

*20590050* 20590200 *20590350**20590500**20590600* 20590650 *20590655**20590670**20590675**20590690**20590695* 
♦20590730* 

cn -- real — declared at 20591000 

*2059i800**20592200**20592400* 2059?700 *20593050* 20593060 20593150 20593200 *20593250**205933 10**20593320* 

20593850 
CN -- REAL — DECLARED AT 20595000 

*20595 150**20595 150**205*5400**205954 50* 20595650 
CN ** REAL -- DECLARED AT 20596BD0 
CN -- REAL -- DECLARED AT 20600010 
CN -- REAL -" DECLARED AT 20701500 

♦20712000* 2071300D 20714000 20714500 *20716000* 20717000 *20719000* 20720000 *2072200O* 20725000 #20726000* 

20727000 20779000 *20780000* 20781000 
CNT •- RE&L — DECLaRFD AT 06068400 

06087100 *0609l500* 06093700 06093900 06094100 *06094800* 06095000 06095100 06095200 
CNT .- STREAM LABFL — DECLARED AT 08291050 -- OCCURS AT 08291125 

0829H25 
CNT -- REAL -- DECLARED AT ?0566?45 

20566247 *20566<S75**20566700* 20566805 20566810 20567058 20567098 *20569240* 20569525 20569528 20569529 

20569670 20569710 20569750 20569780 20569800 20569804 20569890 20569935 20569940 20569965 20569970 

20569980 20570040 20570050 20570140 20570160 20570200 20570220 20570560 20570570 20570577 205/b230 

20576210 

cnt — real -- declared at 28002800 
cnt -- real « declared at 28203200 

28233800 28237400 *28240400**28244400**28244600* 
CNTCTL -- INTFGER " DFCLARED AT 38005000 

♦38024000* 38025Q0O 38028000 38030000 
CNTCTL "- fNTFGER " DFCLARED AT 38102500 

38 1 06600 *38 122500**38 129000**38 14 i500**38i4 3000**38 144500**38 149000* 
CNTCTL — INTEGER — DECLARED AT 382OO5OO 

382O46OO *3824l000**38242500**38245500**38259000**38260500* 
CNTCTl — INTEGER « DECLARED AT 39003000 

39027000 *39237000**39241000**39293200* 
CNTLBITS — REAL SUBROUTINE -- DECLARED AT 38106500 

38106600 38107100 
CNTLBITS — REAL SUBROUTINE -- DECLARED AT 38204500 

38204600 38205100 38270500 
CNTLBITS — REAL SUBROUTINE — DECKED AT 39026000 

39027000 39032000 
CNTRS -• TNTFGER " DECLARED AT 24107000 

*24128000**24131000* 24132000 24133000 *24 1 4 1000**24 142000* 24143000 
COBOL <■- REAL — VALUE PARAMETER -- DECLARED AT 00376000 

OO374OOO 00375000 
COBOL "- REAL — VA| UE PARAMETER — DECLARED aT 00385500 

00385000 00385500 
COBOL — DEFINE — DECLARED AT 20235100 



20585200 20585355 20604300 

COBOL -- REAL •- VALUF PARAMETER " DECLARED AT 37179000 

37177000 37178000 37180100 37225050 

COrOL -- RFAL « VALUF PaRaMfTfR " DECLARED AT 37386000 

37385000 37385500 37388400 37388700 37388800 37394025 

COBOL -* t NTFGF R " DFCLaRFO AT 38004000 

380 ? 3000 380 ? 4i00 *380j>4 2 00* 380 2 7i00 *380?7;>00* 38O41OOO 38O44OOO 380ft9 ? 00 3805?000 38O535OO 38O61OOO 

380fi?000 38072000 38082400 3809?900 
COBOL — INTEGER — OECLARED AT 38102400 

38113000 
COBOL — INTEGER — DECLARED AT 38200400 

38243500 38262500 38270000 38279000 
COBOL -- INTEGER — DFCLARFD AT 38360000 

38389000 36389100 38391020 38528000 
COrOL -- tNTFGFR •■ OFfLARFD AT 38545000 

38586000 
COBOL -- iNTFGFR — DFCLARFO AT 38653000 

38682000 
COBOL — INTEGER — DECLARED AT 39003000 

390flj000 *3909j'i00* 390920iO 39145200 39146000 39147000 39?33000 39304000 
COBOL — INTEGER — DECLARED AT 41002000 

♦41051000* 41051100 41212100 
COBOLDCWR — LABEL — DECLARED AT 14628000 " OCCURS AT 14660500 

14632200 
COrOLfIraRFaV — DEFINE •- DECLARED AT 00017250 
C0R0L68 "- DFFINf " DFCLaRFD AT 20235080 
C0R68 -- REAL <•- DErLARFD AT 15066000 
♦ 15073000* 1,5080900 15102900 

code -- Real -• namf parameter •- declared at 01240000 

0l?40l00 
CODE -- REAL •- VALUE PARAMETER — DECLARED AT 08098700 

08O98600 08098ft50 08101650 0810200O 08102050 08102700 08104550 08105450 08105600 08106020 
CODE — STREAM VARlARLE " DECLARED AT 08737000 

*06742000+ 06743000 +08752000**08 753000* 
CODE — RFAL — DECLARED AT 14624100 

14634000 *14645800* 1465*3000 *146«2000* 14686000 14691000 
C0f>E — STREAM VARIABLE " DECLARED AT I469i000 

1469^000 

code -- real -- oeci arfd at 15063000 

15074000 15080000 15082100 *15094000* 15095000 15096000 15097000 15097500 *15098000**15099000* 15100000 

15101000 15102000 
CODE — LABEL — DECLARED AT 22236000 « OCCURS AT 22352000 

22303000 

CODE <■- INTEGER " DECLARED AT 38359000 

38419000 38426000 38429000 38503000 38510000 38518000 

CODE "- INTEGER -" DECLARED AT 38544000 

38581100 

CODE mm INTEGFR -" DECLARED AT 38652000 

38752000 38774000 38778000 3878p000 38787000 38799000 *388l7000* 

CODE -- INTEGER — DECLARED AT 41002000 

♦41038000**41 187000* 411*0700 41212000 
CODEADDRESS -- DEFINE -- DECLARED AT 0p6977i0 

14203000 
CoDEArEaV — DEFINE -- DECLARED AT 0001/200 

02216000 14364300 16853000 22303000 
CODEIN — LABEL — DECLARED AT 14166100 — OCCURS AT 14203020 

14186152 



cOdeolay — define: — declared at oo4uno 

COnFOVFRLAY -- SUBROUTlNF — OFCLARFD AT 22254000 

22286000 ??37i2?.0 22*23500 
CODES -- REAL — DECLARED AT 06462100 

0646?t05 *06464000* 06464400 06464«00 06465t00 06465350 
COMlNjT -- LABEL — DECLARED AT 00009000 -- OCCURS AT 48022000 

48019500 48111000 
COMJOB — LABEL -- DECLARED AT ?0597700 -• OCCURS AT 20605050 

20*04750 
COMMA -- DEFINE -- DECLARED AT 20213000 

20379000 20424O00 20430000 20436000 20484050 20567115 20570250 20570520 20573470 20576600 2057^900 

20590650 20590670 20590690 20593850 20780000 
COMMON — REAL " DtCLaRfD AT 12501500 

12581000 12667750 12670000 12675500 12676000 l?680250 12686500 12706500 ♦12755500**12756500* 

common -- Real -- dfclaRfd at 12801500 
12849500 

COMMON -- REAL *«■ DfClARFD AT i 3002000 

13094000 
COMMON -- REAL -- DECLARED AT 19696100 

♦197^8200* 19776100 
COMMON -- LABEL " DECLARED AT ??063000 — OCCURS AT 22222000 

22098000 22103000 22201000 22207000 22209700 22213000 
COMMON — REAL — DECLARED AT 28000400 

♦28070600* 
COMMON « REAL — OeCLaRfD AT 28200400 

28290600 *28?94600* 
COMMON — REAL — OfClAReD AT ?8400400 

♦28435800* ,8437000 ?843?800 284382OO ?8452000 ? 845?400 ?8453400 28454?00 28455600 ?8456400 98456600 
COMMON -- STREAM VARIABLE — DECLARED AT 28438200 
COMMON — REAL — DECLARED AT 28802000 

28857000 28858000 
COMMONV -- DEFINE « DFCLARED AT 20232000 
COMMUNICATED « PROCEDURE -- DECLARED AT 187OOOOO — FORWARD AT 00478000 

18872000 19526200 
C0MMUNICATE1 -- PROCEdURF " DECLARED AT 18500000 -- FORWARD AT 00478500 

18599000 19526100 
COMPARE — REAL STREAM PROCEDURE " DECLARED AT 28421600 

♦28423400* 28468200 28476800 
C0MP60 -- REAL « DrCLARFD AT 38366020 
♦38444000* 38494000 

compgo -- real -- dfclaRed at 38562000 
c0mp60 -- real « declared at 38659000 

COMPGo "- REAL ■- DfClARFD AT 41017200 
COMPI — DEFINE -- DECLARED AT 20220000 

COMPILE — LABEL — DECLARED AT 20597650 — OCCURS AT 20603750 
20597950 

compileJOb -- Label •- declared at 20597700 -- occurs at 20605000 

20604650 

COMPLAIN — SURROuTlNp -- DFCLaRFD AT 08H5800 
08| 16100 08ll7i00 

COMPLFTF -- LABEL -- DFCLARED AT 18208000 .- OCCURS AT 18345000 
„ 18438210 

COMPLEXSLEEP -- DEFINF "- DECLARED AT 01240?00 

02258000 04568366 06203700 0636o53o 06463300 07427630 09635000 12710000 12861500 14193100 14279550 
14292150 14358386 14378000 1458200ft 15H4700 17906250 17915000 18029000 18032000 18540200 18559500 
18580400 18840900 19799060 19900670 20582440 28085600 28096800 28242000 28293600 28848000 28852100 
36007000 37046760 37189250 37227000 37241400 37324000 45135230 



COMPLFXSNOO7E « PROCFDURF — DECLARED AT 01240000 

O2?58000 04566366 06203(^00 06360540 06463300 0/4^7630 09635000 i?7i0000 128615OO i2 9 00000 i4l93i00 

14279550 14292^0 14358386 J 4 .3 7 8 1 l458?000 15114700 17906250 17915000 18029000 1 8O32OOO 18540200 

18559500 iB580fttO 18840900 i9?990/0 19900670 20582440 28085800 28096800 28242000 28293800 28848000 

28852100 36007000 37O468OO 37189500 37227000 37241400 37324000 45135230 
COMll -- PROCEDURE -- DECLARED AT 14623000 — FORWARD AT 00475000 

14272000 14714000 19578000 
C0M13 -- PROCEDURE — DECLARED AT 15060000 — FORWARD AT 00477000 

15106000 19580000 
C0M19 -- PROCEDURE -- DECLARED AT 13000000 -- FORWARD AT 00483000 

12665500 19586000 
COM2 -- PROCEDURE •- DECLAREO AT 19300000 

19305000 19542000 
C0M23 -- PROCEDURE ~- DECLARFD AT 07004000 " FORWARD AT 00487000 

07242000 19588000 
C0M5 -- PROCfDURF -- DFCLARED AT 14343000 -- FORWARD AT 00469000 

02329000 14353000 19553000 
CONFLICT -- LABEL — DECLARED AT 05952620 -- OCCURS AT 05976650 

05976450 
CONFLICT — REAL — DECLARED AT 06068900 

♦ 06090900* 06091200 06U2500 +06113100* 
CONQUER " REAL PROCFnURF — DECLARED aT 15168000 

15176000 15177000 *151«7500* 18790400 
CONTINUF — RFAL " DFTLaRFD AT 07008200 

♦07039200**07039300* 07059H0 07118550 07139520 07179205 
CONTiNUf — LABEL « DFCLARfD AT 07299600 -- OCCURS AT 07330050 

07314290 
CONTINUF -- LABEL « DECLARED AT 08855000 -- OCCURS AT 08860000 

08868000 
CONTINUE — LABEL — DFCLARED AT 12513000 -- OCCURS AT 12746000 

12714500 12718S00 12724500 
CONTINUE — LABEL — DECLARED AT 20020300 — OCCURS AT 20025200 

20023200 20037500 20047000 
CONTlNUr — LaREL -- DFCLARED aT 20146600 -• OCCURS AT 20151800 

20146900 
CONTlNUr — LABEL « DFrLARFD AT 28403000 -- OCCURS AT 28430600 

28446000 
CONTinUf -- LABEL -- DECLARED AT 44207250 -- OCCURS AT 44276500 

44273500 
CONTINUED -- DEFINE -- DECLARED AT 19696500 

19696800 19697300 
CONTInUfING — DEFINE — DFCLARED AT 20018900 

20023200 20037400 20046900 
CONTINUING -" DEFINE -- DECLARED AT 20087800 
CONTINUEINO — DEFINE « DECLARED AT 20148000 

20185800 20199400 
CONTINUITYRJT — PROcfDURE " DECLARED AT 08171000 — FORWARD AT 02111600 

08181000 14047000 48106000 

controLa ■— Label -• dfcLaRfd at 20597700 — occurs at 20604300 

20604H5 20608076 
CONTROLCARD -- PROCEDURF -- DECLARED AT 20597550 -- FORWARD AT 00427000 

02347430 06353*50 07449000 1454 1 1 00 16522000 16523000 1843818O 18522700 20600760 ?06i0650 222124 

28440200 38732100 
CONTROLCARDAREAV — DEFINE — DECLARED AT 00017562 

07087000 14533000 18438120 16520600 28435000 

controlfr — label — declared at 20597700 -- occurs at 20604150 

20604050 20604950 20605150 



00 



CONVFRT -- STRfA^ LaBfL -- DECLARFD AT 08820000 -- OCCURS AT 08823000 
08ft?i 000 

CONVERTfME — REAL SUBROUTINE -- DECLARED AT 08529000 

08513100 08534000 085^7000 08538500 
COOLOFF -* SUBROUTINE -- DECLARED AT 38370700 

38376000 38391050 38394300 38397000 3B4U030 
COOLOFF -- SUBROUTINE « DECLARED AT 38552000 

38559000 38581500 38589000 
COOLOFF "- SUBROUTINE « DECLARED AT 38665000 

38672000 38691000 38699000 38746000 38751000 38798000 
COPNBIT -- DEFINE " DFCLaRED AT 0C417040 
COPNMfSS — DEFINE "- DECLARED AT 00415000 

38103700 38201700 41191300 
cOPy -- R rA L — DECLARFn AT 08?83000 

*0829i460**0829j750* 08295200 08296350 *08296375* 08298000 
COPY -- RfAL -• DECt.ARFD AT 12503000 

*12676000**i?680?50* 12686500 *i?707?50* 
COPY — REAL -- DECLARER AT 12803000 

12849500 *1?850000* 
COPY -•» REAL — DECLARED AT 13004000 
COPYAROW •- SUBROUTINF -- DECLARED AT 282388OO 

28259400 
COPYF -- DEFINE " DECLARED AT 12516200 

12676000 
COPYF -" DEFINE — DECLARED AT 12815300 
COPYING " DEFINF -- DFCLARED AT 28009300 

28011810 28084100 
COPYING -- OEFTNF " DFCLARED AT 28209900 

26246700 28258600 28261100 
COPYN — DEFINE — DECLARED AT 20221500 

20448050 20449^0 20461300 2046i8iO 20470000 20475100 20566807 20566822 20567260 20567600 20569590 

20569810 20570280 20570290 
COPYO -- OEFINE " DECLARED AT 12516350 
COPYO — DEFINE " DECLARED AT 12815600 

12849500 
CORE -- RFAL — VALUE PARAMETER " DECLARED AT 00019300 

00019100 00019200 
CORE — RFAL — DECLARFD AT 00426000 

*088?9000* 08833000 O8838OOO 08839000 *l44il200* 20t63?00 2O1653OO *20 170600**20 I76l05**4420 l 300**4420 1600* 
*44202000**44213500* 
CORE •- INTEGER — VALUE PARAMETER — DECLARED AT 06003000 

06000000 06001000 *06004l00* O6O1OOOO O6O12OOO O6O13OOO 
CORE — REAL — VALUE PARAMETER « DECLARED AT 06063000 

06061500 06062000 06065000 
CORE •• REAL — DECLARFD AT 22235000 

♦22267000* 22268000 222730O0 222?8000 *22284200* 22284300 22284500 *222fl6060* 22286070 22286110 *22390000* 

22391000 
COREINDX — DEFINF — DECLARED AT 12217500 

12251000 12274000 
COREINDX •- DEFINE -- DECLARED AT 12368000 

12395500 12465000 
COREND -- REAL PROCEDURE *- DECLARED AT 44441000 -- FORWARD AT 08303200 

08303300 44104000 4412°000 44128000 44149000 44?0i300 46000000 
COREPrInT — PROCEDURF -- DECLARED AT J 5600000 

15604900 16788000 
CORESEARCH -- SUBROUTINE " DECLARED AT 12884000 

12402500 12429500 



COREST 
COREV 

count 

COUNT 
COUNT 
COUNT 
COUNT 

CP -• 

C P — 

CP — 

CPT -- 

CPY *- 

CR — 

CR -* 

CR -• 

CRD -- 
CREATIO 

CS — 

CS -» 

csw -• 

CT -- 

CTC •* 



CTF 



"• DEFI 
"" OFFtN 
20504500 
-- REAL 

07268000 

-- REAL 

♦17000900 

•- REAL 

♦24044300 

-- TNTEG 

♦24211000 

-• INTEG 

*37l86500 

37221200 

LARFL - 

37008000 

LABEL - 

38662000 

LABEL - 

41006000 
INTEGER 

♦08534000 
STREAM 
08291050 
REAL " 

♦19739000 
LABrL - 
38662000 
LABEL - 
41006000 

STREAM 
20607260 

NDATE " 
08114350 

label - 

16366000 

LabfL - 

41318810 
SWfTCH 

04075000 
label - 

16704500 

FIELD 
02173275 
04676850 
09508700 
20 169600 
£0588700 
22978000 
24009000 
28431000 
38387000 
44240600 

FIELD 
020)9000 
06090800 
14212000 



NE -- DECLARFD Al 00416740 
E "- hFCLaREO AT 20232500 

-- VALUF PaRAMFTFR « DECLARED 
07268i00 07281100 07295010 

— DECLARED AT 17000800 

♦ 1700^00 

— DECLARFD AT 2*042550 
♦ 

ER — DECLARED AT 24205000 

♦ 24213000 24226000 

ER — DEfLARED AT 37180200 
**37l87i?0**37195030* 37195200 
♦ 37 22 1220** 372? 1240++37235250+ 

- DECLARED AT 37007000 -. 

370^6855 

- DECLARED AT 3866JOOO -• 



AT 07268100 



37195600 

37240050 

OCCURS AT 3 

OCCURS AT 3 



37196200 
37240100 
7058000 



8735000 

- DECLARFD AT 41005000 — OCCURS AT 41054000 

— DFCLARED AT 08528000 

♦ 08540000 

VARIABLf -- DECLARFD AT 08285000 

DECLARED AT 19694000 

♦ 19767760 

- DECLARED AT S8661OOO -- OCCURS AT 38699000 

- DECLARED AT 41005000 -- OCCURS AT 41054000 
VARIABLE -- DECLARED AT 20607040 

OFTINF " DECLARED AT OSlOlOOO 

- DECLaRFD AT 16357000 — OCCURS AT 16613000 

- DECLARED AT 41316500 -- OCCURS AT 41318250 
LABEL -- DECLARED AT 04070000 



DECLARE 
16705000 
• DECL.AR 
02173294 
04683000 
12^55500 
20176033 
20590020 
?2?79oOO 
24011000 
38044000 
38538000 
44240695 

' DECLAR 
02434445 
06093900 
14279?50 



D AT 16700500 



OCCURS AT 16802500 



ED AT 000601 
02287H0 
04683100 
13128000 
20?89055 
2059i6 ? 
22284500 
240"i7000 
38048000 
3858(000 
44242020 

FD AT 000601 
04137120 
06094100 
14293000 



20 

04285000 

04683950 

14209300 

20567340 

20595090 

22286090 

24027000 

38100000 

38646000 

44281500 

10 

04300600 

06109000 

14354000 



04377600 
04684050 
I42i20i0 
2^567360 
20596947 
22286) iO 
24035400 

3811O5OO 
38696000 
45075590 

04352600 
06360516 
14358383 



04634200 
06016100 
14282000 
20567530 
20597460 
22286120 
24035600 
38192000 
388t9000 
45248000 

04419400 
06411010 
14581700 



♦ 37201000^37207000^ 37209000 
♦37240300+ 



04675900 
06107400 
18845400 
20569460 
20600760 
22331800 
24039300 
38210500 
39147000 
48032930 

04671850 
06463260 
15601500 



04676000 
06417500 
19900440 
20569890 
20708000 
22334200 
24039600 
38240500 
40311 lOO 



04671900 
07179200 
16124000 



04676150 
06421000 
19900550 
2058U30 
22264000 
22335200 
28049400 
38248500 
40317800 



04674000 
07503500 
17003100 



♦37210250+ 37221160 



04676300 
06463900 
20 149200 
20584330 
22270300 
92336000 
28069800 
38249000 
12525130 



05976800 
09508800 
18017000 



04676500 
08104600 
20l50t00 

2Q58M20 
22273000 
22402000 
28246000 
38298500 
42525150 



060H000 
12897500 
18241000 



i8?73<)55 j85/40 t ?0 t 858i400 ,8844400 ,9575000 j9697400 i97<S8700 ,9796000 199OO45O ,9900560 j9903i00 

19904350 19904450 2OO8O1OO 20U9900 2O14O2OO 20i78900 20*95700 20569890 2O58O34O ?05837i0 2O586625 

2058961.0 20590751 20594751 20596651 20597*60 2O6O16OO 2O61O4OO 20783000 22328400 24O1OOOO 24018000 

240,9000 2^025000' 24035700 24O358OO 24038900 24039100 24039200 24146000 24223000 ?80n850 28021800 

28O338OO 28034000 28041400 2804^600 28O448OQ 28O46OOO 28059600 28074600 28082200 28089200 28090200 

28090400 28091800 28095000 28l0i200 262l3000 28216400 28223000 28223200 28230000 28232600 28256400 

28258400 282622°0 28273000 283O32OO 28463400 28478400 28833000 360"06500 37046735 37225800 37292800 

37394700 37429000 38100000 38105400 38158OOO 38192000 38203400 38240500 38246500 38248500 38249000 

38298500 38442200 38538000 38590000 38646OOO 38819000 41332300 4J333500 42501400 44113000 44114000 

44123000 44124000 44126000 44130000 4421.6940 44240640 44240695 44248000 45122000 45248000 48032935 

CU -- LABfL -« OECLaRFO AT 16700000 -- OCCURS AT 16787500 
16704500 

CUED -- REAL — DEClARFD AT 22235000 

CURBLKCNTR -- DEFINE *- DECLARED AT 00067040 

31014000 31015000 424»8,00 42506000 

curloc •" integer •- declared at 37388100 

*37406000* 37407000 37408000 37412000 37413000 37414000 *37416000* 
CURRENT « REAL " VALUE PARAMETER — DECLARED AT 00385500 

00385000 00385500 
CURRENT -- REAL — VALUE PARAMFTFR — DfCLAREO AT 37386000 

37385000 37385500 37188400 37388800 37389000 37390000 37393000 *37398000* 
CURROw " RFAL -- DfCLaRFD AT 12504000 

12505000 *!2564000t*i2628500**i2633000**l2633500* 12634OOO *t2642000* 12643500 

currow — Real « dfclaRed at 12804000 

12805000 
CURROW « REAL — DfCLAREO at 13005000 

13006000 *13044000* 13049000 
CUTY -- LABEL « DECLARED AT 16053000 -- OCCURS AT 16178000 
CX -- STREAM VARIABLE « DECLARED AT 06074100 

06074600 0607 470 0607 4800 *0 60 751 00**060 7 5200**06075 300**060 7 5800 **0ft075900**06076 100**06076600* 
CX «•• STREAM VARIABLE •- DECLARED AT 06078000 

06078500 06079800 *06080300* 06081500 *0608 1800**06082000**06082800**06082900* 
CX •- STRrAM VaRIARLf "- DFrLARFD AT 16823100 

168?3500 *16823600**16824100**16824700* 16824800 
CYC — STREAM VARtABLf " DFCLARED AT 12306500 

12315000 
CYCLE — REAL — VA|.UE PARAMETER -- DECLARED AT 00373000 

00371000 00372000 
CYCLE ** REAL — VAi.UE PARAMETER -- DECLARED AT 00376000 

00374000 00375000 
CYCLE •- REAL '" VA| UE PARAMETER « DECLARED AT 02637000 

02A35000 02636000 02641000 
CYCLE — STREAM VARIABLE « DECLARED AT 02641000 

02651000 
CYCLE — REAL -- VALUE PARAMETFR — DECLARED AT 37002000 

37000000 37001000 37046178 370461*2 37046730 37174200 
CYCLE -- RFAL — VALUF PaRaMETfR " DECLARED AT 37179000 

37177000 37178000 37194000 37195500 372i6000 37224200 37240200 37248500 37260000 
CYCLE -- REAL -- VAI.Up PARAMETfR -- DECLARED AT 3?342000 

37337000 3733*000 
CYCLE -- INTEGER — DECLARED AT 38007000 
CYCLE — INTEGER " DECLARED AT 38102700 

38105000 38105800 38113000 38151000 
CYCLE -- INTEGER " DECLARED AT 38200700 

38203000 38203800 38213500 *38273500* 38275500 38296750 
CYCLE — INTEGER " DECLARED AT 39004100 
*39087500* 39143000 



TO 
TO 



CYCLE 
CYfUE 

cz •- 

cz — 

CO -- 

CO — 

CO -- 
CO •«■ 
CI — 

CI -- 

Cl •• 

Cl -- 

Cl -- 
Cl — 

Cl -• 
CIO -- 
CIO -- 
ClO — 

Cll •- 

en •- 

Cll — 

Cl? — 
Cl? — 

Cl? — 

C13 — 

C13 — 

C13 — 

C 1 4 ••" 
CIA — 
C14 -- 

C15 -- 

CIS — 
C15 — 

C 16 •« 

C16 <•- 

C16 -• 

C17 — 

C17 -- 

Cl 7 -- 



fi — REA 
*1??47000* 
r, -- STR 
12 31/1500 
LABEL — 
LABEL « 
05955800 
LABEL — 
04070000 
LABEL -- 
18501800 
LABEL — 
LABEL -- 
LABFL — 
04070000 
STRFAM VA 
♦06074400* 
STREAM VA 
*06078300* 
LABEL -- 
08864000 
LABEL -- 
LABEL « 
18701300 
LABEL — 
LABEL - 

Label - 

LABEL - 
19511000 

LABEL - 

label - 

LABEL - 
19511000 
LABEL - 
LABEL - 
18701400 

Label - 

LABEL - 
LABEL - 

label - 

19511000 
LABEL - 
LABEL - 
LABEL • 

19511000 
LABEL - 

18501900 

Label - 

LABEL - 

Label - 

18501900 
LABEL - 
LABEL - 
LABEL - 
LABEL - 

18701400 
LABEL - 



L — DECLARED AT 12204500 

♦12269000* 12306000 

EAM VARIABLE -- DECLARED AT 12306000 



DECLaRFD AT 05847800 

DECLARED AT 05952600 

DECLARED AT 04069000 
04077000 

DECLARED AT 18500600 

DECLaRFD AT 18700600 

DECLARED AT 19506000 

DECLARED AT 04069000 



OCCURS AT 05975630 

OCCURS AT 04077000 

OCCURS AT 18510100 

OCCURS AT 04078000 



RFABLE — DECLARFD AT 06074100 

06075i00 06076100 06076600 

RlABLE — DECLARED AT 06078000 

06081800 06082900 

DECLARED AT 08855000 -- 



DECLARED AT 18500600 
DECLARED AT 18700600 

DECLARED AT 19506000 
DECLARFD AT 18500600 
DECLARFD AT 18700600 
DECLARFD AT 19506000 

DECLARED AT 18500600 
DECLARFD AT 18700600 
DECLARED AT 19506000 

DECLARED AT 18500600 
DECLARED AT 18700600 

DECLARFD AT 19506000 
DECLARED AT 18500600 
DECLARED AT 18700600 
DECLARED AT 19506000 

DECLARFD AT 16500600 
DECLARFD AT 18700600 
DECLARED AT 19506000 

- DECLARFD AT 18500600 

- DECLARFD AT 18700600 

- DECLARED AT 19506000 

- DECLARED AT 18500600 
18540*00 

- DECLARED AT 1.8700600 

- DECLARFD AT 19507000 

- DECLARED AT 18500700 

- DECLARFD AT 18700700 

- DECLARED AT 19507000 



occurs at 08861000 
occurs at 18710100 

occurs at 19566000 

occurs at 19568000 
occurs at 18760100 

occurs at 19580000 

occurs at 19582000 
occurs at 18530100 

occurs at 18540100 
occurs at 18770100 



cie 

C18 

cie 

C19 
C19 
C19 

C2 - 

C2 ' 

C2 < 

C2 ■ 
C2 • 
C2 - 

C20 

C20 

C20 
C2i 
C21 

C21 
C21A 
C22 
C22 

C2? 

C23 
C23 
C23 

C24 
C2* 
C24 

C25 
C25 

C25 

C26 
C26 

C26 
C27 
C27 
C27 

C28 
C28 
C28 

C29 

C29 



• LABEL 

• LABEL 

• label 

19512000 

• LABEL 

• LABEL 

■ LABEL 
19512000 
LABEL - 
04070000 
STREAM V 

♦06074700 

STRFAM V 

♦06079900 

LABEL - 

LABfL - 

LABEL - 

195U000 

» LABEL 

» LABEL 

18701400 
' LABEL 
' LABEL 
' LABEL 

18701500 
' LAREL 
'- LABEL 

■ label 

■ LABEL 
18701500 

■ LABEL 

• LABEL 

• LABEL 

■ LAREL 
19512000 

• label 

• LABEL 

• label 

19512000 

■ LABEL 

• LABEL 
18701500 

- LABEL 
' LABEL 
' LABEL 

18701500 
" LABEL 
' LABEL 

• Label 
1 label 

19512000 

• LABEL 
LABEL 

' LABEL 
19512000 

• LABEL 

• LABEL 



DECLARED AT 18500700 

DECLARED AT 16700700 

DFCLARFD AT 19507000 

DECLARED AT 18500700 

DECLARED AT 18700700 

DECLARED AT 19507000 



- DECLARED 

04079000 
ARJABLE « 

* 06075200 
ARJABLE — 

* O6O824OO 

- declared 

- declaRfd 

- declarfd 



AT 04069000 
04087000 

DECLARED AT 
06075800 

DECLARED AT 
06083200 
AT 18500600 
AT 18700600 
AT 19506000 



' DECLARED AT 

• DEC|,ARF0 AT 

DECLARFD AT 

1 DECLARED AT 

DECLARED AT 
18791700 

1 DECLARED AT 
- DECLARED AT 

DECLARFD AT 

1 DECLARED AT 

■ DECLARED AT 

DECLARED AT 

DECLARED AT 

DECLARED AT 

DECLARED AT 

DECLARFD AT 

DECLARED AT 



DECLARFD 
DECLARED 



AT 
AT 



•• DECLARED AT 

- DECLARED AT 

'• DECLARFD AT 

■- DECLARED AT 

'• DECLARED AT 

■• DECLARED AT 

'" DECLARED AT 

- DECLARED AT 
'- DECLARED AT 

- DECLARED AT 



DECLARED 
DECLARED 



AT 
AT 



8500700 
8700700 

9507000 
8500700 
8700700 

9507000 
18701000 
8500700 
8700700 

9507000 
8500700 
8700700 
9507000 

8500700 
8700700 
9507000 

8500700 
8700700 

9507000 
8500700 
8700700 

9507000 
8500800 
8700800 
9507000 

8500800 
8700800 
9507000 

8500800 
8700800 



-- OCCURS AT 19584300 

— OCCURS AT 19586000 
— OCCURS AT 04097000 
06074100 
06078100 

•«■ occurs at 1954?000 
-- occurs at 18780100 

-- occurs at 18790100 

-- occurs at 18790600 
«■- occurs at 18800100 

-- occurs at 19588000 

-- occurs at 19590000 
-- occurs at 18810100 

— occurs at 18820100 

-- Occurs at 19602000 

-« occurs at 19639000 
-- occurs at 18830000 



CZ9 -• 

C3 -• 

C3 — 

C3 -- 

C3 — 

C3A — 

C30 •- 

C30 •• 

C30 — 
C30A •■ 

C30B - 

C31 -- 

C31 •• 

C31 — 

C32 mm 

C32 -• 

C3? — 

C33 -• 

C33 — 

C33 — 

C34 •• 

C34 — 

C34 •- 

C35 -• 

C35 — 

C35 •• 

C36 — 

C36 -• 

C36 «- 

C37 — 

C37 — 

C37 — 

C38 -• 

C38 — 

C38 — 

C39 •- 

C39 mm 

C39 — 

C4 -- 

C4 -• 



18701500 

lapel - 

LABFL — 
04070000 
LABFL -- 
LABFL 
18701300 
LABEL — 

LABEL - 
18850200 

LABEL - 
18502000 

label - 
label - 
• label 

18555400 

' LABEL 

18555300 
LABEL " 

18502100 
LABEL - 
LABEL - 
LABFL - 

18502100 
LABEL - 
LABEL - 
LABEL - 

18502100 
LABEL - 
LABEL - 
LABEL - 
LABEL - 

label - 

19513000 

label - 

LABFL - 
LABFL - 
19513000 
LABEL - 
LABEL - 

label - 

19513000 
LABEL - 

label - 

LABEL - 
19513000 
LABEL - 
LABEL - 
18701600 
LABEL - 
LABEL - 
LABEL - 
18701600 

LABEL - 
LABEL -- 
04070000 
LABFL « 



- DECLARFD AT 1950B000 
DECLaKFD AT 04069000 - 

DFCLaRFO AT J8500600 
DECLARFP AT lflfOOfiOO • 

OFCLAREO AT 19506000 

- DECLARED AT 18701000 

- DECLARED AT 18500800 

- DECLARED AT 18700800 

- DECLARFD AT 1950P000 
-- DECLARED AT 18501000 

18555900 
-- DECLARED AT 18501000 
18556S00 J8556800 

- DECLARED AT 18500800 



DECLARFD AT 

DECLARFO AT 

DECLARFD AT 

DECLARED AT 

DECLARFD AT 

DECLARFD AT 



DECLARED 
DECLARED 
DECLARED 
DECLARFD 
DECLARFO 



AT 
AT 
AT 
AT 
AT 



DECLARED AT 

DECLARED AT 

DECLARFD AT 

DECLARFD AT 

DECLARED AT 

DECLARFD AT 

DECLARFO AT 

DECLARFD AT 

DECLARED AT 



DECLARED 
DECLARED 



AT 
AT 



DECLARFD AT 
DECLARED AT 
DECLARFD AT 

DECLARED AT 
DECLARED AT 



8700800 
9508000 
8500800 

8700800 
9508000 
8500900 

8700900 
9508000 
8500900 
8700900 
9508000 

8500900 
8700900 
9508000 

8500900 
8700900 
9508000 

8500900 
8700900 
9508000 

8500900 
8700900 

9508000 
8500900 
8700900 

9508000 
069000 



occurs at 04080000 

occurs at 18720100 

occurs at 18720200 
occurs at 18550100 

' occurs at 18557100 

' occurs at 18557200 

occurs at 18559000 

occurs at 18560000 
Occurs at 18570000 



DFCLaRFO AT 18500600 



-- occurs at 1968O200 

— occurs at 19681000 

— occurs at 19683000 

-- occurs at 19685010 

•• occurs at 18840000 

« occurs at 18850000 

— occurs at 04081000 
■- occurs at 18520100 



C4 
C4 

C40 

C41 
C42 
C43 
C44 • 
C45 - 

C45 • 

C46 • 

C47 - 
C47 < 

C48 - 

C48 • 

C49 • 

C49 . 
C49A 

C5 •« 

C5 - 
C5 -« 
C5 -« 

C6 -i 

C6 •« 
C6 •• 

C6 »• 
C7 «< 

cr »• 

C7 (pi 

C7 •■ 
C8 -• 
C8 — 

CB •>• 
C9 — 

C9 m, 

C9 ». 

D •» 



18501800 

•• larfl -* declared at ia?oo6oo 

•m LABEL -- DECLARED AT 19506000 

-- label. - 

19513000 
•" LABEL - 

19513000 
-- LABEL «"• DECLARFD AT 19508000 

19513010 
•• LABEL - 

19513010 
•- LABEL - 

19513010 

«•«• label - 

18502200 
-- LAREL - 
«» LABEL - 

19513010 
*- LABEL - 
•• LABEL - 

18701700 

— LABEL - 
»- LABEL - 

18701700 

-• label -- declared at 18500900 

18502200 

— LABEL -• DECLARFD AT 18700900 
— LABEL — DECLARED AT 18501000 

- LABEL •- DECLARED AT 04069000 • 
0*070000 0/»08?000 0409?000 

■- LABEL •- DECLARED AT J8500600 

- LABEL — DECLARED AT 16700600 
'«► LABEL -- DECLARFD AT 19506000 • 



DECLARFD AT 19508000 
DECLARFD AT 19508000 



DECLARED AT 19508000 

DECLARED AT 19508010 

DFCLARFD AT 18500900 

DECLARFD AT 18700900 
DECLARFD AT 19508010 

DECLARED AT 18500900 
DECLARFD AT 18700900 

DECLARFD AT 18500900 
DECLARED AT 18700900 



DECLftRFD AT 04069000 



Occurs at 19685340 
occurs at 19685550 
occurs at 19685560 
occurs at 19685570 
occurs at 19685595 
occurs at 1858oooo 

occurs at 19685596 

occurs at 18860000 

occurs at 18870100 
occurs at 18590000 

occurs at 04095000 

occurs at 19553000 
occurs at 04083000 



19511000 

Label. — 

04070000 

label »- declared at 18500600 

label — declared at 18700600 -- occurs at 18730100 

18701300 

LABEL — DECLARFD AT 19506OO0 

LABEL -- OECLARED AT 04069000 

04070000 

LABEL - 



OCCURS AT 04088000 
OCCURS AT 18740100 



- DECLARED AT l8500(S00 

LABEL -- DECLARED AT 18700600 * 
18701300 

label « declared at 19506000 

label -- declared at 18500600 

LABFL — DECLaRFD AT 18700600 - 

18701300 

LABEL -- DECLARED AT 19506000 

LABEL -- DECLARED AT 18500600 

LABEL « DECLARED AT 18700600 

LABEL -• DECLARED AT 19506000 - 

1951 1000 

stream variable — declareo at 00042000 

real — value parameter -- declared at 00379700 

00379600 



OCCURS AT 18750100 



OCCURS AT 19560000 



D — INTEGER — VALUE PARAMETER " DECLARED AT 00432000 
D — REAL — VALUE PARAMETER -• DECLARED AT 00452800 

00452600 00452700 
•• STREAM VARIABLE — DECLARED AT 00652000 
D -- STREAM VARIABLE — DECLARED AT 00657()60 
D •- REAL -- NAME PARAMETER -» DECLARED AT 02052600 

02052700 
D -• STREAM VARIABLE — DECLARED AT 02276400 
D — STREAM VARIABLE -- UECLAKEO AT 02281000 
D •* STREAM VARIABLE « DECLARED AT 0234/350 
D -- REAL " DECLARFD AT 02382000 

♦02387000**02389000**0 2390000* 023V1000 
D •• REAL — DECLARFD AT 02434120 

♦02434520* 
D •• STREAM VARIABLE — DECLARFD AT 0<i}05300 
D — STRFAM VARIABLE "- DECLARED AT 04280400 
D »- STREAM VARIABLE -- DECLARED AT 04285000 
D — STREAM VARIABLE -- DECLARED AT 04568550 
mm STREAM VARIABLE — DECLARED AT O458832O 
D — STREAM VARIABLE — DECLARED AT O458846O 
D — STREAM VARIABLE -- DECLARED AT 04655000 
D — STREAM VARIABLE -- DECLARED AT 04679050 
D — STREAM VARIABLE " DECLARFD AT 04680^50 
D •- STREAM VARIABLE — DECLARED AT 04681450 
D " LABEL — DECLARED AT 05841650 — OcCURS AT 05844200 

05842410 05843300 05«43500 
D — INTEGER -- DECLARED AT 05847700 

05848255 *05649a20**05«*9500* 05850n0 O585O13O 05851220 
D « INTEGER — DECLARED AT 05951800 

05952230 05953000 05^58600 *0596l000* 05961200 05961600 *05968900* 05971200 05971600 05971800 05972000 
D •• STREAM VARIABLE — DECLARED AT 05953000 
D — STREAM VARIABLE -- DECLARED AT 05958600 
D «"" STREAM VARIABLE -• DECLARED AT 06013000 
D — STRfaM VARIABLE — DECLARED AT 06022300 
D « INTEGER -- DECLARFD AT 06069100 

06088900 06101000 *06t09200* 06109300 O611O5OO 06113400 
D •- REAL "•- DECLARFD AT 07006160 

*07l09000* 07139500 07139512 07167000 07l7lOOO 
D « STREAM VARIABLE — • DECLARED AT 0^139512 
D — STREAM VARIABLE — DECLARED AT 07256600 
D — REAL *- DECLARFD AT 07|55200 

♦07371200* 07371800 07371900 07374200 
D — REAL -- DECLARFD AT 08099500 

08104900 08105250 08106040 08106350 08112200 
D •• STREAM VARIABLE — DECLARED AT 08106350 

08106450 
D — STREAM VARIABLE — DECLARED AT O81122OO 

08112650 
«■- REAL ARRAY — DECLARED AT 08255600 

*08267500* 08268950 08269i00 08269200 0826^300 08269400 08269530 08269600 *08269800* 08270000 08270200 

08270450 08270600 
D •• REAL — DECLARFD AT 08318000 

08325000 *08327000* 08330000 *08332000* 08332200 
D •" INTEGER •* DECLARED AT 08344000 

♦08370000* 08371000 
D " STREAM VARIABLE — DECLARED AT 08371000 

08372000 



D — REAL — DECLaRfD AT 08377000 

♦08381100* 06385300 

•* STREAM VARIABLE " DFCLARFD AT 06473000 

-- STRrAM VARIABLF -- DECLARFD AT 08571800 

08571900 

D -- STRFAM VARIABLE -- DECLARED AT 08605000 

0861 4000 

•- STREAM VARIABLE — DECLARED AT 08690i0<3 

08690300 

D -- STREAM VARIABLF — DFCLARFD AT 08718000 

D -" STREAM VARIABLE — OFCLaRfO AT 09535i00 

D •- STREAM VARIABLE -- DFCLARFD AT 12468000 

D mm STREAM VARIABLE -- DECLARED AT I2473?l0 

D — STREAM VARIABLE — DECLARED AT 12823000 

D -- STREAM VARIABLE -- DECLARED AT 1?851000 
D •• REAL "- DECLARFD AT 14158000 

♦141*6000* 14186M0 14186020 14187000 14203400 14203500 14206310 14208000 14212200 14225000 14230000 

14234000 .14279000 14299000 

D "" STREAM VARIABLF — DFCLflRrn AT 14431530 

D •- STREAM VARIABLE -- DFCLARFD AT 14570i00 

— STREAM VARIABLE -- DECLARED AT 14645800 

D -- STREAM VARIABLE — DECLARED AT 14711000 

14712000 

D • - STREAM VARIABLE -- DECLARED AT 15404000 

15417000 

D -- STREAM VARIABLE — » DECLARED AT 15427000 

♦15430000* 15131000 15436000 

o •■» stream variable — declared at 15438060 

♦15438080* 15438090 15438130 
D •" REAL -- DECLARFD AT 15600300 

15602600 15602640 *15604250* 15604600 
D — STRFAM VARIABLE — DFCLaRfo AT 15602600 

D •• stRe«m variable -- dfcLaRfd at 15602640 

-- STREAM VARIABLE -- DFCLARFD AT 15604?S0 

-- STREAM VARIABLE -- DECLARED AT 15615000 

-• STREAM VARIABLE — DECLARED AT 16088000 

D -- STREAM VARIABLE -« DECLARED AT 16592000 

D •- STREAM VARIABLE — DECLARED AT 16828200 

o — ■ stream variable — declared at i6854eoo 

D " LABEL — DECLARED AT 18701000 — OCCURS AT 18710700 

18701200 
D — REAL ARRAY — DECLARED AT 19692000 

♦19761000* 19764000 19766000 19766100 19766200 19766300 19766400 19766500 
•» STREAM VARIABLE — OFCLaRfD AT 20127300 

20127600 
D — STREAM VARIABLE -- DECLARED AT ?0i72l00 
D -• REAL •- NAME PARAMETER -- DECLARED AT 2O382O15 

20382010 *2O382ft60* 
D — SWITCH LABEL " DECLARED AT 20394000 

20450000 

d •- stream variable -«■ declared at 20511666 
d — strfam variable « declared at 20571702 
o -• stream variable — declarfd at 20592400 

-" STREAM VARIABLE " DFCLARFD AT 20595950 

20596000 
D — STREAM VARIABLF — DECLaRFD AT 20600400 
♦20600460* 



D -- STREAM VARIABLE -- DECLARED AT 20607060 

*?0607l80* 
D — STREAM VARIABLE -- DECLARED AT 22069060 
D -- STREAM VARIABLE « DECLARED AT 28276*00 

28276800 
— STREAM VARIABLE " DECLARED AT ?8297fl00 

28298000 
D -" STREAM VARIABLE -- DECLARED AT 28831000 
-' REAL " VALUE PARAMETER — DFCLaREH AT 3?000l00 

32000000 
•" STREAM VARIABLE — DECLARED AT 3f046i9 2 
*37046205**37046?l?* 

d — stream variable — declared at 37046520 

-- stream variable « declared at 37240700 

d •• stream variable — declared at 37?56000 

d -• stream variable -- declared at 37284120 

•- stream variable — declared at 37295000 

d — stream variable — declared at 37314200 

•• stream variable " declared at 3/34*000 

d '• stream variable — declarfo at 37353000 

o -- real •- Value parameter •- dfcLaRfd at 37357500 
3/357300 37357400 

•• fNTFr.ER — DFCLARrD AT 37388000 

37388100 *37390000* 3/39l000 37398000 
D — STREAM VARIABLE -- DECLARED AT 381O43OO 
D -- STREAM VARIABLE -- DECLARED AT 38?0?^00 
D -- STREAM VARIABLE -- DECLARED AT 38249500 
D • » STREAM VARIABLE -- DECLARED AT 38271500 
D -" REAL •- DECLARED AT 38362000 

38422000 38*56000 38*6*000 
— STREAM VARUBLf -- DECLARED AT 38422oOQ 

38*23000 
— REAL -- DFCLARrD AT 38547000 

38587000 *38608 1 00* 38608200 386O84OO 386O85OO 38626OOO 
D wm STREAM VARIABLE -- DECLARED AT 38587000 
D -- STREAM VARIABLE -- DEC L ARED AT 386O85OO 
D •- STREAM VARIABLE — DECLARED AT 38626000 

*38626300* 
D •- REAL -" DECLARED AT 38655000 

38683000 387M000 38762000 38807000 
D -• STREAM VARIABLE — DECLARED AT 38683000 
— STREAM VARIABLE " DECLARED AT 38711000 

38712000 

d •* stream variable " declared at 38762000 

d -" stream variable -• declarfo at 3880/000 

d -- stRfaM variable — declaRfo at 39086000 

d « stream variable -- declared at 39?97i00 

39?97200 
D -• REAL ARRAY — DECLARED AT 3990?000 

39905000 *39933000*+39938000**3994*000**39946000* 39948000 
D " STREAM VARIABLE " DECLARED AT 39905000 

39907000 
D •• REAL •" DECLARED AT *0005210 

*0100700 40100900 40101250 4026J300 **0290400* 40292050 
D — STREAM VARIABLf — OFCLaRfh AT *0261300 
D " REAL « DECLARrD AT 41003000 

41046000 *4l047500* 4ll9i000 



— STREAM VARIABLE -- DECLARED AT 41046000 

D -- STREAM VARIABLE -- DECLARED AT 41324800 

D — STREAM VARIABLE -- DECLARED AT 41333010 

D -- STREAM VARIABLE -- DECLARED AT 41500900 

41501500 

D " STREAM VARIABLE -- DECLARED AT 41603100 

41603400 41603500 

o "• stream variable -- declared at 4i606?oo 

""" STREAM VARIABLE -" DFCL/\Rfd AT 44093000 

♦44095000* 44098000 
•• STRFAM VARIABLE -- DFCLaRfd AT 44144000 
D •- STREAM VARIABLE -- DECLARED AT 44240500 

44?40540 
~- STREAM VARIABLE -- DECLARED AT 44974500 
D — STREAM VARIABLE -- DECLARED AT 45155000 
DA -• STREAM VARIABLE — DECLARED AT 04325800 

04326400 04329800 04330600 *04332200* 
DA -- REAL — DECLARED AT 28002400 

♦28062000* 28062200 *28068400* 28093600 28099000 

da -- Real — declared at 2820?eoo 

28246800 *28253000* ?6?54000 28?65?00 2 8 270BjO 28?708i2 *28270830* 28272800 2&28i550 ?828i600 282818OO 

28282600 28283200 28285800 *283077l0* 2830771b 
DA -- REAL -- DECLARED AT 2840i000 

♦28466800**28467000* 2^473200 2«474600 2^476000 
DA -- DEFINE -- DECLARED AT 40008140 

40016900 400169J0 400i6920 40027270 4OO39OOO 40047l00 4OO6O3OO 4OO6O3O5 4OO6O4OO 40064000 40065020 

40068000 40068j00 40078033 40078074 40322400 
DAAT — STREAM VARlABl.F " DECLARED AT 20J05400 

20106900 
OAC *- DEFINE — DECLARED AT 40008140 

40047000 40055000 40056000 
DAlOC — REAL ARRAY -- DECLARED AT 00333000 

064H000 *0642l 00**06422000**06423000* lMlfOOO 14360600 18740800 *20128000**20128100* 24210000 44160000 
DALOcMAXSZ « nEFlNp — nFCLA^FD AT 06408J00 

06411000 06413000 
OALOCROW -- REAL ARRAy — DECLARED AT 00333000 

06412000 06416000 06«i7000 *064i7500* J4360700 *20i27300* 24150000 
DALOCROWAREAV -- DEFINE -- DECLARED AT 00017440 

20127300 
DALOCSIZE — DEFINE -- DECLARED AT 20087200 

20127300 20127*00 
OATA •- REAL -• DECLARED AT 15402000 

15404000 15424000 *15427000* 15437100 *15438060* 15438150 
DATAAREAV — DFFINE -- DFCLaRED AT 000l72l0 

22386100 28452600 28457000 
DATACOM -- LABFL -- DFCLARED AT 04358000 -- OCCURS AT 04410200 

04358600 
DATACOM -- LABEL — DECLARED AT 22064500 -- OCCURS AT 22219000 

22066000 
DATADDRESS -- DEFINE -- DECLARED AT 02697730 

14202000 14292100 22331400 
DATAOLAY -- DEFINE — DECLARED aT 00416750 
DATAV •- DEFINF — OECLaPFD AT 20226500 

20597000 
DATE •" RFAL — DECLARED AT 00111000 

02385000 02641000 05953000 O5953O85 *06l88i00* 06202J00 06241200 06353600 06463984 07549000 08320000 

08333000 08371000 06383000 08385400 08412200 08572520 12699500 12854500 *15622000* 15623000 16600000 



18455000 i87i O7OO *?0i5770G* 20172800 20289080 ?0289?65 20754000 *220l2000* 220^000 22157000 *22909000* 

229t0000 28297800 3704619? 3»0j 3 900 382 t 6500 382l9000 38274OOO 4i3l6525 4i3l7780 <l'{320200 41322200 

41334200 4i603 1 00 *4*?i6950* 4509?j40 *45l35l40* 45135230 

DATE — STREAM VARIABL.F -- DECLARFD AT 026*1000 

02649000 

DATE •- STREAM VARIABLE -- DFCLARED AT 05953000 

05953010 

DATE "• STREAM VARIABLE " DECLARED AT 05953085 

05953095 

date "- stream varjarlf "" declared at 06463984 

daTf •* stream variable -- declared at 07549000 

07549100 

date •- stream variable -- declared at 08320000 

08321000 
DATE — STREAM VARIABLE -- DECLARED AT 08333000 

08336500 
DATE *- STREAM VarUBLF " DECLARED AT 08385*00 
DATE "- STREAM VARIABLE -- DFCLARED AT 08412200 

08412300 
DATE — STREAM VARIABLE " DECLARED AT 08572520 

08572530 
DATF — STREAM VARlABLF — DFCLARED AT 16600000 

1660P000 
DATE -- STREAM VARIABl.F -- DECLARED AT 20i7?800 

20173000 

date *- stream variable -- declared at 20289080 

20289085 

DATE — STREAM VARIABLE " DECLARED AT 20289265 

20289285 
DATE — STREAM VARIABLE " DFCLARED AT 20754000 

20755000 
DATE ■- STREAM VARIABLE — DECLARED AT 38219000 

38219500 
DATE •- STREAM VARlABLF -- DECLARFD AT 38274000 

38974500 
DATE -- STREAM VARIABl.F -- DECLARED AT 41316525 

41316530 

date — stream variable -- declared at 41317780 
date •- stream variable " declared at 41603100 

41603300 
DATE — STREAM VARIABLE " DECLARED AT 45092140 

45092150 
DATFOuT — DFFTNf " nrcLARFD AT 08342000 

08385000 45075600 
DAY -- RFAL SUbROUTtNf — DFCLARED AT 083l8i00 

08.11*8700 08318800 08330000 08332000 
DAYS -- LABEL — DECLARED AT 08318900 -- OCCURS AT 08340200 

08332300 
DC •- LABEL "• DECLARED AT 04125000 — OCCURS AT 04174000 

04128000 04134800 04134955 
DC •«• LABEL « DECLARFD AT 38661000 -- OCCURS AT 38818000 

38662000 

dc — Label — declared at 41005000 -- occurs at 41281000 

41006000 

dcbufrls — label — dfcLaRfd at i4628ioo -- occurs at M660500 

14632200 
DCIN •- LABEL -- DECLARED AT 39006)00 -- OCCURS AT 39293100 



3900B000 
DClNjTYpE — DEFINE -- DFCLArED AT O0O0512O 

09633200 44244000 
OCN •• LABEL — DECLARED AT 38103300 " OCCURS AT 38151000 

38151800 
DCN — LABEL — DECLARFD AT 38201300 " OCCURS AT 38296750 

38258500 
OCN •• LarfL — DECLARro AT 39007000 — OcCURS AT 39143000 

39092055 39094000 39255000 
OCO — LABrL — DECLARm AT 39049000 -- OcCURS AT 39235000 

39050000 
OCQPTSToPPED -- DEFINE -- DECLARED AT 00081650 
DCOUEUEAREAV -- DEFINE — DECLARED AT 000t7430 
DCWAITInG -- DEFINE -- DECLARED AT 00081640 
DCWrItEr -- LABEL -- DECLARED AT 14628000 -- OCCURS AT 14660500 

14632200 
DC19 -• LABEL — DECLARED AT 38103300 -- OCCURS AT 38152250 

38111000 
DC19 — LABEL — DECLARED AT 39006800 -- OCCURS AT 39236000 

39092045 

Dei* -* Label — DErLARFD at 41004100 -- occurs at 41307010 

41006000 
DC19QUEUEAREAV -« DEFINE -» DECLARED AT OoOi 7490 
DO — REAL — DECLARED AT 06185112 

06195095 *06l95i?5* 06195185 
DD -* STREAM VARlARLE -- DECLARED AT 06195125 
DD — NAME "- DECLARFD AT 14162000 

•14192000* 14193000 14193100 14194000 14195000 14199000 14203600 14206140 14213000 14223000 14224000 

14225000 14226000 14227100 14227210 14228000 
DD •" LABrL — DFCLaRfh AT 16055000 -- OCCURS AT 16156000 

16063000 
DDD — REAL ARRAY — VALUE PARAMETER -- DECLARED AT 08438900 
ODD •- REAL ARRAY -- VALUE PARAMETER -- DFCLARED AT 39900000 

3996?000 39965000 *39966000* 
DDD -- REAL ARRAY -- VALUE PARAMETER -- DECLARED AT 40003000 

40000000 4OOO1OOO 40008340 40280000 *40?81J00* 40283100 *40283200**40283300**40285000* 40285005 402850i0 
*40285020**40285t35**40285l60* 40285600 402B7000 40290200 40292212 40293010 *4031 1 100**40 31 7800**40321 100* 

40322440 *40322442**40322800**40324 102**40327000* 40356800 
ODD — RFAL ARRAY " DFCLaRfD AT 41600400 

*4 1602900**4 160 3700* + 4 160 3800**4 1603900**41 604000**4 J604 100**41604200**4 1604 300**4 1604400**4 1604500**4 1604600* 
*4 1604700**41 604800**4 160 4900**41 605000**41605100**4 1605200**4 1605300**4 1605400**4 1605500**4 1605600**4 1605800* 
*41605900**41606000* 41606200 41607300 
DDD «■- REAL ARRAY « DECLARED AT 44017000 

*44202500* 
DDD -- REAL ARRAY -- DECLARED AT 44207150 

44909200 44209^00 44?09400 44209500 44213500 44214000 442l4l00 44216900 44216910 44?i6940 44216950 

44240500 44242000 44243250 44243750 44245000 *44245500* 44250500 44253000 44255500 *44256200* 44256500 

44262000 44265000 
DDD •" REAL ARRAY " HTCLaRED AT 45002700 

45092220 45092230 45092240 45092250 45092260 *45092270**45092310**4509?320**45092330* 
DECK •- LaBEL -- DFrLAPED AT 09701000 « OCCURS AT 09718000 

09707000 
DECKRfMOVER . .— PROCEDURE " DECLARED AT 07354000 

16539000 
DECLARECCVARIABLES -- DEFINE — DECLARED A^" 20288000 

20566100 ?058l000 20584000 20586600 205B9800 2059i000 ?0595000 20596800 20600010 ?070l500 
DECWORD -- REAL SUBROUTINE — DECLARED AT 05952705 



05952735 05952740 05956750 05957350 05977600 
DElAYoK « REAL SUBROUTINE — DECLARED AT 18503000 

18503300 18559500 
DELINK " SUBROUTINE " DECLARED AT 20020500 

20022500 20046*00 
DELINK -- SUBROUTINE « DECLARED AT 20088400 

20090400 20130000 
DFLINKIT — LABEL -- DFtLaRfO AT 02058000 — OCCURS AT 02097400 

02082000 
DELlNKlT — SUrROUTiNf -- OFCLAKFO AT 14351300 

14358395 14358*97 
DELTA — DEFINE -- DECLARED AT 00067080 

24035500 24038800 
DEND -- DEEINE -- DECLARED AT 05780200 

05R45500 0585O3OO 05850400 05850500 05850600 05851700 05851800 05962000 05962200 05962400 05962600 

05962800 06087?00 06087300 06069300 06097100 06097200 06097300 06099500 06100100 06110900 06111000 

06M1800 4032?ft40 40324102 
DESC "- RFAL -- DFCLARFD AT 22231000 

♦22267000* ?2269o00 ???7000O 22270050 ?2270i00 22270200 22272000 222^7000 22279000 *?2286060* 22286075 

22286080 22286090 J?2?86ij0 22286120 *223?7200* 22327600 22328000 22328400 22329000 
DESC — RFAL ARRAY -- DFCLARED AT 42484000 

*42490000* 42493000 42497000 42498000 42500000 42501050 42501200 42501300 42501400 42501650 42501900 
DEST — STREAM VARIABLE " DECLARED AT 07003640 

♦07003760* 07003880 
DESTIN -- REAL — DrCLARFD AT 28002200 

28070200 ?6070600 28070800 p807i000 28072800 28073200 28097800 
DESTIN — REAL -- DFCLARED AT 28202600 

28254200 28270R14 28280800 ?828i000 28304600 
DESTIN "" REAL -- DFCLARED AT 28401000 

28436400 28444100 28444200 *28454600**28456000* 
DETACHlNT — SUBROUTINF " DECLaRFD AT 19901900 

19902500 19902800 19903400 
OETAChL — LABEL — DECLARED AT 19901600 -- OCCURS AT 19903400 

19901700 
DETAIlRECOROEnTRY -- SUBROUTINE -- DECLARED AT 04277800 

04282200 04296000 04305600 04315000 04334400 
DETaIlRECOROENTrY -- SUBROUTINE -- OECLARED AT 04365000 

04370200 04377000 04382000 04387000 04393400 04395600 O44O54OO 04416600 04421400 
DEVIATION — RFAL " DFCLaRF'D AT 12352500 

♦12444000* 12444500 
DEX — REAL « NaMf PaRaMFTfR " DECLaRfD AT 20386000 

20384000 20401000 *?0406000* 20410000 *2049l000* 
DIDGETESPDISK -- REAL -- DECLARED AT 20566330 

20566340 *20566687**205*94 1 0* 2057?2l0 *20576l25* 
DIE -- LABEL — DECLARED AT 22062000 -- OCCURS AT 22124000 

22134000 
DIEECOM -- LABEL — DECLARED AT 00089200 — OCCURS AT 48144000 

02329000 19526|00 19526200 19542000 19553000 19566000 19578000 1Q580000 19586000 19588000 19682000 

19685560 19685595 19685596 
DIMENSIONS "- FIFLD — OFCUREO AT 00061050 

42501900 

DiR -- Real *- valUf pa«ametfR — declarfo at 01250200 

01250100 0l250?00 01258400 

d?R -• Real array -- declared at 06O69300 

06092100 06092500 06092700 O6O93OOO O6O931OO 06093200 06093300 06093400 06093700 *06l07200* 
DiR — LABEL -- DECLARFD AT 09701000 -- OCCURS AT 09715000 
09704000 



DIRAODR 
DIRDSk 

DIrEC 
DIREC 

oiRrc 

DlREC ' 
DIREC - 

DIRECT 

OfRFCT 

DIRECT 

DIRECT 
DIRECT 

DIRECT 

DIRECT 

DIRECT 

DIRECT 

DIRECT 
DIRECT 

DIRECT 

DIRECTOR 

DIRECTOR 

DIRECTOR 
DIRECTOR 



VALUE PARAMETER 



-- DECLARED AT 00400500 
18078000 44240500 
-- DECLARED AT 15071000 



-« STREAM VARIABLE 
28411600 

— REAL 

04105510 
•" DEFINE 

15080000 
"" INTF.GER "- DECLARED AT 38004000 

38036000 38064600 38075500 38097000 
■- jNTfGFR "" DFCURFD AT 38102400 

38106600 *38l?2500* 38125000 38130000 
'- INTEGER " DECLARED AT 382OO4OO 

38?04600 *38 24 1 000 ** 3874 2500** 38 245500 **38?ftl 000* 
■• INTEGER « DECLARED AT 39003000 



DECLARED AT 2841 1200 



38137000 38141500 38142000 * 381 45000**381 49000* 



DIRECTOR 



39027000 
39303000 

— REAL 
20314050 

-- Real 

20384100 

— REAL 
20566902 
" REAL 
•- REAL 
20584200 
"" REAL 
20587100 
" REAL 
20590000 
" REAL 
20591400 

— REAL 
20596300 
-- REAL 
•- REAL 
2O6OOO4O 
"- REAL 
20706000 
YBUILDER 
44242000 
YMASK — 
06103500 
I46i8000 

YSEARC • 
05976800 

YSEARCh 

00430225 

07417500 

09680800 
16810000 
20 289.340 
205778 ? 6 
20765000 
28281600 
37292800 
44245000 

YTOr, ■- 
06103500 



39032000 39035000 39036000 39037000 



ARRAY "- 
20362000 

ARRAY -- 
20397300 

ARRAY 



NAME PARAMFTER -- DECLARED 
20363000 20364000 20365000 

Name Parameter -- declared 



39038000 
AT 203143 
AT 203861 



390 39000 * 39089000** 39237000**39 24 1000** 3929 3200* 



00 
00 



* DECLARED AT 2O5661OO 



ARRAY 
ARRAY 

ARRAY 

ARRAY 

ARRAY 



DECLARED 

DECLARED 

DECLARED 
DECLARED 
DECLARED 



AT 
AT 

AT 

AT 

AT 



ARRAY -- DECLARFD AT 



ARRAY 
ARRAY 



DECLARED 
DECLARED 



AT 
AT 



20581000 
20584000 

20586800 

20589800 

20591000 

20595000 

20596800 
20600010 



*?060l660**?0A017?0* 20604900 20605100 
ARRAY -- DECLARED AT 20701500 

-- PROCEDURE -- DECLARED AT 40000000 
44242010 14242020 

DEFINE — DECLARED AT 00081976 
06116000 06463992 07562000 07568000 08259575 
18023000 18033000 18273000 18425200 18425400 

Real -- declared at 0043O225 

20593950 ?0594650 282836OO 
- DECLARED AT 18155000 — 
05977900 06353530 06463200 



168J6500 ?05784?5 
- REAL PROCEDURE 



05953800 
07419^00 

09681545 
16815500 
205H306 
20578 ? 00 
22069030 
28287000 
380i4900 
44250500 
DFFINF 



05975750 
08259225 
09661650 
♦18467000* 
205H350 
2C578400 
28O1183O 
28296400 
38509000 
45092110 
•- DECLARFD 



08273750 
12562000 
18525700 
205H620 
?0585360 
28O134OO 
28307725 
38515000 
45093000 
AT 00081974 



08296600 
12590000 
18526800 
20574850 
20587200 
28O136OO 
28415400 
385i8500 



08296800 
12630000 
18553400 
20574910 
20588250 
28087400 
28417000 
38608200 



08268000 
18466000 



FORWARD AT 
06463970 
08568700 
12632000 
19575000 
20575650 
20589000 
28093600 
28419000 
40353200 



08270650 
20760000 



00428000 
07256000 
08570880 
14372000 
19698000 
20576?i6 
2059)950 
28099000 
28419600 
41317800 



14560000 
20769200 



07303000 
09633000 
14585300 
19799000 
20576300 
20592300 
28265200 
28446300 
41320400 



14569000 
20771020 



07333000 
09634100 
16807500 
20045600 
20577675 

20606865 
28266400 

28881000 
41602200 



14588100 
40336000 



07410100 
09642000 

16809000 
20289H6 
205778i5 

20731000 
282708^ 
28889000 
44243750 



07562000 08268000 14560000 l4588j00 18O33OOO 18273000 18425400 



OIRECTORYTOP — REAL — DECLARED AT 00418050 

059*9000 05967000 06091600 0700i820 07314200 07327000 07547l00 07571000 08381000 0838*000 08438410 

08438430 08571200 08571500 08597810 08597830 08630000 08673000 08832000 08834000 12321110 12321160 

1*601000 15501300 18232000 18233000 18234000 ?8466800 39960000 39968000 40275300 41320330 41320350 
♦44083100* 44086^00 44202700 44202^00 44209i00 44213000 4513^000 
DfRMOn -• DEFINE — DFCLARED AT 004l9l50 

40p»62500 403l7?00 
OIRSRH — REAL SUBROUTINE -- DECLARED AT 06463000 

06463^10 06463820 06463860 
DIRTOPAREAV -- DEFINE -- DECLARED AT 00017350 
DISC -- REAL — DECLARED AT 04258800 

04^80000 04283200 *042«4200* 04286600 04305400 04315400 O43168OO 
DISC -- REAL -• DECLARED AT 04356200 
DISC — LABEL " DECLARED AT 22064000 — OCCURS AT 22215000 

22065000 
DISCONDC — DEFINE — DECLARED AT 00414100 
DISK •- REAL « VALUE PARAMFTER " DECLaRFD AT 00019300 

00019100 00019200 

disk -- Label -- declared at 04357800 — occurs at 04411600 

04358400 
DISK -- INTEGER " VALUF PaRaMtTfR — DfCLaRED AT 06003000 

06000000 06001000 +06004100* O6OO50OO 060)3000 O6O16IOO 
DISK -- STREAM VARIABLE -- DECLARED AT 06013000 

O6O14OOO 
DISK — REAL — VALUE PARAMETER — DECLARED AT O6O63OOO 

06061500 06062000 06065000 

disk -- label — declared at 07244100 -- occurs at 07265500 

07256000 07258400 

disk — label — declared at O8255700 — occurs at 08276590 

08270700 08273750 08276150 

disk — Label -- dftLaRfd at 09701000 -- occurs at 09711000 

09703000 
DISK -» DEFINE « DFCLARED AT 20242000 

20^61700 ?0474000 ?0567265 20570430 38539000 40078093 
DISK -- LABEL •- DECLARED AT 22061200 -- OCCURS AT 22069560 

22069030 22069150 
DISK -- REAL -- DECLARED AT 22231000 

♦22323000**22325200* 22325400 22331400 *22333800* 22335200 22336000 
DISK — RFAL " DECLARFD AT 41600300 
♦41602100* 41602200 41607200 

diskao ■■ Real — dfcLaRfd at 07408100 

*074i8l00* 074l8?0O 074l8900 

oiSkaddr -- Real -- declared at 09501000 

♦09505500* 09506*00 09508500 *09509000* 09509500 09510000 
OISKADDR -- REAL — DECLARED AT 09602100 
DlSKADDR -- INTEGER -- DECLARED AT 14159000 

*14186148**14198700**14202000**14203000* 14206000 14212000 
DISKADDrESS « REAL PROCEDURE -- DECLARED AT 37286000 -- FORWARD AT 00390000 

♦ 37298000* 37299000 38075000 38401000 384U500 38453000 38461000 
DISKAV — INTEGER " DECLARED AT 06069200 

♦06109500* 06110300 06114300 
DISKaVATLTarLeMaX " nEFI^E " DECLARED AT 00165820 

05849009 44086200 
DlSKBOTTOM — RpAL -- DECLARED AT 00418100 

08268900 J4562000 i8225°00 2O38212O 400i69i0 40290000 4O793O2O 4O293O3O 40322150 40322430 ♦44240580* 
DISKCELL — REAL -- DECLARED AT 04259800 
DISKChAiN -- REAL -- DFCLARED ft! 07008200 



070?6300 
DISKCLOSE -- PR 

41215000 
DISKErR — LABF 
DlSKFlLFOPFN •- 
38101000 
DlSKHrAnERARFAV 

07097000 
DlSKlO -• PROCF 
060^0000 
07444000 
08946000 
20404000 

DlSKMrSSAGF »" 
04277400 

DISKMsr, -* DFFT 

41333090 
OjSKORAUXERROR - 

049?40iO 
OlSKRFAO -- REA 
♦00040000* 
DISKRTN — PROC 

14360370 
OlSKRUNNlNfi « 

40027250 

oisksftup — SU 

38046000 
DISKSPACF — IN 

22325200 
OISKSPACE — LA 

14631000 
DISkSqUaSh •• P 

06102900 
OlSKToP -- REAL 
OISKTypE — DEF 

20584650 
0ISKW A IT — Pro 
02173210 
05728180 
06089900 
07i79 2 50 
0737i800 
08 U 2050 
085699J0 
087^2140 
09682610 
14607000 
180?2000 
18273040 
19766300 
?0035700 
20 ? 89 32 5 

20567335 
20583600 
2830t600 
28887000 
38496000 



0?0?6a00 
OCEDURF - 



*070?6500* 07179200 



DECLARED A 



•07179230* 0/179250 *07179320> 
38355000 



AT 04125000 — OCCURS 
DECLARED AT 38000000 



L " DECLARED 
PROCFDURF "" 
39257000 
— DFFlNr *" DFCLaRED aT 00017270 
18286000 20028300 28070000 28288000 
DECLARED AT 06000000 
06098400 06214^00 
07445300 08384000 
14206000 14292000 
22029000 22331400 

-- DFCLaRfD AT 04271400 
04305400 04314620 04334200 



AT 04151300 



DURE — 
06065000 
07445?00 
13049000 
20588400 

surROutinf 

04295P00 



— FORWARD AT 00432000 

06254000 06464800 07^45000 07148000 

08865000 08915000 08933000 

14383800 14388000 14392000 

38247500 38284000 40278000 



O863OOOO 
14 381000 
28237200 



Nf 



OFCLARFD AT 00416570 



PROCEDURE - 

04353000 
L -- DECLARED 

00044000 
EOURE « 

18845300 
DEFINE - 

40078092 
BROUTINE 

38049000 
TFfiER PROrFOURF - 



DFCLARED AT 04256000 -- 
AT 00029000 
DECLARED AT 



FORWARD AT 04121410 



24200000 — FORWARD AT 00363000 
24227000 42479000 42535500 

DECLARED AT 40008190 
40321400 



DFCLaRFD AT 38011000 

DFCL A RFn AT 24101000 



TFfiEN PROfTMJNF "" OFCbA&Fn AT 2410100< 

22333800 *24 144000**24 156000* 24169000 
BEL -- DECLARED AT 14627300 « OCCUR' 

ROCEDURE -- DECLARED AT 06068000 
I66IO3OO 16610400 16610600 
-- DECLARED AT 40005100 
lN|E -- DECLARED AT 20584300 



" FORWARD AT 00365000 
AT 14659000 



CEDUrE — 
02173286 
05844930 
06091800 
07257600 
074i8 ? 00 
08259450 
08570800 
087i52°0 
12321110 
14609000 
18047500 
18276000 
19768750 
20035900 
2O28936O 
20567345 
20601740 
?8409800 
309i7000 
386O8OOO 



DEfiL-ARED 
02173350 
05846360 
06097000 
07264000 
074i8900 
08268950 
06571200 
08716300 
12321160 
15501300 
18049000 
18461000 
19779000 
2OO462OO 
? 0289 3 65 
20567350 
20603250 
28437000 
32000500 
39960000 



AT 060615 

02219000 

05850120 

O6IIO3OO 

07276000 

07435000 

08269300 

0857i500 

O8832OOO 

144n660 

15531100 

I807t000 

18740900 

19781000 

20050000 

202895J0 

20572500 

20704250 

28437800 

38437000 

39968000 



00 "" FO 
04710000 
05853425 
O61143OO 
O7282OOO 
07438200 
08270000 
08597810 
O8834OOO 
14556000 
15548000 
18075500 
19685065 
19785000 
20059300 
2°382l40 
20576210 
20758000 
28452400 
38439000 
4OOO833O 



RWARD AT 
04722000 
05961400 
06380400 
07314200 
07547l00 
06275750 
08597830 
09505500 
14563000 
15549000 
18226000 
19707000 
20022000 
20089900 
205n6i0 
20576768 
22069H0 
28453400 
38443000 
40275300 



0019100 
04731000 
05967200 
06380900 
07317000 
07559n0 
08276500 
08604100 
09506500 
14592000 
16041110 
18229000 
19711300 
20022200 
20090i00 
20566690 
20581800 
22069440 
28454200 
38452000 
40293110 



05704000 
05975600 
06463880 
0732?000 
07564000 
O8381OOO 
0863H00 
0950J600 
14598j00 
16827900 
18240000 
19720000 
20027300 
20121800 

20566820 
20582000 
22907000 
28467000 
38458000 
40311300 



07167000 
089 3 5000 
14398700 
40317210 



05722000 
05977000 
06463988 
07327000 
07566000 
08438410 
08673000 
09640000 
14600500 
17003000 
18245500 
19750000 
20028900 
20125000 
20566830 
20582350 
229i8000 
28812000 
36466000 
40317400 



07176000 
08939000 
14399300 



05724000 
05977550 
0700i820 
07330200 
0757i000 
08438430 
08690020 
09646000 
14602000 
18015000 
18247500 
19751000 
20030700 
20176054 
?0566840 
20583250 
28012140 
28823000 
38471000 
40317600 



07402000 
08942000 
19738000 



05728000 
06086400 
07026400 
07330400 
08i05400 
08569900 
08712H0 
O968O3OO 
14603400 
18018000 
18248500 
19754000 
20034500 
20289255 
20567330 
20583350 
28254000 
28882400 
38476000 
40322600 



403?4500 40332000 40334057 40353H0 4l3l«370 4i3l8740 41318820 41318860 4l3l8940 4l3l9200 4l3l9320 

41320220 4l3?0?60 4t3?0330 4j3?035o 4132M50 4i32l500 41321650 4J322450 4132^900 41330500 41332400 

41333600 41334300 41502300 41602600 41607300 44037300 44202600 44202700 44202900 44209100 44213000 

44243000 44246(500 44254000 44256300 44261500 44266500 44271500 45092190 45092210 45092250 45092280 

45092340 45094?00 45137000 
DISPLAY -- PROCEDURE -- DECLARED AT 15019000 

18530100 i8540i00 
0IV10EBYZER0 -- LABEL « DECLARED AT 4?51l000 -- OCCURS aT 42550000 

42512000 
OK -- LABEL -- DECLARED AT 04125000 -- OCCURS AT 04167900 

04128000 
OK — LABEL -- DECLARED AT 07008200 — OCCURS AT 07119100 

07118690 
DK — STREAM LABEL — DECLARED AT 08299400 " OCCURS AT 08299800 
DK — STREAM VARIABLE — DECLARED AT 0847A9QQ 

08479300 
DK -- STREAM VARIABLE " DECLARED AT 37241030 

37241050 
DK — LaBfL -- DECL.A R ED AT 38661000 — OCCURS AT 38818000 

38662000 
DK -- LABEL « DECLARED AT 41005000 -- OCCURS AT 41215000 

41006000 
DKADR -- REAL *- DECLARED AT 06462100 

♦06464200* 06464600 06464700 06464800 *06466l00* 
DKBUSINESS — PROCEDURE -- DECLARED AT 05950000 

16805000 19685460 
DKPN — LaREL — PErURED AT 39007000 -- OCCURS AT 39252000 

39092050 

dkpo -» label — declared at 39049000 -- occurs ai 39252000 
dkrn — label — declared at 39007000 -- occurs at 39347000 

39008000 
DKRO — LABEL -- DECLARED AT 39049000 -- qCCUrS AT 39247000 

39050000 
DKSGRflW -- REAL -" DECLARED AT 06462100 

06462105 *06463996* 06464600 

dKsn — Label — declared at 39007000 — occurs at 39256000 

39008000 
OKsQ "" UftBFL -- DFrL-ARED AT 39049000 « OCCURS AT 39256000 

39050000 
DKUN — LABEL — DECLARED AT 39007000 -- OCCURS AT 39250000 

39008000 
DKUo -- LABEL — DECLARED AT 39049000 -- oCCUrS AT 39249000 

39050000 
OKI — LABEL -- DECLARED AT 39055000 — OCCURS AT 39257000 

39248000 39251000 
DLNK -- REAL ARRAY -- DECLARED AT 08854000 

♦08930000* 08933000 *08934000* 08^35000 08939000 *08941000* 08942000 08947000 
DLOOP -- LABEL « DFCLARED AT 14166200 -- OCCURS AT 14278100 

14279600 

DECLaRfD AT 20020300 -- C CURS AT 20022300 

DECLARED AT ?0085800 -- OCCURS AT 20090200 

DECLARED AT 09701500 -- OCCURS AT 09720500 

DECLARED AT 38663000 -- OCCURS AT 38711000 



DLX 


•" 


LarfL -• 

?00?1700 


DLX 


m" 


LABEL -• 
20089600 


DMP 


• •» 


LABEL -- 
09704500 


ONE 


«•* 


LABEL — 
38721000 



ONE -- LABEL « DECLARED AT 41007000 

DoCrEaToR — SUBROUTINE -• DECLARED AT 08)11500 

08113050 08114500 
DODATFORLAST — SUBROUTINF — DFCLARED AT 08107750 

08108850 08114310 08114360 
OOlQNOW -" SURROUTTNF " DECURFO AT 04556000 

04568250 O456835O 04568440 04568510 04579000 04579200 04587000 O4588O5O 04588070 O4588HO 04588150 

04588560 O45940OO 04598000 0460^00 O4631OOO O4636OOO O46387OO O46573OO O46583OO 
OOfONOW — SUBROUTINE -- DECLARED AT 0467H00 

04673550 0/,675950 O4676O5O 0^676200 O467635O 0<,676550 04676900 0/,678800 04679650 0^679800 O468OOOO 

04683150 04684)50 04684400 
00!T — LABEL — DECLARED AT 0?l89000 « OCCURS AT 02275300 

02276500 
DOIT — SUBROUTINE -* DECLARED AT 08443000 

08485000 08499000 
DOIT •- SUBROUTINE — DECLARED AT 39930000 

39942000 39963000 39969000 

dOjtovfr -- label « declared at 37007000 
doljttlf — procfdure « declared at 3600)000 

360^0000 37047000 37O48OOO 37085000 37100000 37H30O0 38014600 
OOLP — I.ABEL -- DECLARED AT 0?058000 -- OCCURS AT 02075000 
02107000 

done — label — declared at 19901600 « occurs at 19904300 

19903970 

done -- Label — declared at 37505000 -- occurs at 37530100 

37523000 37524000 
OONTWaIT "- L A rfL — nFcL A RFD AT 16208000 — OCCURS AT 18260500 

18254000 
DOOPTfONS — SUBROUTINE — DECLARED AT 08H3900 

08))5000 081)5400 
DORECS — SUBROUTINE -- DECLARED AT 08)06950 

08)07650 08114?50 
DoSAVeEaCTor -- SUBROUTINE -- DECLARED AT 08113150 

08113800 08M4S50 
DOSECURITY — SUBROUTINE — DECLARED AT 08109900 

08111400 08114450 
DOsIZf " SUBROUTINE " DECLaRFD AT 08108950 

08109800 08114400 
DOUBLFPRECISION -- RfaL SUBROUTINE " DFCLARED AT 425)7010 

425)7050 42546000 4255)300 
DOWN -» LABEL -- DECLARED AT 14548000 -- OCCURS AT 14558500 

14553000 

Down -- label -- declared at 20392000 -- occurs at 20510000 

20480000 20507100 
DOWN — LABEL " DECLARED AT 20597850 -- OCCURS Al 20606610 

20603900 20606050 20606100 20606350 20606800 20609500 
DOWNR — LABFL — DfCLaRFD AT 20566610 -- OCCURS AT 20575900 

20574925 
D p — UABFL "- PECLaRfD AT 16054000 — OCCURS AT 16137000 

16063000 
DRAINO — PROCEDURE -- DECLARED AT 02347200 

02347460 O63283OO 
DRM »• STREAM LABEL -- DECLARED AT 41333033 — OCCURS AT 41333039 
DROPOUT -- LABEL -- DECLARED AT O81OO35O -- OCCURS AT O81O36OO 

08)03350 
DRUM — LABEL — DECLARED AT 04357800 -- OCCURS AT 04411400 

04358400 



DRUM — LABEL — DECLARED AT 2206*000 -- OCCURS AT 22214000 

22065000 
DRUM -- INTEGER — nFCURED AT ^4206000 
OS -- LaRFL. -- DECLaRFP AT 04125000 -- OCCURS AT 04155000 

04171000 
OS — LARFL. -- DECLa r FO AT 16054000 -- OCCURS AT 16111000 

J606?000 
OS -- DEFINE -- DECi.ARFD AT 36004000 

36007000 36008000 
DSD -- LARFL -- DECLARED AT 14548000 — OCCURS AT 14583100 

14559500 14585400 
DSED -• DEFINE — DECLARED AT 04670750 

04684550 04686000 04687350 
DSFD "- DFFINF "- DFCL/iRED AT 12515500 

12545000 12649000 12699500 12^05250 I27i0000 12710500 
DSFO "- nFFlNF — DFCLARFD AT 12814500 

12861500 1?878000 12880500 12900000 12901000 
DSFD «•- DEFINE — DFCLARFD AT 1 3O2OOOO 

13108000 
DSED — DEFINE -- DECLARED AT 1 8007000 

180?9000 18034000 
DSED — DEFINE « DECLARED AT 1B201000 
DSED •- DEFINE -- DFCLARFD AT 19900280 

19900670 
DSED — DEFINE " DFCLARFD AT 28007200 

28022200 28036?00 28041600 28043000 28046400 28061800 28085800 28086200 28089600 28095600 28096800 

28097200 
DSFD -- DEFfNF -- DFCLARFD AT 28206600 

28^,6800 ?8225?00 ?8?30400 2823?800 28242000 ?8242200 ?8?58700 ?8270824 28285400 ?8293800 ?8295800 

28303200 28303600 28307730 
DSED •- DEFINE -- DECLARED AT 28406600 

?8467400 28472800 28476200 
DSED — DEFINE -- DFCLARFD AT 28807000 

28848000 28849000 28852100 28852200 28863000 26882000 
DSED — DEFINE — DECLARED AT 37006000 

37046800 37046810 37047250 37048100 37121000 37172000 
DSFD — REAL SUBROUTINE " DECLARED AT 37181000 

37J85330 37186750 37218000 37227000 37241400 
DSFD — RFAL SUBROUTINE " DECLARED AT 39009050 
DSfT -- LaRFL "" DFr^ARFD AT 04261200 -- OCCURS AT 04300600 

04303000 
DSIZE «•- DEFINE -• DECLARED AT 05780100 

05845000 O58453OO O585O6OO 05»5i700 05962600 059«?800 05974400 0^974800 06074000 O6O882OO 0609^800 

06101700 06108P00 40322442 
DSIZE -- DEFINE -• DECLARED AT 20318000 
DSk -- STpEAM VARIABLE -- DECLARED AT 41333010 

41333033 
DSKaDr — STREAM VARIABLE — DECLARED aT 28831000 

28831500 
DSKADRS " REAL — DECLARED AT 04260400 

04271800 04281400 04285000 *04285800* 04325800 

dskchfck — label -- dfclaRfd at 20391000 -- occurs at 20484000 

2O457OOO 20481900 20482000 20483000 2°4B4050 20484550 20484800 20484870 

DSkTOs -» DEFINE — DECLARED AT 00416500 

04105510 38078000 
DSM -« LABEL •• DECLARED AT 16053000 — OCCURS AT 16123000 

1611.8300 16206200 



DSZE — STREAM VarIaBL.IT " DECLARED AT 02222200 

02251100 
DT — REAL — VaL-UE PaRaMETfR " DECLaRfD AT 08070000 

06317000 08319700 08320000 08339500 
DT -- LABFL -- DECL-fiRrn AT 16355000 — OCCURS AT 16490000 

16364000 

dt — real — declared at 20012200 
dt -• real, -- declared at 2008i400 

20105350 20105400 
DT — REAL "- DECLARED AT 20141800 

20172100 
DTOG "- STREAM VARIABLE « DECLARED AT 20105400 

20106900 

dummy — label « dfcLarfd at oeioo35o — occurs at 08103200 

DUMMY — LABFL -- DtCLaRFD AT 38364000 — OccijRS AT 38485000 

DUMP mm OFFlNE — DfCLARED AT 20222000 

DUMPADR *« DEFINE -• OF CLARED AT 00644300 
00656600 

DUMPCORE — PROCEDURE — DECLARED AT ? 434100 — FORWARD AT OO48O1OO 

02434880 16154000 18870700 
DUMPCRD -- DEFINE « DECLARED AT 00644200 

00657000 
DUMPDIR -• DEFINE — DECLARED AT 28009800 

28084400 
DUMPDIR -- DEFINE " DECLARED AT 28210600 

28266600 28268800 
OUMPNOW -- DFFINf « DFCLARFD AT 00012160 

18870700 
DUN — STREAM LABFL -- DECLARED AT 20600425 — OCCURS AT 20600455 
DUN -- LABEL -- DECLARED AT 37j80650 — OCCURS AT 37195500 

37195400 
DV — STREAM VARIABLE -- DECLARED AT 06l9«U25 
♦06195 150**06 195 160**06 195 162**06 195 170* 

dv -*■ strfam variable — declared at 12310000 

♦12312500** 123 13500** 123 15000** 123 16000** 123 17000* 
DV — STRFAM VaRiaBL-F — DECLARED AT 12467500 
♦12470000* 

OW — STREAM VARIABLE -- DECLARED AT 08333000 

DX «... LABEL -- DECLARED AT 04125000 -- OCCURS AT 04i76900 

04152600 
DXj -• LABEL -- DECi.ARFD AT 04125000 -- OCCURS AT 04176900 
DY -- REAL — DECLARED AT 08344000 

*08360000^ 08363000 *08366000**08369000* O837OOOO 
DZ -«• LABEL « DECLARED AT 05847800 -•■ OCCURS AT 05853600 

05849460 
D17 — LABEL -- DECLARED AT 04357200 — > OCCURS AT 04385800 

04389400 
019 — LABEL -- DECLARED AT 04357200 — OCCURS AT 04389400 

04390200 04394400 04400400 04406400 04408000 04413200 04418000 
022 — UARFt- — DFCLARFD AT 04357200 -- O rC URs AT 04388200 

04418600 04423800 
E — REAL — VALUE PARAMETER -- DECLARED AT 00454200 

OQ454OOO 004541 QO 
E — REAL — NAME PARAMETER -- DECLARED AT 02052800 

02052700 
E — STREAM VARIABLE -- DECLARED AT 02347350 

02347390 *02347400* 



E •"" REAL — DECLARFP AT 04126000 

04127000 *04130000**04132000* 04135000 04160000 04196200 04222000 
E -- RfAL — DFCL-ARrn AT 04257200 

*04304800* 04310^00 04311200 04311&00 04314000 04317800 *043l8400* 043i9000 *043i9600* 04325400 04332600 
*04 333800**04 3 35 4 00**0 4 386600**0 4 3 37 4 00* 
E -• REAL « DECLARpD AT 04353800 

♦04373200* 04374?00 04379600 O438OOOO O4386OOO O43878OO *04389400* O439OOOO 04390800 0439??00 0439J200 
04395000 04396800 *04403000* O44O4OOO 04405?00 O44O88OO O441O4OO O44126OO O44144OO 044t8600 04422600 
04422800 04424000 *04425200* 04429400 04430000 04430600 
E — REAL -" DECLARFD ftT 04704000 

*04732000* 04733000 
E -- LABEL — DECLARED AT 05841650 — OCCURS AT 05844920 

05842500 05843800 
E •• REAL " DFCLaRfD AT 05847700 

♦05849500* 05850110 05851600 *05852700* 
E " REAL « DFCLaRfD AT 05952200 

059«sp260 05^52^70 *05"6l000* 05*61200 *05967600* 05967800 05968Q00 05969000 05971400 
E — REAL « DFCLARfD AT O6O683OO 

•06092100* 06092^00 060»3000 *0609fl300* 06098400 06098500 06098700 *06l08300* 06108800 06109200 06109300 
E -- REAL — DFCLARFD AT 06351000 

*06380)00**06380 1 40* 06380t5C 06380300 O638O55O *06380650**06380700* 
E — STREAM LABEL -- DECLARED AT 07360200 — OCCURS AT 07368000 
E •- REAL « DECLARFD AT 08099550 

08104900 08106040 08106350 08111850 
E — STREAM VARIABLE -- DECLaRFH AT 08106350 
E " STRFAM LaREL -- OFCLaRFD AT 14421000 •- OCCURS AT 14428000 

15416000 
E »• STRFAM VARIABLE — DFCLAREO AT 16828?00 -- OCCURS AT 15412000 
E — REAL -- VALUE PARAMETER -- DECLARED AT 17000400 

17000000 17000?00 17003250 
E — STREAM VARIABLE « DECLARED AT 17003?50 

17004250 
E — REAL •- DECLARED AT 20294000 
*20?94800* 20296200 20?99000 

E — real — name parameter -- declared at 20382015 

20382010 *20382660* 
E *- STREAM VARIABLE " DFCLARFD AT 20600170 

20600180 
E — LABEL -- DECLARER AT 36003000 -- OrCljRS AT 36009000 

36005000 36008000 
E *•- DEFINE « DECLARED AT 3750t000 

37510000 37511000 
E -- STREAM VARIABLE -- DECLARED AT 38711000 

38714000 
E -- STREAM VARIABLE — DECLARED AT 38807000 

38810000 *38810500* 
E ■" STREAM VARIABLE " DECLARFD AT 41500900 

41501100 

ea — Real — declared at 2840iooo 

♦28435600* 2&438000 *284§8800* 2846i80o 2&463800 

eat n — Real -- declarfd at 28002600 
eatn — real — declared at 28401200 

*28ft32400* ?8432fl00 28133200 ?844i600 *28459400**2846 1 800**28463800* 
EB -- STREAM VARIABLE -- DECLARED AT 07032100 

07036280 
EBCDIC — REAL — DECLARED AT 07009200 

07031200 *07031400**07039600* 07059010 07060100 07066100 



ERCDICCONVERT — STRFflM PROCFDURF — DFCL A RED AT 07003610 
07060100 

EBTABLE — PROCEDURE — DFCLARFD AT 07003270 

07003420 07003430 07031500 
EBTABt.EADH -- REAL -- PFCLARFD AT 07009200 

♦070^9700* 07060 7 00 
ECH -- LABEL -- DEC|,ARED AT 15403000 .- OCCURS AT 15439000 

15418500 15419000 15421000 15422000 154?5000 15438020 
ED ■• LABEL — DFCLaREP AT 16356000 — OCCURS AT 16541000 

16365000 
EGGSELEcTSTOPPED -- DEFINE — DECLARED Al 00081600 
EH -w INTEGER — BEcLARFD AT 08852500 

♦08886300**08886600* 08887100 
EH -* STRFAM VARIABLE -- DEcLaRFD AT 08887100 

08891000 

EI — LABFL -- DECLaRFD AT 16700500 -- OCCURS AT 16866400 
16705000 

EL — LABEL -- DECLARED AT 22062000 -- OCCURS AT 22086000 

22126000 
EM -• INTEGER -- DECLARED AT 08852500 
*08886600* 08887100 

lu rT" STREAM variable — declarfd at 08887100 

EMaSK -- DEFINE -" DECLARED AT 19901850 

19902130 19902850 19903650 
EMPTY -• SUBROUTINE — DECLARED AT 38680000 

38735000 38740000 38746000 38758000 38795000 

"" 07364000^^ "" nFrLARFD AT 0736 3000 -- Oc C UR S AT 07365500 

ENDAIT -- REAL « DECLARED AT 14351205 

♦14358335* 14358^40 
ENDECK — LABEL — DECLARED AT ?0597800 — OCCURS AT 20608110 

20599000 20607750 
ENDF — LABEL — DFrLARED AT 20597800 -- OCCURS AT 20608450 

20598000 
ENDFI — DEFINE " DECLARED AT 20226000 

20374300 20596950 20608300 20608740 

eNdit •- label -- dfcl a red at 04555000 — occurs at 04651010 

04648300 

ENDMVF •- LABEL — DECLARED AT 06070000 — OCCURS AT 06102100 

06099500 06l0i800 J n 

ENDQEDECK .* PROCEDURE — DECLARED AT 07406000 — F RWARD AT 02177100 

02347450 07372500 07479 t0 20608870 *1"1U0 

ENDOEREEL — REAL SUBROUTINE — DECLARED AT 28032800 

28039800 28040000 28043600 28063400 28076600 
ENDOEREEL *- REAL SUBROUTINE — DECLARED A* 28222000 

28228800 28229000 28231000 28303600 
"*205 A 6 E:L ' "" DErLARED AT 2 0566600 — OCCURS AT 20569230 

* NTF ""205979^0 "" DFrLARFn AT 20597750 " OCCURS AT 20606400 

ENTERCOMTROLDECK ~ PROCEDURE - DECLARED AT 07 5 4 l0 00 - FORWARD AT 0700 ? 100 

07180000 07575000 18526700 18527400 
ENTERFILE — SUBROUTINE — DECLARED AT 0595 3 060 
rMTPocv,???^ 3225 0597 5630 05^77150 5 977650 
ENTERSY5FILE « PROCEDURE — DECLARED A T 41600000 — FORWARD AT 00464000 

ENTFRMSrRrnr 200 .. °*ll?'* *° WU ° 22 ° 6953 ° 4l6 °" 00 « 5099900 «"" 0° °45099920 
ENTERIISfRFTLF — DEFINE ■- DECLARED AT 02378000 



i 
I 

4 

1 

i 
i 



05953130 0857?600 H6g?000 20289530 28299400 38499000 41318360 4|32l600 41607200 
EOD -- LABFL -- OFCLARfO AT 38664000 -- OCCURS AT 38804000 

388^2000 
EOD -• LABFL -- DECi.ARFD AT 4i007i00 
EOF -- LABEL — DECLARED AT O43574OO -- OCCURS AT 04419000 

04408600 
EOF — LABEL — DECi.ARFD AT 12513000 -- OCCURS AT 12726000 

. 12714500 12717000 12718500 
EOF -- LABEL — DECt,APF0 AT 14627200 -- OCCURS AT 14637000 

14631000 

eof -- Label -- declarfd at 37287ooo -- occurs at 37297000 

37290100 37291200 
EOF •* RF&L -- DECLaRFD AT 37451000 

♦37457000* 37458000 
pOF -- LarfL. -- DFCLARrn AT 38363000 -- OcCURs AT 38376000 

38374000 
EOF •• LABEL ■- DECi.ARFD AT 38548OOO -- OCCURS AT 38559000 

38557000 
EOF •- LABEL -• DECi.ARFD AT 38663000 -- OCCURS AT 38672000 

38670000 
EOF -- LABEL — DECLARED AT 41007000 
EOFIT -- LABEL — DFCLARFD AT 38693000 — OCCURS AT 38759000 

38773100 
EOFIT •• LABEL « DFCLaREO AT 41036000 
EOFPOfNTER "" DEFINE — DFCLARFD AT 08l01l5o 

08t07100 
F0f2 •- LABFL — DFrt'ARFH AT 37287000 -- OCCURS AT 37297500 

37292000 
EOJBIT — DEFINE — DFCLARFD AT 00417020 
EOJMESS -- DEFINE -- DECLARED AT OO4O6OOO 

14430400 
EOS -- STREAM VARIABLE — DFCLARFD AT 20600390 

♦20600450* 
EOT -- LABEL -- DECLARED AT 14627200 -- OCCURS AT 14640000 

14631000 
EOT •" l-ARFL — DECt ARFD AT 38548000 — OCCURS AT 38623000 

38581600 
EOLtOr — STRFAM VARlARLr " DFCLARFD AT 12225500 

*12230500* 12232500 *12240000* 
EQN -- REAL ARRAY -- NAMF PARAMETFR -- DECLARFD AT 2O3861OO 

20384000 *20403000* ?0404000 20405000 *204 1 0000^*204 lO iOO* 2O411OOO *204l 7000**204 i8000**2042l000* 20427000 

204 3 3000 *204 35*00* 204 39000 *2045 3000**2046 5 1 00**20478505**204 78550**20 484500 **20484750**?0 484865**20490000* 
EQUAL ■»• DEFINE — DECLARED AT 20214000 

20380000 20416000 20484200 20495000 205fi7045 20567080 20569930 20569960 20570130 20570190 20573400 

20573430 20577000 20590100 20593150 20593200 20605700 20716000 20719000 
EOUATTNr, — PEFINF — DECLARED AT 20019300 

20048100 
EOUATtNr, — DEFINE -- DECLARFD AT 20088200 
EQUAT|Nfi — DEFINE — DECLARED AT 20148400 

20*87600 
ER — STREAM VARIARLF -- DFCLAPE.D AT 20511370 

205U400 
ERASEIOD — REAL — DECLARED AT 0455*000 

♦04606000* 04628000 04632000 
ERR -• LABEL — DECLARFD AT 0243*135 -*" OCCURS AT 02434760 

02434178 
ERR p- STREAM LABEL •- DECLARED AT 06082200 -- OCCURS AT 06083900 



06082500 06083300 
ERR — LftREL -- DFCLARFD AT 07355100 — OCCURS AT 07374100 

07372700 
pRR -- STRfA m LabfL — DFCLaRed AT 16824600 -- OCCURS AT 16825100 
ERR »- REAL -- DFCLaREP AT 19694000 

*l9697400**t9700000* i979j000 j979j»000 19796000 ^9797000 j9799050 19799060 
ERR — 5TREAM LAPEL — DECLARED AT 20500200 -- OCCURS AT 20501)00 
ERR -• LABEL — DECi ARED AT 20511165 -- OCCURS AT 20511340 

20511313 
ERROR -* LABEL •"• DECLARED AT 01250500 — OCCURS AT 01260500 

01255400 01256300 01259100 
ERROR — ■ REAL — VALUE PaRaMeTF* " DECLARED AT 02347210 

02347200 02347 ? 10 0?347260 02347435 02347450 
ERROR — LABEL — DrCLARFD AT 07009000 — OCCURS AT 07214000 

07051170 07J19300 07l200?0 
ERROR -- STREAM LABEL -- DECLARED AT O86J4OOO -- OCCURS AT 08822000 

08816000 08817000 
ERROR -» DEFINE -- DECLARED AT 09626000 

09633000 09634?00 
ERROR -- LABEL -- DECLARED AT 12214500 •"- OCCURS AT 1229?000 

12262000 122865C0 1??88500 
ERROR •• LABEL " DFCLARFD AT 16053000 -- OCCURS AT 16343600 

16061000 16083000 16100000 16110000 16119000 16129000 16149000 16150100 16163000 16163200 16202000 

16215000 16245000 16257000 16262000 16263200 16263350 
ERROR -• LABFL -• DrCLARFD AT 16354000 -- OCCURS AT 16689200 

16362000 16489000 J6504000 16576000 16588000 i66t0400 1661O8OO 
ERROR •- LABEL « DFCLARFD AT 16699000 -- OCCURS AT 16902700 

16703000 16785000 16807000 16825400 16825600 16856300 
ERROR •- LABEL « DECLARED AT i6<?14000 -- OCCURS AT 16964500 

16934000 16948000 J69u8500 16955500 16958630 
ERROR •- LABEL — DECLARED AT 19695000 -- OCCURS AT 19787000 

19701000 
ERROR — LABEL — OFCLARED AT 20389000 -- OCCURS AT 20479000 

20396000 20396010 20409000 204)6000 ?04i6500 20422000 20426000 70432000 20438000 ?046l320 20461400 

20461900 20470HO 20471000 20476000 20478510 20478540 20484200 20484250 20496000 20503000 20507400 
ERROR •- LARFL — DtCLaRFD AT 20511165 -- OCCURS AT 20511366 

205H190 205U303 
ERROR •• LABEL « DFCLARFD AT 20589720 -- OCCURS AT 20590740 

20590100 p0590 7 50 20590655 20590675 20590695 
ERROR -- REAL -- DECLARED AT 4OOO511O 

*400?7230**40057000**40060400**40064000**40068000* 40078091 40078092 *40292?30* 
ERRORFIXER — PROCEDURE — DECLARED AT 31000000 — FORWARD AT 00019500 

18*21900 31025000 42524100 42540000 42551000 48142200 
ERRORMESSER ""• PROCEDURE — DECLARED AT 30903000 

30931000 31017220 
ERRORMSr, — DEFINE "• DECLARED AT 00416050 

30930000 
ERROROUT — LABEL — DFCLaRfD AT 04670650 -- OCCURS AT 04686900 

04672150 04672750 0*673200 04676)00 04676250 04676650 04677000 04678500 O4681O5O O468135O 
ERROROUT -« LABEL -- DFCLARED AT 15112700 -- OCCURS AT 15115600 

15113300 
ERRORS « LABEL •- DECLARED AT 04125000 -- OCCURS AT 04129900 
ERRORTOG — REAL — DECLARED AT 12205000 

♦12292500* 12307000 
ERRORTOG — STREAM VARIABLE -- DECLARED AT 12307000 

12311500 
ERPRBIT -• DEFINE " DECLARED AT 00417052 



DECLARED AT 06077900 
DECLARED AT 16823100 

- OCCURS AT 20511 190 



ERRTOG " STREAM VARIaBLF - 
♦06033900* 

errtog — stream variarlf - 

*168?5100* 
ERSYS -- LABEL — OfCLaRfD AT 20511152 

205U363 
ERTOG -• REAL -- DECLARED AT H346000 

♦14358200* U376000 14409000 
ER1 -- REAL " DECLARED AT 20511152 

*20511 175**2051 H 90**205 1130 3**20511313**2051 13 35**2051 136 4**2051 1365* 20511370 
ER2 -" RfaL -- DECLflRFO AT 20511152 

♦ 205 11 190**205 11 30 3**2051 Hi 3**205i 13 35**205 11 364**205 11 365* 
ER3 -• RfaL — DECLaRfD AT 205H152 

♦ 205U313* 

ES -- INTEGER — DECLARED AT 0H852500 

•08886600* 08887100 
ES -- STREAM VARIABLE -- DECLARED AT 08887100 

♦08892000* 08893000 
ESAD »- DEFINE -- DECLARED AT 00005200 
ESF.D — REAL — DECLARFD AT 06185000 

*06?07100* 06208000 062291.00 
ESLL — LABEL •- DECLARED AT 08856000 
ESPADD "" REAL " DFCLARED AT 40005100 

♦40008330* 40353140 40353160 *40353l70* 
ESPBlT — PROCEDURE — DFCLaRED AT 00025900 

00028000 00056000 22402000 4424?020 44281500 
ESPeOljNy — RFAL « DECLARFD AT 00399000 

060?2i00 0602?600 *O60330O0**O60382O0**44l733O0* 
ESPDISKAREAV -- DEFINE — DECLARED AT 00O 1 756b 

28455400 28655000 
ESPDISKBOTTOM -- REAL « DECLARED AT OO4O1OOO 

06032000 06037100 06037700 *44087000* 44087100 44151700 44J73300 
ESPDlSKTOP -- REAL — DECLARED AT 00401100 

06037200 22029000 22907000 22918000 *440B7lO0* 44151700 44173300 44254000 44256300 
ESPTAR — REAL « DFCLaRED AT 00399000 

060?3000 06031000 O6O38OOO *44173200* 
EST • • INTEGER " DFCLARFD AT 20142950 

*20t63700* 20163800 ?0i65300 
ESTjO — REAL, -- DECLARED AT 19696100 

•19738120* 19776010 
ESTPRqC -- REAL — DECLARED AT 19696100 
♦19738110* 19776000 

et -- integer — declared at oa52eooo 

♦08538500* 
ET -- DEFINE " DECLARFD AT 08852500 

08886300 08886600 
ETIMElNnX — DEFINE — DECLARED AT 12217000 

12250500 12274500 
ETfMETNnX — DFElNE — DFCLaReh AT 12367500 

12418500 12464000 
ETlP — LABEL -- DECLARED AT 0^50500 -- OCCURS AT Oi 26 J 160 

01261200 
ETRLNG -- DEFINE — DECLARED AT 00305000 

04137180 04279fl00 043A6600 06463540 18524000 18553000 20049800 20063500 20066600 28050800 28051600 

37276100 37277000 37278200 37280000 38039000 41314300 
FU •• STRfaM VaR?ABLf "- DFCLARFD AT 04325800 

04330000 04331600 



EU — INTFGFR — DFcLaRFD AT 06069100 

06074(500 06074i00 06078000 O6JO12O0 06iOl700 *06l07900* O61O8OOO *06l08?00* O61O83OO O6IO84OO O61O86OO 

06114700 
EU — STRFAM VARIABLE -- DECLARED AT 06078000 

06080000 
EU — STREAM VARIABLE -- DECLARED AT 16823100 

168?4400 
EU -» DEFINE •- DECLARED AT 20247600 

20484100 20567215 
EUA — STREAM VARIABLE -• DECLARED AT 04326000 

04330000 04331600 
EUF -- RfaL PROCFOURF -- DEcLaRFD AT 14543000 — FORWARD AT 02379000 

05953130 07559000 08572600 08714140 *146i9000* 16815000 20289530 20578375 28299600 38227000 38499000 

41318370 41321600 41607200 
EUTO -- RfAL ARRAY — DECLARED AT 00166000 

♦040^002* 04194600 05842^00 *22° 1 1 500**44085 100**44240880* 
EUIOEfSeT — DEFINE -- DECLARED AT 05780310 

05842900 220u<s00 44240800 
EUlOHoLDER — DEFINE " DECLARED AT 00165800 
EUlIT -- STREAM VARIABLE -- DECLARED AT J6823100 

16823800 
EUM -• RFAL "- DECLARFD AT 40005100 

40100300 40100600 40100800 40101300 *40292050* 

euMask -- Real -• dfcLaRed at 40005110 

♦40334075* 40334085 

eunotsQuasmfd — Real — dfclaReo at 0606s9oo 

06069000 06074200 *0610U00**06108600* 06H3500 
EUnP -- DEFINE -- DECLARED AT 05780025 

06108300 16826600 
EUNUM -- STREAM VARIARLF --- DECLARED AT 39905000 

*39909000* 39910000 39918000 
EUS — REAL ARRAY -• DECLARED AT 06069300 

06069400 06074000 *06077500*+06085200**06085700* 06101700 06108400 06108800 
EUSU "- RFAL -" DFCLARFD AT 40004500 

♦40261100* 40261300 #40261500* 
EUTaPfR — DFFtNf -- DFCLARED AT 00165810 

220ii500 
EUVAL •- REAL -- DECLARED AT 2OO166OO 

200^6700 *2006520O* 20065300 *20065400* 20065900 20066000 
EU1 -- STREAM VARIABLE " DECLARED AT 06077900 

06080600 06083100 
EU2 «■- STREAM VARIABLF -• DECLARED AT 06077900 

♦06083100* 
EVeNT A NdINTeRRUPT — PROCEDURE — DECLARED AT 19900900 -- FORWARD AT 18468200 

19685596 19906300 
EX •- STRFAM LABEL — DECLARED AT 0746U20 *- OCCURS AT 07461540 

07461330 07461520 
EX — DEFINE — DECLARFD AT 08100600 

08104550 08105600 
EX — LABFL — DECLftRFD AT 16699500 — OCCURS AT 16745000 

16704000 
EX •- LABEL -- DECLARED AT 182O5OOO -- OCCURS AT 18462OOO 
EXCEPT -- DEFINE -- DFCLARED AT 20247970 
» 20569990 20573500 

exec -- label -- declared at 20597700 •- occurs at 20605300 

20507950 
EXECU •» DEFINE " DECLARED AT 20221000 



20604550 20604750 20605300 
EXIT *- UBFL « DFrLARFD AT 01250500 -- OCCURS AT 01261300 

01257000 0i258<|00 01260200 01260455 01260465 
EXfT -- STREAM LABEL -- DECLARfD AT 02613000 -- OCCURS AT 02631000 

02615300 0?6l7000 02622000 0?624000 02627000 0?629000 
EXIT -- LABEL — DECLARED AT O4OO4OOO -- OCCURS AT 04015000 

04012000 
EXIT — LABEL — DECLARED AT 04555000 — oCCUrS AT 04651000 

04567040 04567P55 04568374 04588000 04588090 04588180 04588560 04602000 04639?00 
EXIT — LfiREL. -- DErLARED AT 04670650 •- OCCURS aT 04687550 

04674900 04686850 04687300 
F/XtT — LAREL — DErLARFD AT 04705000 -- OgcURS AT 04742000 

04709000 04720000 
EX?T •- LABEL -- DECLARED AT 05952600 -. OCCURS AT 05979310 

05954400 05955^00 05956600 05956700 05960?00 O596O685 05966)1° O597564O 05979i00 
EXIT •• LABEL — DECLARED AT 06408000 .*. OCCURS AT 06424000 

06411030 06420000 
EXIT — LABEL — DECLARED AT 07003410 
EXIT -- LABEL — DECLARED AT 07009000 -- OCCURS AT 07232000 

07059H2 07118520 07129100 
EXIT -- LABEL -- DECLARED AT 07270000 -- OCCURS AT 07292000 

07275000 
EXIT — LABEL — DErLARED AT 07300000 — OCCURS AT 07351000 

07310000 

exit — Label — declared at 07408500 -- occurs at 07420100 

07409000 07415100 

exit — label — declared at 07423000 -- occurs at 07455000 

07426100 07427610 07430000 0M3?000 07437400 07450000 
EXjT -- LABEL -- DECLARED AT 07474000 -- OCCURS AT 07484000 

07481006 
EXIT -« LABEL -- DECLARED AT 08002000 -- oCCUrS AT 08022000 

08007000 08016000 
EXIT •• LABEL " DECLARED AT 08025000 -- oCCUrS AT 08052000 

08029000 08030500 OR032000 08033994 

exit -- Label -- declared at O8O82000 « occurs at 08093000 

08083000 

exit — Label — decLaR-ed at 08100350 -- occurs at 08104250 
08103800 08110750 

EXIT -. STREAM LABEL -- DECLARED AT 08n0750 -- OCCURS AT 08U1250 

08111050 0811 1 1 00 081H150 
EXIT -m LA BE L — DECLARED AT 08393000 -- OCCURS AT 08416000 

08413000 
EXIT — LABEL -- DECLARED AT 08419000 -- oCCUrS AT 08437100 

08429000 
EXIT •» LABEL -- DECLARED AT 08442000 -- OCCURS AT 08509000 

08486000 
EXIT m " LABEL — DErLARED AT 0854M00 " OCCURS AT 08566000 

08547600 

exit — Label — nFrLARrn at 0856B3oo -- occurs at 08573100 

08569J00 
EX IT -. LABEL -- DECLARED AT 08576100 

EXIT -. STREAM LABEL — DECLARED AT 08^83000 -- OCCURS AT 08687000 
EXIT .— STREAM LABEL — DECLARED AT 08740000 — OCCURS AT 08753000 

08746000 08749000 08749500 08750000 
EXIT — LABEL « DECLARED AT 08802000 « OCCURS AT 08848000 

08828000 

exit — Label -- declared at os8560oo — occurs at 08997000 



EXIT 
EXIT 
EXIT 

EXIT 
EXIT 
EXIT 

ex?t 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 
EXIT 

EXIT 
EXIT 

EXIT 
EXfT 
EXIT 

EXIT 
EXIT 
EXIT 

EXIT 
EXfT 
EXIT 
EXIT 
EXIT 



08901500 
■- LaRfL 
09633000 

"- LABEL 
09681400 

•- LABEL 
14186180 

■- LABEL 
151H400 

■■ Label 

15542000 

— Label 

16133000 

•- label 
16390000 

16534000 

■• Label 

16737000 
"» LABEL 
16961000 

— LAREL 
18212000 

— STRFAM 
18fl?l000 

■- Label 
2OO35900 

STREAM 
20032900 
'- LABEL 
'- LABEL 
20449000 

— label 

— label 

20585250 

■• Label 

20587700 

•«» label 
20590300 

•- LABEL 
20591750 

"- LABEL 
20595750 

'• LABEL 
20599100 

■- label 

22320100 
22411000 

— label 

24147000 

»" LABEL 
28O53OOO 

■" LABEL 
32001600 

— LABEL 
37046320 

'" Label 

3718539Q 



08904f)00 08906000 0891J050 08926000 08927000 
•" DFrLARFO AT 09602000 — OCCURS AT 09676000 

09634?00 
-- DECLARED AT 09679400 -- OCCURS AT 09682600 

09681550 
— DECLARED AT 14164500 -- oCCUrS AT 1430H00 

14212300 14228000 14243000 
-- DECLARED AT 15112700 — OCCURS AT 15116000 

15115500 
" DECLARED AT 15537000 " OCCURS AT 15554000 



m " DFrLA 
16155000 

-• decLa 
16394000 

16537000 
"• DEcLA 

16741500 
-- DEcLA 

16966000 

— decLa 

18216000 

Larfl — 

1882H00 

"- DFrLA 
200p9o00 

LABEL « 



RFD AT 16053000 -- OCCURS AT 16343900 

16169000 16248000 16252000 16255000 

RED AT 16354000 -- OCCURS AT 166894OO 

16406000 16410000 16485000 ,6492000 

16540000 16543000 16589000 16610700 

RED AT 16699000 -- OCCURS AT 16902900 

167«7000 16749000 1675O5OO 16797500 

RED AT 16914000 -- OCCURS AT 16968000 



16495000 
16615000 



16498000 
16615200 



]650i000 ,6527000 16530000 



1.6802000 I68O35OO 16805500 i68i9500 16822000 



RED AT 18204000 « OCCURS AT 18463000 

18255200 18262000 18266000 18284000 18296000 
DECLaRfO AT 18820900 — OCCURS AT 18821400 
18821200 

RfO AT 20020300 -- OCCURS AT 20080000 
2003?875 2°°36400 2OO38OOO 20047500 
DECLARED AT 20032875 — OCCURS AT 20032950 



18425800 



■- DE 

"- DE 

20461 

- DE 
'- DE 

20585 

- DE 
20587 

- DE 
20590 

- DE 
20591 

■- DE 
20596 

- DE 



CLA 
CLA 
000 
CLA 

cLa 

350 
("La 
850 
rLA 
730 
CLA 
850 
CLA 
500 
CLA 



RED AT 20085800 « OCCURS AT 20J40000 

RED AT 20389000 -- OCCURS AT 20485000 

20461950 20467000 20477000 
RED AT 20511171 

RED AT 20584250 -- OCCURS AT 20586600 

20585380 

RED AT 20586715 — OCCURS AT 20589600 

20587950 20588360 

RED AT 20589720 -• OCCURS AT 20590750 

RED AT 2'05909i0 -- OCCURS AT ?0594750 

205*2800 20594400 20594500 20594550 

RED AT 20594670 — OCCURS AT 20596650 

RED AT 20597850 -- OCCURS AT 20610250 



-» DECLARED AT 22235700 -- OCCURS AT 22429100 
22325410 22351000 22356Q00 22356400 22364Q00 22365400 22383100 22386500 223866Q0 22405000 



DFrLAPED AT 24113000 



OCCURS AT 24157000 



— DECLARED AT 28005800 -- OCCURS AT 281O12OO 
26067000 ?8067400 26O754OO 28O942OO 28O974OO 281^1000 

- DECLARED AT 32000280 -- OCCURS AT 32002350 

-- DECLARED AT 37004000 — OCCURS AT 37175000 

37046A40 37046845 37047100 37047660 

'• DECLARED AT 37180600 -« OCCURS AT 37269000 

37221500 37234250 37248500 37264000 



EXTT — LABEL -- DFCLARED AT 37422300 -- OCCURS AT 37447500 

374?8300 
EXIT -- LABEL -• DECLARED AT 37505000 -- OCCURS AT 37545000 

37510000 37530100 
EXIT •- LABEL -- DECLARED AT 38009100 -- qCCUrS aT 38099100 

38013600 
EXIT -- LABEL — DECLARED AT 39009000 -- OCCURS AT 39307000 

39096000 39156000 39258000 

exit •• label •- declared at 40008050 

exit — label " declared at 41316500 « occurs at 41323000 

exit — label — declared at 416O0500 -- occurs at 41607600 

41601900 

exits — strfaM Label — decI-arfd at 08822000 -- occurs at 08824000 
exitt0c0m19 -- label -* declared at 12812500 -- occurs at 12901500 

12879000 12«9i000 
EXP — STREAM LABEL -- DECLARED AT 1882O8OO -- OCCURS AT 18821200 
EXPIRED -- DEFINE -- DECLARED AT ?0??8300 

20569690 
EXplRED -- DEFINE — DFCl.ARlD AT 28404200 

28417800 28418000 

expunderflow -- Label -- declared at 42511000 — occurs at 42542000 

42512000 
EXRUN — LABFL — DfCLaRFO AT 20597700 — OCCURS AT 20605320 

20605650 
EXT — STREAM LABEL -- DFCLaRED AT 05952885 — OCCURS AT 05952960 

05952940 
EXT -- STREAM LABEL — DECLARED AT 05976500 -- OCCURS AT 05978950 

05978600 05978650 0«j9jrB750 05978900 
EXT -- STREAM LABEL -- DECLARED AT 06075700 -- OCCURS AT 06076800 
EXT -• STREAM LABEL — DECLARED AT 06081700 — OCCURS AT 06084000 

06082300 06083600 060*3800 
EXT -- STREAM LABEL — DECLARED AT 16609500 " OCCURS AT 16610100 

16609700 16609900 
EXT -- STREAM LABEL — DFCLaRED AT 16823700 — OCCURS AT 16825200 

16824800 
EXT -- LAREL •- DFCLARFD AT 18202000 -- OCCURS AT 18235000 

18231000 
EXTfRNAL — LABEL « DECLARED AT 00008000 -- OCCURS AT 48016000 

0p0 ? 9000 040^8000 O4158OOO 460 t1 500 460^000 460^500 4812OOOO 48125000 48lp7000 /!|9 1 33OOO 
EXTERNAL.END -- PROCEDURE -- DECLARED AT 07473100 

16542000 
EXYT -• LABEL •- DECLARED AT 06162200 «- OCCURS AT 06466600 

06463225 06463925 06463950 06463980 064*4400 

exyt -- label — declared at 20511160 -- occurs at 20511800 

20511430 
F -- REAL "- VALUF PARAMETER "" DECLaREO AT 00426700 
F " RFAL — VALUE PARAMETER " DFCLaRFO AT 00452800 

00452600 00452700 

f — real — value parameter -- declared at 09393500 

0?393400 
F •- REAL •- VALUE PARAMETER -- DECLARED AT 0?696100 

02696000 02696100 
F — REAL ARRAY -- VALUE PARAMETER -- DECLARED AT 02696300 
F -» REAL ARRAY — VALUE PARAMETER — . DECLARED AT 02696500 
F •• REAL -- DECLARFD AT 04354400 

04 359400 *0 4 37 3600**0 4 37 6 200**0 4 38 1800**04 386 400**04 388 200**04 39 2600**04 395600**0440 3200**0 4404400**04 405800* 
*044l0800**044l6000**044l9400**04423200**044?4800* 04425200 04426800 04432600 



F •• STRrAM LABEL — DFCLARFO AT 04647?00 .- OCCURS AT 04647450 
F -- |,ABE|, -• DECLARED AT O584165O -- OCCURS AT 05845000 

05845200 
F -- INTEGER -• DECi.ARFD AT 05847600 

05852350 
F — REAL -• DECLARED AT 06068300 

♦06097100**060984 00* 
F •• REAL -- DECLARED AT 07244000 

*07?56400* 07256600 *07?57800* 07264400 
F »- STREAM VARIABLE -• DECLARED AT 07295o3o 

07295130 
F •- REAL -- DFCI-ARfD AT 07|55000 

♦07370000* 07371000 07371100 *0737 1 500* 0737?900 
F •- REAL -- DECLARfD AT 08?55400 

*08?74250* 08274?60 08274500 *08276000* 08?7652<> 
F -- STREAM VARIABLE •• DECLARED AT 08709600 

08710000 
F -- STREAM VARIABLE -- DECLARED AT 12575000 
F -• STREAM VARIABLE -- DECLARED AT 12582500 
F « STREAM VARIABLE « DECLARED AT 12631000 
F -- REAL " DECLARED AT 14624450 

14645600 
F -" STREAM VARIABLE — DECLARED AT 14645600 

14650000 14650400 
F *• STREAM VARIABLE -• DECLARFD AT 15404000 

15410000 
F — STREAM VARIABLE « DFCLARFD AT I68283OO 
F -- REAL — DECLARFD AT j8i98000 

l8?40000 18241000 *i8273040* 18273050 18273055 *\ 8276500**j8?86000* 18461000 18465000 
F •- STREAM VARIABLE — DECLARED AT 18528200 

18528500 
F -- REAL " DECLARFD AT 19696100 

♦19738100* 19775100 
F — REAL -- DECLaRfD AT 20011600 

20021200 20030500 20034300 20034500 20035700 20035900 20046700 20061100 
F — STRFAM VARlABt-F — DFCLARFD AT 20061100 

20061300 20061900 
F *• REAL •* DECLARED AT ?0080800 

20089J00 

f — real -- value parameter -- declared at 20140800 
f -- real *- declared at 20141200 

20149900 20150100 20150200 20176024 20199200 
F •• REAL "• DEClARFO AT 22061120 

22061130 *22069o5o* 22069060 *22069l2o* 22069500 
F *" REAL -*• DFCLARFD AT 24004000 

♦24007000+ 24007?00 24009000 24010000 
F •• STREAM VARIABLE -- DECLARFD AT 28248600 
F -• STREAM VARIABLE " DECLARFD AT 28?9i ? 00 
F -- STREAM VARIABLE — DECLARED AT 32000510 
F -<• STREAM VARIABLE — DECLARED AT 37?56000 
F « STREAM VARIABLE <■- DECLARED AT 37314000 
F •• REAL — VALUE PARAMETER -- DECLARED AT 37357500 

37357300 37357400 
FA — REAL " DECLARED AT 28001200 

28074400 28074600 28094500 28094600 28096000 28096200 28097000 28097100 
FA — REAL — DFCLARFD AT 21201600 

28253200 28307720 



FA -- REAL -- DECLARED AT 28400800 

?84?7800 ?842 9 2 00 ?84?9a00 ?84?9600 284p9800 *28430000* 2843O2OO 28430600 284326OO p843S»800 2 8 434000 

28435600 ?8436?00 284364OO 28436800 28437000 ?8437400 28437800 28438000 *2844l600* ?844l800 28442800 
*28443000* 28^43400 *28452600* 28452*>00 26453200 ?8453400 28453800 28454200 *28456800* 28457200 28457400 
FACTOR -- DEFINE -- DECLARED AT 06070600 

061U000 06111800 
FACTOR -"• REAL -- DECLARED AT 06801000 

08826000 08828000 08829000 *0B83800O* 08839000 
FAIL •• LftBEL — DECLARED AT 07?99600 — OCCURS AT 07303500 

07318010 
FAIL "- LaREL — DEtLaRED AT 37180650 -- OCCURS AT 37l95l00 
FATN -- RrAL -- DECLaRFO AT 28001400 

28001600 28012800 
FAtN -- RfAL -- DECLARFD AT 28201800 

282O2OOO 
FAJN — REAL -- DECLARED AT 284OO8OO 

284?7800 *?8428000* 26*28400 28430600 28431000 28431800 28432800 *28433600* 28434000 28436000 28436200 
#28442000* 28442800 *26443600**28454400**28457600* 28458600 28482400 

fainfo -- real -- otcLaRfd at 26001200 

28001400 28013000 28074200 28074800 28093800 26093900 28099200 

fainfo « Real — dfcla*ed at 28201600 

28?0i800 28246800 26265400 28270830 283077l0 
FAINFO -- REAL -- DfCLARED AT ?8400800 

♦28430200* ^8431000 28431800 28433000 ?8434000 *2844 1 800**28443400**28452800* 28454600 *28457200* 
FALLOUT -- LABEL — DECLARED AT 28211000 -- OCCURS aT 28303600 

28270200 
FAROUT »- REAL — DECLARED AT ? 0397050 

♦20415200* 20489^00 
FAST -- DEFINE -- DECLARED AT 20247900 

20484650 20567?55 
FASZ -- REAL — DECLARED AT 28001400 

2807*400 2807«600 28087000 28095800 28096000 28097000 
FASZ — RFAL — DECLaRFD AT 28201800 

28246200 28246400 28297200 28302&00 28307700 
FASZ •* RFAL — DECLARFD AT 28400800 

28428400 *2842 9 000* 284?9400 28429600 2843O2OO 28432*00 284332°0 284*1800 *28443200* 28443400 *28454400* 

28454600 *26457000* 26457200 *?8482400* 
FB •• REAL »- DECLARED AT 20017500 

200i7600 *?0049800* 2OO532OO 2OO635OO ?0066600 
FB -- STREAM VARIABLE -- DECLARED AT 20053200 
FBADRS -- REAL -" DFCi.ARED AT p00)6700 

20016800 *?0063«s00* 20064100 20065600 20065800 20066000 
FBADRS — STREAM VARIABLE — DECLARED AT 20064100 
FE — LABEL -- DECLARED AT 16357000 •- OCCURS AT 16590000 

16366000 

fer •" strfam label -- declared at 12659500 -- occurs at 12660000 
fe^git -- Label -- ofcLaReo at 16699000 — occurs at 16819300 

16812000 

FETCH — PROCEDURE -- DECLARED AT 20292000 

20325000 20374400 2O6O8O7O 2O6O82OO 20608700 

FT — FIE|,D -- DECLARED AT 00060090 

00060n° 00656fl00 O2OO6OOO O2OO73OO O2O6IOOO O2O63OOO 02077000 02089000 02186000 02275600 02275850 

02275950 02265000 02267000 02287)00 02287120 02294000 04137270 04l37?80 04190000 04194550 04280400 

04299200 04391560 04391570 04421900 04426600 04569100 04569200 04671750 04682250 04685400 04686600 

04686700 047UO00 04728000 05976000 06077400 06090000 06107900 06108200 06203600 06203700 06463380 

06463988 07026500 07062000 07257800 07262200 07311500 07313000 07548i00 08177000 08177200 08179600 

08179800 08259450 08270450 08276000 08276400 08705000 08839000 08931000 08939000 08942000 08944500 



09505000 
143514J0 
14391000 
14598000 
16343950 
18016000 
18276000 
19685065 
19900815 
19903830 
20150200 

20570055 
20601600 
22286040 
22377000 
24033700 
24221000 
28857000 
37327000 
38440000 
400^6000 
4j 3|9080 
44037300 
48054400 

fh •- Real — 

00489000 

FH -- REAL ARRA 

♦06463900* 

FH -- REAL " 

09505000 

FH *- REAL — 

♦09633000* 

FH "- RFAL ARRA 

♦18273050* 

♦18321100* 

♦18361 l00* 

18425600 

18433000 

FH — DEFTNE - 

20704220 

FH — REAL •" 
41316515 
41318370 
41321650 

Fl •- RFAL "- 

*40283500* 

FIB -- REAL ARR 

♦02?75000* 

02276350 

FIB — REAL — 

04121500 
FIB •- REAL ARR 
♦04674050* 
*04677550* 
FIR •' OFFlNr 

08^76000 
FIB ** REAL ARR 



I227i«s00 
143514?0 
14392500 
14603330 
I661O3OO 
18017000 
18289000 
19685350 
19902000 
19903850 
20165300 
?0570j>32 
20606910 
22286il0 
22386250 
24033800 
28013400 
26882400 
37328000 
38573100 
40057000 
4i320?60 
44136000 
48065000 

VALUE PAR 
00490000 

Y «- DEC 
06463910 
VALUE PAR 
09505500 
DFCLARED 
09633100 

Y -" OFT 
♦18276500* 

18324000 
*l836l200* 
*l8426i00* 

18438J00 

- DECLARF 
20704230 

DECLARED 
41316520 
4l3l8«00 
41323400 

OFCLaPFD 

40317500 
AY mm DE 

02275100 
*02276360* 
VALUE PA 

04121550 
AY -- DE 

04674100 
♦04678900* 

— OFrLAR 
08177000 

AY -- DF 



12454000 
14358580 
14394000 
15114700 
16689450 
18022000 
18422000 
l96«5370 
19902120 
19904360 
20170600 
20576210 
206069?0 
22301000 
22387000 
24034500 
28093600 
28887000 
37332000 
38575000 
40078058 
/* 1 3 p J 6 5 
44138000 
48079100 
AMETFR 



]245<t500 
14358584 
J4395000 
l t 560iOOO 
16825500 
18046000 
18720800 

19685452 
19902150 
19905200 
20173900 
2058i950 
206t0400 
22309000 
2?393000 
24035100 
28099000 
37046835 
38045105 
38577000 
40278200 
4]329900 
4420000 



12473060 
14358595 
14398700 
15602600 
16825900 
18047500 
l88j0200 
l97i4000 
19902200 
200^1400 
20176105 
20583250 
20704250 
223J2000 
22395000 
24036400 
28254000 
37046855 
38250000 
38583000 
40293090 
41331000 
44201600 



12473070 
14358598 
14431440 
15604200 
16902950 
18053000 
18810300 
19739000 
19902300 
20035700 
20382540 
20585100 
20758000 
22323000 
22397000 
24037100 
28265200 
37046860 
38266500 
38594300 
4i05l500 
b 1 6O26OO 
44240620 



-- DECLARfD AT 00490000 



LARED AT 6 4 6 2 1 1 

06463930 06463940 
AMETER — DECLARED 



06463960 06463970 
AT 09500000 



AT 09602000 

09634000 09657000 09658000 
LARFn AT 18200000 

♦18277500**18286000* l8292l00 18293200 
*l8327i00* 18333000 ♦t8336i00^ 18342000 
* 18 3651 00**1 8 369 1 00**1 8 372000* 1 8389000 

18428000 J8429000 *i843i050* 18431300 
♦18438170* 18445000 18446000 18455000 
D AT 20704100 

20704240 
AT 41316300 

41316525 41316580 4l3i6590 

4i3l86i0 4i3l8620 4l3l8680 

41323500 41323550 
AT 40007500 



12473080 
14358600 
14431450 
I61182OO 
16918500 

18059000 
18840300 
19779000 
19902350 
20036200 
20489200 
20585125 
22069i20 
22324800 
22399000 
24037300 
28272800 

37047605 
38267000 
38595000 
41310900 
42478400 
44240690 



06466620 



12863500 
14358800 
14431460 
16206100 
16956000 
1B063000 
18841600 
19783000 
19902900 
20089300 
20489300 
20588550 
22069340 
22327600 
22421000 
24037500 
28425000 
37048000 
38288500 
38642000 
41311000 
42525150 
45092J90 



14199000 
14382000 
14555500 
16225000 
17000900 
18068000 
18844200 
19900610 
19903600 
20092000 
20511610 
20589480 
22259000 
22356200 
24006000 
24038400 
28425200 
37230000 
38291000 
39306300 
41318360 
42535500 
480i5400 



14351350 
14383*00 
14595000 
16238000 
17005600 
18075500 
18844400 
19900620 
19903670 
20092300 
20567340 
20595350 
22277000 
22357000 
24007000 
24038800 
28459000 
37232500 
38378000 
40017200 
41318370 
42551090 
48031100 



14351400 
14389000 
14596000 
16239000 
18012000 
18228500 
19685020 
19900630 
19903825 
20120000 
20567360 
20595400 
22286030 
22365200 
24030000 
24153000 
28823000 
37241525 
38435000 
40041000 
41319000 
42551100 
48054000 




♦41317800* 
4i3l8740 



*41318210* 41318220 41318230 
41320260 41320410 41320420 



*18314100**18314200* 
♦18357200**18357300* 
*18425100* 18425300 
♦18432200* 18432600 



41318240 41318360 
41320430 41320440 



GLARED AT 02i9i50Q 
02275450 *022?5500* 02275600 ?2 75650 
02276370 02276400 *02287200* 02287210 

RAMETER « DECLARED AT 04121550 

GLARED AT 04668800 
04674150 04674200 04674225 04674250 
46790 50 *0 468 3^00**0 468 48 50**0 468 5500* 

FD AT 08173100 
08177100 08177200 O8178OOO 08179600 

GLARED AT 14624600 



02275850 *0?275950**02276200**02276270* 02276300 
02313500 



04674300 04674350 04674400 
*0 4685550**0 468 5650**0 4685750* 

08179800 



♦04677400* 04677450 
04686450 



• 14644000* t4644400 14645600 * 1 4675000** 1 463 1 000* 1468?000 14683000 1A6840O0 14687000 14688000 #14698000* 
14699000 14701000 14702600 14703000 

FIB -- REAL ARRAY -- DECLARED AT 15065000 

*15073000**J5080000* 15081000 *15Q8?000**15083000* 15098000 *l5l0 I000**i5i0?000* 15103000 *15104000* 

FIB -- REAL ARRAY -- DECLARED Al 18502400 

*185?3700* 18523900 18524000 18524400 1852*500 #18552800* 18552900 18553000 

FIB — REAL ARRAY — OFCLaRED AT 19521000 

FIB — REAL ARRAY — DFCLaRED AT 38008000 

*380i3l00* 38013300 38013400 38013900 380i4l00 380i5000 38020000 38024)00 #38028000**38032000**38033000* 

38034000 *38036oOO* 36037000 *38038000* 38O41OOO *3804ll00* 38044000 *38045000**38045l0o**38045 l05* 38045155 
38O493OO #38049700**38055000**38056000* 38O590OO 38060000 38062500 #38064600* 38066000 38070000 38082500 
♦38090000* 38093000 38094000 38095000 #38096000**38097000* 

FIB — REAL ARRAY — DECLARED AT 381O28OO 

38n?000 #^8114000* 38125000 #38149500* 38l5l900 *38i56500**38i 5/500**38 158000* 

FIB — REAL ARRAY -- DECLARED AT 38?00800 

38212000 #3 82 16000* #3 82 34 500* #3 824 500**3 824 5500**3 824 8 500**3824 9000**3 82 50000* 3 8266000 * 3 82 66500** 3 82 67000* 

38276000 38279000 38288500 #38289500**38291000* 38297000 

FIB •- RFAL ARRAY -- DECLARED AT 38357000 

38377400 38388000 38389200 38389300 38389400 #38389500**38389700* 38389800 *3838990o* 38390l00 *38390200* 
♦38390500* 38391030 *3839j050* 3839i060 38391080 *3839i090* 38398000 38400000 38401000 38402000 38404000 
38405000 38406000 38406500 384i U 00 384n300 384u500 38411600 384H750 38422000 3843i000 38507800 
38508000 #38528000* 

FIB -• REAL ARRAY -- DECLARFD AT 38542000 

38571000 #38572000* 385J3100 38574000 38575000 #;?8577000* 38581200 *3858i400* 385818OO 3858i920 38582000 
38585000 *38586000# 38587000 38588000 38594300 *38595000* 38597000 38610^50 *386l0600* 

FIB -- REAL ARRAY -- DFCLARED AT 38650000 

38681000 #38682000* 38683000 38688000 *38690000* 38702000 38762000 *38773000*#38773l 00* 388Q3000 

FIB -" RFAL ARRAY " DECLARED AT 39005000 

♦39032000**39035000* 39042000 #39042 l00*#39083000* 39084000 39088000 39089000 39090000 39091000 39091100 

39092000 39092010 39092020 39146000 #391 47000**391 48000* 39230000 *39232000**39233000**39294000**39295000* 

#39296000**39297000* 39299000 #39300000**3930 1000**3930 1 100**39303000* 39304000 #39306000* 39306100 39307200 

fib — Real array -- dfclaRed at 41001000 

♦41040000* 41041000 41O42OOO 41O43OOO 41O44OOO 41O45OOO 41049000 4i05l000 4l05ll00 41051200 41051400 
41051620 41052000 #411*4000* 4H95000 #4 1 204000 **4 1 2 1 lOOO* « 1 ? 1, 2 1 41212200 

fib -- real -- value parameter -- declared at 41312100 

41312000 41312100 41313600 4t3l3800 4l3l3900 
FIB7 — INTEGER — DECLARED AT 38009000 

♦38060000* 38062500 *38063000*#38064600* 38075500 3809i000 
FIB7 •- INTEGER — nECL.AREO AT 38102900 
FIB7 -- INTEGER -* DECLARED AT 38200900 
FIB7 -• INTEGER — DECLARED AT 39006000 
FID -" REAL — VALUF PARAMETER " DECLARED AT 00373000 

00371000 00372000 
FID •• REAL " VALUF PARAMETER « DECLARED AT 00376000 

00374000 00375000 

FID •- RFAL -- VALUF PaRAMFTER « DECLARED AT 00390200 

00390000 00390iOO 
FID -- REAL -- VALUf PARAMETER — DECLARED AT 00395000 

OO393OOO 00394000 
FID — REAL « VALUF PARAMETER -- DECLARED AT 02637000 

02635000 02636000 02641000 
FID -- STREAM VARIABLE " DECLARED AT 02641000 
FID — REAL « DECLARED AT 05950800 

05950900 05953130 05953135 #05953600* 05953800 05958600 05959200 05960600 05960650 05960660 05964000 

05967900 #05977600* 
FID •" STRFAM VARlABLr — DFCLaRfD AT 05953135 
FID »- STREAM VARlABLF — DECLARED AT 05959?00 



059S9600 
FID — STREAM VARIA8LF — DECLARFD AT 05964000 
FID — REAL -- VAL.UF PARAMETER -- DECLARED AT 06460200 

06460000 06460100 06463200 06463225 06463240 06463580 #06463620* 
FID -* RFaL. -• DECLARED AT 08099400 

08102150 08102200 08102300 08102550 *08l02600* 08102700 *08l02750* 08104900 
Fin — ReaL — DFCLfiRFn AT 12503000 

12503500 t?539000 12562000 i?567f>00 12572500 12575000 12581OOO 12582500 12584500 #12590000* 12592500 

126?9500 |?630000 12*31000 l?63?000 *1268 i500**«| 2687700**1 27 \ 3500* i?749500 
FID -- RFAL -- DECLARED AT 12803000 

12803500 
FID -- RFAL. — DECLARED AT 13004000 
FID -• REAL — DECLARED AT 14624100 
FID •- REAL — DECLARED AT 19688050 

♦19696700* 19698000 19699000 19768000 19768200 19799000 
FID -" STREAM VARIABLF " DECLARED AT 19768200 
FID — REAL -- DECLARED AT 28000600 

28000800 28011200 28011830 28013600 28087400 
FID — RF*L -- DECLaRFD AT 28201000 

28201200 28212000 *26253200* 28263400 28266400 28270816 28270820 28281800 28283600 28287000 28291200 

28296400 28299600 *28307720* 26307725 
Fin — STREAM VARlARLr — DECKED AT 28263400 

fid — Real -- declared at 2840C600 

?8408400 ?84i5?00 2^415400 284i7000 2 8 4i9000 284i9600 ?8425600 284?6?00 284463O0 ?8448000 *28467800* 

28473200 *?8473400**28476400**?8480200* 
FID — REAL -- VALUE PARAMETER -- DECLARED AT 37002000 

37000000 37001000 370«6730 37046835 370/i6980 37047625 37096000 37174000 

FID -- REAL — VALUF PARAMETER -- DECLARED AT 37179000 

37177000 37178000 37190000 37195600 *37195650**37195750* 37216000 37224200 *37232250* 37236000 *37236750* 

37240200 37242300 37261000 

FID -• RfaL « VALUf PaRaMFTFR — DFCL-ARFn AT 37286200 

37286000 37286100 37292800 

fid — Real — valuf paRametfR « declared at 37342000 
37337000 37339000 

FID — REAL -- VALUE PARAMETER -- DECLARED AT 37420000 

37418000 37419000 37424200 37*28100 
FID — REAL " DECLARED AT 38007000 

38013030 *380l3O40* 38013300 38014900 38045120 38045400 * 38066000** 38070000* 38080500 #38088000* 
FID -' REAL. •- DECLaREn AT 38102700 

38105800 38113000 38151000 36159500 *38163000* 38164500 
Fin "- STREAM VARIABLE — DFCLaKFD AT 38159500 

38162000 
F!D -- RFAL -- DFClARFn AT 38200700 

382O38OO 38213500 38231500 38252000 38275500 38287500 38296750 

fid — Real -- declared at 38362000 

384O1OOO 384115OO 38453000 38456000 38461OOO 38464OOO 38499000 3R509000 38512000 385i3000 3851^000 

38518500 
FID -- REAL « DECLARED AT 38547000 

38610200 
FID — REAL — DECLARED AT 38655000 
FID -- REAL « DECLARED AT 39004100 

♦39091000* 39143000 
FID -- REAL — DECLARED AT 41003000 

41190800 
FID •" RFAL — ' DECLARED AT 41316400 

♦41317710**41318380* 41320400 41321600 
FJLEBIT -- FIELD »" DFCLARFD AT 00061040 



FllFBl.O 
FILEBi.0 
FILECLO 

TlLrHPA 
FILEHOL 
F1LEID 
FILEMFS 

FILfMfS 

filfok 
fileope 

FILEV 
ElLUBUF 
FILTOf, 
FjLTOfi 
FIN -- 
FIN — 
FIN -- 
FIN -- 
FIN -- 

final 

FINAL 
FINAL 
FINAL 
FINAL 

FINAL. 
FINaLtN 



CK -- RF 

061AOO00 
CK — RE 
*1<M56000* 
St -- PR 

02266300 

37240600 

nFR -• R 

•37447000* 

D — PRO 

!8035000 

-- LABEL 

05957400 

S — DEF 

06463220 

37224000 

38463000 

SAGF " 
02668500 
18770900 
38104700 
41190600 

"• REAL 
♦06092400* 

N -- PRO 

00379200 

— DEFINE 
20398000 

FERS -- 

38025000 
" REAL 
05952300 

•• stRfa 

05953175 

REAL -- 

04071000 

REAL — 

*04?05000* 

REAL — 

♦04304600+ 

REAL — 

♦04425400* 

RFaL — 

♦06016100^ 

-• RfaL 

00,185000 
-• REAL A 

O4O4OOOO 

-- REAL 

♦07290600* 

-" REAL A 

14707000 

— LABEL 
24130000 

— REAL 
37385000 

— Labf 



AL ARRAY « VALUF PARAMFTFR -- DECLARFD AT O6182OOO 

06181000 06209000 06230100 06234000 06244000 
AL ARRAY -- DECLARED AT 14351000 

1413OP00 
OCEDURE — DECLARED AT 00389100 

02314000 02321000 02325000 14259000 

37244000 42493000 42497000 
FAL PROCFHllRF — DFCLaRfD AT 37418000 

37448000 380J3100 
CEDtlRE — DECLARED AT 18000000 

18255000 18260000 18265000 1846OOOO 



15100000 18525600 18527300 
— FORWARD AT 00393000 



18527700 19571000 37123000 



DECLARED AT 05952620 



20704260 
OCCURS AT 05956650 



INE - 
06463?30 
37240200 
39143000 

procfdiiRf 

O46818OO 
?803?oOO 
3fit05P00 



DECLARED AT 00452300 



12619000 
37285310 



12636500 
37384000 



12899000 
37424200 



14015220 
38045120 



18027000 
38105700 



" DECLARED AT 37357300 -- 
06463225 064632*0 07074i00 
36006000 37046730 372l6000 
38151000 3820?700 38203800 



FORWARD AT 00452600 
087J4300 12619000 
37224200 37?40200 
38230000 38296750 



18770700 
38151000 



12637000 
37285320 
38456000 



36006000 
38203700 



12899000 
374?4200 
38464000 



37046680 
38296750 



14015220 
38045120 
3861O1OO 



37215000 
38455000 



18027000 
38045160 
39143000 



-- DFCLaRED AT 06069000 

06092900 *06093600* 
CEDURE — DECLARED AT 39000000 — 

15086000 J9569000 39308000 
-• DECLARED AT 20228200 

20604^00 20714500 
PROCEDURE -- DECLARED AT 37385000 — 

38152P0O 36297500 39144000 39146000 

" DFCLARED AT 05952270 

05953045 05953135 05953140 05953195 
H VARIaRLf " DFCLARFD AT 05953135 



FORWARD AT 00379000 



forward 

39230000 



AT 00385000 
39244000 



39293400 



♦05956800+ 05960680 



DECLARED 
O4O72OOO 

DECLARED 

04225000 

DECLARED 

♦04309600* 

DFCLaRFD 

04427200 

OFCLftRFO 
06017000 
-- VAU'F 
00385500 
RRAY -- 

O4O41OOO 
— DFCLAR 

07295030 
RRAY — ■ 



AT 04068000 

O4O73OOO *040 7 4000**0 4078000**0 4080000**0 408 1000**0^086000**0 4091 000* 
AT 04127000 

04228000 04234000 
AT 04258200 
04309800 
AT 04355600 
♦04428000* 04429200 
AT 06004000 



paRameTfR -- 

VALUE PARAMETER 

04064000 
ED AT 07269100 



DECLARED AT 00385500 

-- DECLARED AT 04042000 



DECLARED AT 14624400 



— DECLARED AT 24112000 — OCCURS AT 24144000 

— VALUE PARAMETFR " DECLARED AT 37386000 
37385500 37388400 *3738880o* 37389000 37393000 37394050 

L — OFrURFO AT 39009000 -- OcCURS AT 39148000 



37394200 #37399000* 



399*6000 
FINALOUT — LABEL -- DECLARED AT 3*009000 -- OCCURS AT 39230000 

39?i900Q 
FlNALQUE -- REAL ARRAY « DECLARED AT 00173000 

*040<S4000* 0'4131000 04137140 04169000 04205000 04279200 04282000 04284600 04285000 04300200 04304600 

04309600 04316600 04366400 04367000 04373000 04428000 *04565000* 04569200 *04672000**04685250* 44169000 
FlNo -- LflBfL « DFrl-ARED AT 20382030 -- OCCURS AT 20382640 

20382480 20382500 
FIND — SUBROUTINE -- DECLARED AT 24124000 

24148000 24153000 24155000 
FIND •* LABEL — DECLARED AT 38103300 -- oCCUpS AT 38l9l500 

38H4000 38152100 
FIND -- LABEL — DECLARED AT 38201300 -- OCCURS AT 38?98000 

38234500 38268000 38279000 3829)000 
FIND -- LABEL -- DECLARED AT 39054000 -- OCCURS AT 39231000 

39156000 
FlNDBUF -- LA8EL -• DECLARED AT 14628000 — OCCURS AT 14660500 

14632200 
F1NDFILE — REAL SUBROUTINE « DECLARED AT 12561000 

12568500 12576000 12585000 12682500 127}4500 
FINOlNGflDDRESS — DEFfNF "" DECLARED AT 00081700 

findinPijt — Real procedure — declared at 37177000 *- forward at 00374000 

07072400 12537000 18555700 26028000 *37269000* 37270000 38U3000 
FfNDIT — LABEL — OFCLARFO AT 00057100 
FINDIT -- LABEL « DECLARED AT 2ROO58OO -- OCCURS AT 28027800 

28O3OOOO 
FlNDOUTpUT -- REAL PROCEDURE — DECLARED AT 37000000 -- FORWARD AT 00371000 

02661000 0468l?50 *37175000* 37176000 38213500 
FINDSEG -- REAL SUBROUTINE « DECLARED AT 2U15000 

24122000 24123000 24130000 24142000 
FINDTHETAPE •• SUBROUTINE — DECLARED a! 28027400 

28039600 28055200 28067400 
FINoThETaPf -- DFFlNE -" DFrL'ARFD AT 28207400 

28298600 
FINDX -» LABEL — < DfCLARED AT 20596760 -- OCCURS AT 20597450 

20596950 ?0597000 20597050 
FlNl -» STREAM LABEL — DECLARED AT 2O6OO2OO -- OCCURS AT 20600360 

20600270 
FINIS -- LABEL « DECLARED AT 05952620 — OCCURS AT 05977800 

05977200 
FINIS — LABEL " DFCLARED AT 20597850 — OCCURS AT 20609600 

20604360 
FINIS — STRFAM LABEL « DFrLARFD AT 2841l400 -- OCCURS AT 28413600 

28413000 
FINIS -- STRFAM LAPEL « DECLARED AT 2842t8oO -- OCCURS AT 28423600 

28422400 
FINiSmDfTAIL « SUBROUTINE — DECLARED AT O42826OO 

04352400 
FINISHED — LABEL « DECLARED AT 12371000 — OCCURS AT 12473500 

12402000 12406000 
FINISHOFFIO — PROCEDURE — DECLARED AT 04067000 

04220000 04428800 
FINISHUP — LarFL "- DECKED AT 41316500 -* OCCURS AT 41323140 

41320270 
FlRfTTUP — LABEL « DFCLARED AT 08255800 -- OCCURS AT 08271750 

08259700 08259870 
FIRST -- REAL -- DECLARED AT 07006100 



070«s90l0 07059110 *07109000* 07116000 *07l]85l0* 07124000 *071?6500* 07139511 *07l69l00* 
FIRST -- REAL — DECLARED AT 07269100 

♦07273100* 07290300 +07290400* 
FIRST — REAL — DECLARED AT 37180000 

*372?5000**37225j00* 37226000 37229500 ♦37251000* 37252000 *37253000* 37266000 *37267000**37267050* 
FIRSTCARD — RFAL " DFCLaRfD AT 07006020 

♦07087000* 07118000 07139530 07156000 07179260 07214100 07236000 
FlRSTf.ARD — STRFAM VaRIABLf — DECLARfD AT 07139530 

07139540 
FlRSTcARD — STREAM VARIABLE — DECLARED AT 07156000 

07159000 
FIRSTCARD -- STREAM VARIABLE -- DECLARED AT 07214100 

07217000 
FlRSTDECK — REAL — DECLARED AT 07000200 

07273000 07313000 *07314110* 07371400 07432000 *07560000* 
FlRSTFlD — REAL — DFCLaRED AT 12504000 

12504500 12506000 *125845oO* 1262 9 b00 ♦12679500* 12681500 12713500 *1?723000* 
FlRSTFln "- RFAL "- OFcLaRED AT 12804000 

12804500 12806000 
FlRSTFln -- RFAL -- OFCLARED AT 13005000 

13008000 
FlRSTjME -- REAL -- DECLARED AT 20566270 

20566?80 *?0570.330* 20570350 *?0570440* 20570480 20575900 *20576000* 205767l0 
FIRSTLINK — DEFINE — DECLARED AT 4OOO8I3O 

400/49000 4007804? 
FIRSTt.OC -- INTEGFR .- DECLARED AT 37386100 

#37407000* 37416000 
FIRSTORSEC — REAL — DECLARED AT 07006176 

•07108100* 07115500 *071l9l00* 
FIRSTREC *- REAL — DECLARED AT 04668700 

*04675650* 04676000 04676850 04683100 04687650 04687750 
FlRSTRErlO — REAL -- DECLARED AT 04668700 

♦04677150* 04683000 
FIRSTWA1T — RFAL " DFCLaRED AT 00279000 

0209i000 *040i6?00* 04U7000 *041l9000* 04165000 04177000 48004000 
FIX •- LABEL -- DECLARED AT 04357400 — OCCURS AT 0ft4?5000 

04373800 04391200 04414800 044t7400 044i9800 
FIX -• SUBROUTINE " DECLAREO AT 44079000 

44154200 44156000 44156100 44157000 4415^100 44157200 44158000 44159000 44160000 44160050 44160 

44160500 44162000 44162050 44162100 44163000 44163020 44163030 44163040 44164010 44164020 44164 

44164600 44165700 44166000 44167000 44168000 44168200 44169000 44170000 44171000 44172000 44173 

44175000 44176000 44177000 44l78l00 44179000 44179050 44l79l00 
FiXANnWRiTFHEADER -- SUBROUTINE — DECLARfD AT 06086100 

06099800 
FIXARRAY -- DEFINE -- DECLARED AT 05780700 

05844110 05844930 05850120 05953070 05961400 05966600 06077500 06095100 06107200 06109400 06380140 

16827100 
FIXCOLDHDR -* SUBROUTINE « DECLARED AT 41316505 

4H16595 41318250 41320255 
FIXED — DEFINE — DECLARED AT 20247940 

20712000 

fixfir -- Label — declared at 39054000 ■>- occurs at 39294000 

39148000 39234000 39259000 
FIXMV -- LABFL « DfCLaRFD AT 06070000 — OCCURS AT 06093700 
06092900 

fj — Real — dfclarfd at 40007500 

*40?83500* 40317^00 fl03l7600 



400 

500 

3000 



FK — 
F"U — 
FLaGBI 

fLaggf 
fLarTt 
floc 

fm -- 
FMS - 

FN -. 

FN — 
FN — 

FN -• 

FN — 

FN — 

FN — 

FNUM • 

FNUM ' 

FNUM ' 

FNUM ' 

FNUM ' 

FNUM • 

FNUM • 
FNUM • 

FNUM ' 
FNUM ■ 
FOs *• 
FORGET 
FORGET 



-- DECLARED AT O458845O 

-- DECLARED AT 04568430 
DECLARED AT 42511000 "- 



STREAM VARIABLE 
04588520 
STREAM VARIABLE 
04588510 

t -- Label — 

42512000 
R "" REAL -- DECLARED AT 04554800 

♦04568595**04569 ?00**0464 7750* 4648050 
STfR -- RfaL — DECLARED AT 42513500 

425^7050 
-- NAME -- DECLARED AT 15064000 

15073000 15084000 15100000 

SUBROUTINE — DECLARED AT 12822000 



OCCURS AT 42520000 



04654200 



06463230 
37240?00 



12830500 
■ DEFINE 
064*3220 
37224000 
39143000 

Real -- 
00374000 
real -- 

REA t , -- 
00454000 
REAL — 
17000000 

stream variable 

20061500 
REAL — 
37177000 

RfaL •- 

37274000 
37?85300 

- REAL - 
♦04674150* 

- INTEGER 
38O13O3O 

- INTEGER 
38104800 

'- INTEGER 

38202800 
'• INTEGER 

38401000 

- TNTFGFR 
38603000 

•- integer 
- integer 

♦39084000* 

39297020 

'- INTEGER 
♦41042000* 

RfaL 



12849000 12862500 l?86650o 
DECLARED AT 00452400 



12619000 
37285310 



12636500 
37424200 



12899000 
38045120 



14015220 
38105700 



18027000 
38151000 



18770700 
38203700 



36006000 
38296750 



37046680 
38455000 



37215000 
38463000 



VALUE PaRAMeTfR 
00375000 

VALUE PARAMETER — 
VALUE PARAMETER -- 
00454100 

VALUE PARAMETER — 
17000200 17003250 
— DE6LARED 



-- DECLARrD AT 00376000 



DEClARFO 
DEC^AREO 



AT 
AT 



00377000 
00454200 



DECLARED AT 17000400 



AT 20061000 



value parameter — declared 

37178000 37214000 37218300 

vaLuf RaRaMetfR -- declaRfd 

37275000 37276000 37278200 
37285320 

DECLARED AT O46685OO 
04680050 04681250 O46B1850 

-- DECLARED AT 38003000 
38013040 38013900 38O157OO 

-• DECLARED AT 38102300 
38105600 38106100 38113500 

-" DECLARED AT 38200300 
38203600 38204100 38213000 

"• DECLARED AT 38361000 
38411500 38412200 38422000 

— nFCLARED AT 38546000 



AT 37179000 
37242200 37242300 
AT 37271000 
37281000 37283000 



37248000 
37284000 



37255000 
37284130 



37284150 37285100 37285200 



04682050 
38015900 
38H4500 
38214500 
38453000 



04684700 



38039000 38075000 



38216500 
38461000 



38232500 38235500 38236010 



*4l3l3900* 

' LABEL -' 

22303200 

« LABEL 

06465600 

— LABEL 



-- DECLARED AT 38654OOO 
-- DECLARED AT 3<3OO?O00 

39085000 390&6000 39087500 

39297100 39306010 

"• DECLARED AT 41002000 
41046000 41048000 41144000 

DFCLARFD AT 41312300 



390H9000 39091000 39092170 39092)75 39238000 39242000 39293300 
41212000 



41314300 *4l3l4500* 4i3l4600 

DECLARED AT 22236100 — • 
22334400 

-- DECLARED AT 06462200 - 
06465900 

-- DECLARED AT 16053000 - 



41314700 

Occurs at 22350000 
- occurs at 06464400 

- OCCURS AT 16343400 



FORGET 

FORGET 

FORgFT 
FORGET 

FORGFT 

forgetem 

forgetes 
forgetes 

forgftev 
forgftit 
forgeton 

FORGETSp 



FORGETUS 

FORKED 
FORKFn 
FORKED 



16109000 

— LABEL 
16574000 

•- label 

16740000 

"" larfl 

16931000 

" LABEL 
37571300 
-- LABEL 
40100300 

-- SUB 
096?5000 
PDISK «•« 
PDISK -- 
06261000 
20572700 

fRything 

081 16450 

-- SUB 
070?6800 
E — SU 
07076700 
ACE — 
0i?6l400 
02434850 
05977850 
06365110 
07235000 
07374200 

06?59525 
08674000 

09505750 

096fii650 

14292140 

16043550 

18465000 

19709000 

20i?0800 

20567030 

205778?? 

20608050 

22383100 

28302000 

309 ? 9500 

384O8OOO 

40317800 

42478600 

44281000 

ERDISK - 

05853700 

19592000 

— DEFIN 
28013800 
« DEFIN 
28747800 
-- OEFIN 



16127000 16161000 16166000 
— DECLARED AT 16354000 — 

16580000 16589000 I66O5OOO 
"" DECLARED AT 16699000 -' 

16769000 16773000 16779500 
-- nFCLARFH AT 16914000 — 

-- DECLARED AT 37505000 — 
-- DECLARED AT 40005230 -• 



16172000 16200000 
OCCURS AT 16689000 

16608000 16610900 
OCCURS AT 16902500 

16785500 16787000 

occurs at 16966500 
occurs at 37539000 
occurs at 40101510 



16242000 16244000 16259000 16263700 



16788500 16792000 16795500 1683O2OO 16866530 



ROUTINE 

09636000 

PROCFDLI 

PROCEDU 

07559120 

20573100 

" SURR 
08117150 

ROUTf Nf 
07??9000 

BROUTinE 
070?6600 

PROCEDURE 
02049000 
04195100 
06084600 
06380J40 
07236000 
07417000 
08270600 
08676000 
09536000 
09682000 
t 4364700 
16236000 
18466?00 
1 9 7 1 4 1 
20176030 
20570070 
20578 ? 00 
2O61O2OO 
22386/jOO 
28420600 
32°°0600 
38478000 
40323700 
42500000 
45092360 

PROrED 
05977050 
2°2i0600 

E — DE 



DECLARED AT 09616000 



RE -- DEC 
RE -- DEC 
14399000 
28012150 
OUTlNp -- 



LARED AT 06020500 -« 

LARED AT 06036000 
14399500 144J1740 20027300 
28410000 28813000 38459000 
DECLARED AT 08116200 



FORWARD AT 00364000 



20045800 20046300 
40353160 



• DECLARED AT 070?6i00 
07731000 
- DECLARED AT 07072100 



'- DECLA 
02124500 
04687750 
06095300 
06380950 
07238000 
074*i9400 
08?765i0 
08695400 
09621000 
0968?700 
14372000 
16503000 
18527100 
19766800 
?0l76i4t 
70573350 
?05782i0 
2O61O3OO 
22403000 
28429800 
32001575 
38516000 
403*5000 

42539050 
45099600 

URE "• DE 
05977100 
28?95400 

GLARED AT 2 



RED AT 74 
071.73380 
04687800 
06114400 
0638i085 
07239000 
07420050 
08297300 
08696000 
09624t00 
12 32 11 70 
14396100 
16769000 
1854H00 
19786000 
20210400 
20574905 
20578400 
20610350 
72428000 
28482000 
37232500 
38525000 
40353200 
44139000 
45134000 

cLaRED AT 
07025000 
28300600 

8007600 



000000 -" 
02173389 
05729000 
06U4900 
06417000 
07240000 
07452700 
08298200 
087^170 
09634000 
12474500 
14399700 
I681O5OO 
18555200 
19904850 
20210500 
20574920 
2O58O3O2 
2O61O42O 
22^21000 
28482200 
37254000 
3861O6OO 
40356550 
44240660 
45U5010 
05846600 
07178300 
375i6000 



FORWARD AT 
02253050 
05846390 
06H5600 
06463720 
07264200 
07461800 
08387000 
08716500 
09634100 
12475000 
I44n700 
I6811OOO 
18790500 
20034060 
20210700 
20575650 
20585380 
70739000 
24031000 
28482600 
37763000 
38630000 
4H99000 
44242010 
45135800 
■" FORWARD 
07345000 
3754?000 



00090000 
02271.000 
05853595 
06244000 
06464400 
07290650 
07480000 
08434600 
06784100 
09643000 
12561600 
14431000 
16815500 
18800200 
20034200 
20289380 
20576215 
20585385 
20769600 
24035900 
28823500 
37279000 
39970000 
41209000 
44244500 
45143000 

AT 003160 
14360900 
3848OOOO 



07313600 
05953220 
06328i00 
06466620 
07295240 
07567000 
08438440 
08835000 
09648800 
1?630500 
14621000 
16819400 
18800300 
20034600 
20289590 
20576300 
205880i0 
22050000 
2805i?00 
28868700 
37463000 
40075000 
41323550 
44246500 

00 

14406000 

38523000 



20059600 70090200 20180800 



02317000 
05966100 
06329000 
07079000 
07318Q10 

O8O55OOO 
08572400 
08947000 
09658000 
12704000 
15552800 
16829550 
19575000 
20045400 
20382580 
20576450 
20588450 
22069450 
28062400 
28868400 
37545000 
40076000 
41334600 
44248500 



14583200 
38599000 



0?434830 
05966*00 
06353540 
07083000 
07332000 
08116350 
08597840 
08947600 
09681540 
^757000 
15604800 
18019000 
19685070 
70045600 
705U340 
20577725 
?0592725 
72225000 
28286800 
28882140 
380i4900 
40317230 
41335000 
44252000 



02434840 
05975620 
06353555 
07093000 
07373000 
O81164OO 
08621600 
08998000 
09681545 
12898000 
15627000 
18078000 
19700500 
20066500 
20511350 
20577823 
2060 1200 
22350000 
28295600 
28888000 
38228OOO 
40317700 
41607500 
44272000 



18425600 18446000 



E — DFCLARFD AT 28208600 

28305000 
E -- DECLARED AT 78405200 



28454800 

forked -- real -- declared at 41316400 

*413i7200**413I8620* 4 1 3lftfl 1 41320255 41325600 

FORM — DEFINE " DFCLARED AT 20240000 
20448050 20450000 

formers -- Real PROrEniiRF "" dfcLaRed at 08418000 

♦08420000**08438300* 16244000 
FORMS -- RFAL -- VALUF PARAMETER « DFCLARFD AT 00373000 

0037t000 00372000 
FORMS — REAL -- VALUE PARAMETER -- DEC L ,ARE0 AT 37002000 

37000000 37001000 37046730 37046740 370*6825 37046960 37047800 
FORMS — INTEGER — DFCLARED AT 38004000 

*38075500* 38082500 *38091000* 38094000 38097000 38098000 
FORMS -- INTEGER — DFCLARED AT 38102400 
FORMS — INTEGER -- DECLARED AT 38200400 

38215500 38252500 
FORMS -" REAL -- DECLARED AT 38362000 

♦38421000* 38489000 38505000 
FORMS — RFAL — DFrLARED AT 38547000 
FORMS — RfAL — DFrLARFO AT 38655000 

38737000 38743000 
FORMS -- TNTEGER — DECLARED AT 39003000 
♦39089000* 39092i70 

forms •- real -- declared at 41003000 

*41048000* 

formtime — procedure -- declared at 05607000 -* forward at oo4sooio 

02173297 

FORMTOG -- REAL — DECLAREO AT 12505500 

12700500 12753000 12757500 

FORMTOG — RFAL " nFCLARFD AT 12805500 

♦12849000* 12860500 *12878000* 

formtog « Real — declared at 13007000 

forseven — stream variable -- dfclared at 04658700 

O466O1OO ♦O466O8OO* 
FORTRAN — DEFINE -- DECLARED AT 20235000 

forty — real — declared at 40004500 

400|6026 400l6«?in 40017285 40017295 40039100 40040500 40078068 40100700 40100900 40101250 *40249j05^ 
*4026l043^*4026l047„, lk 40290500* 40290600 *40292060**40321 3 10* 40322000 40322150 40324102 *40334054* 
FORTYMlLLDTSK ■• DEFTNF " DFCLaRfD AT 40008200 

4O261O1O 40261^00 402*0400 40321310 40324200 40327000 
FOUND -- LABFL -- DfCLARED AT 02189000 -- OCCURS AT 022J7000 
FOUND m- LABEL « DFCLARED AT 04705000 -- OCCURS AT 04736000 

04732000 
FOUND -• LABEL — DfCLARED AT 05952620 -- OCCURS AT 05976900 

05976450 
FOUND -- LABEL -- DECLARED AT 06462120 -- OCCURS AT 06463600 

06463580 
FOUND -- LABEL « DECLARED AT 08255800 — OCCURS AT 08270600 

08270300 
FOUND -- LABEL — DECLARED AT 14547000 — OCCURS AT 14599000 

14594000 
FOUND — LABEL -• DFCLARED AT 16204000 -- OCCURS AT 18232000 

18228000 
FOUND -* STREAM LABFL « DECLARED AT 28411400 — OCCURS A T 28413400 

284t2400 
FOUNDAFTLE -- REAL — DECLARED AT 08100250 

08H5250 *08U7000* 08tl7l00 
FpB »- REAL ARRAY -- DECLARED AT 04668800 



♦ 0/1680100* 04681250 04681850 *04682050* 
FPB -" REAL ARRAY « OFCLARFD AT 06462110 

♦ 06463520* 0M63560 06463580 *0M6366o**06463680* 
FPR -" RfaL- ARRAY "- OFCL-aREO AT 07010000 

*070 18000**0 70 19000**0707 3500**070 760 10**0 709 30 10**07 104500* 
FPB -- RFftL ARRAY — OFCURFD AT 12502500 

*!2536500**i?539s00**i2^40000**l2675750* 12700000 12700500 *12702500**1?703000**12750250* 
FPB -- REAL ARRAY -- DECLARED AT I280g500 

♦12876500* 
FPB -- REAL ARRAY -- DECLARED Al 13003000 
FpB -- REAL ARRAY -- DECLARED AT 14624600 

♦ 14644000* 14645^00 *]4677000* 14679000 *146R4000* 14685000 14688000 *1470«5000* 14707000 
FPB -- REAL ARRAY -- DFCLARED aT 18502400 

♦16523800* 18524100 18525700 18326800 *18552800* 18553100 18553200 18555700 18555800 
rPp — RtaL aRRay -- ofcLaRfo aT 19521000 
FPR -" RFAt- " DFCLaRfo AT 20017600 

♦20049000* 20049500 20050000 20053200 2006110° 20066500 
FPB -- STREAM VARIABLE -- DECLARED AT 2OO532OO 

?0053400 
FPB -- STREAM VARIABLF -- DECLARED AT ?0061}00 

20061400 
FpB .- REAL ARRAY « DECLARED AT 37180400 

♦37 24 2 100** 37 24 2200**3 7 242300* 
FpB — REAL ARRAY -- DECLARED AT 37272000 

♦ 37273000* 37274000 37275000 37276000 37276100 37278000 37278200 37279000 ♦37280000**3728 1000*+37283000* 
♦37284000+ 37284130 *37284150* 37285100 * 37285200**37285300* 37285320 

fPr — RfaL aRRay -- nrcURrn at 38OOB000 

*380l 3 030**38 01 30^0**3601 3 900**38 Oi 57 00** 380l 5 95 0* 38075 000 

fpb -- Real array -- declared at 38102800 

38104800 *38ll5000* 

FPB -- REAL ARRAY — DECLARED AT 38200800 

382O28OO 38213000 38214500 *382i6500** 38233000**38236000**38236010* 

FPB •- REAL ARRAY -- DECLARED AT 38357000 

38401000 384HS00 38412200 38422000 38453000 38461000 

FPB «■* REAL ARRAY « DFCLARED AT 385*2000 

38603000 

FPB -- REAL ARRAY « DECLARED AT 38650000 

FPB -- REAL ARRAY " DECLARED AT 39005000 

*39083000^ 39085000 39086000 39087500 39089000 39091000 +39092170* 39092175 +392970 10 **39297020+ 39297100 
♦39306010* 

fpb — Real array -- dfcLaRed at 41001000 

♦ 41040000* 41046000 41O48OOO 4H44000 
FPBAREAV •- DEFINE -- DECLARED AT 00017560 

20049000 ?0049ROO 20187400 28O5O8OO 
FpBpTp -- REAL -- DECLARED AT 28001800 

28014200 ?80;>8000 ?8037400 +28050400+ ?8050600 ?R050800 28051000 28051600 28052400 ?8052800 28053600 
♦28068600* 
FPBPTR — REAL — DFCLARED AT 26202200 

28226400 +28246?00 + 28247400 +28248200++28250400* 28250600 28251200 28305200 28305400 

fprptr -- Real « dfclaRfd at 2840iooo 

28434200 28481600 

FPpsi7E — Real — declared at 06462105 

*064635?0* 06463540 
FPBVERSjON — REAL — DECLARED AT 200i6800 

20016900 *20053l00* 200*3200 2OO611OO 20064000 
FPB3 — REAL •• VALUE PARAMETER — DECLARED AT 00390200 

00390000 00390iOO 



FpB3 — REAL -- VALUF PARAMETER -- DECLARED AT 37286200 

37286000 37286100 37293220 3T293240 
FR -- STREAM VARIABLE — DFCLARFO AT 08838000 

FREE •- STREAM LABEL « DECLARED AT tt J 1 S 5 — OCCURS AT 08111200 
FREE *■ OFFINE « DECLARED AT 20219200 

20511660 20511664 
FRFEF -- 0FF1NF -- nFCLARFD AT 20247930 

20ft/>8050 2046J050 20461650 20467100 20473100 
FR FE F .- R F AL — DECLARED AT 37004200 

*37046005* 37046370 
FREEL •- LABEL -- DECLARED AT 37OO42 00 -• OCCURS AT 37046460 

37046420 
FrEEMASk -- DEFINE -- DECLARED AT 00081300 

09630000 
FREES — LABEL — DFCLARFO AT 20597750 — OCCURS AT 20606250 

20597900 
FROG '" STREAM LaBFI- " OECMRFD AT 04662100 — OCCURS AT 04662300 
FROM — RfaL -- VALUF PaRaMfTeR — DFCL-aRfD AT 01250200 

01250100 01250?00 0)254900 01255800 01257300 
FROM -- OFFINe -- DFCLARFO AT ?0?38000 

?0570400 
FROMCOPY -- DEFINE -- DECLARED AT 28008?00 

28012000 28049*00 
FR0MH|,D -• REAL •- DECLARED AT 20566290 

20566300 20566*10 *20569522**2056985f>**20569860** 20570460**20570464* 20570570 
FRONT -• RFAL — DFrURFD AT 22230000 

22264000 22268Q00 22273000 22278000 22284300 22284500 222^6070 222^6110 *22296000* 22307000 2230*000 

223)4000 22328400 22331400 22350000 22354000 22356300 22363000 22365300 22383l00 22386400 2239t000 

22403000 224)0000 22428000 
FRONT -- REAL — DECLARED AT 24004000 

♦ 24007000* 240n000 

FS — REAl, ARRAY -- DECLARED AT 00419400 

04105650 M8039000* 44162050 
FSARFAV -- DEFINE -- DFCLARED AT 00017480 

20181000 
FSROW -- REAL ARRAY -- DECLARED AT 00419400 

♦ 201.81000* 

FSX -■ REAL — DECLARED AT 04100000 

♦04105650* 04105750 
FT -- REAL — DFCLARFO AT 20016900 

20017000 20061000 *20063700**20063800* 20063900 
FT -- STRfaM VARlABLF " DFC^ARfD AT 2006l000 

20061800 
FT -m REAL — DECLARED AT 20704)00 

*207i4500* 20769000 
FTC •- DEFINE -- DECLARED AT 00067070 

02275450 14358800 14360350 22^27000 38266000 38571000 
FTF -- DEFINE — DEcLARfO AT 00067060 

02067000 02097400 04201000 14218088 17002600 22383050 22424000 28470000 2B474000 38107100 38205100 
FTl "' RFaL. " ofcLaRfd AT 20017800 
*20063700* 

func — switch ladel -- declarfd at 205111^0 

20511450 
FU N Cj -- LABEL « DECLARED «T ?05lll65 -- OCCURS AT 20511455 

20511170 
FUNCTION — SWITCH LABEL " DECLARED AT 14631000 

14634000 



FUNCO — LABEL — OfCLaRED AT 2051H60 — OCCURS AT 20511460 

205U170 
FUNCl — LABEL -- DFCLARFD AT 20511160 -- OCCURS AT 20511510 

20511170 
FUN C 2 — LaBFL — DFCL.A R FD AT 20511160 -- OCCURS AT 20511540 

20511170 
FUNC3 -- LABEL — DFCLARFD AT 20511160 -- OCCURS AT 20511570 

205U170 
FWD -- STREAM LABFL -- DECLARED AT 37394400 •- OCCURS AT 37394500 
FXToG -• REAL -- DECLARED AT 20702000 

20702100 *20712000**20714500* 20729000 20745000 20767000 
Fl — STREAM VARIABLE « DECLARED AT 1241o5oO 

12412000 

F2 — stream variable -- declared at i24io5oo 

12412000 
G " LABEL -- OFCLARFD AT 05841650 — OCCURS A T 05846395 

05843600 05844000 
G -- INTEGER -- OECLARFD AT 05847700 

♦05848255* O58483OO *05850200* 0585i220 O58513OO 05852200 05852400 05852500 
G «- INTEGER •- DECLARED AT 05952000 

♦05961800* 0597i?00 05971600 *0597i800* 05972000 *05972400* 
G •- LABEL " DECLARED AT 07270000 « OCCURS aT 07275000" 
G -- REAL — DECLARFD AT 08441000 

♦08497000* 08497100 
G «■- INTEGER -- VALUE PARAMETER « DECLARED AT 15169100 

15168000 15168100 15172500 15175000 * 151 76000**15177000* 
G -- STREAM VARIABLE -- DECLARED AT 15404000 

15406100 
GET — RFAU SUbROUTINf •• DECLARED AT 13033000 

13090000 13097000 13118000 
GETAROW -- LABFL « DFCLARFD AT 18205000 -- OCCURS AT 18421000 

18288000 
GETASFGMENT — SUBROUTINE -- DECLARED AT ?8409200 

28455800 28459800 28462600 2848i000 
GETASEGmEnT « SUBROUTINE « DECLARED AT ?8809000 

28*24250 28859000 28868000 
GETBUFFFRS — DEFINE "- DECLARED AT 00387000 

38025000 38152000 38297500 39144000 39230000 39244000 39293400 
GETpM — LABEL « DFCLARFD AT 20566600 -- OCCURS AT 20569920 

20570250 
GETeSpdtSk « REAL PROCEDURE " DECL At *ED AT O6O21OOO -- FORWARD AT 02H1000 



H"H mm "t«l. rnoi;e.U""t " t ' t. V, U " " fc. U ft' uou<riuuu mm ^\jnnnf%[) Ml uziliuuu 

♦06031000* 06249000 07179230 07263800 08276490 19685020 19737000 19768700 19777000 20034500 20400000 

20403000 20566685 20569400 20576100 20576758 20581950 20582500 20585550 20603200 22069430 38495000 
40008330 44269500 44271000 



GETFILESPFCIFIER « SUBROUTINE — DECLARED AT 08101800 

08102800 08116600 
GETFROMFRONT -" FIELD " DECLARED AT 24042595 
GETMOREOLAYOISK — PROCEDURE — DECLARFD AT 06400000 

24167000 
GETNEXT — SUBROUTINE " DECLARED AT 08858000 

08870000 08885000 08910000 08927000 
GFT0N r •- LABFL — nFCLARED AT 28806000 — OccURS AT 28862000 

28868100 
GETOUT — LABEL -• DECLARED AT 1 4OO3OOO — OCCURS AT 14072000 

14051000 14074000 
GETREADY -- SUBROUTINE -- DECLARED AT 08101400 

08101700 08116550 



GETSET 
GETSPiiCF 



GFTUSrRn 



GETUSrRn 

GI "• 

GI m m 

* 

GI 



gimedaTf 

GIN — 

givedaTf 

GlVETrME 
GIVEUP 

GIVEUp 

GM -- 



-- SUBRO 
0B1O4650 

""• I NT 
00019035 
04004170 
0456^550 
04707000 
06037300 
06206140 
06463880 
07257400 
08267500 
08568600 
08715100 
1232U00 
14203020 
14570100 
15600800 
I69 2 62i0 
182S6000 
19680200 
20049800 
20181000 
20600950 
22163000 
28062000 
2829i000 
28466600 
37046180 
38i07000 
400^6400 

4l3l4000 
44202120 
45131100 

ISK " 

05954800 
41318240 

ISK — 

05843600 

Real arra 

REAl, ARRA 
4OS6100* 
REAL ARRA 
4510 3000 

45134000 
-" PRO 

08108200 
L ART L. - 
•• DEF 

45135100 
— DEF 

45135160 

— LABEL 
04568600 

— LABEL 
STREAM VA 
04588370 



UTINE -- 
08116700 

FGFR procf 
01250700 
04251)00 
O4644OOO 
05703000 
06074?00 
06210000 
06464000 
07274000 
08274250 
085777~00 
08775000 
12407000 
14281000 
14603750 
15604250 
16956040 
18438^20 
19685025 
20059)20 
20187400 
20601SOO 
22904000 
28065000 
?83045]0 
28855000 
37046520 
38205000 
40249)00 
41317790 
44202500 
45135040 

DFFINE " 
06420000 
41320500 

DEFINE -- 
05845500 

Y -- DEC 

Y -- DEC 
44256i50 

Y — DEC 
45105000 



DECLARED AT 08104400 



nuRE — 

217 3U0 
04272000 
04672500 
05709000 
06077500 
062H100 
07087000 
07304000 
08275500 
08597800 
08831000 
12408000 
14353000 
14645800 
15614000 
)7002600 
18520600 
19705000 
20089820 
20194300 
2060172C 
22909000 
28069000 
28429000 
28856OOO 
37240700 
382i8000 
40249120 
4l3l82]0 
44203200 
45135110 

declared 

07045000 
41321200 

DECLARED 
05846500 
LARED AT 4 
LARED AT 4 

44260000 

LARED AT 4 

45114000 



DECLARED A 
02181000 
04278200 
04672950 
05844110 
06090000 
06353545 
07095100 
07371200 
08276410 
O86O4OOO 
08881000 
12468000 
14380000 
15022000 
15622000 
l700 3 450 
18528200 
I97ni00 
20101300 
20289148 
20601850 
240426 75 
28069600 
28432400 
28868300 
37249000 
38246500 
40263000 
41320600 
44240840 
45135170 
AT 000120 
08569700 
41502100 
AT 058417 

40)7000 
4207150 
*44269500* 
5002700 
451 15000 



T 24042200 
02206000 
04359600 
04674750 
05844930 
06095100 
06353600 
07096000 
07429100 
08380000 
08605000 
08886000 

12473210 
14398600 

15H3800 
J6O411OO 
17909000 
l8570j00 
)97i9000 
20106000 
20374415 
206O7060 

•24045500* 
28069800 
?8435000 
28869000 
37277000 
38399000 
40265000 
41323130 
4424 1000 
45155000 

01 
087 t 4l30 
45092130 

00 



-- FORW 
02218000 
04365400 
04675000 
05850120 
06103900 
06353680 
07097000 
07433000 
08385100 
08629000 
08930000 
1267^500 
144n640 
15115700 
16506000 
I8O13OOO 
18790100 
19731000 
20124900 
20382058 
22008000 
24046200 
28070000 
28443200 
30907000 
37314200 
38434000 
40275200 
41328600 
44256100 
48054400 



ARD AT 000 
02255000 
04371930 
04675650 
05952995 
06107200 
O636O6OO 
07101000 
07446000 
08410000 
08631000 
09505000 
12708250 
144H820 
15174000 
16591000 
l80j4000 
18790600 
19768768 
20127300 
20511370 
22012000 
28018000 
28213400 
28451800 
30915000 
37360000 
38625000 
40275500 
41333010 
44262500 



14000 
02347320 
04401000 
04675700 
05953070 
06107300 
O638O14O 
07139530 
07564000 
08424000 
08690000 
09506000 
12823000 
14415300 
15180000 
16756000 
18048000 
1879)620 
20021920 
20)53700 
20567005 
22069000 

28023800 
28218400 

28452600 
32000300 
37406000 
39934000 
4027800 
41602900 
44274500 



02434320 
04555250 
04683500 
0596)400 
06109400 
06380350 
07155000 
08104600 
08437200 
08693200 
09535000 
12833000 
14431530 
15501200 
16827J00 
18273040 
I882O2OO 
20026600 
20157700 
20567020 
22069050 
28050800 
28263400 
28455400 
32000500 
37440000 
39939000 

40292212 
44149000 
45075600 



02434430 
04567320 
O46861OO 
05966600 
06188100 
06380400 
07214000 
08112000 
08438400 
08709800 
09639000 
12848500 
14533000 
15546000 
16828300 
t 8276000 
18830600 
20028300 
20176048 
20592400 
22069100 
28056400 
28267400 
28457000 
32100500 
37454000 
39958000 
40320200 
44150005 
45101000 



02639000 
04567790 
04686950 
06022300 
06195125 
06414000 
07256400 
08115300 
08498000 
08712100 
09680200 
12892500 
14559250 
15549000 
16919500 
18280000 
18870700 
20049000 
20176090 
20600400 
22069350 
2805 8600 
28288000 
2845*000 
37036300 
37508000 
4OO1624O 
41312700 
44152000 
45130000 



08716010 18425100 18425300 1*736000 2028900 284358Q0 



45118000 45121000 45122000 45123000 45124000 45125000 45126000 



CEDURE "- DEgL A RED 
08385000 16494000 

- DFCLARFD AT 14627 
INF — OECLARED AT 



AT 08317000 — EOrWaRD AT 08070000 
20105350 45075600 
300 
00409000 



INF -- DECLARED AT 004)0000 

554200 -• 



— DECLARED AT 04 
04627000 
-- DECLARED AT 07 
RlABLE " DECLARED 



356000 «• 
AT 04588300 



OCCURS AT 04642900 
OCCURS AT 07371450 



GM — REAL " DECLARFO AT 14164200 

GNX -- LAREL — DECIARFD AT 08855000 — OCCURS A I 08869000 
08862000 

GOeo -- L/vnpi, -- declared at 20316000 -- occurs at 20321000 

20374500 
GOfiOGO — LABEL. -" nFCURFO AT 00008000 — OccURS AT 48024000 
48044000 

got -- real — dfclaRfo at 31005000 

31005310 31005U0 +310^0000* 3lOl?000 
GOT — STREAM VARIABLE — DECLARED AT 31005310 
GOTB -- INTEGER — DECLARED AT 37003000 

37021000 *37045000* 37046820 37046940 
GOTC — INTEGER -• DECLARED AT 37003000 

•37019300* 37021000 37039000 37046620 37046950 
GOTIT — LABEL — DfCLaRED AT 13019000 -- OCCURS AT 13119100 

13099000 
GOTL — INTEGER — nECLAREn AT 37003000 

*370i?000* 37021000 37039000 37046820 +37047500* 
GOTP -- INTEGER — DECLARED AT 37003000 
♦370 17000** 3704 7s00* 

GoTT -- integer -- declared at 37003000 

♦37035000* 37046A20 37046940 

gotten -- label -- declared at noiaooo — occurs at 13090000 

13085000 

gRabit ■— l A bel — declared at i46?74oo 

GUARDFlLEFIn — OFFlNr " DFCLaRFD AT 081OU00 

08U0150 08110350 
GUARDFTLEMFTD " DEFINF -- DECLARED Al 08i0j050 

OBn'OiOO 08li0?50 O811O35O 
H — REAL ARRAY -- VALUE PARAMETER -- DECLARED AT 00390200 

00390005 00390iOO 
H " REAL ARRAY — VALUE PARAMETER — DECLARED AT 02347160 

02347150 02347160 
H -- REAL — NAME PARAMETER -- DECLARED AT 02696100 

02696000 
H " INTEGER — DECLARED AT 05841615 

♦05842930* 05843700 *058«5100* 05845300 05845500 05845700 

H "• iNTFGFR "* DFCLARFD AT 058^7700 

♦05850 300 * *o 5850 400**05850600**0 585 lb00**0585 1850* O5852OOO 05852700 

H -- fNTFGFR — DFCLARFD AT 05952000 

05953085 *05962000**05962200**0596 ? 600* 05962700 05962900 05970800 O59728OO O59734OO 05973800 *05974400* 
♦05974600* 05974800 
H •- STREAM VARIABLE — HECLARED AT 059530*5 

05953105 05953110 
H — R EAL ARRAY — VAl.UE PARAMETER -- DECLARED AT 07002100 
H • • rEAL ARRAY -- DECLARED AT 07010000 

07023000 07025000 07026400 07026500 07043000 *07044000+*07045000**07097000**07 1 1 1000* 07112000 *07112100* 
*07178200^07179000**07179050**07U9100**07179200*^07179220* 07179250 07179260 07180000 07238000 
M -- REAL ARRAY — VALUE PaRaMfTER — DfCLARED AT 07377000 

07376000 07377000 07389000 07390000 07393000 07395000 ♦07396000**07397000^*07399000**07400400+ O74O1OOO 
♦07403000**074 04000* 
H -- REAL ARRAY -- DECLARED AT 07407000 

♦07409000* 07410000 074i0lOO 07412000 074J6000 07417000 07420010 07420050 
H •• REAL ARRAY — DECLARED AT 07425000 

♦07433000^*07434000* 07436200 07436300 07436500 07437800 *074 38 100**0744 1000**07442000* 07444000 *07445000* 
07445100 07445200 07445300 07446100 07446150 *07446200* 07448500 07451000 
H •• REAL ARRAY — VALUE PaRaMfTFR — DfCLAREO AT 07541000 



07545000 *07548o00**07546i00* 07549000 *07550000**07550 J 00**07557000* 07559000 07559H0 07559l80 #07559500* 
H ~- tNTfafR -" DFCLARFD AT 08306000 

♦08309000* 0B310000 
H •• STREAM VARIABLE -- DECLARED AT O831OOOO 

08312000 
H »- REAL -- DECLARED AT 08418500 

*08/nA00O**0B434i0O**06434?O0* 08434300 O84345OO 08434600 08434700 *0853lOOO* 08532000 
H -• REAL — DECLARFD AT 08704000 

♦08709800**08712100* 0B7t?110 08712120 08712130 08712140 08712150 08712160 08712170 08713250 08714110 
087|4120 08714130 087l4t50 08714170 *067l5l00* 08715200 08716100 08716110 08716200 08716300 08716500 
08728500 08728700 
H " STRrA M VARlARL.r -- PFCLaRfh AT 08709800 
H — STRfa m VARIABLE " DFCLaRfp AT 08713250 
H -- REAL -- DecLARfD AT 1 « 5 <t 5 1 00 

*1455?750**14569 ? 00* 14569500 14570000 14581700 
H "- REAL ARRAY -- DECLARED AT 1.8502400 -- OCCURS AT 15032000 

*l8524500**l852A700**)65p4900**l8525300* l85?5500 *1 8525900**18526300**1 8526500* 18526700 18527000 18527100 
18527400 18527500 * 1 8527600 + * 18528 1 Oo* 185282OO 
H " REAL ARRAY — DECLARED AT 19521000 

♦19685025**19685030**19685055* 19685O65 19685070 *1 9685570**1 9685580**1 9685585* 
H « REAL ARRAY — DECLARED AT J969200Q 

♦19731000* 19732000 *1 9733000**19735000** 19735050**19736000* 19738000 19751000 19754000 19766300 19768200 
*19768600**19768650* 19768750 19768768 19779000 *19780000* 19781000 19786000 
H •" REAL ARRAY — nFCtARFO AT 28004400 

26O448OO *j»8070000* ?609i800 *28099800* 281OO2OO 
H -- REAL ARRAY -- DECLARED AT ?8204B00 

28?40000 2«?40?00 ?8254000 *2«255800* 28257400 ?8258400 28258800 28259000 28273400 28276600 28277600 
28?78600 28279400 ?b28320C 28286400 *28289200* ?8290000 28290200 *28290400**28290600* 28291200 28295000 
28295400 28297800 *28298600* 28298600 *28299000* 28299600 28299800 283OO2OO 28301600 
H « STREAM VARIABLE — DECLARED AT 28291200 

28292400 
H •• REAL ARRAY « nECLARED AT 28804000 

*288?2000**28822500* 28823500 28836000 288365OO *2888)000* 28882J40 *28882200* 28884000 28885000 *28886000* 
28888000 
H •- REAL ARRAY — VALUE PARAMETER "- DECLARED AT 37286300 

37286000 37286100 37269000 37290000 37291000 37292600 37292800 *37293270* 37294000 

h — rfaL aRRay — naMf parameter -" declared at 37500000 

37510000 375H000 37512000 37513000 375j5000 37516000 *375l7000* 37521000 *37521200**3753l000* 37533000 

37535000 *37538500* 37542000 37543000 *37544000* 
H -- STREAM VARIABLE « DECLARED AT 38014200 

380,4300 
H *- STREAM VARIABLE -- DECLARED AT 38422000 

38423000 
H *- rEAL — DECLARED AT 40007500 

*40!?80l00* 4o?83ft00 4o293070 4o3lf5oo 40317610 
Ha — L A rfL — DECL A RFD AT 00650750 — OCCURS AT 00655200 

00655800 00656400 

ma -- Real — dfcLarfd at 05952240 

♦05976000* 05976800 05977000 05977550 
HADDR »- REAL •* DECLARED AT 19694000 

*l9737000^ {973B000 i9767800 *]9777000+ i9780000 i978?000 19783000 19785000 
HALT — PROCEDURE -- DECLARED AT 02036000 

02257000 02363000 02434480 04674500 06)03800 14358383 16125000 t6850900 18581400 ^9905320 220n000 
22244000 42501500 
HALTED "* REAL " DECLARED AT J6698230 

♦16850900* 16856200 
HALTSeT — DEFINE " DECLARED AT 00416751 



00656600 44182200 
HANDLrRR — LABEL " DFCLaRED AT 28211000 -- OCCURS AT 28245400 

28242800 28243800 
HANG — OTFINe — DfCLaRFD AT 00006100 

haRdfiLl -- subRoutiNf -- declared at 01253300 

01254700 01256900 01258000 0i259?00 01259700 
HB •- LABFL *- DFCLARFD AT 00650750 -- OCCURS AT 00655600 

00656200 
HD -- REAL ARRAY -- DFCLARED AT 05951600 

05951700 05952400 *059«53070* 05953075 +05953080* O5953O85 *05953l 17**05953 I20**05953j 25* 

hd -• label « declared at 16700500 — occurs at I6823000 

16705000 
HDR -- REAL ARRAY " DFT.LaRFD AT 05952260 

♦05976050* 05976150 059/6300 05976350 *05976950* 05977350 05977400 *05977500* 
HDR •" RFftL -- DFCLARFD AT 07244000 

♦07256000* 07257600 07257800 07262200 
HDR -• RFAL ARRAY -- DFCLARED AT O81OOOOO 

*08l04600* 08105350 08105400 O81O55OO 08105700 08105900 O81O6O4O 0fil07t00 08l09l00 08109250 08109300 
08110050 08110100 08110150 08110250 08110350 08112050 08112150 08112175 08113300 08114300 08114350 
08116350 
HDR -- REAL « DECLARED AT 08255400 

♦08273750* 08274260 06275750 08276000 08276400 
HDR "" RfaL -" DFCLflRFD AT 20012400 

♦20028300* 20028900 20031500 20034000 20034060 20034200 20043800 20044800 20045400 
HDR -" RfaL -- DFCLftRFn AT 20081600 

hdR -- RfaL — dfcLaRfd at 20142000 

*2°150200* ?0t69600 ?0i69800 201.69900 2°l74300 20i76054 
HDR m- REAL •- DECLARED AT 22061100 

2206H10 *?2069030* ??069li0 2?069l20 22069340 
HDR — REAL ARRAY -- DECLARED AT 28205400 

♦28289000**28289400**26289600* 28290400 28295200 28296000 28299200 28299800 28300400 28300600 
HORtCHK '- SUBROUTINE — DEfl.ARED AT 01251700 

01252*00 01255300 01256200 01259000 
HDR1FILL — SUBROUTINE « DECLARED AT 01252500 

01253700 01255400 01256300 01256800 01257900 01259100 01259600 
HFAD •• RfaL ARRAY — nFCLARED AT 40005050 

*400t65lO**400l7050**400i7200**400i7250**400p7295* 40041000 40046000 *40049000**40057000**40078042* 40078052 
♦40078054**400 78058* 
HEADER -- REAL -- DFCLARFD AT 05952250 

♦05975750* 05975850 05976000 *05976050* 05976800 O5977OOO 05977550 05977850 
HEADER mm REAL -» NAME PARAMETER ""- DECLARED AT 06460200 

06460000 06463200 06463840 06463860 06463880 06463925 06466610 *06466620* 
HEADER -- NAME -- DECLARED AT 08703000 

♦08706000**08707500^ 08708000 08709000 08709400 08709500 *087ll000* 08711600 ♦08712000* 08712100 08712120 
♦ 087t2200**087i2500**087i3000* 0B713250 *087 \ 4 120**087 14 1 30* 087l4l40 087l4l50 087l4310 087i4320 087j5000 
08715100 *08716000* 08716100 08716110 087l6200 08717000 *08721000* 
HFADER •" RFAL ARRAY " DFCLaRfD AT 12502500 

12503000 12561600 *i2562000**t 2*63000* 12564500 J2565000 j26?7500 12630500 *12632000**1 2632500* 12633000 
12633500 12642000 12*43500 
HEADER « REAL ARRAY — DFCLARFD AT 12802500 

12803000 
HEADER -- REAL ARRAY -- DECLARED AT 13003000 

13041000 13042000 13044000 13049000 
HEADER -- REAL ARRAY -- DECLARED AT 14624400 
HEADER — SUBROUTINE -- DECLARED AT 18238000 

18270000 18287000 18426000 
HEADER — REAL ARRAY — DECLARED AT 202890^0 



*20?89055* 20289080 *20289 i 05**20289 } 1 0**20289 n 3**20289 1 15**20289 i 20**20289 1 25**20289 \ 30**20289 1 35* 

HFADFR -" RFAL ARRAY — DFCLARFD AT 38010000 

*360i4t00* 380i4p00 380J4400 *38020000* 38O32OOG *38035000* 38O4OOOO 38045<|l0 38049400 38O495OO 38049600 

38075500 38076000 38091000 

header — Real array -- dfclaRfd at 38^03000 
38103200 

HEADER -- REAL ARRAY -- DECLARED AT 38?01000 

38201200 *38?5 100 0**3 8 25 1500**38252000** 38252500**3825 3000**3825 3 100**38 25 3500**38254000** 38266000**38288500* 
♦38289300* 38290000 38291000 
HEADER "»- REAL ARRAY -- OECLARFD AT 38357000 

♦38388000**38389600**38390000**38390300* 38401000 *38406500* 38411600 *384 1 1800**384 12200* 38421000 38422000 
♦38424000* 38426000 38427000 38429000 *38430000* 38437000 #38453000* 38454000 38457000 *3846l000* 38462000 

38465000 38467000 38468000 38472000 38473000 *38475000* 38476000 38479Q00 38480000 38481000 *38482000* 
*38486000**38489o00**38490000**3849 1 000**38492000* 38496000 38499000 38503400 *38503600**38505000* 38506000 
38507500 385O8OOO 385i8500 38523000 385 ? 5000 
HEADER -- REAL ARRAY -- DECLARED AT 38542000 
HEADER « REAL ARRAY -- DECLARED AT 38650000 
HEADER — REAL ARRAY — DECLARED AT 39056000 
HEADER — REAL ARRAY -- DECLARED AT 41001000 
HEADErADDrESS -- OEFI N E -- DECLARED AT 08101300 

08105350 08105400 08106040 08116350 
HEADERUNLOCK -- DEFINf "' DECLARED AT 00^30000 

05976800 16816500 20578425 20593950 20594650 28283600 
HERF — STREAM VARIABLF — VALijF PARAM r TFR " DFCLARFD AT 00082000 

00083000 00087000 
HFURjSTtC -• DFFTNE •- DECLARED AT 24it4000 

24164000 
HH -. STREAM LABEL •- DECLARED AT 15032000 -- OCCURS AT 15033000 
HI — REAL "- DECLARED AT 06068300 

06088100 *06088?00* 06092800 06100800 *06111500* 
HI -- REAL •" DECLARED AT 37180000 

*37187100**37187?50* 37108500 37195200 * 37195280** 37195300**371 95400** 37 195700** 3721 2000* 37213000 37220000 
37232000 37232250 
HlfNT -- RFAL — OFrLARFD AT 06068800 

*06087000**06087300* 06087900 06088000 O6O881OO 06088200 06088500 06089300 06089900 06090000 
H!GHL.?NK -- DEFINE — DECLARED AT 40008170 

40060302 40070000 4OO78O3O 40078042 4OO78O48 
HME — REAL -- DECLARED AT 20566265 

20567055 20567095 *?0569980* 20570000 2O57O12O *20573450* 20573510 
HNl — REAL •- DECLARED AT 16698000 

*168?5500* 16625600 *i6825800* 16826500 *i6830t00* 
HN? -• REAL -- DECLARED AT 16698100 

♦16825600**16825900* 16826500 
HOLD •-. REAL « DECLARED AT 02349000 

♦02355000* 02357000 *O2357600* 02358000 
HOLD — REAL — VALyE PARAMETER " DECLARED AT 18002000 

18000000 18001000 18008000 18047500 18075500 
HOLD "- StJBROUTlNF — DFCURFD AT 18252000 

183OJ000 18317000 18330000 18339000 18348OOO 18395000 18435000 
HOLDCT •- REAL .-- DFCLARED AT 04668650 

♦ 04677300* O46774OO 0/ ( 677650 O468565O 04685750 
HOLDER -- REAL -- DECLARED AT 00418850 

18012000 18015000 *i80i6000* j80i8000 18O46OOO J8049000 *i8059000* t807l000 *44086l00* 44086200 
HOLDFREE •- DEFINE -- DECLARED AT 00080700 

08571000 41320310 
HOLDLlST -- REAL ARRAY — DECLARED AT 18005000 

♦18014000* 18015000 *18017000* IbOIbOOO 18019000 *18048000* 18049000 18053000 I8O56OOO 18063000 18068000 



H0LD1 


H0LD2 


HOLD 3 


HP — 


HPPTR 


HPPMASK 


HP?T0G 

HS — 



18071000 18078000 
hOLdMaSK — OFFINF — PFcLaRED AT 00080700 

08378000 08379000 08388000 0857l000 08571100 08571600 08627000 08628000 08677000 08689200 08689300 

08696100 08830000 O8836OOO 4)3?03lO 4l3?03?0 41320355 45i35??0 
HOUDMaX ~- DEFlNf -- DECLARED AT 00418900 

)80^000 44O861OO 
-- REAL — DECLARFD AT 20566247 

20566250 *?0573480**20573760* ?0576600 #20577300* 20577325 20577450 20577600 
— REAL — DECLARED AT 20566250 

20566255 *20577300* 20577325 20577450 20577625 
-- REAL -- DECLARED AT 20566255 

20566260 #20569930* 20569935 +20569960* 20569965 #20569985**20569990* 20570090 #20574905* 20576215 20577325 

STRrAM VaRiaRLf — DFcLaRfD AT 07003640 

07003660 07003890 
-- STREAM VARIARLF -- DECLARED AT O7OO364O 
#07003680* 07003780 

-- DEFINE « DECLARED AT 00080100 

02043000 48085000 48098000 

" DEFINE « DECLARED AT 00080100 

LABEL — DECLaRFT AT 16357000 — OCCURS AT 16611000 

16366000 
HU — DEFINE -" DECLARFD AT 00430100 

05976800 16816500 20578425 20593950 20594650 28283600 
Hi — REAL — VaLUF PaRaMfTfR " DECLAKrD AT 08418000 

08429000 08430000 08433000 08437100 
H3 — STRpAM VAKtABLf — DrCLARfD AT 20289080 

?0p8909Q ?0289095 
REAL — VALUE PARAMETER -- DECLARED AT 00452800 

00a«j2600 00452700 
REAL -- VALUE PARAMETER -- DECLARED AT 00650000 
♦00651000* O0651R00 *00652000* 00655200 00656200 
STREAM VARIABLE — DECLARED AT 00651800 

00653200 
REAL " DECLARED AT 02057000 
*02091000* 02092000 #020*3000* 02094000 
iNTFCFR — DECLARFD AT 02193000 
♦02197000* 02198000 
TNTFGFR — DECLARFD AT 02349000 

♦02356500* 0?357000 02357600 *0?357700* 0235«000 
INTEGER -- DECLARED AT 02434125 

REAL « VAl.UE PARAMETER -- DECLARED AT 02696500 
INTEGER -- NAMF PARAMETER « DECLARED AT 02696700 
REAL •- DECLARFD AT 04126000 

♦04168000* 04170800 ♦04194700* 04195000 04237000 
TNTFGER "* DECLARTO AT 04551000 

#04568360* 04568366 04568370 #04653900* 04654000 #04658800* 04659200 
|NTrr.FR " DFCLARFD AT 04668450 

#0^677250* O46773OO *04682650* 0468p700 04682750 
INTEGER -- DECLARFD AT 04703000 

#047?2000**0ft7?6000**047?8000* 04729000 #04733000* O4734OOO 04735000 
INTEGER -- DECLARFD AT 0570POOO 

#05705000* 05706000 0^707000 #05715000* 057i6000 *057??000* 05724000 O5728OOO ♦05728140+ O572818O ♦05728220+ 
INTEGER — DECLARED AT 05841350 

05841615 05842700 05842900 O5843OOO ♦05843200++05844 1 10++05844920+ 05845000 05845100 ♦05845200+*058tt5500* 

05845700 
TNTFGER -- DECLARFD AT 05847700 

05848255 #05849500* 05850120 05850130 05850200 



I — lNTrr,FR "" DFClARrn AT 05951800 

*0596|000* 0596^00 05961600 0596ib00 *05967400* 05967600 05968200 05968600 05968900 05969200 05971800 

♦05976300* O597635O 059769«,0 *0«j977050**05977j00**05977350* O59774OO O59775OO 
I -- INTEGER -- DECLARFD AT 06069j00 

*06085200**0ft087 1 00* 06087200 O6O873OO *06088900* 06089000 06089i00 O6O893OO *0609l900* 06092100 06092500 
06093000 06093900 06094100 *06096700* 06096800 06097000 06097i00 06097000 06097300 06099400 06099500 
06100100 06100200 +06100500**06 10 1000* 06101100 *06109200* 06109500 *061l0500* 06110700 06110800 06110900 
06111000 06111300 06111600 06111/00 061H800 *06113400* 
I -- INTEGER "" DECLARFD AT 06164000 

*06?13000* 06214000 06216000 06217000 *062i8000* 06219000 06220000 *06221000* 06222000 06223000 *0622*000* 
06225000 06226000 *06227000**06229000* 06231000 06232000 *06233000* 06233l00 06234000 06235100 06236000 
06237000 06238000 06241100 0624i200 *06242000* 06248000 *06252000* 06254000 06255000 #06256000**06266000* 
06267000 
I m- jNTFGCR -• DEClARpn AT O64O3OOO 

♦06414000* 064)6000 06417500 064lfl000 *064?0000* 06422°00 
I «• REAL -- DECLARED AT 06462105 

♦06463540* 06463560 06463580 06463640 06463660 06463680 
1 -- INTEGER -• DECLARFD AT 07008000 

♦07147000**07151000* 
I -" REAL " DECLARFD AT 07?44000 

♦07261600* 07261800 
I -- REAL — DECLARFD JT 07269000 

♦07274000* 07276000 07278000 07281000 07282000 07284000 07290000 07290650 07293000 07294000 07295030 
07295235 07295240 
I — STRfaM VARIABLE — DFCLaRfh AT 07264000 
I — STREAM VARIABLE « DECLARED AT 07?93000 
I -- STREAM VARIABLE -- DECLARED AT 07295030 
I -- REAL — DECLARED AT 07299000 

*07303000*#07304000* 07305000 0731J500 07312000 07313000 07315000 0731«010 07330100 07332000 ♦07333000^ 
07343000 07345000 07346000 07351000 

1 •" strfa m variable — declared at 07305000 

! " STRFAM VARIABLf " DECLARFn AT 07346000 
I "- INTEGER — DECLARFD AT 07368000 

*07401000* 07401900 07402000 
I -- REAL "" DFCLaRfD H 07408000 

♦07411000* 07412000 *074i7400* 07417500 074l9l00 07419300 
I " REAL •- DFCLaRfD AT 07424000 

♦07448500* 
I -- REAL -- DECLARED AT 07458000 

07461000 07461900 *07462200+ 07462300 07463000 
I « STREAM VARIABLE — DECLARED AT 07463000 

07465000 
I " INTEGER -- DECLARED AT 07543000 

*07564000^ 07565000 07566000 07567000 
I « INTEGER -* NaMf PARAMETER " DECLARED AT 08001000 

08000000 *08008000* 08015100 
I — REAL — DFCLARrD AT 08026000 

08029000 08039000 08047000 08048000 
1 -- INTEGER -- DECLARED AT 08061 000 

O8O83OOO 08084000 08089000 08090000 
I « INTEGER -- DECLARFD AT 08098900 

♦08103150* 08103200 08103300 08108250 *08114050* 08114100 08114200 08114650 
1 — STREAM VARIABLE -- DECLARED AT 08114650 

♦08114800* 
I •- INTEGER -- DECLARED AT 08255200 

♦08269000* 08269100 08269200 08269300 08269530 08270000 08270200 *08276340* 0827635O ♦08276410^ 08276480 
08276500 08276510 



stRfam va 

REAL — 
08?9?000 

STREAM VA 

08?96250 

REAL -- 

INTEGER 

♦08432000 

INTEGER 
08568200 

STRpaM VA 
08572800 
REAL -- 
♦08579000 
STREAM VA 
INTEGER 
♦08712000 
STREAM VA 
08777000 
STREAM VA 
♦08841000 
REAL " 
09602100 

REAU — 
H186100 

STREAM VA 

STREAM VA 

14??75?0 

REAL •" 
14349000 
14358595 
14392500 

STRfaM VA 
1441 9000 

REAL -- 
♦14534500 

REAL — 
♦14551000 
♦14601500 
REAL — 
♦14686000 

REAL — 
♦15184000 
STREAM VA 
♦15409000 
REAL •- 
♦15549000 
REAL •- 
♦15620000 

REAL •- 
♦16079000 
I6?t6000 
REAL — ■ 
♦16598000 
REAL *" 
16695500 
16809000 



RlARLp — 
DECLARfO A 
08?96??5 
RIABLE -- 

DECLARED A 
-- DEC| ARF 
♦♦08434000* 
— DECLARE 

08569900 
RIABLf — 



OECLARFD AT 08276410 
T 08283000 
*08?963?5* 08?9<S350 *08296600**08296800* 08297200 

DECLARED AT 08296225 

T 08392000 

D AT 08418700 

08435000 08436000 08437000 +08438400+ 08438410 
AT 08568150 

08569910 +0B569920++08571300* 08571400 08571800 

OFCLARFn AT 08572700 



08297300 

08438420 08438430 08438440 
08572600 08572700 



DECLA 

♦ 0858 
RIA8LE 
— DE 

♦ 0871 

RIABLE 

0877 

RIABLE 

♦♦O884 

DECLA 

♦ 0960 

dfcLa 

♦1421 
RIABLE 
RIABLE 

DECLA 
14 35 
1435 
1439 

RjabLf 

*144l 
DECLA 

♦ 1453 
DECLA 

♦ 1455 

♦ 1460 
DECLA 

♦♦147J 

DECLA 

♦ 1518 
RIABLE 
♦♦1541 

DECLa 

♦ 1555 
DECLA 

♦♦1562 

DECLA 

♦*1608 

♦ J622 

DECLA 

♦ 1659 

DECLA 
1669 
1681 



Rfd A 

3000 

CLARF 
2200 

8000 

m m 

4000* 
RFD A 
6000* 

RrD A 
8076* 



RED A 
1310 
8597 
4000 

95OO* 

rfd a 

5000 

Rfd a 
1500 

2500 

Rfd a 
2300* 

rfd a 
5000 

•* «■ 

7000* 

Rfd a 
0000 
Rfd a 
iooo+ 

Rfd a 

2000* 
4000* 
RED A 
9000 

RED A 
8200 

0000 



T 08576000 

08584000 08584100 *08585000* 08587000 *08588000* 08590000 

DECLARED AT 08590000 
D AT 08704100 

08714140 08714300 ♦087i7000* 

DECLARED AT 087/4000 



DECLARED AT 08838000 
*08845000* 08845500 
T 09601000 

09607000 09608000 *0961 1000**09641000* 09642000 
T 14164300 
♦14218078* 14218080 *i42i8084* 14218088 14227400 

DECLARFD AT 1M66100 

DECLARED AT 14227400 



09644000 09645000 



T 14347000 

14351340 14351350 14351400 
♦14358615* 14356620 14362000 

14395000 +14404000* t4405000 

OFCLARFn AT 14415000 



14351420 
14364500 
14406000 



♦14358394* 

14364700 
♦14411000* 



♦14358395 ++14 358 397**1 4 358398 ♦ 14 358580 
*14364800*»14385000* 14387000 14389000 
14415000 



T 14532000 

*14540300**l454l000+ 
T 14545000 



14552000 

14603000 

T 14624550 

♦14712750* 

T 15171000 



14552750 
14603110 



14541100 

14554000 
14604000 



♦14583100* 14583200 ♦14593000+ 14594000 ♦14598500+14600000 



DECLARED AT 15404000 



T 155360C0 

15552800 
T 15612000 

15626000 
T 16048000 

I6O83OOO 16O85OO0 

16225000 16234000 
T 16349000 



*16100000**16106000* 16107000 
♦l623?000+ 16239000 *i6244000+ 



16108000 +16204000* 16205000 1620000 
16245000 *16263300* J6343100 16343200 



T 16695000 

* 1 674 2500 ** 1 674 3500 ♦♦ 1674 4500 + ♦ 167 45500+ 16746500 
168H500 I68150OO I68i5500 J6816500 16817000 



♦16782500+ 16784500 16806500 16807500 
16818000 +16826500+ I68266OO 16828100 



16828200 
REAL" — DECLARfD AT J69l0«j00 

1691 i000 *169?60?0* 16^260?? J6926040 *169?6?00* 169?6?10 
STREAM VARIABLE -- DECLARED AT 1.6926040 
*169?6l50* 1692615? M692615** 
STREAM VARIABLE — DECLARED AT 16926?10 

16926230 
STREAM VARIABLE -- DECLARED AT 17003250 

17003500 
REAL — DECLARFD AT 18198000 

♦ 18232000* 182ai000 18248000 * 1«357 1 00* 18357300 *18445000* 18446000 
REAL. -- DFCL-ARfO AT 18502300 
*l8503400**i6520i00* 18520600 l852i000 *l8523900* 18524100 18525700 18526800 *i8552900* 18553100 18553200 

18555700 18555800 *l8556200* 18556300 18559600 
STREAM VARIABLE -- DECLARFD AT 18521000 

l85?i600 *1852?000* l852?l00 
REAL -- DECLARED AT 187O18OO 
*l87i02A4* Ifl7l0?46 *l87j0254* 18710258 1871O26O *i87l0272* 18710274 *l8720500* 18720600 1*720700 *i8740200* 

18741000 *18770100**18770300* 18770900 *18780200* 18780300 18780400 *18790600* 18791610 *18791620* 18791670 
*18800l00**l8800200 + *l8fl20l00**l8820200* 18821600 18822100 * 18840200** 18840300** I884O4OO* 18840600 18840700 
*188/U600* 18841700 *lfi844400**l884520o* 18845300 
STREAM VARIABLE — DECLARED AT I882O2OO 
REAL •• DECLARpD AT i9§i9000 
REAL -- DECLARED AT 19901500 

•19903960* 19903970 *19903980* 19903990 *19904060* 19904600 
REAL -- DECLARFD AT 20011900 
*20030200* ?0030760 2OO3O8OO 2OO34OOO *20035700* 20035900 *20039500* 20039600 20039700 20039800 20039900 

20043700 *20059500* 20060900 *20066200* 

stream variable — declared at 200308O0 

20032150 
STREAM VARIABLE — DECLARED AT 20043700 

20044400 
REAL " DECLARED AT 20081100 
♦20091200* 20091300 20091400 2009i600 20091700 20091800 20091900 20092000 20092300 *20092600* 20093400 

20093500 20093700 *20094000**20 1 19000* 20H9900 20120000 #20129400* 20129500 20129700 
REAL « DFCLARrD AT 20141500 

20i42950 *20j70800* 20l72800 2O1732OO *2°l75i00* 20i75300 20j75400 20i75500 *20i94i00* 20l94300 2<)i94400 
INTEGER — DECLARED AT 20?89040 
*20?99260**20289350* 20989360 20289365 
REAL « DECLARFD AT 20319000 
*20 3 24000**20 327 00**20 36 2000* 20 36 3000 20 36400 *?0 365000**20 366000**20 37 2000**20 374 300**20 374 320**20 3744 15* 

20374430 *20377000* 20381000 
STREAM VARIABLE •- DECLARED AT 20374415 
REAL -- DECLARFD AT 20B82050 

*203R2068**20382l50* 20382165 20382200 20382300 20382660 20382680 70382700 
TNTFr.FR — DFCLARFD AT 20566340 

*20567l62* 20567i66 20567170 *20567172* 20567176 
REAL -- DECLARFD AT 22002000 
*220u300* 220u500 22O116OO *220i4400* 220i4500 220l4600 22014620 22014640 *220i5000* 220i7000 220i8000 

220i9000 22022000 22023500 22024000 22024500 22025000 *22032000* 22033000 22034000 22035000 *2204t000* 

22042000 22043000 22044000 +22046000* 
INTEGER — DECLARFD AT 22060000 

22061000 *220693l0* 22069320 *22069350* 22069420 22069440 22069450 #22075000* 22080000 22086000 22089000 

22092000 *22094000* 22101000 22102000 22109000 22185000 22209200 
STRFAM VARIABLE — DFCLaRfo AT 22069350 
REAL " DECLaRfD AT 28803000 
♦28814000* 28865000 28866000 +28868000* 288681OO 



real — declaRfo at 31005000 

♦31005300* 3j005^i0 * 3l009000**3l lOOOO* 3lOilOOO 
STREAM VARIABLE -- DECLARED AT 31005310 

31005320 
REAL -" DECLARED AT 3?lOOlOO 
♦32100200* 32100^00 32100350 
INTEGER — DECLARED AT 37272000 
♦37275000* 37276000 *37276100* 37277000 37278000 37276200 37280000 *37285 100**37285200* 37285300 37283305 

37285320 37285400 
f NTrr,FR •- DFCtARFD AT 37287250 
*37290000**3729i000* 37292800 372 9 3270 #37294000* 

REAL « DECLARfD AT 37303000 

♦ 3M05000* 37306000 

REAL « DECLARED AT 37323000 

*373?3300* 37328000 *37327000**37332000* 37333000 *37334000* 

REAL -- VALUE PARAMETER « DECLARED AT 37357500 

37357300 37357400 37361000 
STREAM VARIABLE « DECLARED AT 37361000 

37362000 
INTEGER — DECLARED AT 37388000 

♦ 37392000* 37394050 #37405000* 37406000 374t6000 
REAL « DFCL-aRfD AT 37507000 

♦37514000* 37515000 37516000 +37532000* 37533000 37535000 
TNTFGFR — DECLARFD AT 38360000 

♦ 38370800* 38371000 38372000 38374000 *38377800**38378000**38467000**38472000**38507800**38509000* 385tl000 
38513000 36516000 *38522000* 385?3000 

integer -- OEClARFD at 38545000 

♦38553000* 38554000 38555000 36557000 *3858 1 9i0**38607 lOO* 386O82OO 38608920 38609300 3861O1OO ♦38625000* 

38626000 38628000 38628100 38629000 38630000 *38631000* 
STREAM VARIABLE — DECLARED AT 38626000 
INTEGER — DECLARED AT 38653000 

♦38666000* 38667000 38668000 38670000 38700000 *38701000* 38704000 38711000 3875*000 
STRfaM VaRIaPL-F — DECLaRfh AT 38711000 
♦38716000* 
REAL « DECLARfD «T 39901000 

39905000 *3996)000* 39962000 *39963000**39964000* 39965000 39966000 *39969000* 
STREAM VARIABLE -- DECLARED AT 39905000 

399?i000 
REAL -- DECLARED AT 4OOO4OOO 

40008340 #40253000* 40254100 40257000 40261010 4026t044 40261048 40261049 40261100 #40261200**40279000* 

40280000 40280100 40281100 #40281200* 40283100 40283200 40283300 40283500 40285000 40285005 40285010 

40285020 40285135 40285160 40285600 40287000 40290200 40292212 40293010 40312000 *403l7200* 403172J0 

40317230 ♦40321300**40321400* 40322000 40322100 40322220 40323600 40323700 
rNTrr.FR « DECLARfD AT 41002000 

♦41049000* 41050000 *4l05l400**4l05i500**4H97000* 4l20i000 
INTEGER -- DECLARED AT 41430300 

*4l500500**4l500700**4l500800**4l502000* 41502100 41502300 
iNTEGFR — DECLARFD AT 42475000 

♦ 42477000** 4 2478/,00** 4 2478800* 42*79000 
INTEGER -" DECLARED AT 42482000 

♦42488000**42489000* 42505000 42506)00 42506200 42506300 *42506400* 

REAL " DECLARED AT 42514000 

♦42525115* 42525120 *42525l30* 42525150 *4253l000* 42532000 

REAL -- DECLARED AT 44011000 

44037300 44037400 44080000 44081000 *44086300* 44087000 44087100 *44151000* 44152000 44154000 *44154t00* 
*44 155000^^44 16 3000 A+ 44 16 3020*^44 16 30 30^+44 16 3040^^44 164000^+44 l64500+^44 165700**44 166000 ♦♦44166200**44 16 7600* 
*44168l00**44l74000**44178t00**44l79000**44179050**44l79l00**44l89550* 44189600 44189800 *44192000* 44193000 



*44i93200* 41193*00 44t9360G *44l94000* 44i95000 *4420m0* 44?0ti?0 *442°1400* 4420i500 *4420i 600**4420?! i 9* 
! — REAL — DECLARfD AT 44?06700 

*44?40560* 44240600 44?406?0 4424O64O 44240680 *44240700* 44240800 44240820 4424O9OO 44240920 *44243250* 

44243750 44245000 44245500 44250500 44253000 *44254500* 44255000 44255500 *44259500* 44260000 44262500 

44264500 *44268oOO* 44268500 44269500 44270000 *44276000* 
I — REAL " DECLARFD AT 45002000 

♦45092110* 45092120 45092130 45092J40 45092180 45092190 45092230 45092310 45092360 *45093000* 45094000 

45094600 45099600 +15104100* 45104200 *45l06000* 45107000 45109000 451H000 45112000 45113000 45122000 

45123000 4512^000 45131000 45131 t00 *45l35ll0* 45135130 *45i35l70* 45l35l90 *45l55000* 45157000 
I — STRfaM VARJABLF « DFCLARfd AT 45l3lt00 

45131400 
IB — RFAu ARRAY -- VALUE PARAMETER -- DECLARED AT 02347160 

0234M50 02347160 
IB -. REAL ARRAY — VALUE PARAMETER — DECLARED AT 07377000 

07376000 07377000 0739.3000 O73945OO 07396000 07398l00 *07400000* O74O2OOO 
IB — STREAM VARIABLE — DECLARED AT 07393000 
IB -I- STREAM VARIABLE -- DECLARED AT 07398100 

07398300 
ICW -- REAL -- DECLARED AT 14002000 

*14018000* 14058000 14059000 05952915 
ID — STREAM VARIABLE — DECLARED AT 08887100 — OCCURS AT 05952865 

06890010 
ID -• STRFAM VARJABLF -* DECLARED AT 20030800 

20032100 
IDENT — DEFINE — DECLARED AT 20219000 

2O397OOO ? 0366000 ?0409000 2 04i6500 2O42OOOO ? 04?6000 2 0432000 ? 0438000 204785l0 ?0484250 ? 056?"065 

20567i05 20567,58 ?0567g;?5 20567270 2056^260 20569830 20569940 20569970 20570i50 ?05702l0 20570450 

20573410 20573440 20577050 20587800 20590655 20590675 20590695 20591750 20591850 20593150 20593310 

20594450 20596350 20717000 2072QO0O 
IDLETIMF — PROCEDURE "• DECLARED AT 02360000 

06191000 126U000 12818500 20167650 22011000 
IDLeTtMfR — SUBROUTlNF -" DECLARED AT 12609500 

12612500 12698000 
IDLETtMfR -- SUBROUTINE -- DECLARED AT 12817000 

12820000 12854000 
IL — REAl -- VALUE PARAMETER -- DECLARED AT 08546000 

08565000 
IL -- LABEL -- DECLARED AT 16054000 -- OCCURS AT 16081000 

16062000 
IL — STREAM VARIARLE -- DECLARED AT 20289395 

20289485 
IL — REAL — DECLARED AT 37180000 

37180300 *37233500* 37248500 
ILL — REAL — DECLARED AT 00299000 
JMaSK -" DFETNf — DECLARED AT 19900280 

19900400 19900490 19900660 19900680 19900860 
IMASK •>- DEFINE « DECLARED AT l990i850 

19903907 19904360 
IN -- LABEL "- DECLARED AT 16357000 — OCCURS AT 16580600 

16366000 
INBUFF — REAL « DECLARED AT 07006000 

07032100 07051110 07057000 07059000 07060i00 07066100 *07l0l000* 07118000 07125000 07127500 07128000 

07139575 07140000 07179260 07235000 
iNpUFF "■- STRFA M VaRJaBLf "" DECLARED aT 07032100 

07033000 *07034500* 07036220 07036250 07036290 
INBUFF — STRFAM VARIABLE — OFCLARED AT 07066100 

07066300 07066610 *070ft6630**07066660* 



INBUFF « STREAM VARI aB|.F -- DECLARED AT 07i79?60 
INC -•- REAL -- DECLARED AT 28002800 
INC -- REAL « DECLARED AT ?8203'>00 

28203400 *28240400*+?8?44600* 
INCR •- LABEL -- DECLARED AT 0*12/4000 -- OCCURS AT 04194000 

04165000 04189000 
INCR — LABEL — DECLARED AT 08680500 « OCCURS AT 08692600 

08693400 08695600 

iNrsc — Label — dfclawfo at 20566600 -- occurs at 20530200 

20573200 20577075 20577150 20580000 

JNCSC — LABEL -- DFCLARFD AT ?0597800 -- OCCURS AT 20606850 

20599i00 2°602650 2O60285O 2060 ? 950 2O6O375O 2O6O42OO 20604360 2O6O445O 20604900 ?0605i00 20605430 

20605460 20605700 20695702 20606700 20608072 20608080 20609420 
JNCW -- REAL -- DECLARED AT 14002000 

*l40t5000* I40i5?00 14O16OOO I40i7000 i40i8.000 14031000 *t4035000* 14036000 14037000 14038000 14045000 

14059000 *14060000* 14064000 14077000 

INDEPF^DENTrUNNER -• PROCEDURE •- DECLARED aT 02012000 

02033000 02137000 02347430 04137260 04224000 05706100 06353650 07264400 07449000 08276520 08836500 

08998400 12425200 12528500 14432000 14541100 16263600 16522000 16523000 16610600 16784500 1695^500 

I843818O 18522700 19685460 19799050 20609700 22045000 22069500 22212400 24167000 28440200 38732100 

38789000 4i3l0800 48009000 480^082 480 t 4000 48084300 48t26430 48132000 

index -- Real — dfclared at 15402000 

15404000 t 54l8500 15420000 15426000 15438O2O 15438040 15438050 15438060 
INDEX -- STREAM VARIABLE « DECLARED AT 15426000 
INDEX -- STREAM VARIABLE -- DECLARED AT 15438060 

15438070 
INDEX »- INTEGER -- DECLARED AT 24105000 

24J26000 24133000 24143000 +24145000* 24146000 *24 153000**24 154000**24 155000* 
INDEX -- INTEGER " DECLARED AT 24203000 

*24212000* 24213000 24214000 24223000 24224000 
iNnX •• STREAM VaRUBLF " DECLARED AT 02222000 

02251010 02251020 02251050 
iNDX — RFAL -- DECLARED AT 28003200 

28003400 
INDX — REAL -- DECLARED AT 284O14OO 

*28435200**28435/i00* ?8438200 *2«468200* 28468600 *28476800* 28477200 
INDX -- STREAM VARIABLE « DECLARED AT 28438200 

28438400 
INFO -«• REAL -- DECLARED AT 08099700 

*08101650**08103300**08103550* 08104550 OBlHlOO 
INFO "• DEFINE — DFCLARFD AT 12370000 

12392000 12395500 12418500 12420500 12422000 12422500 12435500 12438000 12444000 12459000 12462000 

12463000 12464000 12465000 12466000 
INfO — RfaL -- DFCLARFD AT 14624550 

*14636000**14637000**14640000**J4642000**14643000**14644400* 14645000 *14679000**14685000* 14687000 1468HOOO 

14690000 *i4695000**t4705000* 14706000 J4707000 *147i25lO* 14712550 
iNFOSyZE — DEFINE -- DECLARED AT 12218500 
INFOSlZE — DEFINE — DECLARED AT 12369000 

12392000 12395500 1.2408000 12408500 12M1000 12418500 12420500 12422000 12422500 12435500 12438000 

12444000 12459000 12462000 12463000 12464000 12465000 12466000 
INF01 -- STREAM VARIABLE " DECLARED AT 16609100 

16609400 
INF02 — STREAM VARIABLE " DECLARED AT 16609100 

init •• Label -* declared at lesonoo -- occurs at 18505000 

18501800 18501900 18502000 18502100 18502200 

jN f T — Label •- ofcLared at 18/01000 -- occurs at 18702300 

18701300 187O14OO i-870i500 i870 t 600 i870l700 



- DECLARED AT 20566600 -- 

20576770 

-- DfCi.ARFD AT 22235000 

22301(100 

■- DFCLARFH AT 20597 



INfT — LABEL 

20572100 
INITCW -- REAl, 
*22100000* 

Initialization — label 

20599000 20605^50 
INITIALIZE "• PROCFnURE 
08303100 44101000 

initialize "• LabfL -• 

12515000 
INtTIaLtZE -• OFFfNF -- 
13095000 

IN! TI ALfZEI T -* REAL PROCEDURE — DECLARED A 

*2 05 87 7 00**2 058 7fl5 0**2 051795 0**2 05 8ft 3 5 0** 

INITIATE «• LABEL — DECLARED AT 00024270 - 



OCCURS AT 2O58O1OO 



650 



OCCURS AT 20603900 



•• DECLARFH AT 44010 

44149000 44201300 
OFCLaREO AT 12514000 

OFCLARrn AT 13025000 



000 — FORWARD AT 08303000 
44206400 46000000 
— OCCURS AT 12665000 



06463340 
14670600 
18530100 
18702300 
187J1500 
18800400 
19595000 
28 30 77 30 
39307300 



04238000 06360S70 
14659000 14660525 
16525800 i85?9?>00 

18581700 J8593300 

18711300 187H400 

18781000 18791900 

19584000 J9584700 

19685590 28O186OO 

38106200 38204200 

INITI ATFTO -- PROCEDURE - 

04025000 O4O5OOOO 
INL -- LABEL -- DEC|,ARFD 

071?7000 07169-^00 
INLP — LABEL — DECLARED 

44110000 
INOUT — DEFINE — DECLARED 

15080000 

SUBROUTINE — DECLARED 



07072500 
14680000 
16540300 
l87i0249 
167U600 
18810400 
19637000 
28307800 
42525160 



- DECLARED AT 04O00 
04118000 04180000 
AT 07009000 mm OC 

AT 44020000 -- 



AT 15071000 



T 205867 
20589550 
- OCCUR 
07091100 
14697000 
18541100 
l87i0266 
187H800 
18635700 
19668000 
28824500 
42528000 
000 



00 

* 20589650 20603900 

S AT 48018000 



12670750 
14704000 
18557400 
18710278 
18721000 
18843800 
19683500 
28891000 
42539100 



3094000 
4709000 
8559700 
87l0500 
8730400 
8845600 
9685075 
1005500 
2548000 



14193200 
14713000 
18565600 
18710600 
18741200 
18860200 
19685350 
31023000 
42552000 



14203600 
15105000 
18571200 
l87i0700 
18750200 
18870900 
19685440 
37047250 
48108000 



14279350 
17927500 
18580800 
l87i0800 
18760500 
19571000 
19685456 
37185400 
48146000 



14292160 
18505000 
1858H00 

18711000 
18771000 
19577000 
19685550 
38015100 



CURS AT 07115000 
CCURS Al 44104000 



INPUT 
INPUT 



AT 0704V0OO 



INPUT 

INPUTI.. 

INOCT 



07115200 07220000 
-- DfCLaRFD AT 22062000 
22162000 22173000 
-- DECLARED AT 38385600 



OCCURS AT 22179000 



DECLARED AT 07009100 — OCCURS AT 07051110 



• DECLARED AT 00299000 
DEPlNE -- DECLARED AT 00017 
"- DFCLARFD AT 00008000 — 



07069000 
•- LABEL 

22 1561 00 
■- DEFjNE 

38389300 

— LABEL 

07051130 
-- REAL — 

inoinputareav " 
inouest — label 

46011000 
INQUlRYp-UFFARFAV — DFFINF -- DECLARED AT 00( 
INOUPTSTOPPFD "- DEFINE " DECLA R FD AT OOo8li 
— REAL ARRAY -- DECLARED AT 1.2502000 
12502500 *i26i5500** \ 26 1 6000** 12623200* 
*- REAL ARRAY -- DECLARED AT 12802000 
12802500 12 8 23000 12849000 1285OOOO 
12860100 
•- STREAM VARIABLE « DECLARED AT I282: 
12825500 

REAL ARRAY — DECLARED AT 13003000 
13035000 *13036000**13048000**13075000**I3076000**13080000* 13080100 13081000 13099000 13101000 13127899 
13128000 
'" Bfa^ — DFC^A R FD AT 12205500 

♦12299500* I230is00 !2302000 1230 2 500 12303000 12303500 



INREC 
INREC 

INREC 
INREC — 

fNS 



400 

Occurs at 48i255oo 

(017240 
660 

12647500 *12655500* 12668OOO 

12851000 12855500 12658000 

'3000 



12858500 12859000 12859500 12860000 



INS — RFAL -- DECLARED AT i?353000 

♦12434000* j?A35sOO 12438000 12444000 
INSERTORFORk -- SURROUTlNl -- DECLARED AT 2R427/i00 

28470200 28474?00 28478600 
INSTRUCT — HEAL. " DECLARED AT 12206000 

♦12252000**12257500* 12295000 *12296000* 12296500 *12297500* 12299500 *12300500* 
INSTRUCT — REAL — DTCLaRED AT 12353500 

♦12431500^ 12434000 *12435000* 

rNsw — switch Lapel *- oeclakfd at 39008000 

39093500 

INT m m LABEL — » DECLARED AT 141661 00 -- OCCURS AT 142080i0 

14206340 
INTABi.E -- REAL ARRAY -- DECLARED AT 00135100 

14186100 14227400 2241*000 4415*100 
INTAOLEROW — REAL ARRAY — DECLARED AT Ool35lOO 

♦14367100**20193300**20194300* 20194400 22403000 22413010 
INTARRAYAREAV — DFFINF " DECLaRFD AT 00017410 

09506000 
INTFRRUPT — RRO C FiijR r -- OFCLaRfd AT 425iO0OO -- FORWARD AT 00370500 

14218055 42554000 48107000 
iNTFlNfSH -- PROCEDURF •- DFCl.ARED AT 45000000 -- FORWARD AT 44008998 

44280000 
INTFREE -- DEFINE -- DECLARED AT OOOSjjQO 

09630000 09677000 442*0000 
INTLOC -" REAu " DECLARED AT 09501000 

♦09506000**09508600* 09508700 09508800 
INTO — STREAM VARIABLE — VALUE PARAMETER — DECLARED AT 07003610 

07003615 070O37?O 07003730 
INTRINSIC "- LABEL — DFCLARFD AT 22236000 -- OCCURS AT 22406000 

22286190 22386010 
iNTRINSlCTARLEBUTtDFR — PROCEDURF — DECLARED AT 09500000 « FORWARD AT 00489000 

09657000 44248000 
INTRNSC — REAL ARKAY — DECLARED AT 00135000 

H.09«j06000* 09^06^00 09507000 *09508000* 09506600 *09508700**09509500 **095l0000* 09534500 09612000 *0962M00* 
09636000 i<n860?0 i4t86 1 60 1 /4 1 9 8 j o * 1420330°** 14203500** J4206 i 35** 1 42O93OO* 0545000 *2?427000* 
INTRPTX — DEFINE — DECLARED AT 00067110 

48032400 48032700 48032930 
INTS -«■ REAL -- DECLARED AT 44012000 

•44149000* 
INTS -- REAL — DECLARED AT 4420*800 

44240600 44^40640 44240660 #44240680* 44281000 
INTS *- REAL — DECLARFD AT 45002100 
INTSJ2E "- REAL — nFCLARED AT 00135000 

09508000 *09534500**09605000**09612000* 15539000 20153400 20154000 20l94l00 
INTSS •• RFAL — DECLARED AT 44012000 

*44150005* 
INTSS .- REAL — DECLARED AT 44206800 

44281000 
INTSS — REAL — DECLARED AT 45002100 
INTWORD -- REAL — DECLARED AT 15536000 

♦15545000* 15548000 
INT1 »- INTEGER — DECLARED AT 16696700 

♦16826800* 
INT13 •- SUBROUTINE — DECLARED AT 22286010 

22419500 22423300 
INT2 — INTEGER — nFCLARED AT 16696800 
*168?6900* 



! NT3 -- INTEGER -- DECLARED AT 1*696900 
*168?8000* 

INT4 •» INTEGER -• DECLARED AT 16697000 

*168?6800* 

INUSE — LABEL — DECLARED AT 05952600 — OCCURS AT 05966200 

05963100 
INUSEOK — REAL SUBROUTINE — DECLARED AT 06091300 

06096300 06112200 
INVaLtD|NdeX — LaReL — DECLARED AT 4251)000 — OqcURS aT 42530000 

42512000 
iNVALtDNUM -- SUBROUTINE -- DECLARED AT l?6i8500 

12691500 12706S00 
INVLDAUXIO -- DEEINE -- DECLARED AT 00642100 

06009300 
INXLST — REAL « DECLARED AT 20.382050 

*20382240**203B2.3?0* 20382480 
INXLST « DEEINE — DECLARED AT 28404800 

28448200 28469000 28469600 28477600 28478200 
10 —• REAL — VALUE PARAMETER " DECLARFD AT 00390200 

00390000 00390100 
10 — • DEFINE -- DFCLARFD AT 20230000 

20504000 
10 -- SUBROUTINE — DETLARED AT 28233400 

28341200 
10 -- SUBROUTINE — DECLARED AT ?88?9000 

28838000 28847000 
10 -- REAL — VALUE PARAMETER — DECLARED AT 37286200 

37286000 37286100 37291200 37291400 
10 — INTEGER -- DErLAPED AT 36003000 

38028000 38032000 38045110 3tf045l6o 38049300 38056000 380?2000 36076000 38095000 
JO — JNTfGeR — DErL A RED AT 38102300 

38106700 
JO — INTEGER -- DECLARED AT 38200300 

38?04700 
10 -- INTEGER -- DECLARFD AT 39002000 

390?80OO 39040000 3904)000 *39°6800O* 39092060 3909?500 39095000 39155000 *39249000* 39303000 39306010 
IOBUEFEpAREAV — DEFINE « DECLARED AT 00017220 

07095100 07101000 12672500 
iOBUSY — LABEL " DECLARED AT 00024270 — OCCURS AT 48117000 

46002000 
IOD -- RFAL •- VALUF P^RAMFTER -- DECLARED AT 00019000 

00018000 00019000 

ion •- Real -- decl a Rfd at 04068000 

04074000 04083000 04088000 04094000 04095000 04097000 
fOo -* STREAM VARtABLf -- DECLARED AT 04083000 

O4O84OOO 
IOD -- STREAM VARIABLE -- DECLARED AT 040fi8000 

04089000 
lOO — REAL — DECLARED AT 04102000 

♦04104000* 04105000 04105100 04105510 04105750 04105950 04105998 04106000 
IOD — ' REAL "- DECL A RED AT 04127000 

#04194100* 04194400 04195100 04206000 04207000 04208000 04209000 04210000 04212000 *04231000* 04232000 
iOn •• RfaL « VALur PaRaMftfR — OECLARFn AT 04242000 

04240000 04241000 *04244000* 04246000 0424^000 *04248000* 04249000 04250000 04251200 
IOD -- STREAM VARlABLF -- DECLARED AT 04251200 

04251600 
IOD •- REAL -- DECLARED AT 04257800 

O428O4OO *04286400* 04300000 04310400 *043i2600* 04312800 



IOD — REAL " DECLARED AT 04355800 

*04495600**04427800* 04428200 04428oOO 04429400 *04431400* 04431600 
IOD — REAL " DECLARED AT 04552000 

04555600 04560000 04565000 04507250 0456/300 #04568 340**04568410**04568500* 04568520 04568530 *045f8000* 
*04582000**04585000**045880;?0**04588070**04588i00**04588u0* 04588210 04588??0 04588240 *04588250* 04588260 

04588 300 4 588 4 30 *04588540**0 459 ;>Q00**0 459 7000**0 4599000**046 28000**0 46 32000**046 34 200**0 46 350*00**0 46 38650* 
♦04657200**04 65 8200* 

ioo <•- Real *- declared at 04668650 

O46713OO 0467t700 O4672OOO 0/,67?350 O/ 4 67240O *04675 9 °0**04676000**04676i50**04676300**04676500* 04676700 
04676800 *04676850* 04677050 04677i,50 *04678750**04679500**04679600**04679750**04679900**04683000**0468 »l00* 
*04 68 3950**04 684050**04684 300* 

iod •* Real «- declared at 06004000 

*060t0000* 060l6t00 060i7000 

IOD -" REAL -- DECLARED AT 06068400 

06068500 *06098500* 06098900 *06107400* 

IOD -" RFAL -- DECLfiRFD AT 08172000 

♦08174000* 08176000 08177000 

{On -- RfaL -- DECLftRrn AT 08704000 

08704100 *08722000**08724000* 03726000 087?8000 

JOD — REAL — DFCLARED AT 08851000 

08865000 08866000 089,5000 0893 3 000 069 3 5000 08939000 08940000 0894?000 08943000 08946000 

IOD -- REAL -• DECLARED AT 09601000 

IOD -- REAL -- DECLARED AT 12503500 

1259250*? *t2627s00* 12639500 i?64i000 12643000 12643500 *12648000**12649000**12650500**12651 000* 12651500 
*12749500**12751S00* 

IOD — REAL " DECLARED AT 12803500 

IOO — REAL « DECLARED AT 13004000 

13049000 13051000 1.3052000 *13062000* 13066000 

io n •• RfaL — decLaRfd at 14164000 

♦I4l86l52**l42030l0* 14203020 14206000 t4206i00 I4206n0 14292000 14292110 14292120 
|0D — «FAL -- DFCLaREO AT 19694000 
19738000 19743000 

IOD «- REAL -- DECLARED AT ?0388000 

2O4O4OOO ?0407000 *?0'»*5000* 20496000 +20497000**20507000* 20507100 
IOD -- REAL -- DECLARED AT 22231000 

♦22322000* 22325200 22331400 22333800 
IOD -- REAL ARRAY -- DECLARED AT 28004600 

*280ft9000* 28069200 28069400 28074050 *28077600* 28078000 28078400 28078800 *28079000* 28080000 28060400 
28080600 *28080800* 28084250 28085800 *28095800**28096200* 28096600 28096800 

fOn -- RfaL aRRay -- dtcLaRfo at 28205000 

20234800 *28235400* 28236OOO 28236200 2 8 236400 ? 823?20° *2824060Q* 282M8OO 282*2000 28242*00 28244200 
28245000 *28245200* 28267000 28268600 

iOd •"• rfal array -- declared at 28804000 

28832000 28832«s00 *28869000* 28870000 28871000 *28872000**28873000* 

iod -- Real — declared at 38365000 

♦36495000* 38496000 

IOD — REAL -- DECLARED AT 38549000 

IOD — RFAL « DFCLARED AT 38656000 

IOD -- REAL — DECLARED AT 41007200 

I0DESC — REAL « VaLUF PARAMETER — DECLARED AT 04003000 

04000000 04001000 04004H0 04004140 04004150 04006000 04009000 04010000 

lODESc — REAL " VaLIJF PARAMETER — DECLARED AT 04043000 

04040000 04041000 04050000 04063000 
JODI -• RFAL — DECLARFO AT 19694000 

♦19766000* 19766500 
IOFINISh -- PROCEDURE -- DECLARED AT 04122000 

46006000 46007000 46008000 46009000 



I OM • 

lOM • 

IOM • 
I OM • 

IOMaSK - 



|OM A SK 
IOMASK 
IOMASk 
IOMASk 
IOOUF - 

* 
* 

iOQueaVa 

* 

* 

JOQUESLO 

* 

IOREQ - 
IOReQUES 

JOT -- 

* 
I OT —* 



JOT — 

10T — 
IOT -- 

lOTlMF 



jRcw 

IREEL 

IREEL 



REAL -- 
REAL -- 
REAL -- 
REAL — 
39083100 
REAL 
02275700 
06099100 
07445000 
14206100 
20407000 
28242000 
36102200 

■" Real 

3B031000 

- REAL 
38t06600 
•- REAL 
38*04600 
-<■ REAL 
390?7000 * 

- REAL AR 
0?068000** 
04170800* 
04315600* 
04496000* 
20t50t00 

!L — Rp 
O2O68OOO** 

37333000** 
TS -• RE 
02068000** 
04558500* 

- LABEL 
14632100 

T -- PRO 

04106000 

28235400 

jntfgfR 

08537000* 
INTEGER 

087^7000 * 

08791008 
STRFAM VA 

08751000 
STREAM VA 
LABEL — 

18701200 

- REAL A 
02174000** 
44159000 * 

Rfal — 

140 17000* 

- REAL - 
28OO2OOO 

- REAL - 
28202400 * 



DECLARED AT 38002000 
DECLARED AT 38102200 

DECLARED AT 38200200 

DFCLARFD AT 39001100 



— DFCLfi 

02277000 

06215000 

08386000 

1 4237000 

20588600 

28245000 

38200200 

-- dtcLa 

38081250 
-- DFCLA 



RED A 
0415 
0625 
0867 
1 429 
2204 
2824 
3837 

RFD A 

3809 

RED A 



T 0042 

1230 

7000 

0000 

2110 

9000 

5200 

2000 

T 3800 

2000 

T 3810 



5000 

04228000 

06464900 

08866C00 

14363000 

22332400 

28839000 

38555000 

2000 



0*249000 
07146000 
089i5000 
14384000 
28077600 
28848OOO 
38574000 



04310400 
07149000 
08933000 
14390000 
28079000 
28850000 
38668000 



04429400 
07177000 
08935000 
14393000 
28080400 
28851000 
39001100 



04565000 
07391000 
08940000 
14398800 
28085800 
28852100 
40317220 



04672000 
07392000 
08943000 
14399400 
28096800 
37394000 
*44191000* 



06066000 
07413000 
08946000 
18780100 
28240600 
37394150 



06098600 
07414000 
13051000 
19743000 
28241800 
38002000 



2200 



-«- DFCL 

38?50«$00 

-■ DECt 

39083100 

RAY -- 

02100000 

04180000 

04336000 

04427800 

20169600 

AL -- 
OpjOOOOO 

44085600 
AL — 
02100000 
04671550 

-- DFCL 



ARFD A 
38?8 

ARED A 

**39?9 
DFCLA 

* 0229 
04J9 
0436 
0455 
2028 

DECIAR 
**°230 
* 

DECLAR 

**0230 

♦ 0467 

ARFD A 



T 38200 
5500 
T 39001 
3500* 
RED AT 
4000 *0 
4100 *0 
8000 
9000 *0 
9055 *3 
ED AT 
0000**0 



200 
lOO 

00206000 

2300000* 

4199000* 

4372100 

4560000* 

7333000* 

0205500 

4 46000**04 1 99000**0 4 309 200**04 3 15600**044 26000**04559000**0467 1650**07063000* 



040?5000 04046000 

04272000 04281600 

04391200 *0439l560* 

04570000 04671650 

44171000 *44193400* 



*04063000* 04118000 04137202 04157000 04168000 

04285800 04286200 04286400 *04309200* 04315400 

♦04391570**04391600* 04398400 04421900 04425600 

♦04671700**04685200* 06463900 *07063000* 08104600 



ED AT 00205500 
0000* 04045000 
1600**07063000* 
f 14628100 -- 



04 04 5200 ♦04 060500**04199000**04 309200**04 315600**04426000* 04558000 
*373330O0**44O85500* 
OCCURS AT 14705000 



000 — FORWARD AT 
06098900 08726000 



CEDURF *- DECLARED AT 04040 
04246000 04316600 060i7000 
28832000 37393000 38080500 
-- DfCURFD AT 08528000 

.. DFCLARED AT 08733000 

08756000* 08762^00 08763000 08764000 08770000 

RlABLF — DECLARED AT 08737000 



02696500 
14687000 H707000 19685550 24042875 28096200 



08771000 08772000 08774000 *08786000**08790000* 



RUBLE « DECLARED AT 08791 
DECLARED AT 18701000 -- 



000 

CCURS AT 187H100 



RRAY — DECLARED AT 00164000 

04195000* 06194000 08535000 *08763000**0877 1000**12696500* 12853500 1871H00 *20l7270O* 22019000 

44193000**45127000* 

DFCLARrD AT 14002000 
I40j9000 *140J5000* 14040000 

- DECLARED AT 2800i800 
280p8000 *28°2 8 200* 280322°0 

- DECLARED AT 28202200 
2822 6800* +2825200 0* 



14059000 14077000 
*280 3 7800**?8054400* 



28056000 *28057600* 



IRPB -- REAL -- DECLARED AT 440)3000 

1RPB -- REAL -•» DECLARED AT 44206900 

IRPB — REAL — ' DECLARED AT 45002300 

IRPBTS " INTEGER " DECLARED AT 44015000 

IRPBTS — INTEGER -- DECLARED AT 44207100 

IRPBTS "- INTEGER " DECLARED AT 45002500 

iRPBUr -- Real -- ofclaRed at 44013000 
irpbue — real -- declared at 442O6900 

IRPBUE « REAL -- DECLARED AT 45002400 

45002500 

IRPDBS — REAL — DECLARED AT 44O13OOO 

iRpDBS — REAL -- DECLARED AT 44206900 

irpdbs " real " declared at 45002300 

irptb •- real — declared at 44013000 

irptb — real -- declared at 44206900 

irptb — real -- declared at 45002300 

irptu -• real -- derlareo at 44013000 

iRPtu — Real -- declared at 44206900 

irptu ■»- real « declared at 45002300 

45002400 

irpwrs — integer -- declared at 44015000 
irpwrs -- integer -- declared at 44207100 
irpwrs -- integer — dfclared at 45002500 

45002700 
iRSTACKARtAV — DEFINE « DECLARED AT 00017550 

ISTACK — REAL ARRAY « DECLARED AT 00159000 

44179000 441B9600 48051000 
IT — REAL ■— DECLARED AT 09602000 

09602100 *09642000* 09643000 

it «■- Label « oecLaRfh at 16055000 .-• occurs at 16256000 

16064000 

IT -- LABEL « DECLARED AT i870l000 -- OCCURS AT 18710300 

18701200 

IU -- REAL "" OEClArED AT O7OO4O8O 

07051000 07051120 07059100 07059300 07062000 07065000 *07072l00**07072400* 07072600 07073000 07074100 

07075000 07076000 07077000 07078000 07082000 07179200 07232500 07233000 

IU — RFAL -- nFCLARED AT 28001600 

Z80U200 280i2i00 280i2ll0 28014000 280^100 280i9800 28021800 28022000 28023800 *?8028000* 28028200 

280 ? 8400 p80 2 8fi00 28°2 9 800 28O3O8OO 28O31OOO 28O32OOO 28033200 28033400 28O338OO ?8034000 28037600 

28042600 ?8096400 28057400 ?8059b00 2 8 063000 28063200 28065000 *28068400* 28077200 ?8078000 28078800 

28086600 26086800 28O888OO 28089200 28090200 28090400 28098600 

iu — Real — declared at 28202000 

28212OOO 28213000 ?8?j6400 28216600 282184OO 2^222400 28222600 28223000 28223200 ?S?26600 2823OOOO 
28?40800 28244800 *28?46200* 28247000 2824^200 *2825l600* 28251800 2825?000 28253600 28261400 28262200 
28263400 28265000 28269400 28270820 28273000 28303200 28304700 28304800 

-- Real — va^ue Parameter — declared at 00454200 

00454000 00454100 
•- INTEGER "• DECLARED AT 08733000 

♦08790000* 08791000 
-- STRFAM VARIABLE « DECLARED AT 0879i000 

— REAL -- VALUE PARAMETER — DECLARfD AT 17000400 
17000000 i'7000p00 17003250 17OO33OO 

— INTEGER -■• DECLARED AT 18199000 
*18425300* 18425600 t8426tO0 *!843l400* 18431800 18431900 

— STREAM VARIABLE — DECLARED AT 18521000 
18521600 

— INTEGER — DECLARED AT 41430300 



♦41500400**41500700* 41500800 +41500900* 
12 — REAL "- VALUE PARAMETER -- DECLARED AT 00454200 
00454000 00454100 

12 — real -- value parameter -- declared at 17000400 

17000000 17000200 17003300 17003400 
\2 -• INTfGER "" 0Er^A"En AT 18199000 

♦18422000* 1*425)00 i8426i00 ♦18428000* i84;>9000 *l843l400* 18431500 *18431600* 

12 -• INTEGER -- DECLARED AT 41430300 

♦ 41500200* 41500700 4)500900 4 1 5 j 7 41502000 4i50?300 +41502400* 

13 -- INTEGER -- DECLARED AT 18199000 

♦18411400* 18431S00 18431600 *18431700* 18431800 18431900 

14 -- INTEGER — DECLARED AT 18500200 

18503300 +18559400* 
14 -» INTEGER — DECLARED Al 18700200 

♦18710100* 18710200 *1 8 7 1 024 6** 187 10258** 187 1 02 74**1 87 10 300**187 10700** 187 10800** 187 10900** 187 1 1 1 00** 18 7 1 1200* 
*18711400**18711SOO**18711600**187H790**18730100* 18730200 18740100 18740400 *l8740600* 18740900 18870300 

14 — fNTrGFR — DErLARED AT 19502000 

15 — INTEGER — DECLARED AT 18500200 

15 -- integer -- declared at 18700200 

15 •«■ integer — declared at 19502000 

16 "- integer — declared at 18500200 

*18559600* 
16 — INTEGER — DECLARED AT 18700200 
16 •• INTEGER — DECLARED AT 19502000 

J — REAL — VALUE PARAMETER « DECLARED AT 00336100 
J " STREAM VARIABLE -- DECLARED AT 02221000 

02242000 
J •- REAL -- DECLARED AT 02383000 

♦02387000* 02391000 
j .. REAlj .. DECLARED AT 04553000 

♦04568420**04568460* 04568480 *04629000* O46332OO *04658800* 04659000 04659i00 04659200 
J -- REAL -- DECLARfD AT 04704000 

*047?5000* 047^6000 047?7000 ♦04728000+ 047?9000 ♦O4733OOO* 04734000 
J -- INTEGER -- DECLARED AT 05702000 

♦05705000* 05706000 05707000 *05709000* 057i4000 *057l6000* 05723000 05725000 05728100 ♦05728120* 05728180 
♦05728200* 
J -- STREAM VARIABLE " DECLARED AT 05709000 
j -- iNTrr.FR -• DECLARED AT 05841615 

05841620 *05842475++05843000+*05843700**05843800* 05844920 05844935 O58454OO 05845700 
J " tNTfGER -- DECLARED AT 05847700 

05848255 *05848900* 058494p0 *05849480* 05849500 05850?00 O585O3OO 05851600 O58521OO 05852700 
J — INTEGER -- DECLARED AT 05951800 

05952240 ♦05959000**059<s0800+ 0596^000 05961800 O5962OOO *05967000^ 0s967?00 05971400 0597l800 05974000 
05974200 05975000 
J " INTEGER — DECLARED AT 06184000 

♦06?t2000* 06214000 ♦06216000* 06217000 ♦06230000* 06230100 06234000 +06245000**06247000* 06248000 06249000 
♦06250000**06260100* 06262000 +06263200++06267000* 06269000 
J " REAL " VALUE PARAMETER " DECLARED AT 06350300 

06350000 06350300 06351000 06355000 *06380100* 06380150 06380250 06380400 06380525 06380550 ♦06380700* 
06380750 06380800 O638O85O 06380900 06380950 ♦O6381OOO* O63813OO *0638i395* O63814OO 
J « STRfaM VARTARLf -- DECLARFD AT 06355000 

06357000 +06359500* 
J •- INTEGER -- DECLARED AT O64O4OOO 

♦06413000+ 06414000 064i7500 
J — STREAM VARIABLE — DECLARED AT 06463984 
J -• REAL •- DECLARED AT 07299000 

♦07315000* 07317000 07318000 07321100 07322000 *07330l00* 07330200 07330300 07330400 



J -• REAL '- DECL.ARFD AT 07458000 

♦07461560* 07461600 +07462400* 07462500 
J " STRf'aM VARlAPlT "- DFCURFP AT 07504000 

07508000 
J -- TNTFGER — DECLARED AT 08098950 

*08i09?00* 0Ri09?50 *08tj00s0* 08110350 *08m850* 8 1 1 ? 1 5 
J — STREAM VARIABLE — DECLARED AT O811O35O 

08110500 *06111?50* 
J « STREAM VARIABLE — DECLARED AT 08112150 

08112600 *0M1?900* 
J — INTEGER -- DECLARED AT 08255200 

08255400 *08268900* 08268950 *08270450* 
J "" STREA M VARlAP L E "" DECLaRFD AT 08462000 

08463000 *06468oOO* 
J — STRF«M VARIABLf -- DFCLARFn AT 08540000 

08540J00 
J -- REAL « DECLARrD AT O85682OO 

♦08568700* 08569*00 0856 9 900 085699^0 O857OOOO ♦O857O3OO* O857O4OO O857O5OO O857O6OO O857O7OO O857O8OO 

08571200 0857n00 08571400 0857i500 08571800 08572400 
J — STREAM VARIABLE -- DECLARED AT 085/1800 

08571900 
J « STREAM VARIABLE — DECLARED AT 08867100 

08889000 
J — REAL " DECLARFD AT 09601000 

09602100 *09633i00* 09633200 
J — STREAM VARIABLE " DECLARED AT 12473200 

12473230 
J -- REAL « DECLARFD AT 14164300 

*14218080* 14218082 
J — TNTEOER « DECLARFD AT 14349000 

14431520 
J -- STREAM VARIABLE -- DECLARED AT 14431520 

14431550 
J — PEAL •• DECLARED AT 14545000 

14554500 *14556o00* 14557500 * 14563000** 14570 100* 14580000 14592000 *14601000* 14601500 14602000 14603330 

14603400 14603700 14609000 
J •• sTRFAM VARIABLF " OFCLaRfP AT 15021000 

* 15024000** 150 34 000**15036000* 
J -- STREAM VARIABLE — DECLARED AT 15426000 

154?8000 
J — REAL -.- DECLARED AT 15612000 

♦15622000* 15624000 
J •- REAL « DECLARED AT 16048000 

16114000 16117000 *16225000* 16228000 16236000 16237000 #16238000* 
J — PEAL — DECLARED AT 16349000 

•16591000* 16592000 16599000 16600000 16604000 
J -" REAL. — DECLARFD AT 16695500 

16696000 16696900 16698210 16806500 16807000 16807500 16808500 16810000 16011500 16815500 16817000 

168t8000 *i6827000**j6887900* 16828000 168282OO 
J — REAL -- DECLARFD AT i69ll000 

169^500 * 1 6950000* 1695O5OO i695i500 * 16952000** 1 6956040* 16956090 
J — STREAM VARIABLE « DECLARED AT 16956040 
J — STREAM VARIABLE — DECLARED AT 17003300 

17003950 
J »- STREAM VARIABLE •- DECLARED AT 17907000 

17912000 
J •- REAL -- DECLARFD AT 18198000 



*18?33000* i8247«$00 18248500 
J — REAL « DFCURFD AT 18502300 

+ l85?0900* 18521000 *l85?2300* 18523100 * 1 85 ? 7000** j 8527500* l852«200 18552700 18557300 18570000 
J — STRFaM VAHI ABL-E " DFCLARFD AT 18528200 

18528800 
J — STRFAM VARIAPLF -" DFCLaRfO AT 18570000 

18570400 
J •- REAL — DFCLaRfD AT 18701800 

*187?0400* 18720500 *i87?0700* 18720800 *l87<>0200* 18741100 *l8770300* 18770400 18770900 18790400 *l879t680* 
18830900 +18831400* 18831700 18832900 +18841700**18844200* 18844300 18845400 
J •" STRFAM VARIABLE -- DECLARFD AT 18830900 
♦18831200* 

J " STRFAM VARIABLE — DFCLARFD AT 18831700 

♦18832100* 18832300 
J " STRFAM VARIABLE " DECLARFD AT 18832900 

♦18833300* 16833500 
J -- REAL *" DFCLARFD AT 19519000 
J " REAL — DFCLARFD AT 19901500 

*19903915* 19903920 19903940 19903960 19904020 +19904030* 19904060 *19904070* 
J -- STRfaM VARIABLE -- DFCLARFD AT 20328000 

♦20 3 38000** ?0 34 30 00** 20 34 8000* 
J " INTEGER -- DECLARFD AT 20382050 

♦20382120* 20382140 +20382540* 
J -- STREAM VARIABLE -- DECLARED AT 20754000 
J -- REAL •- DECLARFD AT 22002000 

22003000 *22007000* 22007100 *220lil00* 220H300 +22012000++2201 3000++22016000* 22018000 22021000 22022000 
220?4500 22027000 22029000 22049000 
J " REAL •• DFCLaRfD AT 22902000 

♦229H000+ 22912000 22914000 22915000 229i6000 
J -- REAL — DECURFD AT 28003400 

28081600 28087000 28093800 28093900 28094600 28099200 
J " REAL — DECLARFD AT 28203800 

28204000 +28246400+ 28246800 28253200 28255200 28265400 28270830 +28272800+ 28291200 28297200 28302600 
♦28307705+ 26307710 28307720 
J — STREAM VARIABLE *- DECLARED AT 28291200 

28291600 +28292000* 
J -" REAU — DECLARFD AT 28803000 

28865000 28866000 *28867000* 28868300 28868500 *28877000**28879000* 28881000 28883000 28889000 
J "- STRF4M VARIABLE " DECLARFD AT 30920000 

30923000 
J -" STRFAM VARIABLE — DFCLARFD AT 32000810 

32001100 
J -- INTEGER •• DECLARFD AT 37272000 

+37277000* 37278000 37278200 37280000 +37285300* 37285310 37285320 
J -- REAL — DECLARFD AT 37303000 

+37314200* 37318000 
J — STREAM VARIABLE -- DFCLARED AT 37353000 

37354000 
J — STREAM VARIABLE « DECLARED AT 37361000 

37377000 
J -- INTEGER "- DECLARED AT 37388000 

37388100 *37389000* 37399000 
J -- REAL -• DECLARFD AT 37507000 

♦37522000* 37523000 37525000 37527000 +37529000++37534000* 37535000 

J -• INTEGER -• DECLARFD AT 38360000 

*38377200*^36378000* 38378400 ♦38507500* 38507800 38509000 

J -- INTEGER — DECLARED AT 38545000 



* 3858 11 00** 38624 000**38629000* 38 64 0000 
J «- T N T F r, F R "• DECLARFD AT 38653000 

*38703000* 
J -- REAL — DFrLARFP AT 40004000 

♦40250000* 40?54j00 40257060 4026l0l0 40261044 4026l048 40261200 40261300 *40262500* 40263000 *40264000* 
40264500 *40275300**40276000* 40278000 40?78i00 40278200 4O28O1OO 40283500 4029310) 403(1300 *403i4000* 
♦40322100**40322400* 40322420 40322430 40322442 40322800 
J — STRfaM VARIABLE -- DFCLARfP AT 40261300 

40261400 
J « INTEGER -• DECt ARFO AT 41002000 

♦41051400* 41051500 *4l(98000* 41200000 
J — REAL — DECLARED AT 41600300 

♦41600900+ 41602900 41604200 4t604400 41604500 4l604700 41604900 4l605l00 41605300 41605400 41605500 
41605700 41605900 41606000 41606100 

J -- real -- dfcLaRtd at 44011000 

44080000 *4408i000**44l04000* 44110000 *44 1 20000**44 128000* 4412^000 44133000 *44l52000* 44153000 44154000 
*44 1540 10**44 17 30 10**44 173200* 
J -• REAL — DECLARfD AT 44206700 

*44?40600* 44240ft?0 44240640 *44240840* 44?40860 44j>40880 *44?40900* 44240920 *44263000* 44264OOO 44264500 
♦44270500* 44271000 
J — REAL " DECLARFD AT 45002000 

*45092120**45092l30* 45092210 45092250 45092280 45092340 45092370 *45092380**45094000* 45094200 ♦45109000* 

45114000 45115000 45118000 45121000 45J22000 45124000 45125000 45126000 *45l31l00* 45131700 
J — <;TRf«M VARIABLf "- HFCLARFn AT 45(3H00 

45131200 
JAR -- REAL ARRAY -- DECLARED Al 00i33000 

00(38000 *02206i00* 02221000 *02259000* 02261J00 0?366000 02368000 0?3/4000 *02375000* 04252500 04302200 

04710000 04711000 04722000 04^23000 047^6000 04727000 06465820 06465840 07074090 07502000 ♦07503000* 

07504000 08533400 08535000 *08760000**08764000* 08767000 *08768000* 08771000 *08772000+ 08787000 08789000 

09608000 12414500 12416000 12*19500 * 12453500** 12473 160** 12698500* 12854000 *l40i5210* 14113000 1420(000 

14233000 *14431512* 14570000 *15113400* l5u3500 *15115400# 16117000 16118000 ♦16123000* 16163200 16178000 

16?57000 *16258000* 16854600 16948500 *17904500* 17906150 17906250 *17922000* 18528100 18710300 *187lO«00* 

187(0900 1871HO0 18740600 18740/00 19685580 19768768 20039600 20039700 20039800 2OO5OOOO 20059400 

♦ 20060400^ 20091000 20091300 2009^00 20091500 2009i600 20091700 20091800 *20ll0700* 20121800 20125000 
20167900 *20 17 1000** 20 17 1100**20 17 12OO* 2017 2100 * 20 172600**20 172700**20 17 3200 + + 20 173300**20 173800**20 17 3900* 

♦ 20174300* 20175500 *20l75700* 20l9n00 20191300 +20l9i800* 20i92200 20193400 *20l95400* 20195600 20196500 
20(9680Q 20196900 220(8000 220l9000 22022000 22024500 22042l00 22356(40 22365(40 28244010 *28244030* 
30920000 3l005i00 320008J0 321OO3OO 3?l85350 37l95250 37361OOO 381O36OO 38201600 38247500 38253500 
38254000 38280000 38280500 38284000 38284500 38285000 38431000 38435000 38441000 38442100 38485000 
387o9o00 38732300 388 6000 4il9 t 200 4Ui2400 *4i3i2600* 41313000 4 (3l3( 00 4l3i3200 4(313300 4l3l4400 
4250i8i0 42547(00 42550500 4255i090 44157000 48032(50 

JARROw — REAL ARRAY -- DECLARED AT 00138000 

02(82000 06203600 06203700 *06206000* 06355000 08461000 08462000 08540000 08774000 0879(000 09607000 
12414000 12458000 12473100 12473200 14358000 14431490 14431520 15021000 15419000 15426000 16107000 
16H6000 *16H8200* 16121000 16163000 *16206 100* # 16343950^16689450**16902950*^16956000 * 17907000 18570000 
19685015 20043700 20105900 *20l69600* 20175300 ♦20176(02^ 220(4500 22017000 22913000 28291200 32000750 
32000810 3/353000 *45lll000^*45i3l000* 

jARROwAREAV « DEFINE — DECLARED AT 00017380 
20^69900 

JARSpACE « LABEL -- DFCLARED AT 20146700 -- OCCURS AT 20167500 
20164200 

JAR9 — REAL — DECLARED AT 1435(230 

14351250 *14358710* 14430400 1443H25 

JOBINFO -• REAL ARRAY -- DECLARED AT 12364500 

*12392000**12395500**12408000*+12418500**12420500* 12422000 *12422500* 12435500 12438000 (2444000 12459000 
12462000 12463000 12464000 12465000 12466000 12474500 

JOfiKlLLrO — RFAL -- dfcLaRfO AT 22231000 



22?4l000 *?2243000**2225l000* 
JOBMESS -- PROCEDURE — DECLAREO AT 32000000 -- FORWARD AT 00379600 
15602680 32002400 32100350 

jobnum « Real — dfclanfo at 00149000 

♦02005000* 02007,00 J6958600 22°4i000 22O43OOO 22044000 *22046000* 22400000 *44l87000* 480^5300 48O21OOO 
480^5000 48O6O0OO 48074000 48075000 *48078000* 
JOBNUMAX -- DEFINE — DECLARED AT 00005000 
02005000 16958600 44151020 44163000 
JUNK -- REAL -- DECLARED AT 00007000 

04100000 04105«;00 *04 1 94400**04 194500* 04194550 04194600 05847700 05952000 06463986 20756000 ♦400i64l0* 
40016500 
JU5TRFTURN — FIELD — DECLARED AT 24042590 

24044100 
Jl — INtfGER '- DFrLARFD AT 08255200 

•08268600* 08268900 
Jl -- STREAM VARIABLE -- DECLARED AT O8H87OOI 

08890000 
Jl -- INTEGER — DECLARED AT 20382052 

*20362060**20382062**20382070**20382100* 20382120 20382700 
J2 — INTEGER — DECLARED AT 08255200 
*08268700* 08268900 

J2 — strfam variable •- declared at O8887010 

08890000 
J2 — INTfGFR " DFrLA^ED AT 20382052 

*20382070 + *20382HO* 20382120 20382700 
J3 — INTfGER — DECLARED AT 20382052 

*2°382060**20382064**20382070* 20382110 20382720 
K -- REAL -- VALUE PARAMETER -- DECLARED AT 00452800 

00452700 
K — REAL -- DECLARED AT 04553000 

♦04655900* 04656p00 04657200 
K -- STREAM VARIABLE -- DECLARED AT 04656200 

04656600 
K — STREAM VARIABLE -- DECLAREn AT 04712000 
K -- INTEGER — DECLARFD AT 05702000 

+05705000**05706200**05707000* 05709000 057l5000 *05f28J20* 05728180 *05728240* 
K « STRrAM VARlABl-F — DFCLaRfd AT 05709000 

057J0000 
K « INTEGER -" DECLARFD AT 05841300 

°5841350 *05844920* O5844925 *05844935**058e45000* 
K — INTEGER -- DECLARED AT 05847700 

*05848300**05850i 30**05850300* O58515OO 05851900 05852350 05852500 
K — INTEGER « DECLARED AT 05952000 

*05961600**05962000**05968400* 05968600 ♦05971800* 05972400 *0597 3100**05973600* 05974400 05974600 
K — STREAM VARIABLE " DECLARED AT 07245000 

07249000 
K « REAL -- DFCLARFD AT 07355000 

*07357000* 07372500 07372800 07373000 07374100 07493000 08353000 08404000 
K -- STRrftM VARIABLE — DECLARED AT 08454000 -- OCCURS AT 08402000 

08455000 *08457000* 
K — STREAM VARIABLE — DECLARED AT 08^7?000 

08474000 
K « STREAM VARIABLE -- DECLARED AT 08775000 

08779000 08921000 
K « REAL -" DECLARFD aT 09601000 -- OCCURS AT 08920000 

♦09618000* 09619000 09620000 09622000 
K -- R EA L « DEcLaRtD AT 14351205 



*14358340* H358345 *14358595* 14358600 
K — STREAM VARIABLE — DECLARED AT 14535000 

14537000 
K -- REAL — DFCLARrD AT 15612000 
K «-- REAL -- DECLARED Al 16048000 

16114000 16118000 
K — REAL « DECLARED AT 16349000 
K -- REAL •- DECLARED AT 16696000 

16606100 16698220 *16809000* 1681J000 16823200 ♦16826900+ 16828000 
K •" STREAM VARlAHLE -• DFCLaRFD AT 16823200 

16823400 

K •" REAL -- DFCLARrO AT 16911500 

1691.2000 
K — REAL -- DFCLARrn AT 18198000 

*l8?i?000* i«233000 +18234000* i«240?00 18241OOO 1&248000 *i8?73040* 18273055 *i8276000* i846l000 
K -- REAL -- DECLARfD AT 19901500 

*19902150* 1990?300 *i99039i5* 19903960 *i9903990* 19904000 19904010 19904020 * 19904030**1 9904050* 19904060 
♦19905000* 19905100 
K -- STREAM VARIABLE — DECLARED AT 20328000 

♦20338000**20343000* 20348000 
K — REAL — DECLARFD AT 20382050 

♦20382260* 20382280 20382300 2036?340 20382360 20382380 *20382440* 
K « STREAM VARlABLF -- DECLARE') AT 20498000 

20500000 
K •• REAL -• DECLARFD AT 28003600 

28003800 
K -- REAL -- DFCUaRfD AT 28204000 

28?04200 ?8240 ? 00 +28258800* £8259000 
K -- REAL -- DECLARED AT 284O16OO 

*p846i400* ?P46?000 *?B462400* ?84632°0 2 8 463400 ♦28467?00+ 2 8 467600 £8467800 ♦284716OO* ?847?000 2^472600 
♦28475800* 28476400 28478400 *2&479600* 28479800 28480000 
K -- REAL — DECLARFD AT 28803000 
28836500 *28884000* 28885000 

k — real -- value parameter -« dfclaped at 37357500 

37357400 
•< " TNTFGFK •" DFCLaRfD AT 37388000 

37388100 *37389000* 37391000 *37398000* 37399000 
K «■- REAL *- DFCLARrD AT 37507000 

♦37522000*^3?527000* 37530lC0 3753lC00 3^534000 37535000 ♦37538000* 
K •- REAL — DECLARFD AT 4OOO45OO 

4OO164OO *400?7?45**4004?i00* 4OO43OOO *40073000*+40074000^*40323500**40323600* 
KAPUT -- LABEL — DECLARED AT 04670650 -- OCCURS AT 04684500 

04692950 04687400 
KEY -- REAL -- VALUE PARAMETER — DECLARED AT 04121450 
KEY — REAL — VALUE PARAMETER •- DECLARED AT 04255000 

04254000 04255000 
KEY -- REAL — DECLARED AT 04355400 

*04359600*+04365400+ 04365600 04366200 04367600 04367800 04368000 04368200 04368800 04369000 04369200 

04369400 04369^00 04370000 04376600 04383400 04386800 04393000 *0440i000^ 04404800 04416400 04421600 
Key — STREAM VARtABLf -- DFCLARFD AT 04359600 
KEY -- STREAM VARIABLE -- DECLARED AT 04401000 
KEY — REAL — VALUE PARAMETER -- DECLARED AT 04550000 

04548000 04549000 04555150 04555300 04555350 04555400 04555450 *04555500* 04570100 04651050 04651100 

04651200 04651300 04654000 04654200 04654400 04654500 04654900 04655700 04663000 04663100 04663200 
Key -" RfaL « WALUr PaRaMeTE r "" DFCLARFD AT 41310100 

♦4l3l0300^ 41310400 4l3l0500 4i3l07O0 413)0900 4i3ll000 

key -- real -- declared at 41312300 



*4l3l2700* 41312800 4l3l2900 «i3l3000 4l3l3l00 4U13200 4U13300 4i3l3fl00 *4l3l4000* 41314100 4l3l4?00 

41314400 4J314500 41314600 41314700 41314800 
KEY — RFAL -- DFCLaRFP AT 4132/400 

*41329500* 41333005 4t333090 
KEYBOaRDCOUnTER -*- REAL -- DECLARED AT 02020500 

♦08998200**0899 8ft00**1 6969500** 1 6970000**441 88500**451 35 ?1 5** 481 31000* 
KEYBOaRdMASk — DEEINf « DECLARED AT 00081000 

451 35220 
KEYBOARDREADY -- OFFICE -- DECLARED AT 000B]000 
KEYBOARDREQUEST -- LAPEL " DECLARED AT 00009000 — OCCURS AT 48128000 

46003000 
KEYIN •»- REAL PROCEDURE -- DECLARED AT 16904000 — FORWARD AT 02021000 

02258100 16926270 *1693 1000**16965500* 16971500 48132000 
KEYINrUFFARFAV — DEFTNF — • DECLARED AT 00017470 

16919500 
KEYJNMASK « DEFINE — DECLARED AT 06071100 

06090600 
KEYINSCAN -- REAL PROCEDURE -- DECLARED AT j6034900 

!60/»3800 169?6010 
KEYINO «"• PROCEDURE — DFCLARED AT 16O44OOO 

16344000 16960*00 
KEYIN1 -- PROCEDURE -- DECLARED AT 16345000 

16689500 16960500 
KEYIN2 "- PROCEDURE — DECLARED AT 16690000 

16903100 16959500 
KEYMSfiS7 "- DEFINF — nECLARED AT 00440000 

08604000 08604100 16041100 1 60a 1 1 10 
KEYl •• RFAL — DECLARFD AT 04258400 

♦04272000* 04352200 
KEYl -- STREAM VARIABLE « DECLARED AT 04?7?000 
KEY2 — REAL — DECLARED AT 04?58600 

*04?78200* 0427BA00 04279000 04279800 042B0400 04281400 04281600 04281800 04282000 04283000 04283200 

04352400 
KILL -- PROCEDURE " DFCLARED AT 02047000 

02130000 04352800 04433600 05979500 06H6300 06425000 08573300 12476000 14434000 15116100 16903000 

16971000 20211400 20601250 20610600 22053900 22226000 37465000 41325600 41335100 
KjLLER -- LABEL -- DECLARED AT 04261200 -- OCCURS AT 04352000 

04317400 04334*00 
KILLER — LABEL -» DECLARED AT 04357600 -- OCCURS AT 04433400 

04371955 
KlLLL -• LABEL -- DECLARED AT 04261200 -- OCCURS AT 04351600 

04298800 04313*00 

killl «•- label -- dfclaRed at 04357600 -- occurs at 04433000 

04385400 
KILLL — LABEL -- DfCLaRED AT 41327800 — OCCURS AT 41334800 
KjNo — RfA^ "- VaLiif PaRa m FTfR — DFC^aRfO AT 00373000 

00371000 00372000 

kjnq -- real •• namf parameter — declared at 37002000 

37000000 *37046060**37046075**37046320**3?G46500**37046840**37046950**37047500* 37047605 370476l0 *37047650* 
♦37173000* 
KIND -- INTEGER -- DECLARED AT 38OO4OOO 

*380?i000* 
KIND -- . INTEGER -- DECLARED AT 38102400 

38J04900 38IO67OO 38106800 *38115l00* 38l]9500 38124000 38144000 38146000 *38157000* 
KIND -- INTEGER -- DECLARED AT 38200400 

38202900 38204700 38204800 38215500 38236010 38239500 38242000 38244500 38255500 38258000 38260000 
38263500 38264000 38278500 38279000 38288000 38293000 



KjNq -- jNTegfR -" PPCIaRE'D AT 38359000 

38373000 

KINO -- TNTEGFR -- DECLARED AT 38544OOO 

38556000 3858l?00 38596000 

KIND -- INTEGER -- DECLARED AT 38652000 

38669000 38681000 38683000 38688000 38697000 *38814000* 
KIND — STREAM VARlABLF " DECLARED AT 38683000 

38684000 

KIND — INTEGER — DECLARED AT 39002000 

39028000 39029000 3903*000 3 9034lOO *39092000* 39145100 3g233l00 3 9 233400 *39235oOO**39236900**39240000* 

*39293100* 39295000 39306010 39306200 

KjNn — iNTpfirR •" nFcURFn at 41002000 

♦41052000* 41190000 41190100 41190900 41191000 41191100 41207000 

kk •- Real array « dfclaRed at 40005050 

*400i64l0**400j6500+*400 1 6800**400i690o**400i69i0* 
KLUDGE -- REAL « DECLARED AT 4J327400 

#41329400* 41329R00 41329900 
KLUMP — DEFINE -- DECLARED AT 07000000 

07001820 073!4?00 07327000 07547100 07571000 45137000 
KOUNT — REAL — NAMF PARAMETER — DECLARED AT 20314200 

20314000 20356000 ?036»l00 20369000 20370000 20374000 20375000 20377Q0O 20378000 20379000 20380000 

20380100 20380200 20380500 
KOUNT — RFAl- — DErLARED AT 20388000 

20397200 204H000 20415100 20426000 20427000 20432000 20433000 20438000 20439000 204/8510 20478520 

20484250 ?0484300 20498000 
KOUNT -- STREAM VARjARLE -- DECLARED AT ?04u000 

20413000 ?04i4000 
KOUNT -- STREAM VARlABLF -- DECLARED AT 20427000 

204?8000 
KOUNT -» STREAM VARIABLE -- DECLARED AT 20433000 

20434000 
KOUNT -- STREAM VARIABLE « DECLARED AT 20439000 

20440000 
KOUNT -- STREAM VaRIApLE -- DECLARED AT 20478520 

20478530 
KOUNT -- STREAM VA^IArLf " DECURED AT 20484300 

20484400 
KOUNT — STREAM VARIABLE -* DECLARED AT 20498000 

20500100 2O5OO3OO ?050l000 
KOUNT -- REAL -- DECLARED AT 20566100 

20566900 
KOUNT -- REAL — DECLARED AT 20581000 
KOUNT mm R EAL «•• DECLARED AT 205R4000 

20584200 
KOUNT -" REAL — DFcLAPED AT 20586800 

20587100 
KOUNT -- REAL — OErLAREO AT 20589800 

20590000 20590655 20590660 20590675 20590680 20590695 20590700 
KOuNT -- STRFAM vARlARLF " DECLARED AT 20590660 

20590665 
KOUnT •- STREAM VARlARLF — DECLARED AT 20590680 

20590685 
KOUNT mm STREAM VARIABLE -- DECLARED AT 20590700 

20590705 
KOUNT — REAL — DECLARED AT 20591000 

20591*00 
KOUNT -•" REAL — DECLARED AT 20595000 



KOuNT 
KOUNT 

KOUNT 

KRUnC 

KRUNC 
KRUNC 

KTR 

ktr 

KTR 
KTR 
KTr 
KTr 

KTR 
KTR 
KTR 
KTR 
KTR 
KTR 

ktr 

KTR 
KTR 
KTR 
KTR 

ktr 

KTR 
KTR 
KTR 

K T R 
KTR 



H - 

H 
HER 



«■«• 



20596300 
" RFAL 

- Real 

gOAOOO^O 

- REAL 
20706000 

OEFI 

38499000 

— DEFI 
-- PR 

38429000 
REAL - 
RFAL * 
RFAL - 

02603000 
STREAM 

02608000 
REAL - 

05952755 

STREAM 

05952765 

STREAM 
06081600 

RfaL - 

07245000 

STREAM 
O7946OOO 

REAL - 
08689900 

STREAM 
08691400 

REAL " 
08730000 

STREAM 
08738000 

Real - 

12272500 

STREAM 
122265O0 

REAL - 
16036200 

REAL » 
16075000 
16204000 

STRFAM 
16090000 

STRFAM 
16U1000 

STREAM 
16189000 

REAL - 
16376000 
16539000 

STREAM 
16508100 

STREAM 
16594000 



'• oftLa 

'- OEcLA 

2O6O/J1OO 

- OECLA 

- OE 



NE 



NE -- DF 
OCEDURE - 

- VALUF P 

- VALUf p 

- NAMF Pa 
0?606000 

VARIABLF 

- DECLARE 

05952975 
VARIABLE 

♦05952965 
VARIABLF 

- VALUr P 
07252000 

VARIABLE 

- VALUE P 
08690^00 

VARIABLE 
♦08692000 

- VALUf P 
08731000 

VARIARLf 
♦08741000 

- DECLaRF 

* 12225500 

VARfABLF 

- NAME PA 
16040900 

- DECLARE 

* 16082000 
16244000 

vaRiabLf 



PFO AT 20596800 

Red at 2060ooto 

RED AT 2070)500 
GLARED AT 38361000 

CLARED AT 41018100 

- DECLARED AT 37500000 

ARAMETER — DECLARED AT 02111100 

ARAMETFR "- DECLARED AT 02111200 

RAMETFR — DECLARFD AT 02604000 

*0?633000* 

-• DECLARED A^ 07606000 

D AT 05952210 

— DECLARED AT 05952755 
♦ 

-- declared at 06078100 

aRamfttR -- decLaRfo at 07243000 

-- declarfd at 072*5000 

arametfr -« declared at 08679000 

08691200 ♦0869?800+ 08693800 
" DECLARED AT 08691200 
♦ 
ARAMETFR -- DECLARED AT 08732000 

08735000 08737000 
-- OfcLaRFD AT 08737000 
* 08742000 ♦08/48000+ 08752000 
D AT 12206500 

♦12244000* 
« DECLARED AT 12225500 

PAMETER -- DECLARED AT 16034900 

16041200 16043500 
D AT 16046000 

16088000 16114000 16132000 16139000 16149000 16154000 16168000 16171000 16187000 

16251000 16254000 16263100 
"" DFCLaRfD AT J6088000 

-- DECLARED AT 16139000 



VARiABLF 

* t 61 47000 + 
VARIABLE -- DECLARED AT 16187000 

*16195000 

- DECLARE 

♦ 16491000 

16542000 

VARIABLf 



D AT 16349000 

16497000 ♦J6506000+ 16520000 



16523000 16526000 16529000 16533000 16536000 



16522000 
*165B0800^ 16588000 16589000 16592000 16607000 16609200 16610600 
•" OFCLaRFD AT 165Q6000 



VARtABLf •• DFCLaRfD AT 16592000 
♦16596000+ 



KTR -- STREAM VARiABLF -- DECLARFD AT i6609?>00 

16609400 
KTR -- REAL « DLCLARFO AT 16693000 

16603500 *i67i?o00* 167/41000 +16745500* 16746500 16750000 16751500 16756000 16768000 16780500 16786500 

16797000 16801500 U803000 *l6804500* 16805000 16806500 16823200 
KTR — STREAM VARIABLF — OFCLaRFD AT 16756000 

16757000 +16766000* 
KTR -• STREAM VARIABLF — DECLARED AT 16780500 

16781000 
KTR -• RFftL « DECLARED AT 16908500 

16909000 +16926000* 16926010 16926040 *169?7000* 16957500 16962000 
KTR — STREAM VARtABLf ~ DFCL fl RFD AT 16926040 

169?6050 *l6926i80* 
KTR -- STREAM VAR?ABLE -- DECLARED AT 16962000 

16963000 
KTR -- STREAM VARIABLF -- DECLARFD AT 41323600 

41323700 *4)323900* 

ktrX •- real — value parameter » declared at 12201000 

12222000 12222500 

ktrx -- real — value parameter -- declarfd at 16044000 

16072000 16073000 16074000 16075000 
KTRX — RfaL -- VAl-UF PaRaMfTER " DFCLaRfD AT 16345000 

16373000 16374000 16375000 16376000 16615200 
KTRX -- RFAL -- VALUE PARAMETER -* DfCLaRfD AT 16690000 

167(0500 167)1000 167)1500 )67i?000 1683O1OO 
KTRX -- REAL •- DECi.ARED AT 16910000 

*16957500* 16959500 16960500 
Kl — INTEGER — DECLARED AT 20382052 

*20382060**203B2062**20382072* 20382100 20382700 
K2 — INTEGER -* DECLARED AT 20382052 

♦20382060**20382064**20382072* 20382110 20382700 
L -" STREAM VARlARLF — DFCLaRED AT 00042000 

00043000 
L -- RfaL — VaLUf PaRa m FTfR -- DFCLaRFP AT 00316000 
L -- REAL -- NAME PaRAMFTe R — DECLARED AT 00/132000 
L — LABEL — DECLARED AT 02117000 — OCCURS AT 02119020 

02197000 02)54000 0?163000 0?167000 
L — REAL -- NAME PARAMETER -- DECLARED AT 02187300 -- OCCURS AT 02146000 

02187100 
L ""• REAL -- DECLARED AT 02192000 

*02208000* 022)0000 02211000 02212000 022)6200 *022 16300**02216400* 02226000 *02261200* 02261300 02261350 
*02?63000* 02264O00 02266000 0227)000 02281000 02292000 02296000 02313600 *023l9000* 02320000 02321000 
*02323000* 02324000 02325000 02232000 02353000 
L — REAL — VALUF PARAMETER " DFCLaREO AT 02379000 -- OCCURS AT 02352000 
L •• STREAM LABEL -- DFCLARFD AT 02434365 -- OCCURS AT 02434380 

02434380 
L « STREAM VARIABLE « DECLARED AT 02434700 

02434735 O261O0OO 
L — STREAM VARIABLE -- DECLARED AT 02662)00 -- OCCURS AT 02609000 

02662200 
L — STREAM VARIABLE — DECLARED AT 02664000 

L — REAL ARRAY — VALUE PARAMETER -- DECLARED AT 02696500 
L •- STREAM LABEL " DECLARED AT 04399400 — OCCURS AT 04400000 
L »- STREAM LABEL — DECLARED AT 04647250 — OCCURS AT 04647400 
L — REAL " NAME PARAMETER — DECLARED AT 04702000 

04700000 +04736000* 04736500 04737000 
L *" STREAM VARIABLE " DECLARED AT 04737000 



047^9000 
U ••» t NTft,fR -- VaLuf PaWaMfTfR -- DFCl'A^FO AT 05/0i000 

05700000 05701000 0570?500 057t5j00 057?8i00 057?8i?0 
L — INTEGER -- DECLARED AT 05841615 

*05fl4?450* 05843475 058/13200 
I — INTEGER -- DFClARFO AT 05847700 

*05850130* O585O3OO 05850400 *05850500**05850600* 05851700 05851800 *05851850* 0585?000 
L — INTEGER — DECLARED AT 05952000 ' " u 

*05961600* 05962000 05962200 *059624(>0**059 6 260Q* 05962900 05963000 05970800 05972600 05973400 05973800 
L « INTFGFR — DFCLARFO AT 06184000 

♦06208000**06217100* 06218000 06278000 *06279000* 06280000 
L — LABEL — DECLARED AT 07003280 — OfCllKS AT 07003300 
07003290 

L -- REAL — DECLARED AT 07006060 

070^4000 *07108000* 07142000 07143000 07147000 07151000 *07152000* 07248000 
L •- LABEL -- DECLARED AT 07270000 — OCCURS aT 07274000 

07291000 
L « LABEL " DECLARED AT 07300000 — OCCURS AT 07316000 

07320000 
L -- LABEL " DECLAPFD AT 07356000 — OCCURS AT 07358000 

07372900 
L — DEFINE — OFCLaRED AT 0738/000 

07395000 07396000 
l« " LABEL -- DECLARED AT 07423000 — OpCURS AT 07435000 

07451000 
L -- sTRFAM LABEL -- nFCLARFO AT 08300600 — OCCURS AT 08301200 

O83OO8OO 08349000 06400000 
L -- STREAM LABEL -- DECLARED AT 08455500 -- OCCURS AT 08457000 

08491000 
L •• REAL — DECLARED AT 08568200 -- OCCURS AT 08490000 

l -- s?s?;s , !«ussr 4 " iirzr^viiiiiw^ 910 oe57250 ° os "" 10 °"' j "° os " j6 °° b ""™ ° 85 "*°° 

t» "" STREAM VARIABLE — DECLaRFD AT 08572700 

[* *" STREAM LABEL -- DECLARED AT 0B6630<>0 -- OCCURS AT 08664000 
L — STREAM LABEL -- DECLARED AT 086^0110 -- OCCURS AT 08690110 
U "»- REAL — DECLARFD AT 09*01000 -~ OCCURS AT 08806000 

096i8000 09621000 *0962?000* 
L — STREAM VARIABLE -- DECLARED AT 14284000 

142A6000 14287000 
L — REAL " VALUE PARAMETER ~ DECLARED AT U543000 

14583100 14583200 14607000 
L •- STREAM LABEL — DECLARED AT 14646600 — OCCURS AT 14646800 

15027000 

i* •" peal •- Value parameter — decl A ked at 15169000 -- occurs at 15025000 

1 .. J 5 * 68000 15168 t 00 15173000 15174000 15176000 15177000 15180000 15l8 2 000 15186000 
U — RFAL — DFCl-ARrn AT 15612000 — OcrURS AT 15531400 " 

♦15614000* 15615000 15617000 15620000 15621000 
L -- STREAM LABEL « DECLARED AT 16036800 -- OCCURS AT 16037500 

16O431O0 !65l5000 16758500 l69 2 6 H o 
L — STREAM LABEL — . DECLARED AT 16926?40 »• OCCURS AT 16926240 
L •- STREAM VARIABLE -- DECLARED AT 17003300 

17003800 17004150 17004250 
L -• REAL " DECLARED AT 20012100 — OCcUrS AT 18540800 

20?61500 io064600* ?003550C ?003570 ° 2 0036100 20036200 *20058100* 20058300 20058800 20059400 20059600 

t •" STRfaM VARIABLE — DFCLaRfO AT 20030800 
20032750 2OO630OO 



L -- STREAM LABEL -- DECLARED AT 20064600 -- OCCURS AT 20064800 
L -" REAl, «■- DECLARFH AT 20081300 

♦20119000* 20119900 20120000 20120100 20120800 
U — REAL — DECL.ARFH AT 20141700 

♦20 1S9500**20 16 3900**20 168 150**20 176 102* 
L •• STRFAM LABEL — DECLARED AT 20301200 -- OCCURS AT 20301500 
L •• LABEL "" DECLARED AT 20382030 — OCCURS aT 20382740 

20382620 
L *- STREAM LABEL -- DECLARED AT 20571840 — OCCURS AT 20571850 
L — LABEL — DECLARED AT 22062000 — OCCURS aT 22083000 
22095000 22110000 22115070 22192100 

L — stRfa m Label •■ dfcLaRed at 22192100 -- occurs at 22192200 
L -- stream Label « declared at 24118000 -- occurs at 24120000 

L •» STREAM VARIABLE — DECLARED AT 241^8000 

24160000 
L »- I.ABE|, -- DECLARED AT 74209000 -- OCCURS AT 24221000 

24226000 
L -" REAL — DECLARED AT 28003800 
L •" REAL ■" DECLARED AT 28401600 

♦28447600* 2R447A00 28448000 28448400 28448800 28449000 *28449600**2R472400* 28473200 *28473400* 28473600 

L — Label -- dfcl a rfd at 30906000 — OrcuRS a t 30915000 

30913000 
L -- LABEL -- DECLARED AT 36OO3OOO -- OCCURS aT 36006000 

36008000 
L — REAL •» DECLARED AT 37359000 

*37360000* 37361000 37382000 37383000 
L — • STREAM VARIABLE -- DECLARED AT 37361000 

♦ 37365000* 37366000 * 37 367000** 37 368000* 37369000 * 37370000** 373? lOOO* 37375000 *37379500* 
L " STREAM VARIABLE — DECLARED AT 37394200 

37394350 37394550 
L •- STREAM VARIABLE — DECLARED AT 38290000 

38290500 
L — STREAM VARIABLE — DECLARED AT 38593000 

L — STREAM LABEL " DECLARED AT 41333037 — OCCURS AT 41333045 
L "- LABEL — DECLARED AT 41430500 — OCCURS aT 41430700 

41430600 
L — LABEL -- DECLARED AT 42483000 -- OCCURS aT 42503000 

42496000 
LA -- STREAM LABEL -- DECLARED AT O2621OOO — OCCURS AT 02623000 
LA -- INTEGER -- DECLARED AT 05951900 

05952200 *05953035* 05953040 *0596p700* 05962800 *05962900* 05969000 05970800 05972800 05973400 #05976350* 

05976400 05976450 05976700 05977050 *05977l00+ 16754000 
La *- STRFAM LABEL — DECLARED AT 37316300 " OCCURS AT 37316400 
LAB •"" STREAM LABFL -- DECLARED AT 08455000 « OCCURS AT 08456000 
LAB — RFAL ARRAY — DrCLARFD AT 28004600 

28004800 280i9800 28022400 28022600 2^0^5200 28O334OO *28033800* 28036400 28039200 28O394OO 28048400 

28056000 28058200 28063000 28063200 28063800 28064000 28099800 28100200 

lab «- Real array — dfclaRed at 2B205000 

28205200 2^213000 28?l7000 2«2l7200 2^219800 28222600 * 2 8223000* 28225400 282282OO 28228400 28272*00 
LAB -- REAL ARRAY — DECLARED AT 28401800 

♦28451800* 
LABE «- LABEL — DECLARED AT 20597850 -- OCCURS AT 20609500 

20598000 
LABELA " REAL ARRAY — DECLARED AT 04668800 

*04674000**04675400**04675450*^04675500* 04679050 04679500 O468O35O ♦04680900^ 04680950 
LaBELaREA — SUBROUTINE " DECLARED AT 38106900 
38129000 



LaBELaRfA -" SUBROUTINF " DECLaRfO AT 38204900 

38375000 
UABELARFAV -- OFFICE -- DECLARFO AT 00017564 

026^9000 ?8451800 38i07t00 38l2|500 38148OOO 382O51OO 
LABELASCRATCH -- REAL PROCEDURE — DECLARED AT 0265*000 

*0?669000* 0P670000 O468O95O 07090000 28073000 28084000 
LABELCHECK — REAL SUBROUTINE -• DECLARED AT 28019200 

28026800 28029400 28048200 
LABELCHECK -- REAL SURROUTINE — DECLARED AT 28212400 

28221400 28271000 
UABELFO " DEFINE "" DECLARED AT 04670800 

04674350 04678950 04680250 

LABELREr — RFAL — DFCLARED AT 08099750 

*08112000* 08112050 08112200 08116400 
LABELSOMjTTFD -- DEFINE -- DECLARED AT 15072000 
LABELSPACE -- SUBROUT T NE -- DECLARED AT 0,250600 

0l?50900 01254800 
LABELTABLE — REAL ARRAY « DECLARED AT 00285000 

♦01261100**02199000* 02347290 *02347315* 02434195 02434200 *02434260* 02434270 *02434400* 02434410 *02434690* 

02434700 04369000 04675500 *0468o 150**06463740**070 15000* 07372300 07372310 *07409 100**07432100**07448000* 

07478000 07478i00 080i4000 08018000 *08029 100**08030400**080 31 100**080 33994**08050000**08054000**08085000* 

*0809i000**08256440* 08257500 08257600 O8258OOO *08259820**08259850* 082695iO *08280030* 08422000 *08430000* 

08447000 0847^05 08497000 08550000 08557000 *08565000* O8581OOO *08582000**i 252 9 5°0**i 2539000**12567500* 

12669500 ^2670?50 *1267j250* 12679500 12687300 * 12687700** 12864500** 12874500** 12876000** 16216000* 20590300 

*20590450* 20590550 *20590600**20595650** 20 596 200**20596 350**2060 11 00**20608840**20609 100**20609580**22069470* 

22081000 *22083000* 22091000 22093000 *22l25000**22l75000**22l79000* 22189000 *22190000**22200000**222l2200* 

28016000 28248600 *28255600* 37010000 370H000 37015000 37016000 37019200 37022100 37025000 37032000 

♦37037100* 37041000 *37046 160**37046320**37046835**37046980**37047500**37047625**37048310* 37100000 *37l74000* 

37187110 37t89 00 37189500 37l9 o00 37200000 37235000 37235500 *37236000* 37236750 *3724l900* 37314000 
* 37 3 18 100**37 3 19000** 38640000** 38 7 30000* 44175000 *44 195000**44 196000**44214400* 
UBEUHfPRtNTER — SURROUTINE -- DECLARED AT 08256430 

08258700 08271000 
UBEV -- OEFlNF -- DECLARED AT 20227000 

20595850 20597050 
LABLE mm REAL -• DECLARED AT 31005000 

♦310,3000* 31013050 3l0i3l00 3lOi4000 310,5000 3l0i7000 * 3 1 l/lOO* 3lOi7300 3l0i7400 31021000 
LABLE — REAL ARRAY — VALUE PARAMETER -- DECLARED AT 37341000 

37337000 37339000 37346000 37352000 37353000 
LABLE •- STREAM VARIARLF " DECLARED AT 37346000 
LABLE — REAL ARRAY -- DECLARED AT 37450000 

*37454000* 37455000 37456000 37463000 
LASTACCFSSDATE *- DEFINE — DECLARED AT 08100950 

08105900 08114300 
LASTAVAlL -- OEElNE -- DECLARED AT 4OOO811O 

40078052 40078054 
LASTCDNljM -- INTEGER « DECLARED AT 07000100 
♦07001660* 07001680 07559500 

lastdfck •- Real -- declared at 07000300 

*073i4l20**07326iOO* 07564000 07566000 *07570000* 

lastentry — real — declared at 41327500 

*4l330200**4l33l400* 4J332300 4i333500 41333800 
LASTIO " DEFINE -- DECLARED AT 38385500 

38389200 
LASTL — INTEGER -- DECLARED AT 41316410 

*4l3l7500**4l3l7700**4l3l9000* 4l3l9l60 4i3l9200 4l3l9220 41319240 41319300 4l3l9700 
LASTL -• REAL -- DECLARED AT 44012000 

44014000 #44115000* 44123000 44124000 *44125000* 44126000 44U0000 *4413l000* 



LASTL -- RFAL — DFCLARED AT 44206800 

44?07000 
LASTu -- REAL -- DECLARED AT 45OO21OO 

45002600 

lastlink — integer — declared at 08852000 

*08860000**08863n00* 08931000 08932000 08933000 08935000 
LaSTPaSSED " REAL — DECLARED AT 08853000 

♦08862000**08882000* 08885000 089UO00 08927000 
LASTSCAN -- RfaL " N A Mp_ PaRa^fTER — DFCLARED AT 20314200 

20314000 20322000 20323000 *20324000**20325 100**2037 lOOO* 20374410 *20376000* 
LASTSCAN — . REAL — NAMF PaRAMfTER -- DFCLARFD AT 20386000 

20384000 ?0397j>00 
LASTSCAN — REAL « DECLARED AT 20566100 

20566900 
LASTScAm — REAL "- DECLARED AT 20581000 
LASTSCAN -« REAL " DECLARED AT 20584000 

20584200 
LASTSCAN •- REAL — DECLARED AT 20586800 

20587100 
LASTSCAN — REAL " DECLARED AT 20589800 

20590000 
LASTSCAN — RFAL — DFCLaRFD AT 20591000 

20591400 

lastscan — Real -- dfclared at 20595000 

20596300 
LASTScAm -- REAL — DECLARED AT 20596800 
LASTSCAN « REAL " DECLARED AT 20600010 

20600040 20600110 *20600l50**20602540* 20604900 20605100 *20607000**20608780* 
LASTSCAN — REAL — DECLARED AT 20701500 

20706000 

Latest ■• define — declared at 28207eoo 

28283200 
LATFSTV -" DEFINE " DFCLaRFD AT 20247960 

20569650 
LB — LABFL -- DECLARED AT 02202000 -- OCCURS AT 02293000 

02310000 
LB -. DEFINE — DECLARED AT 20217700 

20380200 20570000 20573510 
LBACK -- LABEL « DFCLARED AT 20393000 -- OCCURS AT 20469000 

20395000 
LB! — LABEL — DECLARED AT 02202000 •- OCCURS AT 02308000 

02311000 
LBL -- REAL — DECLARED AT 02638000 

#02639000* 02642000 02657000 
LBL -- STREAM VARIABLf •• DECLARED AT 02642000 
LflL — RFAL "- VALUf PARAMETFR "" OECLARED AT 02659000 

♦02662000* 0p662050 02662100 O2663OOO 02664000 02665110 02665150 0?666000 O26686OO 
L8L -- REAL AftRAY — DECLARED AT 20013800 

200i4300 ?002 t 900 *200?i920* 2OO22OOO *200?2l00* 20022200 20059i00 *20059i20* 2OO593OO ?0059700 20060400 

20060800 20O6H00 20063700 20064000 20065200 20066200 
LBL •• REAL ARRAY -- DECLARED AT 20083000 

20083500 20089800 *?00g9820* 20089900 *20090000* 20090100 
LBL -- REAL ARRAY -• DECLARED AT 20143400 

20143900 20210700 
LBL -" REAL ARRAY " DFCLARED AT 28004800 

290U850 28041400 *28072800* 28073000 *28081200* 28081400 28081600 28082200 *28083000* 28083200 28084000 
♦28094800* 28095000 



LBL -• STRFAM VARtABLf •• DFCLARED AT 28083200 

UBL •• REAL ARRAY -- DFCLARED AT 28?05200 
28o3?600 ?8?55?00 ?8?^'ift00 28256400 

LBL •• REAL ARRAY — DECLARED AT 28^01800 

LBLEQNApEAV -- DEFINE -- DECLARED AT 00017290 
20059120 30089820 

LBMESS *- PROCEDURE •- DECLARED AT 17000000 — FORWARD AT 00454000 

14585360 168H500 16817000 16818000 18031500 18439125 20575050 20575100 20575200 20575550 20577450 
20577750 205778/5 20577975 20578125 20578525 20585370 20587550 20588900 20594350 ?0704270 20766000 
20769400 20771100 28011200 28212000 28270820 28408400 28434800 28474600 28883000 44253000 

lbmsgcOntrol •>-■ Real -- oeclaRfd at 16995000 

♦17000900* t700i000 i700l400 *i7002600* ]7003000 *i7003050* i7003l00 l7003j30 17003250 J7O03400 *i7005600* 
LC -• DEFINE •- DECLARED AT 08100650 

08101650 
LC -• LABEL -- DECLARFD AT 16699500 -- OCCURS AT 16743000 

16703500 
LCOPY -• LABEL — DECLARED AT 20393000 -- OCCURS AT 20478510 

20396000 20449100 20461310 20461810 20470100 20475100 
LCOPY -- LABEL -- DFCLARED AT 20566600 — OCCURS AT 20569200 

20566620 
LCOPY — LABEL -- DfCLaRFD AT 20597800 — OCCURS AT 20606450 

20597950 
LD •• UABFL — DECLflRFD AT 16356000 -- OCCURS AT 16535000 

16365000 
LDATE -- r NTpr,FR — DECLARED AT 4l3l64i0 

413165?0 4i3l77«6 4t3i9900 4i32^4i0 4i3?0430 4i320440 4i32l900 4i323i70 41324300 
LDATE -- REAL -- DECLARED AT 44012000 
LDAtE — REAL — DECLARED AT 44206800 
LDATE — REAL — DECLARED AT 45002100 

*45105000* 45116000 
LDCNTrL — LABEL — DECLARFD AT 07244100 — OCCURS AT 07265400 

07256000 07258200 
LDCNTRt " L a bfL "- DFrLARFn AT 22061200 -- OfCURS AT 22069550 

22069030 22069140 
LDCNTRLrODF " DFFINE — DECLARED AT 00134020 

07258600 20l523°0 20605465 22069i60 
LDISk -- LABEL —• DECLARED AT 20389000 -- OCCURS AT 20456000 

20394900 
LDUMMY — LABEL — DECLARED AT 20392870 — OCCURS AT 20451900 

20394070 02623501 
LE -• LABEL -- DECLARFD AT 44020000 — OCCURS AT 44120000 

44133000 
LEAPFROG — STREAM VARIABLE — DECLARED AT 04658700 

*04659700* 04662200 
LEAVE — LABFL -- DfCLaRFD AT 04357400 -- OCCURS AT 04427600 

04403400 
LEAVELKn •?- LABEL *- DFCLAReD AT 182O8OOO -- OCCURS AT 18466100 

18920000 
LEFTARRoW — DEFINE -- DECLARED AT 00006150 

026t5l00 02615*00 08102700 08U5600 19768778 
LEFTOFF « REAL -• DECLARED AT 00341000 

*24030000* 24036700 24036900 *?40375OO* 24037600 24038200 *24038400* 
LEM -• L AR eL -" DECLARED AT 20020300 — OCCURS AT 20026100 

20025000 20025600 
LpNn -- STREAM LABFL -* DECLaRfD AT 12883500 — OCCURS AT 12884500 

Level -- ?ntfgfR -- dfclaRed at 08852000 

*0886l000* 08864000 *0888?000* 08887001 08931000 08932000 *08937000* 08938000 08939000 0894?000 08944000 



089/44500 
LEVEL — REAL •- DECLARED AT 20012500 

20021400 20021700 +20024600* 20025000 20030800 20036800 
LEVEL — REAL — DECLARED AT 20081700 

20089300 20089600 
LEVEL -- REAL "- DECLARED AT 20142100 

20164700 
LF — DEFINE -- DECLARFD AT 08100700 

08101650 08102000 08102050 08102700 08105450 
Lp — L A rfL — nFC^ARFn AT 16699500 — OCCURS AT 16742000 

16703500 
LF — LARfL -- DFCLaRFD AT 44020000 — OCCURS AT 44126000 

44128300 
LFORM -- LABEL « DECLARED AT ?0389000 -• OCCURS AT 20452000 

20394000 
LFrEE -- i.ABEL -- DFCi.ARED AT 20393000 -- OCCURS AT 20478500 

20396010 20461050 20461650 20467100 20473100 
LFT — INTEGER -- DECLARED AT 02133123 

02173297 02173300 
LI -- LaRFL -- HFCLaRFH AT 16355000 -- OCCURS AT 16386000 

16363000 
LlBBIT — DEFINE: « DFCLaRED AT 00417060 
LIBERR — DEFINE — DECLARED AT 00416590 

20511420 20575050 20575100 20575200 20575600 20577475 20577775 20577925 20585375 ?0587550 20588900 

20594350 
LlBMAiNCODF *- DEFINE »- DECLARED AT OOU4O2O 

08887010 )5113500 20566760 205873J0 20605430 2?042lO0 
LIBMSG -- DEFINE — DECLARED AT 00416200 

06353551 07351000 18439125 20578550 28264600 28270820 
LIBNO -- REAL — DECLARED AT 20566100 

20566690 *205666?5* 20566812 20566820 205*6825 *20566850* 2056732s 20567330 20567350 *20569400* 20569460 

20569890 20572300 20573100 #20576050* 20580100 #20580305* 20580310 
LjrNO -• RpaL •- OFcLaRFD AT 20581000 

20582650 
LIBNO -- REAL -- DECLARED AT 20584000 
LIBNO -- REAL •- DECLARED AT 20586800 
LIBNO — REAL « DECLARED AT 20589800 
LIBNO -- REAL — DECLARED AT 20591000 
LIBNO — REAL — DECLARED AT 20595000 
LIBNO — REAL •- DECLARED AT 20596800 
LIBNO -- REAL — DECLARED AT 20&00010 

♦20603500* 
LlpNO — RFAL "- DECLARED AT 20701500 

libra — refine — nFcUREO at 20236000 

20581250 20585700 
LlBRARYcOPY -- PROCEDURE -- DECLARED AT 28400000 — FORWARD AT 00480000 

19681100 28483400 
LIBrArYHElP -• PROCEDURE -- DECLARED AT 28000000 

28101400 28216800 28225200 28228600 28230400 28232800 28242200 28242600 28243600 28244040 2824*200 

28254600 28257800 28258700 28262400 28266800 28268000 28268400 28270824 28271000 28285400 28295800 

28303600 28465800 28467400 28472800 28475600 28476200 
LlRRARYTRANSFER — PROCFMJRE " DFCLARFD AT 28200000 

28246000 28308000 28455000 28482800 
LlBRARYZERO — PROCEDURF -- DECLARED AT 28800000 — FORWARD AT 00479500 

19681000 
LIMIT -- REAL — DECLARED AT 04554500 
♦04605500* 04627000 *04633200* 



Li M r T •- tNTfgeR -- DECLARED AT 24109000 

24146000 *24152000* 24155000 24158000 
LIN -- STREAM LABEL -- DECLARED AT l266?000 -- OCCURS AT 12662500 
LlNDX -- REAL "- DECLARED AT 20017000 

20017100 *20060900* 20061100 200637OO 20064000 2006S200 
LINECT "- DEFINE — DFCLAREO AT 13021900 

13128010 
I-INES66 « DEFINE " DFCLaRED M 20240020 
LINK — HFFTNE — DfCLaRFO AT 06070500 

06087600 06087900 06100500 
L]NK -<- RpAL -- DECLARFD AT 08t72000 

*08l74000* 08)76000 
LINK *- REAL — DECLARED AT 12354000 

♦12387500* 12389000 12390000 19390100 12397000 
LINK — DEFINE -- DECLARED AT 14160000 

14184000 14189000 14190000 

link -* integer — declared at 14351100 

♦14399100* 14399200 14399300 *14399500* 
LINK — RE A L -- DECLARED AT 15600300 

*15601200* 15601400 15601500 15601600 15602200 15602640 15602680 

Link -- r fa l -- dfclaRfd at 20017100 

20017200 *20058300* 20058900 20059400 20059600 #20059700* 

Link -- Real -- declared at 22230000 

♦22995000* 92296000 ?2?97000 22303000 22386000 22386100 
LINK -- REAL -- DECLARED AT 24004000 

♦24006000* 24007000 24009000 
LINK -- REAL — DECLARFD AT 24032200 

•24033100* 24033200 +24033300* 24033400 24033700 *24034 200**24034400* 24034500 24035200 *24035300* 24035400 
#24036300**24036700* 240B700C 24038000 24038400 24038800 24038900 24039500 24039600 
LINK — LaBFL -- DFrLARFD AT 37388300 -- OCCURS AT 37412000 

37416000 
LlNKT T — SUBROUTINE -- DFCLARfD AT l9900?90 

19900460 19900^70 19900650 
LlNKUp « PROCEDURE -- DECLARED AT 41310100 -- FORWARD AT 04121450 

04283200 04370000 04555450 O46513OO 04654200 04654500 04663200 0S953050 08385500 08412400 14411*00 

16604000 19685370 41311200 41313400 413l4800 4i323l80 41325500 
LISTHECARD — SUBROUTINE " DECLARED AT 20600100 

20600510 20603360 20604480 20606875 
LL -• STREAM LABEL -- DECLARED AT 04360400 -- OCCURS AT 04362200 

04360600 
LL -- STREAM LABEL — DECLARED AT 05953020 " OCCURS AT 05953025 

08291250 08291400 
LL "- STREAM LABEL — DECLARED AT 08299600 — OCCURS AT 08300200 
LL -- LABFL -- DECLARED AT 14547000 — OCCURS AT 14551000 

14556500 
LL •- STRFAM VARIABLE « DECLARED AT 1550i500 

15502800 
LL -- STREAM LABEL -• DECLARED AT 16595000 -- OCCURS AT 16596000 

16764000 
LL — LABEL •- DECLARED AT ifl20?000 — OCCURS AT 18227000 

18229500 20054400 
LL — STREAM VARIABLE « DECLARED AT 2 289390 -" OCCURS AT 20053500 

20289455 
LL -- STRFAM LABEL — DECLARED AT 4t323800 -- OCCURS AT 41323900 
LL •• STRFAM VARIABLE — DECLARED AT 44203000 

44205000 
LLTNES66 -- LABEL -- DFCLARFD AT 20392880 -- OCCURS AT 20465050 



20394080 
LLO f- STREAM LABEL -- DECLARED AT 04362800 « OCCURS AT 04363200 
LLO -- STREAM LABEL — DECLARED AT 060/5000 — OCCURS AT 06075100 

12239000 12241«;00 
LLl -• STREAM LABEL -- DECLARED AT 04362800 — OCCURS AT 04363400 
LL1 -- STREAM LABEL — DECLARED AT 06075400 " OCCURS AT 06075700 

06075500 
LLl -<• STREAM LABEL — DECLARED AT 12233000 -- OCCURS AT 12234000 

12234000 
LL2 — STREAM LabfL — DECLaRED AT 0436280P — OCCURS AT 04363600 
LL2 — STREAM LABEL -- DECLARED AT 06075000 « OCCURS AT 06075800 
LL3 •- STREAM LABEL -- DECLARED AT 06076500 — OCCURS AT 06076700 
LN -- LABEL -- DECLARED AT 16700000 -- OCCURS AT 16780000 

16704000 
LM — LABEL -- DECLARED AT 440?0000 -- OCCURS AT 44138000 

44141000 
LNO •" LABEL -- DECLARED AT 20389000 -- OCCURS AT 20454000 

20394900 
LNUM -- STREAM VARIABLE " DECLARED AT 07001680 

07001720 
LO -- RfAL -- OFCLAPEn AT 06068300 

06068400 06092800 #06111500* 

lo -. real — declarfd at 37180000 

37,80400 #37187,00* 37,87 n Q 37l87i20 3 7 > 1 8 7 1 3© *37i87250* 37,88500 37j95200 *37l95250* 37i95280 *37i95300* 
*37i95400**3M95700* 37212000 37213000 *3725 t000**37264000**37267000**37267 lOO* 
LO — INTEGER — DECLARED AT 40005110 

*400i6025**400i6026* 400i6900 40016920 *403?2442* 40322444 *40328000**40329000* 40330000 
LOAD -- LABEL — DECLARED AT 20146600 -- OCCURS AT 20169400 

20167900 
LOAD — DEFINE — DFCLaRED AT 20224500 

20566807 20566fi22 20603000 
LOr — INTEGER " DECLARED AT 00026000 

♦00039035* 00040000 00042000 00045000 OOO46OOO 00048000 

LOr -- Rp A L -- vALur Parameter — declared at 00092000 

00090000 00091000 
LOC — REAL — VALUE PARAMETER -- DECLARED AT 02052500 
LOC -- INTEGER -- VALUE PARAMETER -- DECLARED AT 02697770 

02697750 02697770 
LOC -- REAL « DECLARED AT 09602100 
LOC •- REAL -- DECLARED AT 12354500 

*12386500* 12387500 #12397000* 
LOC — INTEGER « VftLUF PARAMETER — DECLARED AT 14107000 

14105000 14106000 #14112000* 14113000 Mll^OOO 
LOc -- Re&L — nECLaRED AT 14158000 

14183000 #14187000* 14188000 14189000 * 14 190000**14 198800*# 14203020* 14206000 14206320 14208000 14209200 

14209300 14211000 l42l2000 14212010 l^Pj 2l00 14212300 i42l3000 1421*000 1421^000 I42i80?5 142J8030 

14220000 *14222000**14248000* 14254000 14255000 14256000 #14258000* 14260000 #14281000* 14284000 14292000 

14292140 14296000 14297000 

loc — Real •- declared at H624550 

#14675000* 14676000 14679000 #14683000* 14687000 *14699000* 14700000 14702000 14702600 14703100 *l47l2450* 
14712510 *14712800* 

LOc -" REAL — DECLaRPD AT 15536000 

*15546000* 15548000 15550000 15552800 

LOc •- RfaL -- vaLuf parameter — declared at 18002000 

18000000 18001000 18017000 18020000 18021500 18022000 18035000 18047500 18063000 18075000 18075500 

LOc — Real -- value parameter — declared at 22229000 

22228000 22229000 22295000 22296000 



uoc 



IOC - 



- REAL -- 
24000000 

24027000 

REAL — 
*24o33200* 



VALUf PA 

24001600 

?fl0?8000 

DECLARED 
240333OO 



24039300 f24039700* 

LOr -• RfaL. ARRAY " OF 

2*126000 *2fll43000* 

LOc -- RfaL aRRay -- df 

24213000 *?42i4000* 

LOG -- RFAL «• DECLARED 

*44tt6000* 44H7000 

♦44134 000**4 4136000* 

LOC -- REAL « DECLARED 

LOC — REAL -- DECLARED 

45002200 
LOCALEVEL — DEFINE -- 

15501500 20289390 
LOCAT — REAL ARRAY -- 

37388200 *3739loOO* 
LOf.AT -- STRFAM VaRUrLf 

37396000 

locaTiOm -• Real a r Ray - 
040/joooo 04O41000 
locations — stream varia 

07003490 07003/|94 
LOCATQUF — REAL ARRAY - 
02063000 02064000 
04137110 04137170 

04230000 04279400 
*0435l800* 04366600 

04569i00 *0467)800* 
LOCIOD -- REAL -- NaMF 

06000000 060t7000 
LOCIOD -- REAL « DeCLA 

*06098600* 06099000 
LOCK •- DEFINE -- DECLA 

38419000 38426000 
LOCK — DEFINE — DfCLA 

38581100 
LOCK -• DFFINE 

38782000 
LOCK — DEFINE 

41190700 
LO r KcONTROLr>ECKS « DEFlN 

07001640 07272500 
LOcKDtRECTORY -- DEFINE 

O61O35OO 07562000 

DEFINE — DEC 



RAMETER - 
*?4005000* 

24030000 

AT 24032200 

24033600 24034300 

24039900 24041900 
CLARFD AT 24104000 
♦24146000* 24152000 
CLARFD AT 24208000 

?4?2l000 24222000 

AT 44012000 

04H9000 44122000 

44U7000 *44138000* 

AT 44206800 

AT 45002100 



DECLARED AT 24002000 
24006000 24007000 ?<|009000 



?40l0000 2A017000 240?3000 ?«0?4000 240?6000 



24Q34400 24035100 24035200 24035600 24035800 *?4039000* 24039200 



24153000 24158000 



*24 2?3000**?ft224 000* 



44123000 
44139000 



44124000 
44140000 



24225000 
44125000 



♦44126000* 44128200 44130000 44l3t000 



DECLARED AT 00005050 
44203000 

DECLARED AT 37387000 
37393000 37394000 37394150 
— DECLARED AT 37395000 



37394250 37395000 



- VaLUf p 
O4O4S1OO 

BLE •- D 
0700350? 

- DECLARE 
02065100 
04151220 
04282000 
04367000 

♦04685300* 
PARAMETER 
*060i 9000* 
RED AT 060 

06099100 
RED AT 383 

36503000 
RED AT 385 



aRa«ete r ■ 

0«0«8800 

eclared at 



- DECLARED 
04061000 

07003462 



AT 04042000 



D AT 00174000 



*02067000* 
04151230 
04284200 
04372000 
O46854OO 



02079000 02089000 02097400 
04178000 04180000 04190000 
0428*400 04284600 *04299200* 
04372050 04421800 04426600 
3732^000 *37328000^ 37334000 



DECLARED AT 06002000 



04025000 
04194700 
04310400 
04429400 
44170000 



♦04059000**04061000* 04118000 
♦04224500* 04225000 04228000 
04312400 04316800 04317000 
04431200 *04433200**0456l000* 



68800 

06099200 
84000 -- 

38518000 
66000 



OCCURS AT 08110750 



•- DECLARED AT 38677000 
-- DFCLARED AT 41021000 



LOCKED 

LOCKED 

LOCKPtR 

LOCKSYS 

L0CKTOG 



E — DECLARED AT 07001000 

07301000 07371300 07426000 
-- DECLARED AT 004*1100 

08268000 14560000 i4588j00 18O33OOO 18273000 18425400 
LARED AT 06070700 



06089100 06099400 

•• SUBROUTINE -- 
40101600 40292050 

— REAL -* OECL 
19900300 19900330 

— LABFL « DEC 
18220000 

— DEFINE — DECLARED AT 00079200 



DECLARED AT 40100000 

ARED AT 19900250 

19900370 19900420 *19900470*+19900480^ 19900520 
LARED AT 18208000 — OCCURS AT 18*01000 



02434490 O58423OO O58493OO 05960/ , 00 06103500 06103700 07001640 07272500 07301000 07371300 07426000 
07562000 08268000 08379000 0857U00 086?8000 08689300 O883OOOO 08880000 09617000 09638000 09680i00 
14379000 14360000 14588100 18033000 18273000 18425400 18841500 18844100 19768800 20035000 20H9700 
20150900 20582450 22010000 22906000 24043100 41320320 
LOpKv — nFFlNr — nFcLARpn aT 20219100 

205U665 
LOcN — RfAL ARRAY -- DECLAHED AT 04103000 

♦Q4104000* 04105650 04105850 04106000 04108000 
LOCN -- NAME -- DECLARED AT 04j27000 

*04?30000* 04232000 +04233000* 04234000 
LOCN -- NAME -" DECLARED AT 04260800 

*04312400**04312800* 043J3000 
LOCN — NAME -- DECLARED AT 04356800 

*04431200**04431600* 04431800 
LOCN — STREAM VARIABLE -- DECLARED AT 12225000 

♦12240000* 12241500 +12242000* 
LOCN — RFAL -- DECLARED AT 16698220 

♦ 16851200* 16851500 16851700 16852100 16853500 * 1 6853600** 16853700* 16854300 
L0 C N -- R F4 L — OFCLARFn AT 41327700 

♦41329200* 41329400 *4l329800* 41329900 4l330l00 41330600 41330700 4i33l900 41332300 ♦41332500* 
LOf, -- NAME « DECLaRFD AT 06183000 

*06i89000**06l92000**06l94000*4t06l94900* 06l95ll0 06195115 06l95l20 *06l98000**06l99000**0620i 000**06202 lOO* 
♦06203000* 06205030 06205040 +06210000* 062J.1000 06214000 06216000 062l7i00 *06220000**06222000**06223000* 
♦06226000++06230i00**06232000* 06234000 06236000 *06237000**06238000* 0624H00 *0624l200* 06243100 0624^000 
♦06249000**06253500* 06254000 06255000 06262000 *06265000* 06269000 06280000 06329000 

log •- Label *•- declared at 09701000 -- occurs at 09712000 

09704100 09705000 
LOG •• REAL ARRAY « DECLARED AT 15613000 

♦1 562 0000^« 1562 1000^*1 562 3 000** 1562 4000** 1562 5000* 15626000 1562 7000 
LOg •" STRFA M tARFL •- DFC^aRfd AT 18820800 « OCCURS AT 18821000 
LOraNOTweR — LABFL -- DFCUaReD AT 41327800 -- OCCURS AT 41329100 

41334700 
LOGARFAV — DEFINE — DECLARED AT 000i7570 

06?1'0000 12848cj00 
LOOCOMMENT -- PROCEDURF « DECLARED AT J5610000 

16607000 
L06ENTRY -- REAL — DECLARED AT 04121300 

♦ 04137120**41310/100* 41317500 *4 1 317600*^4 1 319000**4 1 319080**4 1 319100* 41330500 *4 1 330700**4 1 331000**4 1 33 1 100* 
41332300 41333500 *44188200* 

LOgfRfF " RFAL — nFCLARED AT 00425000 

♦05703500* 05704000 05722000 05724000 057 ? 8000 05728l80 *05729300* 06263100 08569300 *08569400**08570000* 
08570800 *OB570870**45092370* 
LOGMOlDfR -- REAL — DECLARED AT 04121200 

04137230 *04i37250* 04137270 *04l37280* 4i3i0600 *4i3l0700* 4l3l0900 *4i3ll000* 4l3l9020 41329200 *4l329800* 
*4l329900* 41333000 41333100 4i334400 *4 1 334700**4 i 334900* 41335000 *44l88200* 
LOGICLRC — INTEGER — DECLARED AT 04668450 

*04677450* 04685750 
L0G1NF0 -- REAL ARRAY — DECLARED AT 12502500 

12506000 12536500 12540000 * 12696000*+ 12696500* 12697000 12697500 * 12698500** 12699000** 12699500** 1 2700000* 
♦12700500* 12701500 *12702000* 12703500 12704000 
LOGINfO -- REAL ARRAY -- DECLARED AT 12802500 

♦ 12848500** 12850500* 12851000 ♦ 1 2852000*^ 1285 2500 ♦♦ 1285 3000*» 1285 3500 + + 1285 4000 ♦♦ 12854500 ♦♦ 1 2855000^ 12855500^ 
♦12856000**1 2856500**1 2857000**1 2857500 ♦♦12858000**1 2858500** 12859000** 12859500**12860000* 12887000 

LOgtNfO -- REAL ARRAY — DECLARED AT 13OO3OOO 

♦I3l.?80i0* 
LOGOUT — PROCEDURE -- DECLARED AT 08568000 — FORWARD AT 05606900 
057061.00 16783000 



LOGOUTMAINT -- PROCEDURE -- DECLARED AT 4i3l6000 — FORWARD AT 04121600 

16784500 41325700 41*30600 45135600 
LOGSIZE -" REAL -" DECLARED AT 04121170 

41316590 *41318?«0**41318610* 41318780 41318880 41330200 
LOGSPaCF — PROCEDURE -- DECLARED AT 05700000 

05730000 06280000 12703500 15626000 
LOrVERStON « OFFICE -- DFCLARrD AT 04121710 

4l3?0i00 4l32?i00 4l334l00 

LOK -- STREAM VARIABLE — DECLARED AT 15550000 

15552000 
LOK -- REAL •- DECLARED AT ?0702l00 

20703000 *?0744000**?0748000* 20765000 
LOOK -- LABEL -- DECLARED AT 06162200 -- oCCUrS AT 06463200 

06463780 
LOOK -- I.ABEL — DECLARED AT 37180500 -- OCCUrS AT 3/188500 

37195450 37195700 

look -- label -- declared at 39009000 -- occurs at 39095000 

39093500 
LOOKATDKB — LABFL -- DECLARED AT 40008050 •■* OCCURS AT 40249300 
LOOKFORTAPF -* RFAL SUBROUTlNp -- qfCLaRfd AT 12534500 

12541500 12547500 12622500 127l7000 
LOOKFORTAPF " DEFINE — DFCLARED AT 13022000 

1 3070000 
LOOKOUT -- LABEL -- DECLARED AT 39009000 -~ OCCURS AT 39155000 

39092080 39092i85 39094500 
LOOKQ -- REAL -- DECLARED AT 06179200 
L00K4TApE -- LABEL -- DECLARED AT 12514000 -- OCCURS AT 12622000 

12515000 
LOOP — STREAM VARIABLE -- DECLARED AT 04658700 

04660100 046603D0 *04660500* 04660600 
LOOP — LABEL -- DFcLaPFD AT 12371000 « OCCURS AT 12433000 

12447500 
LOOP -- LABEL « DEcLARFD AT 205660H -- OCCURS AT 20577325 

20578700 
LOOP -- LABEL — DECLARED AT 28?l0800 -- OCCURS AT 28241000 

28244400 26244800 
LOOP »- LABEL — DECLARED AT 28806000 -• OCCURS AT 28847000 

28852000 

loop -- label -- declared at 45003000 -- occurs at 45095000 
los -- real « declared at 24032700 

♦24038500* 
LOWLINK •- DEElNF « DFCLaRED AT 40008180 

40048000 40051000 40062000 40065020 40070000 40078038 40078040 
LO* «- LABFL -- DFCLARfd AT 20597750 -- OcCtjRs AT 20606200 

20597900 
LP — LABEL « DECLARED AT 04125000 -- OCCURS AT O4163OOO 

041?8000 
LP — STREAM VARIABLE — DECLARED AT O7OO364O 

07003690 07003860 
LP •• LABEL -- DECLARED AT 38661000 — OCCURS AT 38740000 

38662000 
LP — LABEL •• DECLARED AT 41005000 — OCCURS AT 41054000 

41006000 
LP — L ABF L -- DECL)>RFD AT 44020000 -- OCCURS AT 44137000 

441 38000 
LPAP^R « LABpL -- DFCLARpD AT 20389000 -- OCCURS AT 20462000 

20394900 



LPER -- REAL -- DEC|_ ARFD AT 37422000 

♦37426000* 37434000 37443000 37446000 
LPPTR -- STREAM VARIABLE « DECLARED AT 07003640 

♦07003710* 07003800 

lprint "- Label -- declared at 20393000 — occurs at 20466000 

20394900 
LPS — L ft RFL -- OFCLARFD AT 38201300 — OcCURS AT 38243000 

382*54500 
LPS — LarfL -- DFCLARFO AT 39009000 
LPUNCh -- LABEL -- DECLARED AT 20389000 -- OCCURS AT 20460000 

20394900 

LO -- STREAM LABEL -- DECLARED AT 02615000 -- OCCURS AT 02616000 
LQOVFi.OW — DEFINE -- DECLARED AT 00642200 

LR "• LABEL " DECLARED AT 16357000 — OCCURS AT 16577000 
16365000 

lrandom -- label -- declared at 20392890 — occurs at 20481900 

203Q4090 

lrfMOtf -• LarfL — declared at 20392000 — Occurs at 2o48iioo 

20396000 02615200 
LS — DFFlNE -- DFCLARFD AT 08J00750 -- O cC URS AT 026i5l00 

08101650 
LS -- LABEL « DECLARED AT 16699500 -- OCCURS AT 16744000 

16704000 
LS — LABEL — DECLARED AT 20586715 — OCCURS AT 20587550 

20587370 
LS — LABEL — DECLARED AT 20591550 -- OCCURS AT 20594350 

20591950 
LS — LABEL -- DECLARED AT 44020000 — OCCURS AT 44128000 

44129000 
LSLaTf "" REAL "- DECLARED AT 00023000 

♦02016000* 02017000 02018000 02019000 480j5200 48020000 48034000 48047000 

lsPfctal — label -- ofcLaRfd at 20393000 -- occurs at 20464000 

20396000 

lstcnt -- real -- dfclared at 06O688O0 

♦06086800* 06087600 06087900 *06°88000* 

LSX -- REAL « DECLARED AT 28003000 

LSX •- REAL « DECLARED AT 28401400 

28432000 28432600 28432800 28433000 28433600 *28444000**28458600* 

lt — label -- declared at 44020000 — occurs at 44117000 

44134000 

ltaPe -" label — ofcLaRfd at 20389ooo -- occurs at 20458000 

20394900 
LTT -- STREAM vARtABLf -- DfCLaRED AT 02434330 

02434365 
LUN -• REAL « DECLARED AT 02192000 

02195100 02197000 02199000 02200000 *0226 1 300+*02261 350^*02266000* 02266100 02267000 02270500 02275300 

02276100 02278000 02279000 02287245 02287250 02287254 02287255 02287260 02291000 02293000 02301000 

02308000 *02326000* 02327000 
LUN •- REAL -- DECLARED AT 02661000 * 

♦02663000* 02663100 02664000 02665100 02665150 02665200 02666000 02668000 02668500 02669000 
Lw -• LarfL — DFCLaRfd AT 18205000 -- OCCURS AT 18459000 

18362000 18370000 18400000 18430000 18432OOO 18432400 18447000 
LWRjTf -- LABEL — . DECLARED AT 18204000 -- OCCURS AT 18453500 

18315000 18322000 18328000 18337000 18346000 t8393000 
LWS — LABEL — DECLARFD AT 18202000 — OCCURS AT 18461000 
LX -- LABEL — DECLARED AT 04554300 — OCCURS AT 04588570 

04588170 



LO -- STREAM LABEL -- DECLARED AT 04273000 "" OCCURS AT 04273200 

04*74200 
LO -• STREAM LABEL — DECLARED AT 06074400 « OCCURS AT 06074700 
LO -- STREAM LABEL — DECLARED AT 08300400 •• OCCURS AT 08301000 

08645000 08647000 12234000 
tO — LABEL — DECLARED AT 15067000 -- OCCURS AT 15075000 

15069000 16823600 16824100 

LO mm stRfaM label -- hfcLaRfo at 20032750 -- occurs at 20032925 

LI — STRfAM LABeL -- nrCLARfO AT 02224000 -- OCCURS AT 02235000 

02?38000 
LI — STREAM LABEL -- DECLARED AT 02255200 -- OCCURS AT 02255500 
LI -- LABEL — DECLARED AT 02434135 — OCCURS AT 02434250 

02434195 02434210 
LI — LABEL — DECLARED AT 04125000 — OCCURS AT 04201000 

04196800 

Li — stream label -- declared at 04273000 -- occurs at 04273400 
Li •• label -• declared at 04357200 — occurs at 04377200 

04360600 04390000 04410400 

Li — stream Label — declared at 04360600 — occurs at 04361000 

Ll -- LABEL -- DECLARED AT 04670650 -- OCCURS AT 04677200 

04675600 0<j676fl00 
Ll -- STREAM LABEL — DECLARED AT 05710000 -- OCCURS AT 0571J0OO 

06075300 06075900 06079200 
Ll — LABEL — DECLARED AT 06351500 -- OCCURS AT 06353500 

06351800 
Ll — STREAM LABEL — < DECLARFD AT 07066350 -- OCCURS AT 07066500 
Ll -- REAL -- DECLARED AT 07299000 

♦07313000* 07318010 07319000 
Ll — STREAM LABEL — DECLARED aT 07464000 "- OCCURS AT 07464100 
Ll "• STRFAM LABEL -- DECLARED AT 08108350 -- OCCURS AT 0810S450 

li -- stream label -- declared at O8300400 -- occurs at 08300800 

08437900 08597400 
Ll -- STREAM LABEL -- DECLARED AT 08690140 -- OCCURS AT 08690170 

08690150 08690^60 08739000 
Ll -- STREAM LABEL •- DECLARED AT 08807000 « OCCURS AT 08814000 

08808000 12228500 12229000 12230500 12319000 
Ll — STREAM LABEL — DFCLARED AT 12658000 " OCCURS AT 12659000 
Li — LABEL — DECLARED Al 15067000 — OCCURS AT 15077000 

15069000 

Li -- stream Label — declared at 15552200 -- occurs at 15552400 

16037800 
Ll — STRFAM LaBFL -- DECLARED AT 16823400 " OCCURS AT 16823600 
Ll •• STRfA m LaBfL -- hECLaBED AT 17003850 -- OCCURS AT 17003900 
Ll — STREAM LABEL -- DECLARED AT 17910500 -- OCCURS AT 17912000 
Ll •- LABEL — DECLARED AT i 9695000 -- OCCURS AT 19700000 

19703000 19704000 19704100 19710000 
Ll -" LABEL -- DECLARED AT 19901600 — OCCURS AT 19903970 

19903980 
H — STREAM LABEL — DECLARED AT 20032750 — OCCURS AT 20032900 

20055200 20600350 
Ll — LaREL -- DECLARED AT 20701000 — OCCURS AT 20771100 

20730000 20732000 

Ll -• Label -- declared at 24111000 -- occurs at 24130000 

24132000 
Ll — INTEGER — DECLARED AT 37422100 

♦37431000* 37433000 
Ll — LABEL -- DECLARED AT 38363000 — OCCURS AT 38458000 



LI - 
LI " 

LI 

L10 
Lll 
L12 
LI 3 
L14 
L15 
L16 
L17 

L? 
L2 
L2 

L2 

L2 

L2 
L2 

L? 

L2 
L2 

L2 

L2 

L2 
L2 

L2 
L2 

L2 
L2 

L2 
L2 

L2 

L2 

L2 

L2 - 



38470000 

- LABEL, -- DECLARED AT 4)007200 

- STREAM LABEL -- DECLARED AT 41606400 " OCCURS AT 41606800 



occurs at 42501900 
- Occurs at 15091000 
dfclaRfd at i5067ooo -- Occurs at 15091000 

DECl ARED AT 15067000 — OCCURS AT 15091000 
DEC| ARED AT 15067000 -~ OCCURS AT 15091000 
DECLARED AT 15067000 — 



DECLARED AT 15067000 
DECLARED AT 15068000 
DECLARED AT 15068000 



OCCURS AT 15091000 

OCCURS AT 15091000 

occurs at isoaaooo 

Occurs at 15039000 



- LABEL -- DECLARED AT 42483000 
42501700 42501*00 

•• LarEL — DECLARFD AT 15067000 
15069000 

-• LarfL — 

15069000 
»- LABEL 

15070000 
-- LABEL -- 

15070000 
-* LABEL — 

15070000 

-- label -• 

15070000 

-- Label -• 

15070000 
-- LARFL -- 

15070000 
•• STREAM LABEL — DECLARFD AT 0?234000 -- OCCURS AT 02?4l000 
.. STREAM LABEL -- DECLARED AT 042/3000 « OCCURS AT 04273600 
'- LABEL -- DECLARED AT 04357?00 — OCCURS AT 04386600 

04360600 04388400 04411000 04423400 
•- STREAM LABEL -- DECLARED AT 04360600 — OCCURS AT 04361200 

•- strfam label — declared at 05710000 -■ occurs at o57iisoo 

06028000 
'- STRFAM LaBfL — nFCLARED AT 06074700 « OCCURS AT 06074900 
•- STRfAM LABpL — DECLARED AT 06078300 « OCCURS AT 06079900 
•- LABEL -- DECLARED AT 06351500 -- OCCURS AT O638O1OO 

06351800 
•- REAL « DECLARED AT 07299000 

♦07312000* 07314H0 073l4l?0 O7321J00 07324000 07330300 

- STREAM LABEL — DECLARED AT 07464000 
07464100 

- STREAM LABEL — DECLARED AT 08112350 
08437950 08597450 

'- STREAM LABEL — DECLARED AT 08644000 

■- strfam Label — declared at o«69o23o 

— strfam label -- declared at 0874oooo 

08745000 
•* STRFAM LABEL -- DECLARFD AT 08813000 

- STREAM LABEL -- DECLARED AT 12226500 
12227000 

- STREAM LABEL — DECLARED AT 12659500 -- OCCURS AT 12660500 

- LABEL — DECLARED AT 15067000 -- OCCURS AT 15078000 
15069000 16040000 

- stream label — declareo at 1700*1200 — occurs at 17004250 

- Label — decl a rfd at 19695000 — occurs at 19709000 

19714200 

— Label -- declared at 19901600 -- occurs at 19904000 

19904030 
•- STRFAM LABFL •- DECLARED AT 20053700 •• OCCURS AT 20054400 

- STRfAM LABFL -- DECLARED AT 20600290 — OCCURS AT 20600320 
20600320 

• LABEL -- DECLARED AT 2070lOOO — OCCURS AT 20780000 



occurs at 07464100 

occurs at 08112550 

occurs at 08647000 

occurs at 08690230 

occurs at 08747000 

occurs at 08815000 

occurs at 12228000 



20734000 
L2 ■— LABEL -- DECLARED AT 38363000 -- OCCURS AT 38471000 

38460000 
L2 -• LABEL -- DECLaRED AT 41007200 
L2 -• STREAM LABEL -- DECLARED AT 41606T00 " OCCURS AT 4160f000 

L3 -- strfam Label -- declared at 04273000 -- occurs at 04273800 
L3 -- strfam Label -- declared at 04360600 -• occurs at 0436H00 

L3 — STREAM LABEL -- DECLARED AT 05710500 -- OCCURS AT 05712000 

0571 1000 
L3 -- STREAM LABEL -- DECLARED AT O6O8O3OO -- OCCURS AT 06081500 

06081500 06082000 060«?800 
L3 — LABEL « DECLARED AT 06351500 — OCCURS AT 06381300 

06351800 
L3 — REAL '- DECLARED AT 07299500 

♦ 073H500* 073HH0 073J412O 07314290 07321100 07326100 07330000 07330200 07330400 
L3 -- STRFAM LaBEL -- DECLARED AT 08437750 -- OCCURS AT 08438100 

U3 -- strfam Label. -- declared at 08597250 — occurs at 08597600 
L3 -- strfam label — declared at os64600o « occurs at 08649000 

L3 — STRFAM LABEL -- DECLARED AT 08690210 « OCCURS AT 08690300 

08690230 08742000 

L3 — STREAM LABEL -- DECLARED AT O6813OOO -- OCCURS AT 08820000 

L3 -- STREAM LABEL — DECLARED AT 12228000 -- OCCURS AT J2233000 

L3 — STREAM LABEL — DECLARED AT 12662000 — OCCURS AT 12663000 

L3 — LABEL — DECLARED AT 15067000 -- OCCURS AT 15079000 

15069000 

L3 -• STREAM LABEL — DECLARED AT 17004100 " OCCURS AT 17004600 

L3 — LABEL -- DECLARED AT 19901600 — OCCURS AT 19904020 

19903990 

13 — stream Label. — declared at 20334000 -• occurs at 20347000 

20344000 

L3 -- Label. -- dfcl^rfd at 38363000 -- occurs at 38474000 

38450000 
L3 -- LABEL — DFCLA^ED AT 41007200 

L4 -- STREAM LABEL — DECLARED AT 04273000 -- OCCURS AT 04274000 

L4 «- STREAM LABEL — DECLARED AT 04360600 — OCCURS AT 04361600 

L4 •• STREAM LABEL — DECLARED AT 0608160Q " OCCURS AT 06081700 

L4 — STREAM LABEL — DECLARED AT 08690120 " OCCURS AT 08690250 

08690250 08745000 

L4 — STREAM LABEL — DECLARED AT 12232500 — OCCURS AT 12240000 

L4 — L.ABE'- -" DECLARED AT 15067000 — OCCURS AT 15093000 

15069000 

L4 •»• LaBfL. — DECLaRtd AT 19901600 — OCCURS AT 19904050 

19904000 

L5 — STREAM LABEL — DECLARED AT 04273000 « OCCURS AT 04274200 

L5 — STREAM LABEL — DECLARED AT O436O6OO — OCCURS AT 04361800 

L5 -• STREAM LABEL -- DECLARED AT 06081600 -- OCCURS AT 06082400 

06081900 

L5 -- STRFAM LABEL — DECLARED AT 08739500 — OCCURS AT 08744000 

L5 — LABEL -- DECLARED AT 15067000 -- OCCURS AT 15091000 

15069000 

L6 — STREAM LaBEL — DECLARED aT 04273000 " OCCURS AT 04274400 

L6 — STREAM LABEL -- DECLARED AT 04360600 -- OCCURS AT 04362000 

L6 -" stream Label -- declared at O6O83000 -- occurs at 06O83100 

08748000 
L6 — LABEL -' DECLARED AT 15067000 -- OCCURS AT 1509i000 

15069000 
L6 -. LABEL -- DECLARED AT 182O4OOO -- qCCURS AT 18438000 



18712000 
L7 "- STREAM LABEL — DECLARED AT 042/3000 "" OCCURS AT 04274600 
L7 — STREAM LABEL — DECLARED AT 06083000 — OCCURS AT 06083500 

08751000 
L7 — LAREL — UECLaREH AT 15067000 — OCCURS AT 15091000 

15069000 
L7 -p LarfL -- DEC^ARFn AT 18204000 — OCCURS AT 18432500 

18212000 18436000 
L8 -- LABEL -- DECLARED AT 1506/000 -- OCCURS AT 15091000 

15069000 
L8 — LABEL -- DECLARED AT 182O4OOO -- OCCURS AT 18444OOO 

18?1?000 
L9 -• LABEL -- DECLARED AT 15067000 — OCCURS AT 15091000 

15069000 
M •- REAL -" VALUE PARAMETER -- DECLARED AT 00452800 

00452600 00452700 
M -- REAL " VALUE PARAMETER -" DECLARED AT 02393500 

02393400 
M — RfaL — VALUr PARAMFTrR — DECLaReo AT 0?696100 

02696000 0?696i00 
M •«• REAL — DECLARED AT 04552000 

*04568400**04568/|70* + 04575000* 0/(579000 O46562OO 
M -• STREAM VARIABLE -- DECLARED AT 04656?00 

04656700 
M — INTEGER — DECLARED AT 05608000 

♦05612000* 05614000 
M — STREAM VARIABLE — DECLARED AT 05634000 
M mm INTEGER — DECLARED AT 08306000 

*08308000* 08310000 
M — STREAM VARIABLE " DECLARED AT 08310000 
M •- REAL -" DECLARED AT 08318000 

08318200 *08326000**08329000**0«33l()00* 08332100 *08332«00* 08333000 
M — STRrA M VARIABLE — OECLaRfO AT O83182OO 

06318400 08318500 
M -- STREAM VARIABLE -- DECLARED AT 08333000 

O83341OO 08335000 
M — STREAM VARIABLE -- DECLARED AT 08365000 

08365200 08365100 
M " INTEGER -- DECLARED AT 08528000 

♦08531000* 
M — STREAM VARIABLE — DECLARER AT 19768768 — ' OCCURS AT 15411000 

19768776 
M -- STRFAM VARIABLF -- OECLARFD AT 28291?00 

28292200 
M -- STREAM VARIABLE — DECLARFD AT 309?OoOO 

309?l000 30922000 
M — STREAM VARIABLE — DECLARED AT 32000510 

32000520 
M — STREAM VARIABLE — DECLARED AT 37256000 

37257000 
M — STREAM VARIABLE — DECLARED AT 37314000 

37316000 *37316?00* 

m — real -- value parameter — declared at 37357500 

37357300 37357400 
M — STRFAM VARIABLf — DECLARFD AT 41322500 

41322820 
MAGTAPE « REAL SUBROUTINE -- DECLARED AT 37020Q00 



370^5000 37036000 370*6140 370*6800 37H3000 
MAINL00P -- LABEL " DECLARED AT 13019000 -- OCCURS AT 13106000 

13113000 13129000 
MA1NT -- LABEL " DFCLARFD AT 09701550 -- OCCURS AT 09720650 

09706050 
MAJNTnUEEAREAV — DEFINE " DECLARED AT 00017280 

04278200 04365400 04555250 0595p995 08385100 08410000 14411820 41312700 41314000 41323130 41328600 
MAINTRUFFFR — REAL ARRAY — DFCLARED AT 04121950 

+ 04U?l00**04l37j60**04l37202* 0*137215 *04n7220* 04137250 04i37275 04l37?80 *04 I46i00* + 04 150 lOO* 44179050 
MA!NTL0r,ARRAY — RFAL ARRAY -- DECLARED AT 04121400 

413?3300 41327300 *44l882Q0* 
MAiNTLOr,GER -- PROCEDURE -- DECLARED AT 4i3p700n -- FORWARD AT 04121650 

04137260 4l3l0fi00 41335200 
MAKEIODS — SURROUTINF — DECLARED AT 39031000 

390*8000 39145000 39231000 39245000 39293500 
MAKEMESS -«• SUBROUTINE — DECLARED AT 04359000 

04364600 04376400 04382200 04386600 04392800 0*396000 04404600 04416200 
MaKfMLOt, — DFFINF — DECLARED AT 04370600 

04377000 04382000 04387000 04393400 04395800 04405400 04416600 04421400 
MAKFPRESENT *- LA8FL -» DFCLARFD AT 00030000 -- OCCURS AT 00037000 

00052000 
MAkEPRESENT » PROCEDURE -- DECLARED AT 1*155000 -- FORWARD AT 02696200 

14218045 14302000 j43583?5 18520800 i8«552600 18720300 i8740i00 19582000 19765000 19904600 20l92500 

31O08000 31.017400 42486000 42525140 425?6000 42531000 42537050 42538000 48032700 48109000 
MAKESAVr "" SURROlJTINr — DFCLaRED AT 44037200 

44202119 

MAKFTHFMESSACiF -- SURROUTINF " DFCLARFD AT 08H5100 

08U5700 06116900 
MARKER — DEFINE — DFCLAREO AT 4)430400 

41436600 41449800 41479800 4l489iOo 4J493100 41500300 41500600 415O2OOO 
MARKLEVEL — DEFINE -- DECLARED AT 000050i0 

15501500 20289390 44203000 
MASK -- REAL -- VALUE PARAMETER -- DECLARED AT 00019000 

OOO18OOO 00019000 
MASK — . REAL ARRAY -- VALUE PARAMETER « DECLARED AT 00021000 

000?0000 
MASK -- REAL ARRAY -- VALUE PARAMETER — DECLARED AT 02003000 

02000000 02001000 02008200 

mask -• real — value parameter " declared at 02022000 
mask — rfal -- declarfd at 02434125 

♦02434445* 02434532 02434534 02434600 02434630 02434760 02434770 02434800 
MASK — RfaL -- VaLijF PaRa m ETER — DFCLaRfD AT 04242000 

04240000 04241000 *04245000* 0*246000 04250000 04251200 

mask • « stream variable — declared at 04251200 

mask — real — declared at 04259000 

♦04304600* 04304800 *04325800* 0*326000 *0433p600* O4333OOO O43332OO 
MASK "" REAL -" DECLARFD AT 04356000 

♦04373000* 04373?00 04378800 04419000 
MASK -• REAL — VALUE PARAMETER " DECLARED AT 08599000 
08605000 

mask — stream variarle — declared at 08605000 

08607000 

mask — rfal — dfclaRfd at 08626000 

♦08667000* 08671000 
MASK -• LABEL •- DFCLARFD AT 0970i000 -- OCCURS AT 097190,00 

09708000 
MASK -- REAL -- DECLARED AT 38006000 



♦380^5000**38042000* 38043000 *38049300* 380«9700 #38053000* 38053500 38054000 *3806700o**38070000* 38O88OOO 

mask «•• real -- declarfd at 38io26oo 



381054 00 38105500 * 381 26500**38 1 27000**38128000**38 1 30 500**38 1 39000* 

-- DFCLARrn AT 38200600 



m a sk •- r fa l 

38203400 38203500 * 38263000**38292500* 
MASK -- RpAL — OFCLARFO AT 39004000 

*39044000* 39046000 
MAX -- REAL -- DECLARED AT ?8003600 
MAX •- REAL -- OFCLARFO AT ?840l600 

28428000 *28456400* 28457000 
MAXINT — REAL •- DFCLARED AT 09501000 

♦09505600* 09506000 09506100 09506500 *09507000* 09507500 09508600 
MAXMIX -- REAL — DFCLARFD AT 12355000 

♦12385000**12390000* 12398000 12*37000 12442000 
MAXMVSIZF — DEFINE — DECLARED AT 06071000 

06095000 
MaXOL A Y -- REAL -" nECLARFO AT 12355500 

♦12413000* 12421000 *124?2000* 12426500 
MAXROwS — DEF?Nf « DFCLARED AT 37501500 

37538500 
MAXSIZ -- DEFINE -- DECLARED AT 057800i0 

05*42475 05842700 O5844935 O58454OO 0584942° 05852700 05974200 O5975OOO 
MAXV •- DEFINE — DECLARED AT 20247920 

20507000 20507100 
MAXVALUE — REAL " DECLARED AT 12356000 

♦12435500* 12438000 *1?439000* 12444000 

maybe — define -- declared at 37007200 

37046740 37046825 
MAYBEWORKEDON — FlEUn -- DECLARED AT 00027Q00 

00036000 00037000 00039045 00047000 00050000 
MC •• LabfL •- DECLaRFD AT 16700500 — OCCURS AT 16806000 

16705000 
MCP -- DEriNE -- DECLARED AT 00013600 

04i05550 064639?0 07?62l00 08276365 09683l00 j454i000 )85?2300 ^8528200 2°289n3 20289^52 ?°5l 1 3 1 ■> 

20511665 20575^50 20578050 20593600 20602300 20603570 20605750 20740000 22069212 28282800 284l6400 

38077000 38217000 38491000 41602400 41603900 45094400 45099800 

mcp •* Label -- declared at 22236000 -- Occurs at 22335000 

22297000 
M CP8ASE " «FaL — ' nFrLARFO AT 00024100 

00042000 09681600 41325400 44O373OO *44Oft300O* 
MCPFRFE -• DEFINE — DECLARED AT 000816/0 

096^7000 09680000 44253500 
MCPJOB — REAL « DECLARED AT 2OO126OO 

20055500 
MCPJOB -" REAL — DECLARED AT ?0081800 

20100800 20105000 20105400 
MCPJOB -- REAL •- DECLARED AT 20142200 

♦20152100* 20152200 201523O0 *2015280O* 20153500 20158500 20164200 20165300 20174300 20176132 
MCPMAS* *• DFF1NE " DECLARED AT 00081670 

09637000 09638000 09647000 09680000 09680100 09682620 
McFNaMfSFG — OFFICE « DFCLaRfD AT 00024910 

15501300 44202700 44202900 
MCPTabLfAREAV -* DEFINE -- DECLARED AT 00017540 

441 52000 
MCpTEmP •- REAL — DECLARED AT 22235620 

♦22294120* 22429230 
MCpTYpE -- DEFINE -- DFCLARED AT 000051OO 



09681505 
MDELTa " RFAL — DFCLARFD AT 04121050 

41319700 41320460 *4l32l750* *H32890o 
41333300 *44188200* 

MdumPaRfav -- nFFjNr — nFCLARFn at 0001756ft 

02434430 
MDY -- STREAM VARIABLE « DECLARED AT 0e33300O 

08335200 08335800 
MEMASk -- REAL -- DECLARED AT 02393800 

02434570 *44106000**44122000**44128200* 44203150 
MEMASK " STREAM VARUBLF « DECLARED aT 442031.50 

44205300 
MEMNO — DEFINE — DECLARED AT 00081982 

22007100 P4036125 



41330200 41330400 41331700 41331900 *41332000* 41332300 *4l332700* 



DECLARED AT 00009000 



DEFINE 

22007000 
MEMORYPaRITY — LABEI 

48102000 
MpND m * HFF1NF « DFCURFD AT 00077000 
M£N — RfaL — DFCLaRfD AT 44012000 

440|4000 *441t?000* 44U4000 44115000 
MENQ — . REAL — DECLARED AT 44206800 

44907000 
MEND -- REAL •- DEClARK) AT 4500??00 

45002300 45002600 
MES »- REAL — DECLARED AT M164200 

14204100 1.4204600 14205200 14205300 
MESAGESPACE •- REAL .— DECLARED AT 20085700 

♦20106000* 20111600 20111620 20118350 
M F5AGFSPACF "" STREAM VARTARl-F — DfCLaRFO 
MeSS -p RpAL — DFCLARFD AT 24042550 

24042650 *24042675* 24042680 24042700 24042875 
MESS •<- STREAM VARIABLE -- DECLARED AT 24042700 



OCCURS AT 48134000 



44ii6000 44136000 44l48i00 44148200 



14205500 

20118370 *20118390* 
AT 2Q111620 



24043700 24044400 24045600 



MESSAGE 

message 
mfssarf 



messareholdeR « 
02120000 

messagetablf — 
02218000 

17003000 



-- VALUE 
00451900 

-- VALUE 
02132400 
02173000 



DFCLARFD AT 00452000 



PARAMETER -- DECLARED AT 02132500 
02133000 *02134000* 02134005 02136000 
02173150 02173389 

DECLARED AT O62O6U0 



Occurs at H644ooo 



message — Real -- value paramfUR 
00451800 

-- REAL 
02132300 
02144500 

"- SUBROUTINE 
06328100 

— LaBfL -- DFcLaREO AT 14627200 
14636100 14639000 14641000 14642100 

RFAL — DECLARED AT 00402000 
02123000 02124500 *02126000**02l 29000* 
REAL ARRAY -- DECLARED AT 00435000 

0?2l9o00 08604000 O86O41OO 08631000 0863ll00 08690000 08690020 
?060ift60 20601720 2060^740 309^5000 309^7000 *41502l00* 4i50?300 
MESSAGETABLEBUILDFR « PROCEDURE " DECLARED AT 41430000 — FORWARD AT 00491000 
40339000 41500200 

— DFFINE -- DECLARED AT 00436000 
41501P00 44151055 44165700 
PROCFDUPF — DECLARED AT 02114Q00 



02139000 02140000 02141000 02142000 02142100 



02135000 *02i36000* 02139000 *02141000* 16224000 *16239000* 

I6O411OO 16041110 17002000 
44165700 



MESSAGETABLESIZE 

41500500 
MESSAGEWRITER " 

02137000 
MF — STRFAM V A RlABLF 

28249000 
MFID — «FAL -- DFCLARFD AT 08099350 

08l0t950 OBlOpoOO O81O2O5O *08l02n00* 08i04900 
MFID — DEFINE <■- DECLARED Af 08255900 

08259225 08268500 



DECLARED AT 28248600 



MF ID 

MFID 
MFID 

MFID 

MFID 
MFTD 

MFID 



MFID 
MFID 

MFID 
MFID 
MFID 

MFID 
MFTD 
MFTD 
MFID 
MFID 
MFID 
MID 

Mm 

MID 
MID 
MID 
MID 

MID 

MID 

MID 

mid 

MID 
MID 



-» REAL -" DECl.ARFD AT 12503000 

12537000 12562000 12590000 12630000 12632000 

— REAL -" DECLARED AT 12603000 
-- REAL -• DECLARFD AT 13001000 
"- RFAL -- DECLARFD AT 19688050 

♦19696600* 19698000 196*9000 19767900 19766200 

•- strfam variarlf " declared at 19768200 
-- Real « declarfd at 26ooo60o 

?80u200 ?80nft30 28^13600 28O874OO 
-- REAL -- DECLARED AT 28?01000 

28?i?000 *?8253?00* ?8?63400 28266400 26?708i6 
28299600 *28307720* 28307725 

— stream variable -- declared at 28263400 

28263600 

— RfaL — DECLARFD AT 28400600 
28408400 284l5?00 28415250 284l5«00 284)7000 



* J 26 7 7 500** 12687000* 



19799000 



28270820 28?8i600 28283600 28287000 ?829l200 28296400 



NAME PARAMETER 



♦28467600* 28468000 
•«■ STREAM VARIABLE 

28411800 
m m STREAM VARIABLE 

28422200 
-- REAL -- DECi.ARFD AT 38007000 

38013010 *380l3C30* 38013100 3R01A62O 
♦38087000* 
— RfjaL -- DECLARFD AT 38102700 

38105800 38113000 38151000 38158500 



28419000 28419600 28425400 28426000 28446300 28447800 
284; 
DECLARED AT 28411200 

DECLARED AT 28421600 



28468200 28473200 *2847 3400**28476400* 28476800 *26480000* 

- name: parameter 



DFCLaRED AT 38159500 



-" STREAM VARIABLE " 
38160500 

— - Real -- declared at 38*00700 

38903800 382135°0 38231500 38?5i500 
-- REAL -• DECLARED AT 39004100 

*3909i000* 39143000 
-- REAL — DECLARED AT 413J6400 

*4l3l7800* 4l3l8-*70 41320360 41320400 
— REAL -- DECLARED AT 41600300 

♦ 41600900**4 1601300**4 1601700* 41.602200 

-- rfal -- valuf parameter 

00371000 00372000 

•- RfaL -- vaLuf PaRaMeteR 

00374000 00375000 

valuf parameter 

00390)00 

val.de parameter 

00394000 

DECLARED AT 05950600 
05953130 05953135 *059536O0* 05953800 
- DECLARED AT 05953135 



380i4900 38045120 38045400 *3fi059n00^ 38077500 38080500 38081000 
38159500 *38163500* 38164500 



38 ? 75500 38287000 38 ? 96750 



41320600 41321600 41322500 



41607200 



Rfal -• 
00390000 

RFAL -• 

00393000 

REAL — 
05950800 
STREAM VARIABLF 



DECLARED AT 00373000 

DECLARED AT 00376000 

DECLARFD AT 00390200 

DECLARED AT 00395000 



05964000 * 05967900** 05 969000** 0597540 0**05 9761 00* 



05953160 

stream variable — declared at 0596*000 

Real -- value Parameter « declared at 06460200 

06460000 06460100 06463200 06463225 06463240 06463560 *06463600* 06463660 

RFAL — DECLaRFD AT 14624100 

STREAM VARlABLr -- DECLaRED AT 2844*200 
28444600 

REAL -- VALUE PARAMETER -- DECLARED AT 37002000 
37000000 37001000 

REAL -- DECLARED AT 37004100 



37046630 37046730 37046840 37046980 370470?0 37047650 37048000 37085000 371000J0 37112000 37113000 

37113100 3 / 1 1 3 ? 37174000 

Mln -- RFAL — VALlJF PARAMETER " DECLARED AT 37179000 

37177000 37178000 37l87l00 *37 187 1 30* 37191000 37197000 37i99000 37?l6000 37224200 *37?3?000* 37235750 

♦37236500* 37240?00 37240400 3724??00 37242800 37262000 

Mm — RFAL •- VALUF PARAMETER — DECLARED AT 37286200 
37286000 37?86t00 37?9?S0O 

MID • • RFAL -- VALUF PARAMETER -- DECLARED AT 373*2000 

37337000 37339000 37346000 
MID »- RFAL — VALUF PARAMETER « DECLARED AT 37420000 

37418000 37419000 3742*200 37428100 
MID -- REAL -- DECLARED AT 38362000 

38401000 38411500 38453000 38456000 38461000 38464000 38499000 38509000 38512000 38513000 3850000 

38518500 
Mm -• RFAL -- DFCLflRrn AT 38547000 

38610200 

mid -- Real « declared at 38655000 
mid -- real — declared at 41003000 

41O46OOO 41190800 
MIDNIGHT -- DEFINE -- DECLARED AT 09393200 

06188100 I562?n00 20J57700 220l?000 22909000 
MIDPTR •- REAL « DECLARED AT 28003800 

28004000 
MIDPTr — REAL " DECLARED AT 28401600 

28444200 *28445800# 
MINE -* RFAL — DECLARED AT 14157000 

♦14186020**14186150* 14186160 *14194000* 14196000 14197000 14198000 14198J00 14203000 14203010 14203020 

14203200 14203300 14206000 14206135 14207000 14209100 14209300 14212100 14217500 14218010 14220000 
MJNSJ7F -- DFFtNf « OFCLaReD AT 06070900 

06111000 061 1 1 1 00 06111700 
MIRID -- LABEL •- DECLARED AT ?05666l0 -- OCCURS AT 20570340 

20570510 
MISSL — LABEL -- DECLARED AT 44019000 -- OCCURS AT 44191595 

44191145 
MIX •- REAL -- VALUF PARAMETER -- DECLARED AT 00379700 

00379600 

mix -" rfal -- value parameter " declared at 00463100 
mix «-- real -- valuf parameter -- declared at 02025000 

02026000 02027000 

mix -• RfaL -- valuf paRamftfR -- declared at 02032000 

02033000 02034000 

mix -• integer -- vaLuf parameter -- declared at 02055000 

O2O53OOO 0?054000 0?065000 0?>079000 

mix -- integer -- declared at 02133010 

♦02134005* 02140000 

MIX -- REAL — VALUE PARAMETER -- DECLARED AT 02180000 

02181000 02182000 02184000 02186000 02186050 

MIX -- INTEGER -- VaLUF PARAMETER — DECLARED AT 02697770 

02697750 02697770 

mix •• real •• valuf parameter — declared at 04002000 

04000000 04001000 

mix -• RfaL « valut PaRamftfR -- declared at 04121550 

04121500 04121550 

mix -- real -- declared at 04258000 

04271800 04278600 04779000 O4283OOO *04284400* O43OO6OO O43O16OO 04302?00 04316000 04333400 04352200 
04352600 
MIX •- STREAM VARIABLE « DECLARED AT 04271800 



MIX — REAL -- DECLARED AT 04356500 

04359600 04365800 04366200 04366800 +04372050* 04376600 04383400 043*6800 04393000 O44O48OO 04416400 
MIX — RFa^ "- PFCLfiRFn AT 04554100 

04567600 04567830 04568590 *04569l00* O4626OOO 04647050 04648000 04648050 
Mjx »- RFAL -- DFCLaRfD AT Q4668550 

04671800 04672700 04673150 *04673850* O467485O 04675250 04678i00 04678350 O468O1OO 0468i950 04683800 

04686350 04687050 
MIX -• INTEGER ■» OFCLARED AT 06t84l00 

*06l90j00* 06193000 06193500 06194000 06194900 06195 1 18 06?03000 06?03600 06203700 06204000 062050i0 

06205020 06205050 062D5100 06205200 06206000 06206140 
MIX mm STREAM VARIABLE — DECLARED AT 06206140 

06206160 
MIX — INTEGER -- VaLUF PARAMETFR — DECLARED AT 06402000 

06400000 06401000 06411000 064H010 06412000 06416000 06417000 06417500 06418000 06421000 06422000 

06423000 06424000 06426000 
MIX -• RFAL -- VALUr PARAMETER — DECLARFn AT 07485000 

07501000 07502000 07503000 0/504000 075H000 
MIX -- STREAM VARIABLE — DECLARFD AT 07504000 

07509000 
MIX — REAL -- VALUE PARAMETER -- DECLARED AT 08732000 

08730000 08731000 08759000 08760000 08763000 08764000 08767000 08768000 08771000 08772000 08774000 

08784000 08787O00 08789000 08791000 08798500 
MIX -- STREAM VARIABLE -- DECLARED aT 08774000 
MIX — STREAM VARIABLf -- DECLARED AT 08791000 

08793000 *08793500* 
MIX •- RFAL — DFCLaRFP AT 12356500 

♦ 12390000* 12392000 12395500 *12398000* 12398500 12399000 12400000 *J24l3500* 12414000 12*14500 12*15000 
12416000 I2'»l7000 I24l8500 12*19000 I24i9500 I24i9600 12*20500 12*21000 12421500 12*22000 12422500 
12423000 *12*2*700* 12*25200 *12*37000* 12437500 12438OOO 12439500 *ip442000* 12442500 12*43000 12444000 
12445500 

MIX — INTEGER « VALUE PARAMETER -• DECLARED AT 14107000 

14105000 14106000 14113000 14117000 
MIX -• REAL -- DECLARED AT 15111900 

♦ 15113100* 15113300 15113400 15113500 15H4300 15114600 1511*700 15115000 15H5400 15115900 

mix — real — vaLuf parameter -- declared at 15400000 

15404000 15*18000 15419000 15*22000 1542*000 15426000 15437100 

Mix •• strfaM vaRtarLf -- dfcLaRfd at 15*26000 

15429000 *i5429500* 

mix -- Real -- name parameter •- declared at 1603*900 

160^6200 16O4O0OO 16041200 16041550 I6O4364O #16043660* 
MIX -- STREAM VARIABLF — DECLARED AT I6O362OO 

16037500 16O4O4OO 16041650 
MIX mm rfaL «- DFCLARFD AT IAO48OOO -- OCCURS AT 16041550 

♦ 16073000* 16103000 16112000 *16115000* 16H6000 16117000 16118000 16118200 16121000 16123000 1612*000 
16163000 16163200 16164000 16176000 16178000 16181000 16199000 *16205000* 16206100 *162l7000* 16229000 

♦16241500* 16247000 16251000 16257000 16258000 16343100 16343950 
MIX *• RFAL — DEcLaRFD AT 16349000 
♦16374000* 16588000 16689450 

mix •• RfaL -- decLaRfd at 16694000 

16694500 16698000 *i67n000* i67 135O0 16741000 *i674i250* 16788000 168O3OOO 1685O7OO 168511OO 16851200 
16853109 16853500 16854600 16854700 16902950 

mix -- stream variablf — declared at 16854600 
16855200 

MIX — REAL -- DECLARED AT 16909500 

16910000 16926010 16928000 16929000 1693OOOO 16948000 16948500 16950000 16954000 16956000 I69560g0 

16956090 16957500 

MIX •• REAL « DECLARED AT 19901500 



Mix »• 

mix — 

MJX — 

MIX — 

MIX • «• 



19903820 x.19903830* 19903850 
DECt-^RFn AT 20012300 

20059400 ?0060400 
AT 20081500 
?009i500 2009^600 
?01?1800 2O1??]00 



20050000 

decLaRfd 

2009id00 
20J19900 



DECLARED AT ?0lO130O 
DECLARED AT ?0105900 



DECLARED 
20167900 
20J73300 
20l79j00 
?0l93400 
20198500 



AT 20141900 
20169600 20169800 



20173800 
20179220 
20194300 



20173900 
20180000 
20194400 



MIX •• 

MIX •»• 

MIX -" 

mix -• 
mix -- 

MIX -- 

MIXCOOE 
MIXER 



#19903810* 
RFfiL « 

20037200 

Rfal -- 

2009j000 
20H8600 

STREAM VARIABLE 
20i0l700 

STREAM VARIABLE 
20106600 

REAL — ■ 
♦20J67800* 
20173200 
20178900 
20193300 
20197600 

STREAM VARIABLE 
20607160 

REAL - 
22260000 
22356140 
22413010 

TNtFGFH 
24101000 

Real - 

32000000 

STREAM VARJABLF 
32001300 

Real *■ 

41312000 
41314500 
-- REAL — DECLARED AT 16910000 
♦16997500**16928000* 16947000 16949000 



19903860 J9903900 19903910 19904350 19904400 19904650 19905310 



20092700 
20l?4700 



20092900 
20125000 



20093500 
20127300 



20093600 
20128000 



20101300 
20128100 



20105900 
20128400 



20H0700 



20170800 
20174300 
20180400 
20J95400 



20171000 
20175400 
20181000 
20195500 



20J7U00 
20175500 
20188600 
20195600 



20171200 
20175700 
20l9n00 
20196500 



20172100 
20176090 
20191300 
20196800 



20172600 

20176102 
20191800 

20196900 



20172700 
20176120 
20192200 
20197100 



DECLARED AT 20607020 



DFCLARED 
22286020 
22356150 
22416000 

-" vaLijf 

24102000 



AT 22231000 

22286030 *22297000+ 22299000 22300000 

22357000 *2237400O* 22376000 22377000 

22420000 22421000 22422000 22423100 

PaRaMftfR -" decLaReo at 24103000 

24150000 24165000 24167000 
VALUf PARAMETER — DECLARED AT 32000100 
32OOO4OO 32^00750 32^00800 320008iO 32001500 
DECLARED AT 32000810 



22301000 
♦22407000* 



22303200 
22^08000 



22325200 
22409000 



22331400 
22^10000 



22333800 
*224l3000^ 



VALUp PARAMETER ■ 
4l3l2i00 4t3i2400 



• DECLARED AT 4 1 3 1 2 1 
41312600 4J312900 4i3l3000 



41313100 41313200 4l3i3300 4i3l4200 4l3l4400 



■- REAL " 
♦02261000* 
MIXF -• DEFINE 
48064000 

Mix it -- strfam 

04363000 

MIXMAX — DEFINE 

02365000 

124i l 000 

I61O6OOO 

20094000 

22413000 

44259500 
MixPRtNT — PROCFDURE - 

16739500 32100800 
MlXUP -- REAL 

22235000 
MK -- REAL "- 

04271800 
MK -» STREAM VARIABLE -* 

04272400 
MKSCW •• REAL -- DECLARED 

02143000 
MKSW -- RfAL — DECLARED 



- DECLARED AT 02192000 

02264000 *0?3l8000* 02320000 

-- DECLARED AT 00168000 

48071000 

t-APEL "- DFCLARED AT 04362400 



*02322000* 02324000 



OCCURS AT 04364000 



DFCLARFD AT 00004000 

0?373000 OeflfijOOO 08937000 09606000 096u000 12407000 

12457500 12473090 12900000 14385000 14431480 

16343950 16689450 16902950 16948000 20024600 

20175100 20582600 20586200 20589460 22008000 

44151000 44151010 44151052 44151630 44154100 

44276000 44280100 45106000 
DECLARED 



12413500 
16115000 
20167800 
32100200 
44268000 



12407500 
15600800 
20035300 
22014400 
44155000 



12408000 

15600950 
2OO372OO 
22015000 
44163030 



12408500 
15602400 
2OO395OO 
22029000 
44192000 



12410500 
15604100 
20091200 
22407000 
44254500 



AT 32100000 



FORWARD AT 00379400 



— DECLARED AT 22231000 
♦22357000**22359000* 2236i000 

OECLARED AT 04257600 
*04286000**04295600**04333200* 

DECLARED AT 0427t800 

AT 02133000 
AT 15111800 



22363000 22365140 2?365j50 *2 ? 366000^ 22372000 



15116100 
ML •- STREAM VARIABLE " DFCLARED AT 15501500 

15502200 
ML — STREAM VARIABLE — DECLARED AT 20289390 

20289425 20289470 
ML — STREAM VARTAPLE -" DFcLaREO AT 44203000 

44204600 
MLA — RFAL ARRAY -- DECLARED AT 41327300 

41328400 *4l3?8600**4H28800**4i330500* 41331900 *4 i 332300**4 1 333500**/* j 335OOO* 
MLOG •"> REAL -- DFCLARED AT 04121100 

*4l3l8760* 41318780 4l3l88?0 *4 13 18880**4 1 3j 8940**4 1 318980* 4l3l9?40 4 t 3l9700 4t320460 *4i32l750* 41328900 

41330200 41330500 *41332400* 4J33360O 41333800 *44l88200* 

ML0Q1T — SUBROUTINE " DFCLaRfD AT 05952985 
05953055 05953205 05979350 

MM •- DEFINE -- DFCLARED AT 28006800 

280/42600 ?8046000 28089200 
MM -- DEFINE -- DECLARED AT 28207200 

28930000 ?8262?00 28303200 
MN — REA|, -- DECLARED AT 08344000 

*083fi0000* 08362000 08365000 08367000 
MN -- INTEGER -- DECLARED AT 40005110 

*40249l05* 40254100 40261046 40290400 40?90fi00 40322410 40324102 40324104 40327000 
MODE -» REAL -• VaLUE PARAMETER " DECLARED AT 00376000 

00374000 00375000 
MOnE "- RFAL -- DECLARFD AT 04552000 

*045670 30**04567840**04568 100**04568 372**0458 1000**04584000**04588050**0 4588 11 0**04588250**04600000**04604000* 
♦04639100**04648200**04649000* 04651000 04651100 04651300 
MOnE -• R EAL -- DECLARED AT 04668650 

*04 67 3500**0467 3900**0 468 4650* 4 688 050 
MODE -- REAL — VALUE PARAMETER -- DECLARED AT 37179000 

37177000 37178000 37249000 
MODE -- INTEGER -- DECLARED AT 38004000 

♦38022000* 
MODE — INTEGER -- DECLARED AT 381024O0 

38106600 38113500 *36122000* 38123000 *38l48500* 
MODE -<• INTEGER — DECLARED AT 38200400 

38204600 *38241000**38242500**38245500* 38259000 
MOnE •- TNTEGFR -" nFCLARFD AT 39003000 

39027000 *39088000**39?36900**3924i000* 
MOnULUS -- DEFlNF -- DECLARED AT 004l9i50 

08 ? 68600 O82687OO 06?68900 1456?000 l8 ?? 5000 2O382O6O 2 382 62 ?0382064 20382120 40293030 
M0D2I0S -« STREAM VARIABLE -- DECLARED AT 04655000 

04655300 
MOD3I0S -• DEFINE -- DECLARED AT 00416990 

04129590 04588010 04655000 O8O445OO 19685456 22111500 
MOM -• FIELD -- DECLARED AT 00061070 

02212000 02216300 02?l64no 14358345 15422000 16852100 16853600 16853700 31013000 31013100 31017000 

31017100 42490000 42506300 42506400 
MOM •• DEFINE "- DECLARED AT 07388000 
MOM .- Rf-aL -- DECLARED AT 14158000 

!4i64000 * 1 4230006**i42l4OOO* 14236000 !423™00 ^4238000 1 4?39000 14242000 14243000 14247000 14250000 

14251000 14253000 J4255000 14257000 14?59000 14267000 142^1000 *t4279000* 14279550 14?8i000 *H293000* 

14297000 14299000 14300000 
MOM •• REAL — DECLARED AT 22230000 

22270300 22286090 22286120 *22295000* 22322000 22323000 *22324800* 22326400 22327600 22328400 2232*600 

22331800 22334200 22335200 22336000 22349J00 22371220 22383050 22386250 22386350 22*02000 22*»i5000 

22424000 22427Q00 



MOM »- RfaL "" OECLaRFH AT 42514000 

#42532000* 42533000 4?534000 42535000 42536000 42537050 42539000 
MOMMJx <"> JNtfGFR " DFCLaRfD AT 14351200 

14351205 *i4360 3 ?0* 14360330 * 14360380** 14360400* 14360500 *i436ll00* i4370iO0 l4370nO 14370H5 14370130 
*14370140* 1437000 
MON — STREAM VARfABLF -- OF.CLARED AT 12309Q00 

12313500 
MONTOG -- REAL -- DECLARED AT 12207500 

♦12287000* 12309000 
MONTOG •- STREAM VARIABLE -- DECLARED AT 12309000 
12313500 

more — label — declared at 07543100 -- occurs at 07547500 

07559180 

more •■ Label — declared at 20701000 — occurs at 20715000 

20780000 

MORFINITIALTZE -- PROrEDURF — DECLaREO AT 44206450 -- FORWARD AT 44009000 
44206350 44281500 

MOTHER -• REAL — DfClARfD AT 14158000 

14164000 *ift?79o00* )4?79i50 J4279450 14280000 t428l000 i4?83000 14284000 14292000 14292100 14293000 

MOTHER *- INTEGER -- DECLARED AT 14351200 

♦ 14360600* 14360*00 #14361100* 14364300 14370020 * 1 4370050** 14 370060* 14370065 *l4370i30* 14370155 14370160 

MOTHER — REAL " DFCLaRED AT 42484000 

#42490000* 42493000 42501040 42501820 42502000 

MOvf "• STREAM PROceodRf — DFCLaRED AT 00082000 

00089000 0j250800 0i?6i300 02434580 04555300 0*655800 05725000 O58457OO 05851300 0585i900 05953075 
05972000 05973600 06077600 0609 52 00 06100900 06380850 06381070 06416000 07li?000 07u8000 07139575 
07i40000 08?74500 08569600 087i2i60 089*7400 14598300 18056000 18720700 19732000 19904700 20121200 
20?89065 ?0567025 28051000 28O622OO 2 8 273400 28288200 2842 9 400 28429600 28432800 28433000 28434000 
28459206 28861OOO 288683OO 37278000 37276200 37408000 37509000 37543000 382185OO 384O4OOO 38707000 
38803000 40014000 40016260 40016420 40249n0 40249130 41318220 41320420 41320490 41323150 41323300 
41323550 41328700 41329400 4J331900 41332300 41332700 41603000 42539000 44154000 44189550 44189600 
44189800 44189900 44191010 44l9i0l5 44191025 44202800 44206200 44240860 44256150 44256250 44264000 

MOVEABLE — DEFINE — OECLARFD AT 06073500 
06093400 

MOVEANDFIX -- SUrROuTjNf "- DECLARED AT 06096500 
06112200 

MROW — RFAL -• DECLARED AT 04121150 

41317300 *4l3l7400**4l3l8400**4i3l8740* 4i3i8820 4i3l8860 41318940 41319200 4i3l9320 4U20220 41321450 
41322450 41322500 *4i325600* 41328200 #41328300* 4J328900 41330500 41332400 41333600 4i334300 *4l334900* 
♦44188 300**45135700* 

ms — real -«• declared at 08283000 

* 08 ?95 6 00** 0829 7 4 00** 08 2986 00* 08 2988 00 
MS -. STREAM VARjAPLE -- DECLARED AT 08298800 

08300400 
MS -. LABEL "• DECLARED AT 16700000 -- OCCURS AT 16773500 

16704000 
MSCW *• REAL — DECLARED AT 02115000 

02130000 
MSCW -• REAL -" DECLARED AT 04256600 

04352800 
MSCW -- RFAL -- DFCLARFD AT 04353600 

04433600 
MSCW •• RFAL -- DECLARFD AT 05950500 

05979500 
MSCW •. REAL -- DECLARED AT 0606&350 

06116300 
MSCW •- REAL -- DECLARED AT 06406500 





06425000 


MSCW 


-• REAL - 




08573300 


MSCW 


— RFAU - 




12476000 


MSCW 


-- Rfal - 




1262J000 


MSCW 


-- rfal - 




12847000 


MSCW 


•■ RFAU - 




14354000 


MSCW 


" REAL - 




16903000 


MSCW 


*« RFAL - 




16971000 


MSCW 


•- RFAL - 


MSCW 


-- RpAL - 


MSCW 


-• Real - 




202J1400 


MSCW 


— REAL - 


MSCW 


— REAL - 


MSCW 


— REAL - 


MSCW 


-- REAL - 


MSCW 


-- REAL - 


MSCW 


-- REAL - 


MSCW 


•- RFAL - 


MSCW 


-• RfaL - 


MSCW 


•• RfaL* •• 




20601250 


MSCW 


"• Real - 


MSCW 


— Real - 




22053900 


MSCW 


-•> real - 




22226000 


MSCW 


— REAL - 




28049400 


MSCW 


-- RCAL . 




28246000 


MSCW 


•- Rfal - 




37465000 


MSCW 


— Rfal - 




38047000 


MSCW 


•- Real - 




38H0000 


MSCW 


-- REAL - 




38210000 


MSCW 


-- REAL - 




38387000 


MSCW 


*» rfal - 




38580000 


MSCW 


•- Rfal - 




38695000 


MSCW 


-- Real - 




41325600 


MSCW 


— REAL - 




41335100 


MSCW 


— REAL - 



- DECLARED AT 08568125 

- DECLARFP AT 12351500 

- DECLARFP AT 12501500 

- DECl.ARFO AT 12801500 

- DECLARFD AT 14351220 
14434000 

- DECLARED AT 16691550 

- DECLARFP AT 16907250 

- DECLARFD AT 20011500 

- DECLARFD AT 20060700 

- DECLARFD AT ?0j 41100 

- DECLARFD AT 2O5661OO 

- DEC|,ARFD AT 20581000 

- DECt.ARFD AT 20584000 

- DECLARED AT 20586800 

- DECLARED AT 20589800 

- DECLARFD AT 20591000 

- DECLARFD AT 20595000 

- DECLARFD AT 20596800 

- DECLARFD AT 20600010 
20610600 

- DECLARED AT 20701500 

- DECLARED AT 22002500 

- DECLARED AT 22056500 

- DECLARFD AT 28000500 
" DECLARFD AT 28200800 

- DECLARFD AT 37451500 

- DECLARFD AT 38001000 

- DECLARED AT 381O21OO 

- OECLARFD AT 38200100 

- DECLARED AT 38356000 
" DECLARFD AT 38541000 

- DECLARFD AT 38649000 

- DECLARFD AT 41316250 

- DECLARED AT 41327250 

- DECLARFD AT 45001000 



45075590 
MSFF •- FIELD — DECLARED AT 00060130 

02716200 02216300 168&3500 16853600 
MSG — REAL -- DECLaRFO AT 04259400 

04 271800 *0 4 286000**04 29560 0* O43O54OO *0 4 3 1 4400**04 3 18200**04 3 19400**04 33 3000**04 335400**0 4 336400**04 3 3/200* 
MSG -" STRFAM VARJABLf " DECLARED AT 04271800 

04772800 *04275000* 
MSf, -- LABEL — DECLARED AT 05952620 -- OCCURS AT 05978000 

05975900 05976R50 
MSK -» STREAM VARIABLE -- DECLARED AT 06301395 

06381405 
MSTART -- DEFINE — DECLARED AT 00073000 

02262000 07318000 02322000 15601000 
MSTART -- REAL " DfCLARED AT 44014000 

*44101000* 44113000 44114000 44115000 44123000 44125000 44126000 44131000 44140000 
MT -- LarfL « OFCLftRrn AT 37007000 — OCCURS AT 37112000 

37008000 37099000 
MT — LABFL « DECLaRFD AT 38661000 — OCCURS AT 38749000 

38662000 
MT *• LABEL •- DECLARED AT 41OO5OOO -- OCCURS AT 41054000 

41006000 
MTXIN .» R EAL PROCEDURE -- DECLARED AT 08000000 -- FORWARD AT 02696700 

*080?2000* 08029000 08083000 08292000 
MULFID "- REAL — VaLUF PARAMETER — DECLARED AT 02637000 

02635000 02636000 02641000 
MULFIn •• STREAM VARURLF " DFCLaRED aT 02641000 

02645000 
MULTITARLE -• REAL ARRAY 




39959000 40249250 44176000 
mustahd -- DFFfNr -- DFCLa«FD AT 

28?708i2 2»270830 28281550 
MV -« REAL ARRAY « DECLARED AT 06069300 



06087200 O6O873QO *06087600**06087900**06088000**06088100* O6O882OO *06088500**06089300* 06089900 06090000 
*06093700**06093900**06094l00**06095j00* 06097O00 06097100 06097200 *06097300* 06099400 06099500 *06l00j00 



♦06100200* O6IOO5OO *06107200* 
MVF -* LABEL — DECLARFD AT 06069900 -- OCCURS AT 06097100 

06100300 
MVEMORE — LABEL -- DECLARED AT 06069900 -- OCCURS AT 06086900 

06088600 06089*00 
MX — STRFAM LAREL — DECLARED AT 04273200 -- OCCURS AT 04274800 

04273400 04273800 04774000 04274400 
MX -• STRFAM VARIABLE " DECLARED AT 04359600 
MX -• STRFAM VARIABLF "- DECLARED AT 08839000 
MX -- STRpAM VA R IABLE "- DFCLAREO AT 12833000 

12834000 
MX — LABEL -- DFCLARED AT 16699500 -- OCCURS AT 16739000 

16703500 
MX -• STREAM VARIABLE -« DECLARED AT 37036400 

37036600 
MXX — STREAM LABEL — DECLARED AT 04360800 — OCCUrS AT 04362400 

04361000 04361400 04361600 04361800 04362000 
MYMSCW — REAL — DECLARED AT 20011700 



20022700 

mymscw -- Rfal -- nrcURFD at 20080900 

20094600 
mymscw « REAL « DECLARED AT 20141300 
MYMSCW — REA|, -- DECLARED AT ?0566l00 

20567520 
MYMSCW -- REAL « DECLARED AT ?058J000 

20581125 
MYMSCW "- REAL, " DFCLAPED AT 20584000 

205*4325 
MYMSCW •- REAL "- DFCLARFD AT 20586800 

20587110 

MYMSCW — RFAL « DFCLARFD AT 20589800 
20590010 

MYMSCW « RFAL -- DFCLARFD AT 20591000 

20591610 
MYMSCW -» REAt -- DECLARED AT ?0595000 

20595080 
MYMSCW « REAL — DECLARED AT 20596800 

20596945 
MYMSCW — REAL — DECLARED AT 20600010 
MYMSCW -- REAL " OFCLARED AT 20701500 

20707000 
MYSELF -• REAL ARRAY « DFCLARFD AT 00028000 

00O51000 
Ml — REAL — DFCLARFn AT 05841620 

♦05842410**05842930* 05843300 *05845400* 
Mj -- LARpL -- DFCLARFD AT 06351500 -- OCCURS AT 06381450 

06381309 06381395 
Ml -- REAL — DECLARED AT 08418500 

*084l9i00* 08437*50 
Ml "• REAl, — DECLARED AT 08576000 

♦08577000* 08597000 
Ml -- LABEL -- DECLARED AT 40008050 
M2 — REAL " DECLARED AT 05841620 

♦05842410**05843000**05843500* 05844925 *05844935**05845 100* 05845300 05845400 05845500 
N " STRfA m VARIAP^F « OFCLaRfo AT 00042000 

00043000 
N -- STREAM VARIABLE -- VALUE PARAMETER -- DECLARED AT 00082000 

00083000 00086000 00088000 
H -<■ REAL « VALUE PARAMETER — DECLARED AT 00134125 
N — INTEGER — VALUE PARAMETER -- DECLARED AT 00306000 

♦00308000* 
N -" STREAM VARIABLE -- DECLARED AT 00308000 

00108500 
N •- REAL -- VALUE PARAMETER -- DFCLARED AT 00316100 
H — INTEGER — VALUE PARAMETER " DECLARED AT 00431000 
N — REAL — VaLUE PARAMETER — DECLARED AT 00463200 

n — real — value parametfr « declared at 00464000 
n -- real -- name Parameter — decLarfd at 02052800 

02052700 

N -- STREAM VARIABLE -«■ DECLARED AT 02144500 
♦02171000* 

N « STREAM VARIABLE — DECLARED AT 02173150 

02173160 
N « STREAM VARIABLE -- DECLARED AT 02173300 

02173325 



N — REAL — VALUE: PARAMETER « DECLARED AT 02188000 

02206000 02206100 02217200 *02220000* 02221000 0?2?3000 02253050 02261050 02276400 

n — stream variable -- declarfd at 02276400 

02276450 

n •• real — . value parameter — declaKfi-) a t 02330100 
O233O200 

N — REAL « DECLARED AT 02361000 

♦02367000* 02370000 02371000 *0?373000* 02374000 02375000 
N •• REAL -" DECLARED AT 02434120 

♦02434560* 02434^70 
N •- REAL -- DECLARED AT 04552000 

04568520 *045770~00* 04579000 #04590000* 04593000 *04595000**04598000**04627000* O4628OOO 04629000 04634200 
♦04654600* 04656200 04659100 
N -- STRfaM VaRJABLf — DECLARED AT 04656200 
04656700 

N — STREAM VARIABLE « DECLARED AT 04659iOO 

04659800 *04661700* 
N -• INTEGER -- DEC|,ARE0 AT 05702000 

♦05702500* 05705000 05706000 05707000 05715000 

n — real -- value parameter -<■ declared at 05839400 

05842100 05842200 05844000 *05845700* 
N "" REAL « VALUE PARAMETER -- DECLARED AT 05846600 

05848900 05849420 05849460 05850600 05851500 
N -- tNTFfiFR — DfCLARfO AT 05951400 

05951600 05953045 0595312° 05953135 *05954800**05956300**05957500**05957650* 05962700 *05962900**0596}000* 

05964000 *05969<|50* 05973800 05976450 05976700 05977100 *05977300* 05977700 *05979050* 
N — STREAM VARIABLE " DECLARED AT 05953135 

05953150 05953155 
N -- STREAM VARIABLE « DECLARED AT 05964000 

♦05964800* 05964900 
N «•• INTEGER -- DECLARED AT 06164000 

♦06208000**06209000* 06223000 06230000 *06243 100**06278000* 06280000 
N -- REAL — DECLARFD AT 06351000 

06353510 06353541 06353670 06353720 06355000 06361100 
N -" STREAM VARIABLE "• DECLARED AT 06355000 

06360000 
N " STRFAM VARIABLE " DECLARFD AT O636HO0 

06361300 
N -• REAL -- VALUE PARAMETER -- DECLARED AT O7OO2OOO 
N -- REAL — DECLARED AT 07006060 

♦07108000* 07142000 07147000 07l5l000 07152000 07154000 *O7l63000* 07164000 07174000 07l75l00 07179000 
N -- REAL — DECLARFD AT 07269000 

*07281000* 07284000 07290400 07290600 07292000 
N — STREAM VARIABLE " DECLARED AT 07284000 

07285000 
N — REAL "•• VALUE PARAMETER -- DECLARED AT 07298000 

07303000 07305000 07333000 07346000 
N — STRFAM VARIABLE " DFCLARFD AT 07305000 

07307000 
N mm STRfaM VARIABLF -• DECLARFD AT 07346000 

07348000 
N -- REAL — DECLARED AT 07355000 

07366000 07369000 *07 370000**07 37 14OO* 07371800 +07371900* 07372200 07372800 
N •• DEEImE — DECLARED AT 07387000 — OCCURS AT 07366000 

07395000 07397000 

n -• real " value parameter »- declared at 07422000 

♦07425700* 07426100 07427610 07436000 07436200 07450000 07452000 07452200 



N 

N 

N 

N 

N 

N 

N 
N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 
N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 



-- OCCURS AT 07490000 
08t03200 08i03500 O81O365O 08i03700 
08?85000 



08l04900 



stRfaM vaRiabLf ■- nrcLARrn at 07452200 

07452310 07491000 
REAL -- DF-CURfO AT 08099600 

08^0?350 +08i02«s50* O81O3O5O 
STRFAM VARIABLE -- DECLARED AT 

08286000 
REAL — DECLARFD AT 08680000 

08681200 08690100 08690400 *0869?400**08692600* 
STRFAM VARIABLE -- DECLARED AT O86BI2OO 

08683000 08919000 
REAL — DECLARFD AT 12208500 -- OCCURS AT 08918000 
♦ 12249500* 12252000 * 1 2299000** 1230 1000* 1230^500 *12321120* 12321130 12321140 12321150 



DFCLaRED AT 
AT U711000 



real — value 
stRfam variabLf 

14712000 

REAL « VALUE PARAMETER -- 

15168000 1 5 1 ^ 8 1 15173000 
STREAM VARIABLE — 

15502000 
STREAM VARIABLE -- 

15531700 
INTFGER -- DECLARED AT 15600500 
♦15602600**1560264 0**15604 200* 15604 250 
STREAM VARIARUE 

15602620 
STRfa m VARIABLE 

15602660 



parameter 
-- dfclaRfd 



DECLARED 
DECLARED 



12350500 



DECLARED AT 15169000 

15174000 15175900 *(5i76000* 15177000 * t 5183OOO* 15184000 
AT 15501600 — OCCURS AT 15414000 

AT 15531200 



DECLARFD AT 

• peclaRfo AT 

• DECLARED AT 
AT 17903500 



15602600 
15602640 
15604?50 



STREAM VARIABLE -■ 

15604275 
REAL — DECLARED 
*179?5500* 17926000 
REAL " DECLARED AT 18198000 

18226000 1.B229000 18245500 18247500 18248500 
STREAM VARIABLE — DECLARED AT 18770400 
REAL — DECLARFD AT 19689000 



♦19696800* 19697000 

stRfam vaRiabLf — 

2O1O16OO 
STREAM VARIABLE -- 

20289170 
REAL " 

203820)0 
REAL 



19708000 19711100 19713000 

ofclaRfo at 20101300 

DECLARED AT 20?89i63 



♦18276000* 18277500 *l8280000* 18466200 



19722000 19756000 19797000 



20704000 

Real — 

28073200 
STREAM VARIABLE 

26073400 
REAL — 

2820 3 200 

REAL " 

28831000 
INTEGER 



20289i75 
NAME PARAMETER -• 
♦20382058* 20382068 
DECL&RFD aT 20703000 

20704100 20725000 
DFCLaRfD AT 28002600 



DECLARED AT 20382015 
20382076 20382140 *20382600* 20382700 

20732000 



DECLARED AT 28073200 



DECLARED AT 2»203000 

28233800 *28239200* 28244600 
DECLARED AT 28803000 

28832500 *28833500**28837500^ 
DECLARED AT 30904000 



28839000 28852000 



*309l8000^ 30920000 

NAME — DECLARFD AT 36003000 

36006000 
STRFAM VARIABLE " DECLARED AT 37046190 



37046220 
N — STRfAM VARIABLE -- DECLARED AT 37314100 
N -- REAL " DECLARFD *T 37388400 

37394200 37405000 
N — STRfaM VARIABLE -- DECLARED AT 37394200 

37394260 37394^00 37394450 37394500 
N -- STREAM VARIABLE -- DECLARED AT 38063000 

38084000 
N « STREAM VARIABLE -- DECLARED AT 38271500 

38272000 
N -• STREAM VARIABLE — DECLARED AT 38587000 

38587500 
N •- STREAM VARIABLE " DECLARED AT 38683000 

36686000 
N -- STREAM VARIABLE -- DECLARED AT 41324800 

41324900 41325000 
N -- REAL — VALUE PARAMETER — DECLARED AT 41600000 

41600700 4l60ij00 4l60i500 4t605700 41606200 
N — INTEGER -* VALUE PARAMETER •- DECLARED AT 42474000 

42477000 *4P478000* 42478400 42478600 42478800 

N *- STREAM VARIABLE -- DECLARED AT 44?03t50 

44204200 
N " STREAM VARIABLE " DECLARED AT 48075000 

48077000 
NA — REAL — DECLARED AT 28002600 

na -- Real -- declared at 284oi?oo 

*28458800* ^8459^00 ?8460800 2846i000 28465?00 ?8468?00 2 8468600 28472000 28476800 ?8477200 2848OOOO 
28482200 

nain -- real -- declarfo at 28002600 

28002800 
NAIN — REAL -- DECLARED AT 28401200 

♦28436800* 284374OO *?8453200* 28453600 +29459400**28460800* 2^461000 28462000 28463200 28465200 
NAM — RE A L -- DECLARED AT 12209000 

12225000 +12245000* 12246000 12249500 12250000 12250500 12251000 12251500 12254000 12255000 12256500 

12259000 12259500 12264000 12268000 12285500 12289500 12307000 *l?321l00* 12321110 12321160 12321170 
NaM -- STREAM VARTABLr — DECL A RED AT 12225000 

12233500 
NAM .- STREAM VARiABLE -- DECLARED AT 12307000 

1231 1500 
NAM -- STREAM VARIABLE -- DECLARED AT t6As4600 

16855100 
NAMECnT — REAL — DECLARED AT 20566320 

20566330 2r>567340 20567360 *20569527**20569800**20569804**20569975**20570055* 20570120 *20570232* 
NaMfIh — PROCEDURE — DECKED AT 02603000 

06463600 06463620 O81O195O 08l02j50 O81O23OO 08i02350 08i03650 O81O37OO 08547300 08547400 09632000 

09679900 16114000 16806500 37232000 37232250 

nams — real array -- declared at 12213500 

*1 2298000**^2298^00** 12 30 1000**12 304500* 1 23 1 0000 *i ?32 1 1 00** j 2321 1 20**1 p32 11 30**12321 \ 40**1 2 321 1 50* 
NASZ — REAL — DECLARED AT 28002800 

28003000 
NASZ •- REAL « DECLARED AT 28401200 

♦28459000* 28471600 28479600 
NB -p REAL ARRAY •- DECLARED AT 18200000 

18227500 18228000 18228500 18232000 *t 8245000** 1 8248000** 18280000* 
NB — REAL ARRAY -- DECLARED AT 20382040 

♦20382076* 20382i65 20382200 20382300 20382540 20382580 20382660 20382680 
Nfi •- INTEGER — DECLARED AT 37506000 



NgR •- 

NBS m- 

N8UF - 

NBUFS 

NfiUFS 

NBUFS 

NBUFS 

NBUFS 

NBUFS 

NBUFS 

NBUFS 

NcS — 

NCV — 

NCV -- 

NDIV64 

NDIV64 

N D X -- 

NEC, -- 
NEU -- 
NEUF - 
NEUP - 

N E Ul - 
NEU2 - 

NEVERBI 

NEW — 

NEW — 
NEWIO 



♦ 3751 1000* 

tntfgfR 

♦37512000* 
STREAM V 
08664500 

- REAL - 
*02?75100* 
-- INTEGE 

38O?7000 

tntfgf 

♦38149500* 

-- TNTEGF 
*38?45500* 

-- INTEGE 
38370800 

-- ?NTEGF 
38553000 

-- INTEGE 
38666000 

- INTEGE 
39044000 

-* tntfgf 

♦41042000* 
RrflL « 
179?7500 
REAL — 
♦08319700* 
STREAM V 
08334300 
-- STREA 
00086000 
" STREA 
37394450 
DFFJNf 

02328100 

20092700 
44154100 

STREAM V 
12314500 

REAL — 
♦06380100* 

- OEFI N E 
05842450 

- INTEGER 
04194500 
168?5900 

44240700 

- OFFINe 
O638O4OO 

- DEFINE 
06380400 

T -- OEF 
LABEL - 
04166000 

LABEL - 
12247500 
-- PROCED 



37520000 37521200 37524000 37530200 37539000 
— DFCLARFO AT 37506000 

37520000 37522000 37523000 375?5000 37530200 37539000 
ARtABLf -- DECLARED AT 0868l?00 
0B686S00 

- DECLARED AT 02191600 
02276750 

R -- DECLARED AT 38003000 

38042000 38053000 38063500 38064000 38064400 38069000 38083000 38090000 38095000 
R "• DFrL-ARFO AT 38102300 

38152000 38156500 *38157500^ 
R — DECLARED AT 38200300 

38297500 
R -- DECLARED AT 38359000 

38377800 
R -- DECLARED AT 38544000 

R •• DECLARED AT 38652000 

38700000 38703000 38754000 
R — DECLARED AT 39002000 

*39084000* 39144000 3914600Q 39230000 39233200 39244000 39293400 
R "- DFrURFD AT 41002000 

41197000 
VAUlF PARAMFTER -" DECLARFO AT 17900500 

DECLARED AT ©8318OOO 

08333000 
ARlABLE — ■ DECLARED AT 08333000 

08334900 
M VARIaBlF — DECLARED AT 00085000 

00088000 
M VARUBLE " DECLARED aT 37394200 

37394500 
"• DErLARFO AT 00158100 

06205200 08538000 12^19000 14370035 14370065 14370HO 14370^55 I4370i80 144H200 20092000 

20092800 20093400 20093600 20l2*»700 20176090 20178900 20188600 28051400 37279100 44151010 

48141200 
ARTABLF — DECLARED AT 12306000 

DECLARED AT 06351104 

-- DECLARED AT 05780300 

05848900 05959000 06380100 063M300 20567240 2201U00 40321140 4132*800 44240700 

-- nFcURED AT 00166000 
04194550 05842450 05848900 05959000 06077400 06107900 O6IO82OO 06380100 06381300 16825500 
20567240 22^11100 40249200 40321140 40324210 4i324800 *442169 1 0**442l6940^ 44240690 *44240695* 
44260500 44265500 
-- DFCLARED AT 06351105 
06380850 06380900 
-- DECLARED AT 06351105 
06380950 
I ME -- DECLARED AT 00417090 

- DECLARED AT 04124000 -- OCCURS AT 04188000 

- DECLARED AT 12214500 -• OCCURS AT 12270500 
LRE — DECLARED AT 04115000 



04188000 46005000 
NpwLOp, « LARfL — nFCLflRFH AT 41316500 •- OCCURS AT 41320300 

41318900 41320400 
NFWPRt « RFAL « VALUF PARAMFTFR — DECLARED AT 02002000 

OpOOOOOO 0?00i000 *0?006000* 0?007400 
NEWSTART mm LABEL -- DFCLARED AT 24042600 -- OCCURS AT 24042950 

24045300 
NEXT — LABEL — DECLARED AT 0?347222 " OCCUrS AT 02347330 

02347410 

next -• Label -- dfcLarfd at 06070000 -- occurs at 06095800 

06095600 

next •» Label — dfcLaRed at 07423000 -- occurs at 07451000 

07436200 07438000 
NfXT -• STRFAM LaBFL ~- OFCLARFn AT 08608000 -- OCCURS AT 08620000 

086n000 O8618OOO 160*2550 
NEXT -- LABEL — DECLARED AT 20389000 — OCCURS AT 2O451OOO 

20453000 ?0455000 ?0459000 ?046i950 2^463000 ?0465000 ?0477000 2O4785O8 20478550 ?04Bi000 2O4811OO 
NEXT — LABEL -- DECLARED AT 20566011 -- OCCURS AT 20578725 

20577525 
NEXT — LABEL — DECLARED AT 28211000 — oCCUrS AT 28304200 

28258000 28260600 28262400 28270826 28297400 28302600 
NEXTCnNuM -- REAL PROCEDURE "" DFCLaREO AT 07001600 
*07001760* 07179?20 07547000 20289144 37046470 

NpxTFtLr •- Label -- dfcLaRfd at 12512500 -- occurs at 12642500 

12644000 
NEXTL -- LABEL « DECLARED AT ?05666l0 -- OCCURS AT 20569520 

20570580 
NEXTLINK -- INTEGER -- DECLARED AT 08852000 

08860500 *08863000**08867000* 0«93l000 089,32000 08934000 
NEXTLINK -- REAL " DFCLARFD AT 20012900 

20021400 20021700 20022100 *20024800* 200?5600 *20027400* 
NEXTLlNK — REAL — DECLARED AT 20082100 

20089300 20089600 20090000 
NfXTLjNK •- RfaL -- DFCLARFD AT 20142500 
NEXTLfNK -- REAL -- DFCLAREO AT 40004500 

♦40046000* 40057000 
NEXTMOM -- INTEGER -- DECLARED AT 14351200 

14351205 *14360700**14360800* 14360900 * 1436 1 lOO** 1436 1 3OO* 14364500 143700]0 14370030 14370035 143/OO4O 

14370050 14370070 1 43701 3 14370165 
NEXTNAME *- REAL " DECLARED AT 12209500 

12225000 *l??43*00* 1?2»0000 
NEXTNAME — STREAM VARIABLE -- DFCLAREO AT 12225000 

12233000 
NEXTNaMe "- LABEL -- DECLARED AT 28402S00 — OCCURS AT 28420400 

28417400 

nextrow — label — declared at 19695000 

NeXTSfG "- LaBFL "" DECLARED AT 28402800 — OcCURS aT 28467000 
26471000 

nextslOt — Real — declared at 0041B850 

14600000 tfl60}000 i460i500 *i460?500* l4603l00 *i 4603320**i4604000**i8?48000* 40283300 40283400 #40283600* 

403i73j0 *403l76l0* 
NEXTSOURCE — LABEL — DECLARED AT 28403000 -- OCCURS AT 28457800 

28483200 
NEXTWAIT — REAL « DFCLAREO AT 00279000 

*0?095000* 04017000 *040l8000* 04165000 04177000 48004000 
NF — REAL — DECLARED AT 37388275 

37392000 



NFO — RFAL ARRAY -- DFCLARFD AT 00158200 

023?8l00 06?05?00 08538000 12419000 *l4370035*M4 370065^*14370 i l0**ifl370 j 55**l4370i80* I44n200 20092000 

♦20092 700**20092600**200934 00**20093 600**20 124 700**20 176090**20 178900**20 188600**2805 14 00**3 7? 79 100* 44154200 

48141200 4B141500 48141600 
NG -- LaBfL " DECLARED AT J4166200 -- OCCURS AT H292140 

14206H5 
NG — LABEL -- DECLARED AT 14627300 
NG -• LABEL -• DFCLARFD AT 20146700 -- OCCURS AT 2017610? 

20176147 
NINETFENMASK " DEFINF -- DECLARED AT 00081620 
N1NETFENN0TREADING — DFF1NF " DECLARpD AT 00081620 
NJOBS — REAL — DECLARED AT 12357000 

♦ 12400500* 12402000 * 124 l 3000** 124 i 7500* 12428500 *i2446000* 12447500 
NM «- STREAM VARIABLE — DECLARED AT 12310000 

12317500 
NMG -- REAL -- DECLARED AT 08318000 

*O83?O000* 08333000 08340000 
NMG — STREAM VARIABLE -- DECLARED AT 08333000 

08334000 08335000 08335600 
NM! •" REAL — DECLARED AT 28002000 

280?8000 *28028ll0* 28032200 *28039400**28053600**28054600**28058200* 28063800 
NM1 -- STRFAM VARIABLf '" DFCLflRFD AT 2«053600 

28053800 
NM1 -- R(r 4 L -- DECLARrn AT 28202400 

♦28228400* 
NM1 •- REAL -• DECLARED AT 284O1OOO 

*28472000* 28473000 28473200 28473400 28474400 28474600 
NM2 -- REAL -- OECLARFD AT 28002000 

28002200 28028000 28032200 *28039200**28054800* 28056000 *28072800* 
NM2 • - REAL « DECLARED AT 28202400 

28202600 *20228200* 
NM2 -» RF A L -- DECLARED AT 28401000 

♦28472200* 28473000 28473200 28473400 28474400 28474600 
NO — STRFAM VARIABLF " DFCLARFD AT 0607/900 

♦06078500**06079400* 06079500 06079600 *06079700**06080900* 06081000 *0608l300* 06081900 06082500 06083000 

06083300 
NO • » DEFfNE -• DECLARFD AT 20241000 

24042925 
NOAUX -- REAL -• DECLARED AT 22235500 

22325200 
NOBACkTaLK -- DEFINE — DECLARED AT 0008U00 
NOBACKTALKMASK — DEFINE -- DECLARED AT OOOflllOO 

NOCNV •« STREAM LABEL « DECLARED AT 08334300 — OCCURS AT 08334700 
NOCODF — LABEL — DECLARED AT 04357600 — OCCURS AT 04410600 

04358400 04409800 
NOfONT -- Rfa^ "" DFCL/\RFD AT 12506000 

12528000 *12686500* 12741500 
NOCONT -- REAL -- DFCLARFD AT 1 2806000 
NOCONT -- REAL -- DFCLARFD AT 1 3OO8OOO 
NOCOPYMESS *- SUBROUTINE -• DECLARED AT 280H000 

280^6000 28093^00 28100800 
NOCOPYMESS -- SUBROUTINE « DECLARED AT 28211800 

28262400 28282400 28284000 28285200 28297000 
NOCOPYMFSS — SUBROUTINE — DECLARED AT 28408200 

28415800 28416000 28417200 28420200 28476600 28480400 
NOFlLp •• LaRFL — nFCURED AT 12512500 — OcrURS AT 12568500 

12566500 



NOFILF — LABEL -- DFCLAREO AT ]8?08000 -- OCCURS AT 16266OOO 

18?9?600 
NOGET -- LABEL — • DFCLAREO AT 1 3O18OOO -- OCCURS AT \ 3O84OOO 

13O35OO0 130/15000 13^54000 13O64OOO 13070000 13077000 
NOGOOO -" LABEL -- DECLARED AT 45003000 -* " OCCURS AT 45132000 
NOHASH -- DEFINE — DECLARED AT 20247990 

20569790 
NOHASH -• DEFINE -• DECLARED AT 28404400 

28466200 
NOLBL •- REAL -- DECLARED AT 20397000 

♦20446000**20^55000* 20486000 
NOLrL *" nEFlNF — nFCURFO AT 28210400 

28256000 28268800 
N0M E M -- OFFlNF -• nFCLARFD AT 00081950 

O22O21OO p0i64000 24044200 24045?00 
NOMEMTOG -- DEFINE -- DECLARED AT 0006i980 

24044000 
NOMIX -- STREAM LABEL — DECLARED AT 1604)500 -- OCCURS AT 16041750 

16041850 
NOMORE — LABEL — DECLARED AT 12512500 — OCCURS AT 12566000 

12562500 
NOMORfELS — LABFL — DECLARED AT 12514000 — OCCURS AT 12624500 

12515000 
NOMORFFlLFS *- RFAL SUBROUTJNf " DFCLaRFO AT 12580000 

12586000 12593500 12721500 
NOMORrRFELS -- RfAL SUBROUTINE »- DECLARED AT 12571000 

12577000 i259?500 12*25000 12642500 
NOMORFREELS « DEFINE « DECLARED AT 13O23OOO 

13045000 
NOMSG »- STREAM LABEL « DECLARED AT 08334000 -• OCCURS AT 08335000 
NOOFRoWS -- DEFINE — DECLARED AT 08101250 

08109100 
NOPROCESSTOG " REAL " DECLARFD AT 00154000 

*02037000**0 2258200**0 2 376000**0 24348 60**04677750**04687900**06 11 6200** 14358384** 16 12600 0**1 6856 200** 1858 1500* 
♦19905 320**22 03 1000**2224 4 000**4 25 01 55 0**44 092 000* 4 8023000 4 8042000 

norm a lfRRor « Label — dfclaRfd at ooooeooo -- occuRs at 48137000 
48103000 

NORMAi.PROCESS •» DEFInE -- DECLARED AT 04670850 

04677800 04687900 
NOSELFCT -« STREAM VARIABLE -- DECLARED AT 08839500 

08846000 
NOSQ •• STREAM VARIABLE " DECLARED AT 06074200 

06075200 06075400 
N0TC0P1ED -- DEFINE — DECLARED AT 28010600 

28086000 28093400 28100800 
NOTCOPIFD *- DFFINF — DFCLaRED AT ?B211400 

28262400 28282200 28284000 28285200 28297000 
NOTCOPIFD — DFFINF — DECLARED AT 28407800 

28415800 284l7?00 28420200 28476600 28480400 
NOTeRmSeT *- DEFINE -- DECLARED AT 02H0200 

02184000 04252100 06354200 06360515 12451000 14193000 15114600 15115400 16164000 17906100 l79i5500 

18570900 18730200 19903850 48029000 
NOTFOUN.D — LABEL -- DFCLARED AT 06462200 -- OCCURS AT 06464300 

06465200 06466310 
NOtHINGtOdO — LABFL — DECLARED AT 00024270 "- OCCURS AT 48045000 

02008400 02050000 04236000 44282000 48017000 48038000 48056000 48084400 
NOTTFYOP — HFFTNf — OFCLARED AT 0041400Q 



NOTLOADiNGFROMREFLl « REAL SUBROUTINE -- DECLARED AT 26047600 

28O488OO ?8056?00 
NOTOK -- LABEL -- DECLARED AT 06069900 -- OCCURS AT 06096000 

06092200 06094700 06095000 
NOTOPFN -- DEFINE " DFCLARED AT 14161000 

14242000 
NOTP -- DEFINE — DECLARED AT 12516300 

12581000 12680250 

notp -• define " declared at 12815500 

notreaDy -- label •- declared at 22062000 — occurs at 22109000 

22113000 22116000 22205000 

notreadyMess •- label « declared at 04357200 -- occurs at 04381600 

04393200 04405200 
NOWAIT •- LABEL •• DECLARED AT 04124000 -- OCCURS AT 04178000 

O4166OOO 
NR -- REA|. — VALUE PARAMETER -- DECLARED AT 00385500 

00185000 00385500 
NR — REAL -" DECLARED AT 19694000 — OCCURS AT 04363000 

♦19733600* 19734000 19735050 
NR — REAL — VALUE PARAMETER " DECLaRfD AT 37386000 

37385000 37385500 37388400 37388700 *37391000* 37395000 
NR -• STRrAM VaRIARLf " DECLARED AT 37395000 

37396000 
NROWS -- tNTtgfR -- VAI.UF PaRAM[-TeR -- DECLARfD AT 00396000 

OO393OOO 00394000 
NROWS -» INTEGER — VAl.UE PARAMETER — DECLARED AT 37421000 

37418000 37419000 37427000 37444000 

ns -- integer -- declared at 05841350 

05842475 05842700 05844110 05845100 +05845300* 05845400 05845700 
NSFCOND " PROCEDUPF — OECLaRFD AT 22001000 -- FORWARD AT 02692000 
48009000 

NSrcONDMASK "" DEFINE -- DECLARED AT 00080800 

45151000 48OO8OOO 
NSECOnDREADY -- DEFINE -- DECLARED AT 00080800 

22053700 48007000 

nSlate — real « declared at 00023000 

o2o17ooo 480i5?00 48o2oooo 48o34ooo 48o47ooo *48052000* 48054000 48055000 48055200 
nt -- real -- declared at 06351 104 

*06380i00* 06380j40 06380400 06380525 O638O95O 0638i070 
NTRDY -- LABEL -- DFCLARED AT 04357?00 -- OCCURS AT O4383OOO 

04396400 04402600 
NT1 — REAL -- DECLARED AT 00024000 

02004500 +02276750* 0??77000 +02284000**02285000* 02286000 *02287000* 0?287l00 02287H0 *02330200* 02330400 

04021000 04044000 04068000 04102000 *04108000* 04109000 04126000 *05842900* 05842930 05843000 +05845000* 

05845100 *05851800* 0585J90C *05852350* 05852400 *05852500**05852700* 05852800 06022000 *06239000* 06240000 
*06t09i50**08i09 2 50* 06)09300 *O8460000* O8461OOO 08462000 09633400 *0968 1505**1253 lOOO* 12531500 +12635000+ 
♦12636000* 12637000 *12656500* 12657000 ♦14065000+ J4070000 14074000 14342000 +14358345* 14358355 +I44ll820* 

14411830 1441J840 14411850 I44n860 i44n880 I44n890 14411900 *14415000* I44l5l00 *15084000* 15086000 
+16198000+ 16199000 16696700 16827000 ♦l6828000+*i6959500^+i8740400**i8740600* 18740700 18740800 200j7800 
+20092600* 20092700 200*2800 +20129300+ 20129400 20129700 *20 129800**20 171200**20 191300* 20191500 *20l93200* 

20193300 *?0289260* 20289265 *2058i950* 20582000 +20600400* 20600470 *20609l50* 20609200 *20609660* 20609670 
♦22019000**22020000* 22021000 +22144000* 22145000 +22145450+ 22145525 24105000 24203000 ♦28014600+ 28014800 

28015000 ♦28036000+ 28036400 *28 097 1 00**28225000* 28225400 *28250400* 28250800 *28277600* 28278800 28279200 
♦28305400* 28305600 ?8305800 28408400 *284 i5800**284 16000**284 17200**28420200**28425200* 28425600 +28430600* 

28430800 *28461800* 28462000 28462200 +28463800+ 28464000 28464400 +28468600* 28468800 *28472000* 28472200 
*28476600*^28477200* 26477400 +28480000* 28480200 +28480400++30909000+ 30911000 +37523000+ 37524000 37526000 
*37533000^ 37535000 38103200 3820j200 ♦41324100^ 4i324200 +42501050+ 4250ij00 *42522000**42535500 + + 44 189900* 



NTl -- 

NTl •• 

NTl - 

NTl •■ 

NTl -■ 

NTi -. 

NTS - 



NT? 
NT3 

NT3 

NT3 
NT3 

NT4 



• • 



NT4 - 
NT/» 

NT5 - 
NT6 » 

NT7 - 

Nu •»<• 

NUUcV 
NULL 



*4A?03200* 
♦48032950* 
48076000 
INTFGER 
♦02173000* 
STREAM V 
04110000 
INTEGER 
♦06354200* 
♦06380850* 
STRfAM y 
08467000 
STREAM V 
REAL -- 
•40016240* 
40322440 
Rfr 4 L •- 
#02285000* 
♦05844935* 
06380400 
14358370 
*2003i500* 
28278800 

37527000 

48064000 

REAL "» 
*40?6l0lO* 

REAL « 
000?4060 
♦18740400* 

24205000 
♦37526000* 

INTEGER 
*06380i50* 
STREAM V 

REAL — 
40?78000 

REAL « 

00034000 

05847700 

24108000 

48145000 

INTEGER 

♦O638O15O* 

REAL « 

♦40334070* 

REAL <•- 
O4126OOO 

REAL »- 
O4O68OOO 

37047670 

REAL — 
04126000 

LABFL "" 
12255500 
*" STREAM 
- LABEL 



48032600 *46032800* 
♦48060000* 48062000 
48141600 *46l43000* 



48032910 
48063000 
48143500 



48032935 
48074000 



48032940 
48075000 



442062°0 44206300 ♦44244000**480 j 9000* 48028000 

48O330OO 480350.00 48036000 48041000 *48043O00* 
*48n0000**4fll 17200* 46118000 *48i4j200* 4814000 

— DFCLARFD AT 02133200 
♦02173050* 02173100 02174000 
ARIABLF "" DECLARED AT 04109000 

-- DECLARED AT 06351250 

06360540 06360545 *0636 1 700**0636 1 705**06380 140**06380 150* 06380450 *06380600* 06380650 06380700 
+06380900* 
ARyABLr " OECLaRfD AT 08462000 



ARIABLF 
DECLARE 
400i6?60 
♦40324102 

DECLARE 
02286000 

♦05845000 

♦06380750 

♦16197000 

♦20043800 

*284252°0 

♦37530200 

48065000 

DECLaRF 
40261040 

DECLARE 
04021000 
18740500 
28011200 
37527000 

— decl 

06380?00 

ARIABLF 

DECLARE 

4031 1000 

DECLARE 

♦02283000 

05952000 

24206000 



« DECLARE 

D AT 4OOO51 

*40039iO0* 

**40334065* 

n AT 000240 

02?87j jO 

♦ O58454OO 

♦ 06380800 

♦ 16199000 

♦ 20083100 

♦ 28425400 

♦ 37532000 
48070000 

AT 400051 

40261046 

D AT 000240 

04044000 

♦18740700* 

♦28086000* 

*4806300Q* 

ARED AT 063 

06380400 

« DECLARE 

D AT 400051 

+40321140+ 

D AT 000240 

♦ 02284000 
*06200000* 
+37521100+ 



D AT 096334 

00 

*4006502f>* 

40334070 
00 

02287120 
+05850200+ 

06380650 * 
♦I68266OO+ 

2OO832OO * 
♦28425600** 

37542000 ♦ 

4807i000 
00 

♦40321200+ 
00 

04068000 

20017900 * 
+28093400++ 
♦48066000* 
51250 

♦06380750* 
D AT 201537 
00 

40321200 
00 

02287000 

06201000 
♦37527000* 



00 

40065040 

40334075 



♦40078074+ 
40334077 



40078076 +40 257060^*40 26 1010+ +40 26 1200 ♦♦403224 30+ 
40334079 



02287140 

05852200 

08i09i00^ 

I68268OO 

20106000+ 

28463200+ 

38104100* 

46080000 * 



04021000 
05951900 
08109200 
16826900 
20143500 
28463400 
38104300 
48H7200* 



04044000 
*0596l800*+ 
♦12627000* 
♦18740400** 
20143600 * 
28464000 
38104800 * 
48l 18000 



04126000 05842900 05842930 05843000 
06188000* 06189000 *06380 140**06380250* 
12628000 ♦12635500* 12637000 ♦14358360* 
18740500+ 18740900 2O0j39O0 200i4000 
20157700* 24106000 P4204000 *28278600* 
28464200 ♦37521000++37524000+ 37526000 
38202J00* 38202300 38202800 +48062000* 
48119000 



40324104 40324200 40324210 +40334060* 40334077 40334079 



04H6000 04126000 
20050000*^20059400# 
28100800+ 28212000 
48070000 

06380900 
00 

4O334O6O 40334065 

02287100 02287120 
06202000 ♦18780700+ 
37538000 37538500 



04355600 +05844935* 05845400 05847700 



U43556O0 +05044935* 05845400 05847700 05952000 
»20121800*+20125000*+20153700* 20153900 24107000 
+28262400 **28282400+*28284000**28285200**2829 7000 



04068000 O4116OOO 04126000 +04428600* 05841620 
18780900 +20050000 +♦20059400**201 2 1 800 ^20 125000+ 
37542000 +48054000* 48054400 +48055000++48 144000+ 



-- DECLARED AT 06351250 
*06380 9 00* 063i°250 O638O4OO 
AT 40005100 
40334079 
AT 00024000 
05847700 O5952OOO 
AT 00024000 
04355800 05641615 
38015400 
AT 00024000 
05952000 



DECLARED 
40334077 

DECLARED 
05841620 

DECLARED 
04127000 

37048000 

DECLARED 
05847700 

DECLARED 



♦06380800+ 06380850 



+06380750* 
05847700 



06380850 
05952000 



06380900 24J09000 24207000 *37538500* 
24110000 +36009000* 37047i00 37047600 37047605 



AT 12214500 — OCCURS AT 12247000 



LABEL — DFCLARFD AT 08334900 -- OCCURS AT 08335800 
- DECLARED AT O47O5OOO -- OCCURS AT 04709000 



04795000 
NULLINT -- LABEL — DECLARED AT 44207250 ■<• OCCURS AT 44246500 

44243500 44249000 
NULLMlX -- REAL SUBROUTINE -- DECLARED AT 09603000 

09614000 09615000 09635000 
NULMS •" STREAM LABEL — DECLARED AT 08335000 — OCCURS AT 08335400 
NUM •• RF4L « DECLARED AT 12505000 

12554500 12619000 * 1 2686500**12745000* 
NuM *- RF4L »- DECLARED AT 12805000 
NUM •- RfaL -- DECLARED AT 13006000 
NUM •• REAL •- DECLARED AT 41327700 

♦41330100* 41330?00 41331700 4i33l900 41332000 #41332600* 41332800 
NUMAINTMESS — REAL — DECLARED AT 04l2i2«>0 

♦04137290**41311100* 41322400 *4 1 332950**44 1 88000* 
NUMB -- STREAM VARIABLE -- DECLARED AT 06?85000 

08291100 
NUMBUFFS — REAL — ' DECLARED AT 04668500 

*04674400* 04674450 04677250 04677650 04682650 
NUMENT — DEFINE " DECLARED AT 05780040 

05845700 05974000 06101200 
NuMfNjM -- DEFINE -- DFC^aReD AT 05780040 

05844920 05B50U0 05850200 05961200 05961800 06109300 06380250 06380750 16826900 

nuMfss -- Real — dfclaRed at 02031000 

♦02122000**02175003* 02176000 02258000 *1 6235000**44 188000* 
NUMF -- DEFINE -- DECLARED AT 12516250 

12686500 1P706S00 
NUMF -- DEFINE — DFCLARED AT 12815400 
NUMOPT •- DEFINE -- DECLARED AT 28407400 

28458400 28470000 28474000 28478400 
NUMOPTS — DEFINE " DECLARED AT 08100500 

08103150 08114o5o 
NuMRErS — REAL — nEcURED AT 04668500 

♦04674225* 04677450 04677550 04685750 
NWORDS — INTEGER " VALUE PARAMFTER — DFCLARED AT 00367000 

00365000 00366000 
NX •. REAL »- DECLARED AT 1540?000 

*154?0000* 15422000 15424000 15426000 *15438040* 15438060 
NXDISK -• REAL — DECLARED AT 04121350 

•04137100* 04137160 D4137202 04137215 04137220 04137250 04137275 04137280 *44188200* 
NXT •• URFL -" DECLARFD AT 15600600 — OCCURS AT 15602200 

15601200 
NXT •■ UarfL •" DECLARFD AT 28402800 -- C CURs AT 28472800 
28474400 

nylonzipper — real array -- declared at 02113085 

♦ 14541090* 1454H30 *t8522500* 1.8523400 *206! 0260**28439600* 28440800 44160500 
Nl •• STREAM VARIABLE -- DECLARED AT 0619M05 
06195135 



Nl 


"»M 


REAL — 


DECLARED 


AT 


20566100 


Nl 


«•• 


REAL "" 


DECLARED 


AT 


20581000 


Nl 


«■» 


REAL mm 


DECLARED 


AT 


20584000 


Nl 


m m 


REAL — 
20588400 


DECLARED 
20588600 


AT 


20586800 


Nl 


*m 


REAL •• 


DECLARED 


AT 


20589800 


Nl 


<"m 


Real — 

♦20593400* 


DECLARED 
20593450 


AT 


20591000 


Nl 


m m 


Real -- 


DFCLARED 


AT 


20595000 


Nl 


•»• 


Real — 


DECLARED 


AT 


20596800 



Nl 


»• 


REA|, -« 


DECLARED 


AT 


2O6O001 




N! 


*■ 


REAl, mm 


DECLARFO 


AT 


2070)500 




Nl 


"m 


REA|, *•• 


DECLARED 


AT 


28803000 








28832500 


*28836000* 


k 28839000 28852000 




Nl 


mm 


INTFOER 


— DFcLAPED 


AT 37422100 








♦37428100* 


37429000 


♦37430000* 37*33000 




N2 


«••» 


strfam variable -• 


• [ 


)FCLARE0 AT 06195105 




N2 


mm 


REAL, — 


dfcLarfp 


AT 


20566100 




N2 


m m 


Real — 


DFCLARFD 


AT 


20581000 




N2 


m m 


Real — 


DECLARED 


AT 


70584000 




N2 


mm 


REAL "m 


DECLARED 


AT 


20586800 




N2 


m m 


REAL •- 


DECLARFO 


AT 


20589800 




N? 


m m 


REAL -• 
*20«>9340d* 


DECLARED 
?0593450 


AT 


20591000 




N2 


mm 


REAL 


DECLARED 


AT 


20595000 




N2 


"»■ 


REAL — 


DECLARED 


AT 


20596800 




N2 


mm 


REAL " 


DECLARED 


AT 


20600010 




N? 


mm 


REAL "• 


DECLARED 


AT 


20701500 




N3 


m w 


REAL — 


DECLARED 


AT 


20566100 




N3 


• » 


REAL " 


DECLARED 


AT 


20561000 




N3 


mm 


REAL — 


DECLARED 


AT 


20584000 




N3 


mm 


Real — 


hfcLarfd 


AT 


20586800 




N3 


mm 


Real •- 


dfclarfd 


AT 


20589800 




N3 


m m 


real « 


declared 


AT 


2059)000 








+2059340Q* 


20593450 


20593500 




N3 


m m 


REAL -* 


DECLARED 


AT 


20595000 




N3 


• ~ 


REA|, — 


DECLARED 


AT 


?0596800 




N3 


«»«t 


REAL « 


DECLARED 


AT 


20600010 




N3 


mm 


REAL — 


DECLARED 


AT 


20701500 




N4 


mm 


NAME — 


DECLARFO 


AT 


185005O0 








18523700 


18525600 


18527300 18527700 




N4 


mm 


name •- 


DECLARED 


AT 


18700500 








18720100 


18720400 


18720900 18780100 18780300 18780400 18780600 18790300 18800100 18800300 18850100 


N4 


m m 


19582000 


DECLaRFO 
19583000 


AT 


19505000 




N4 


m m 


REAL — 


DECLARED 


AT 


2051 j 150 








*205) 1 18 1 * 


20311315 


205H320 205H665 




N4 


mm 


REAL -• 


DECLARED 


AT 


20566100 




N4 


m m 


REAL — 


DECLARED 


AT 


20581000 




N4 


m m 


REAL "• 


DECLARED 


AT 


20584000 




N4 


•» 


REAL "" 


DECLARED 


AT 


20586800 




N4 


mm 


REAL — 


DECLARED 


AT 


20589800 




N4 


mm 


REAL -• 


DECLARED 


AT 


20591000 




N4 


•»• 


REAL — 


DECLARED 


AT 


20595000 




N4 


"«• 


Real -- 


DECLARED 


AT 


20596800 




N4 


<••> 


REAL — 


DECLARFO 


AT 


20600010 




N4 


• M 


REAL — 


DECLARED 


AT 


2070)500 




N5 


• M 


NAME -- 


DECLARED 


AT 


18500500 








18552800 


1858HO0 


18581200 18581300 18581400 




N5 


«■» 


NAME -- 


DECLARED 


AT 


18700500 








♦18780300* 


18780400 


18780800 




N5 


"» 


NAME — 


DECLARED 


AT 


19505000 




N6 


•»» 


NAME •- 


DECLARED 


AT 


18500500 




N6 


«■• 


NAME -• 


DECLARED 


AT 


18700500 




N6 


•» 


Name "• 


DECLARED 


AT 


19505000 







■»«• 


STR(r A M VARUBLF — 


nr 


•CLARFD AT 08605000 








08613000 


08614000 









-- STRfAM VARTABLF -- DET.LAKfd AT 06660000 

0866?000 
OBjOBfNPUTAREAV -- DEFINE -- DECLARED AT 00017574 
OBjTYpE -- LABEL -- DFCLARFD AT 38364000 — OCCURS AT 3A53OOOO 

38485000 
OC — LABEL -- DECLARED AT 16357000 — OCCURS AT 16606000 

16366000 
OCCUPIEO — DEFINE — DECLARED AT 40008210 

40017280 40027250 4007?000 *0321500 
OcTADf •- DEFINE — DFCLaRED AT 04243200 

04251600 04251800 
OE — DEFINE — DECLARED AT 28008000 

2B0 U 832 28O136OO 
OE -- DEFINE •- DEC|,ARED AT 28209000 

28266400 28285600 28296600 
OF — REAL "" VALUE PARAMETER -- DECLARED AT 00376000 

00374000 00375000 
OF — REAL — VALUE PARAMETER — DECLARED AT 37179000 

37177000 37178000 37225100 
OFF ■»" LarfL. -- DECLaRfD AT 04069000 -» OcCURs AT 04086000 
OjOn •• RfAL •• VALUF PARaMfTfR — DFCLARFD AT 04255200 

04255100 04255200 
OIOD — REAL — DECLARED AT 04552000 

O456834O *04570000* 04573°00 O4574OOO 04582000 O4585OOO O4588O1O O4588O2O 04588030 04588040 04588070 

04588130 04588250 O458832O 04588460 04588540 04588550 04599000 O46O6OOO O46O8OOO O4635OOO O463B2OO 

O46388OO 04647050 04647100 04648150 04651500 O46516OO 04651700 #04654800**04657200* O46582OO 
OIOD — REAL — VALUE PARAMETER " DECLARED AT 04667050 

04667000 04667050 04673650 04675900 04676000 04676300 04676500 04678750 04679500 04679750 04682150 
*0468j?550* 04682750 O4683OOO O46B31OO 04683950 04684050 04684300 04686450 
OK — LarfL — DFCLaRfo AT 04125000 — OCCURS AT 04177000 

04128000 04l7i?00 
OK -- STREAM LABEL — DECLARED AT 0«33l600 « OCCURS AT 04332200 
OK -- LABEL — DECLARED AT 05702000 — oCCUrS AT 05715000 

05708000 

ok — label -- declared at 06070000 — occurs at 06088400 

06090800 
OK <•- LABEL « DECLARED AT 08284000 — OCCURS AT 08298200 

08295600 
OK -» STREAM VARIABLE — DECLARED AT 08437550 

*08438100* 
OK — STREAM VARIABLE « DECLARED AT 08597050 

•08597600* 
OK -« LA8FL -- DECLaRFD AT 08704500 — OCCURS AT 08716800 

08709500 08711200 
OK — STRFAM LaBFL — DECLARED AT 14422000 — OCCURS AT 14425000 

ok -- stRfam label -- declared at 16041550 -- occurs at 16042000 
ok — label — declared at 2821o8oo -- occurs at 28290600 

28294200 28294600 
OK •• DEFINE — DECLARED AT 28404600 

28415000 28418800 28419400 28419800 28470200 28474200 
OK -- REAL — » NAME PARAMETER -- DECLARED AT 36001000 

36005000 36007000 
OKBOUNDS •" LABEL " DECLARED AT 06069900 — OCCURS AT 06091100 

06087700 
OKJNUSE •" LABFL — DFCLARED AT 06069900 -- OCCURS AT 06096200 

06094500 
0KSFG7ER0WRfTF -- RFAL •- DFCLARED AT 00422100 



04004160 *0963900i**0964600j**09680?29**096826l 1 **4 02560 i0**4026 12 1 0**44245999**44 24 600 i * 
0L "- LABEL « DECLARED AT 16356000 — OCCURS AT 16525000 " " 

16365000 

OLA — STREAM VARIABLF -- DECLARED AT 12307500 

12316000 
OLAY — REAL PROCEDURE — DECLARED AT 22228000 « FORWARD AT 02052500 

02434520 18841700 18844600 *22243000**22390000* 24034300 24038200 44151950 44154070 44202119 
OLAY •* REAL — DECLARED AT 12358500 

♦12425000* 12426500 12473040 
OLftYDTSK -- RfaL — nrr.LARFR AT 20012700 
OLAYOtSK -- RpAL — DECLARED AT 20081900 

20127800 20128^00 *20l28200* 
OLAYDtSk -- REAL — DECLARED AT 20142300 

20158600 *20i59 1 00* ?02l0600 
OLAYINDX -- DEFlNF -- DECLARED AT 1??16000 

12249500 12273S00 
OLAYInOX -• DEFINE — DECLARED AT 12366500 

12420500 12422000 12459000 12462000 
OLAYlO — REAL — DECLARED AT 04260200 

♦04284600* 04299600 04310200 04316400 04333400 

olayio — Real — ofcl*red at 06004000 

♦06004010* o6oi61oo o6o18ooo 
olayMaSk •- Real — declared at 00336000 

♦ 06424000* 14360400 * 1 4 360500**20 J 28400* 24O381OO 24165000 *24l66000* 
OLAYTfME -- REAL ARRAY -• DECLARED AT 00134120 

06194900 06195118 06205050 12421000 12423000 *17922500**20 1 79220**22429230* 44163030 
OLAYToG -- REAL — DECLAREO AT 12210000 

*12247000**12265000* 12307500 
OLAYTOG — STREAM VARTARLE — DECLARED AT 12307500 
12315500 

oLdidletiMf -• RfaL -- declared at 00430900 

02371000 *6?372000**0619?000* 06193000 *12697000**45 128000**48124000* 

OLoONr -- Real — dfclaRed at iei97ooo 

18276000 18276500 
OLDQ -• NAME — DECLARED AT 02057500 
OLDU *- REAL — DECLARED AT 04668550 

♦04673750* 04682450 *04684950* O46852OO 04685250 04685500 04685550 
ON -• LABEL -- DECLARED AT 04069000 — OCCURS AT 04093000 

04076000 
ON -• LABEL -• DECLARED AT 07355100 -- OCCURS AT 07372900 

07371700 07372600 
ON -- LarfL •- DECLARED AT 08319000 -- OCCURS AT 08331000 

08326000 08330000 
ON -- LA8FL — DECLARFD AT 19901600 -- OCCURS AT 19905340 

19904360 
ON -«. LABEL — DECLARED AT 284O3OOO -- OCCURS AT 28428400 

28432000 
ON •• LABEL ■- DECLARED AT 37004000 -- OCCURS AT 37100000 

37098000 
ON -w STREAM LABEL — DECLARFD AT 37394460 " OCCURS AT 37394550 
ON -- LABEL " DECLARED AT 38663000 — OCCURS AT 38707000 

38704000 

on -• Label -- declared at uoozooo 

one -" stream variablf " declared at 08713250 

08713500 
ONf •- STRFAM VARtABLf — DFCLaRED AT 12575000 
12575500 



ONE" •■ 
ONE -■ 



DECLARED AT 12582500 
DECLARED AT 12631000 



DFCLARED AT 16038900 — 
•- DECLARED AT 284*4200 
•• DECLARED AT 38608500 



OCCURS AT 16039600 



occurs at 08812000 



STREAM VARIABLE 

12583000 
STREAM VARIABLE 

12631500 

ONE •- STREAM LABEL -' 

ONE •• STREAM VARIABLE 

ONE — STREAM VARIABLE 

38608600 
ONFCHR — STRFAM LABEL -" DECLARED AT 08810000 
ON r OHON F -- RfaL "- DECLARED AT 02024000 

48j0t000 
ONEOHTWO •- REAL " DECLARED AT 0202*000 

48107000 461 4 ! 1 00 /+8142000 48142200 
ONEXCEPTION -• REAL -- DECLARED AT 19693000 

♦19696600* 19796000 
ONN »- LABEL — DECLARED AT 37180650 -" OCCURS AT 37-195300 

37195280 
ONV — DEFINE — DECLARED AT 20239100 

20567271 20569846 20569860 20570462 

op *• real •• oeclarfo at 08626000 

08632000 08658000 08660000 08667000 
OP -» STRfaM VARIABLE " DECLARED AT 08660000 

08661000 
OPEN -- LABEL — DECLARED AT 14166000 -- OCCURS AT 14243000 

14261000 
OPEN •• LABEL — DECLARED AT R627300 « oCCUrS AT 14659000 

14631000 
OPEN •»• DEFINE « DECLARED AT 20219300 

20593060 38192500 38299000 
OPENEXCLUSIVE " LABFL " DECLARED *T 18204000 -- OCCURS AT 18341000 

18212000 18349000 18349800 
OP r NjNPuT — LABFL — nECLARED AT 18203000 " OCCURS AT 18319000 

18211000 
OPENIO -- DEFINE -- DECLARED AT 38385400 

38389300 
OPENOUTpUT -- LABEL -- DECLARED AT J8203000 — OCCURS AT 18323000 

18211000 18331000 

openprotect — Label -- declared at 18210300 -- occurs at 18349100 

18220000 
OPENS -- LABEL — DfCLaRFD AT 20597750 — OCCURS AT 20606300 

20597900 
OPrNSHARED "- LABFL -- DFCLaRED AT 18203000 -- OCCURS AT 18307000 

18211000 18318000 
OPeNWRiTELOcK — LABEL « DECLARED AT 18203000 -- OCCURS AT 18332000 

l82il000 18340000 
OPNBIT -- DEFINE -- DECLARED AT OO417O3O 
OPNMESS — DEFINE -- DECLARED AT 00*07000 

02668600 04681850 07074200 0871*340 280^2200 38IO36OO 38201600 38232000 
OPSETaREAV -- DEFINE — DECLARED AT 00017340 
OPT -- STREAM VARIABLE — DECLARED AT 08681200 

08684500 *08687000* 
OPTER — REAL — DECLARED AT 08626000 

#08631000* 08631100 08632000 06660000 08674000 
OPTFR — STRFAM VARlARLr mm DECLARED AT 08632000 

08642000 
OPTER »• REAL — DECLARFD AT 08680000 

08681200 *08690o00* 086900?0 08690i00 08690^00 08696000 



OPTER 
OPTER 
OPTION 



— STREAM 
08683000 

-- STREAM 
08690180 
-- REAL 
00656600 
04663100 

08044500 
j443°400 
20^05006 
20577475 
22158000 
38103600 
38609100 
*442l4000* 



VARIABLF 
VARIABLE 



DECLARED AT 08681200 
DECLARFD AT 08690100 



OPTIONAL — TNTFGFN 



DECLARED AT 00297000 
02257000 022R7245 02668600 
06353551 
*0fi67l000* 
179 1 4 1 00 
?0i5?200 
205?79 2 5 

22209400 
38201600 
38737000 
45135100 

ofcLaRed AT 



04681850 
08258800 
145815^0 
2O11837O 
20577775 
22206000 
38103700 
38610250 
44?80l00 



06353580 
O86812OO 
18439125 
20}52300 
20578550 
28032200 
38?0j700 
3874iO00 
45135160 
38005000 



04in5500 
♦06353590* 
087i4340 
1854O12O 
?0i74400 
20585375 
2826«600 
38232000 
38742100 



04105510 
06360515 
12528000 
19685456 
205U420 
20587550 
28270820 
38256500 
39092070 



04129590 
06463260 
12707750 
20030760 
20511720 
20588900 
30930000 
38288i00 
39092150 



*04413400* 
07074200 
12753000 
20034000 
20575050 
20594350 
36006500 
38?89i00 
4n9i200 



04588010 
07253100 
12843600 
20043000 
20575100 
20602515 
37046735 
38590200 
4H91300 



04654200 
07351000 
12878000 
20J00700 
20575200 
20767000 
37225800 
38592100 
41333090 



04655000 
07419200 
12890100 
20100900 
20575600 
22111500 
38078000 
38594100 
= 44182200* 



*36063500**38064000**38064400**38069000* 38074000 38090000 38095000 

— DFCLAREO AT 38102500 



OPTN 



OPTN •- 



OPTN 

OPTN 

OPTN 

OPTN 

OPTN 
OPTN 

OPTN 
OPTN 
OPTN 



O0'438000 

08690020 
« DECLARED 
*18272300* 
+18402000* 

18460500 



AT 18156000 



•18273030* 
18429000 



18273060 
18431100 



18288000 
18431700 



OPTfONAL -- TNTEGF R - 

38H3500 
OPTIONAL — INTEGER *- DECLARED AT 38200500 
OPTIONAL »- INTEGER -- DECLARED AT 3^003000 

♦39091000* 
OPTIONS « LABEL — DECLARED AT O81OO35O -- OCCURS AT 08103900 

08103200 08114950 
OPTJOnSZ — DEFINE -- DECLARED AT 
08631000 08631100 08690000 

REAL -- VALUE PARAMETER 
18155000 18156000 18272200 *lfl272300* 18273020 
16292100 18293000 18306000 *18402000* l84?2000 
18432150 18432200 18444500 
RFAl* -" DFCLARFD AT 2051 J 150 

• 20511306*. 205ii3t? ?05n320 ?05ij340 205H363 
20511515 205H520 20511525 205jj550 20511580 

- REAL -- DECLARFD AT 20566100 
*205668l7* 20574100 20574875 *20576975* 20577000 20577050 *20577l00* 20579900 20580000 

- REAL -• DECLARFD AT 2058J0O0 
20581250 

• REAL -- DECLARED AT 20584000 
♦20585700* 20585705 ?05857l0 *20585725* 20585750 20585800 20585850 

- REAL -- DECLARFD AT 20586800 
♦20588200* 
» RFAL — DECLARFD AT 20589800 

- RFAL — DECLARFD AT 20591000 
♦20592250* 20592750 #20593000* 20593060 20593200 

- rfal «• declarfd at 20595000 

- Real — declared at 20596800 

• real -- declared at 20*00010 

20604050 ?0604«S50 206&4700 2060*750 



205H364 
20511610 



20511365 
♦20511666* 



18274000 
18431300 



• 205H370* 
20511720 



18289000 
18432000 



18290000 
18432100 



205H420 ?05n455 205H470 



♦20605320* 20605480 



OPTN 

OPTNN 

OPTNN 

OPTNN 

OPTNN 

OPTNN 

OPtNN 

OPTNN 



' REAL ' 
'" REAL 

" REAL 
'- REAL 
'" REAL 
'- REAL 
•" RFAL 

20591650 
- REAL 



DECLARED AT 20701500 

DECLARED AT 20566100 

DECLARED AT 20581000 

DECLARED AT 20584000 

DECLARED AT 20586800 

DEfURFD AT 20589800 

DECLARED AT 20591000 

DECLARED AT 20595000 



OpTNN -- REAL -- DECLARED AT ?0596800 
OPTNN •- REAL •• DECLARED AT 20600010 

♦2060 3900 * #20 6060 50 **?0606 100**20 606 350**20606 600* 20606610 *20606800**2060950 0* 

optnn •- real « declared at 20701500 

optno — label — dfcLared at 20591500 -- occurs at 20591700 

20591600 
0PTN1 — LABEL « DFCLARED AT 20591500 — C C U R S AT 20592400 

20591600 
0PTN2 -- LABEL — DfC|,aRFD AT 20591500 — OCCURS AT 20592900 

20591600 2059?p00 
OREEL -- REAL -• DECLARED AT 28002600 

* 280 724 00**2 8 08 3? 00* 
OREEL »- STREAM VARIABLE « DECLARED AT 28083200 

28083400 

oreel -- real — declared at 28203000 

ot — label — declared at 16357000 — occurs at 16581000 

16366000 
OTHERcLOSE — PROCEDURE "- DECLARED AT 38648000 

41055000 
OTHERfILeOPfNIN — PROCFOURF — HFCLARFD AT 38102000 

39095000 39155000 39236100 
OTheRfTLEOPeNOUT -- PROCFDDRE — DECLARED AT 38200000 

39095000 39155000 
OU -. REA|, -- DECLARED AT 07006090 

♦07090000* 0709ii00 *070#8000* 07104000 07li0000 07118510 07122000 07125500 07128000 07223000 07224000 

07227000 07231000 07234000 07237000 

ou -- Label -- declared at 16054000 — occurs at I6087000 

16062000 

OU — REAL " DECLARED AT 28002400 

26011820 28011840 28011850 28012010 280i2020 28012030 28012040 28012060 28041000 28041400 28044800 

28046000 28047000 ♦28068400**2807 1 200* 28071800 #28073000* 28074000 28074050 28074600 ?8082000 28082200 

28082400 28082800 *28084000* 26084200 28084250 28087200 28091800 28095000 28095400 28096400 28096600 

ou — real -- declared at 28202800 

28p03000 2 8 2322 00 2 8 ?32600 ?8244400 +282*6200* ?8255600 2 8256400 ?8256800 £8258400 282612OO 28263400 

282662OO 28304590 28304600 28306500 28306600 

OUC -• REAL •- DECLARED AT 28003000 

OUC -- REAL « DECLARED AT 28203400 

* 28 240400**28 244400* 
OUKID -- LABEL « DECLARED AT 37004000 -- OCCURS AT 37046860 

37047670 

out -• Label — declared at 06070000 — occurs at O6IH8OO 

06075400 06075500 06076500 0608i900 06082500 06083000 06083300 06114600 
OUTAPFPARITY -- OEEINf -- DFCLaRED AT 28009400 

28092000 
OUTAPFPARITY — OEEINF -- DECLARED AT 28210000 

28?42800 28259^00 28260000 
OUTBUEE -- REAL — DECLAREO AT 07006010 

♦07095000**07107000* 07139512 07139575 07140000 07151000 07152000 #07166000* 07167000 *07169000**071 73000* 

07176000 
OUTBUEEOLD — REAL -- DECLARED AT 07006030 

♦07095000* 07107000 07166000 07173000 07239000 

outit -- label -- dfclaRed at 17902500 — occurs at 17919100 

17906300 
OUTPUTLABEL -" PROCEDURE •- DECLARED AT 08439000 
16526000 

outr — label — declared at 20566610 -- occurs at 20576600 

20574875 



OUTSW -- SWITCH 

3909*500 
OVSEArCh -- LAB 

24037700 
OWNBlT — FIELD 

31010000 
OWT •- LarfL - 

02276150 
OWT -- STRfaM I 
OWT .- STREAM L 
OWT •- LABEL - 

37022100 
OWT -• STREAM L 
OXJT -- STREAM 
P •" REAL -- 

02393400 
PA — LABEL "- 

18701200 

Pack -» Label 

20597900 

packet -- defin 

20600130 
PACKETACT -- DE 

02347250 
PACKETCARD -- R 

07040000 
PACKETERR — OE 

02347260 

PacKeteref -- 

02173085 
PACKETMaSK -- D 

02173085 
PACKETPAGE -- D 

02173075 
PACKETPRD -- DE 

07417100 
PACKETREC — DE 

021.73095 

— LABEL 
20599100 

-" INTFGF 
*19720000* 
•*- REAL 
«- REAL 
?0581550 

-- REAL 
»- REAL 
♦20587150* 

— REAL 

— REAL 

— REAL 

— REAL 

— REAL 
20604850 

REAL 

PAGEADDR — INT 
20?89i35 



LABEL « DECLARED AT 39050000 

EL '- DFCLARED AT 24032800 -- 
24038*00 
— DECLARED AT 00061045 



OCCURS AT 2*036600 



- DFCLARFn AT 02169000 •• OCCURS AT 02276750 
02276270 

ABfL -- DFCLARED AT 04679250 « OCCURS AT 04679350 

ABEL -- DECLARED AT 04680600 -- OCCURS AT 04680700 

- DECi.ARFD AT 37OO4OOO -- OCCURS AT 37035000 
37029000 37032000 

abel — declared at 37394280 -- occurs at 37394560 
label — declared at 08335600 "" occurs at 08339000 
value parameter -- declared at 02393500 



DECLARED AT 18701010 " 
-" DFtLaRFD AT 20597880 



OCCURS AT 18710240 
OCCURS AT 20609420 



PACK2 

PaddR 

paddR 
paddr 

paddr 
paddr 

PADDR 
PADDR 
PADDR 
PADDR 
PADDR 

PADDR •■ 



E -- DFCLARED AT 202l93j0 

20603565 20608076 
FINE -- DECLARED AT 02113089 

0?347?80 07372320 07478100 187)0246 
EAL SUBROUTINE ■»- DECLARED AT 07029000 

07118500 07123500 07139510 07222100 
FINE -" DECLARED AT 02113090 

02347340 l87i0258 l87l0?60 l87i0274 
EFlNp -- DFCLaRfD AT 02133130 

02173090 02173375 
EFTNE -- DECLARFD AT 02133140 

EFINE -- DECLARED AT 02113086 
02173087 02173265 02173360 02173364 

FINE -- DECLARED AT 02113088 
37046400 37046430 

FINE — DECLARED AT 021130*7 
02173366 02173370 

-- declared at ?o59788o -- 

20608142 20608760 20609450 
R "- OECLaRED AT 19696000 
♦19741000* 19754000 
-- DECLARED AT 20566100 
"» DECLARED AT 20581000 

?058ip00 *20583250* 20583350 
-- DECLARED AT 20584000 
— DECLARED AT 20586800 



19774750 20*08850 2O6O957O 20609670 



20608116 20608140 20608790 38806200 



07417700 38608910 39092165 



OCCURS AT 20608610 



DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 



AT 
AT 
AT 
AT 
AT 



20589800 
20591000 
20595000 
20596800 
20600010 



— DECLARED AT 20701500 

EC,eR — DFCLARED AT 20289040 

♦20289)50* 20289255 20289325 



20289365 202895l0 20289580 



PAGEFULL — DEFINE — DECLARED AT O211309? 

02173230 
PAGEJFCT -- SUBROUTINF -- DECLARED AT 12597000 
PAGESJZF -- DEFINE -- DECLAREO AT 02113091 

02173230 ?0289i?0 20289125 20289150 
PAP — REAL ARRAY -- DFCLARED AT 28004600 
PAP -" RFAL ARRAY -- DFCLARED AT 28401800 

284?5000 28425?00 28447800 28448000 28448400 *28448800**28449000**2fl449?00**2846860n* 28468800 28469200 
♦28472600* ?8473?00 +28477200* 28477400 28477800 
PAPpR •- LABEL -- DfCLA«ED AT 04358000 -- OCCURS AT 04408400 

04358600 
PAPER -- DEFINE -- DECLARED AT 20?48000 
PAPER -- LABEL « DFCLARED AT ??064500 -- OCCURS AT ??i99000 

22066000 
PAPERpUNCH — LABEL -- DECLARED AT 04358000 -- OCCURS AT 04406800 

04358600 
PAPERPUNCH -- LABEL — DECLARED AT 22064500 " OCCURS AT 22218000 

22066000 
PaRA«FTfR — RFAL ARRaY " VALUE PaRA^fTER " OEC^ARED AT 02014000 

02012000 02013000 0?0t8000 
PARERR "- LABEL — DECLARED AT 12813000 — OCCURS AT 12891500 

12814000 
PARERR -- DEFINE -- DECLARED AT 13029000 

13053000 13O63OOO 
PARERR -- LABEu — DECLARED AT 28211000 
PARITY « REAL — DECLARED AT 02434125 

♦02434176* 02434780 
PARITY -" REAL " DFCLARED AT 04258200 

♦04300000* 04300500 04302600 
PARITY — L A BEL -- DECLARED AT 14627200 — OcrURS AT 14636000 

14631000 
PARM — NAME « DECLARED AT 19691000 

♦19697000* 197J4000 t97?3000 *i9724000* j97?700Q *i9728000* J9757000 i976l000 19762000 *i9797000* 
PASS — LABEL -- DECLARED AT 20146600 -- OCCURS AT 20189100 

20i46900 20159900 p0i64000 2O1647OO 20j65i20 20i65300 2O1682OO 20 i76i?6 
PASSING — DEFINE — DECLARED AT 20019200 

200?9300 
PASSING •- DEFINE " DECLARED AT 20088100 
PASSING « DEFINE -- DECLARED AT 20148300 

20189300 
PASSLeVeI* — REAL " DECLARED AT 20014400 

20014500 20014600 *20023800**20036800* 
PASSLfVfL — RFAL •• DECLARED AT 20083600 

20083700 20083800 
PASSLFVFL — RFAL " DFCLARED AT ?0l44000 

20144100 20l44?00 20164700 
PASSTWO -- REAL — DECLARED AT 06068900 

06089700 06091500 06094000 06110700 06H2500 *06l 12700**061 1 3100* 
PATCHLEVEL — DEFINE — DECLARED AT 00005030 

15501500 20289390 4l3?0000 4l322000 41334000 44203000 
PATTERN -- REAL "» DECLARED AT 04554700 

04655000 04656100 04658500 

patternword — real — declared at 04554700 

patterni •- real — dfclared at 04554700 

pattern2 -- real — dfclared at 04554700 

pb — label — declared at 16356000 -- occurs at 16528000 

16365000 



PBCoUnT -- RFAL — OFCl.AREO AT 02052200 

♦074)7300* 08267000 *08269900**08297600**14599900**1 8442000**20578575**38609000**40309l00* 40309200 40320100 

40320200 
PBCOUNT -- STRFAM VARIARLE "" DECLARED AT 4Q320200 

40320300 
PBD •* RFaL "- DECLflRFD AT 08255500 

08256450 *08256500* 08259225 08268500 
p BD *" L A rfL — " OFCLARFn AT 38548000 — C CURs AT 38644000 

38608200 386l0j00 
PBD -• LABEL -• DECLARED AT 41004000 
PBDBUF -- DEFINE « DECLARED AT 0810113U 

081 12175 
PBDRECS -- DEFINE — DECLARED AT 08699300 

08715000 08718000 
P8DREL -" DEFINE -- DECLARED AT 00416550 

08714340 38232000 38610250 
PBDROWSZ -- DEFINE — DECLARED AT 08699300 

08714110 08714130 087l60l0 08716200 37046620 38598100 38599000 
PBDTOft « RFAL -- DFCLflRFD AT 08100200 

♦08105250* 08107100 08111850 
PBDTOTRfCS -- DEFINE -- DECLARED AT 08699450 

08708000 08709^00 087^600 
PBDTU -- DEFINE -- DECLARED AT 0B|OH20 

08112175 
PBDTUANDBUF -- DEFINE -- DECLARED AT 0810U10 

08112175 
PBlO "- PROCEDURE — DECLARED AT 08700QO0 — FORWARD AT 02178500 

02275650 08178000 08729000 38574000 
PBIT — FIELD *- DECLARED AT 00062060 

02216510 14218040 14358320 14358392 16854100 18580100 19704100 19764000 19788000 20195600 20196600 

22356J50 22365)50 31007000 3j0 j730o 424/8200 42485000 48032200 48032400 
PBRFC •- REAL — DECLARED AT 07408100 

*074i7500**074i7900+ 074)8000 074)8)00 074i8?00 074l8300 07418500 07418850 074i8900 074i9400 
PBS -- LABEL -«■ DECLARED AT 382O13OO -- OCCURS AT 38245500 

38957000 
PBS — LABEL -*■ DECLARED AT 39006100 
PBT — DEFINE « DECLARED AT 04670900 

04674100 04674200 04674225 04675300 04679050 04679550 04680350 04680850 
PBT -" REAL — DECLARED AT 08255500 

♦08256500* 08259830 06259840 08259850 
PCOPY -• RFAL — DFtLaRFD AT 12507500 

♦12680250**12722000* 
PCOPy -- REAL -- DFcLARFD AT 12607500 
PCOPY -- REAL -- DECLARED AT 13011000 
PCPY -- STREAM VARIABLE — DECLARED AT 08?85000 

*08291325+ 
PD -- DEFINE -» DECLARED AT 08)00550 

08104550 08106020 
PD — LABEL — DECLARED AT 16699500 — OCCURS AT 16746000 

16704000 16742500 16743500 16744500 
PDFX — RFAL -- DFCLARFD AT 20566100 
PDFX — RFAL -- DFCLARFD AT 20581000 

2058)700 20581750 ♦20562600^ 20583i50 20583250 20583450 20&83500 
PDFX — RFAL -- DFCLARFD AT 20584000 
PDEX • - REAL — DEClARFD AT 2O5868OO 

♦20587150* 
PDEX -- REAL -- DECLARED AT 20589800 



PDEX -- REAL -* DECLARER AT 20591000 
PDFX -« REAL -- DECLARED AT 20595000 
PDEX — REAL — DEClARFD AT 20596800 
PDEX -- REAL -- DECLARFD AT 20600010 

20604850 
PDFX -• REAL — DECLARFD AT 20701500 
PF — LARrL « DFCLflREH AT 18701010 — OCCURS AT 18710250 

18701200 
PEON -- RfAL ARRAY — DECLARED AT 20566100 

Peon •>- Real array -- declared at 20581000 

*2058i650**?058j700**2058l750* 2058i800 

PEON -- REAL ARRAY -- DECLARED AT 20584000 

PEON — REAL ARRAY -- DECLARED AT 20586800 

20588400 ?0588700 20588701 ?058fl/0;? 20538740 ?0588746 20588747 ?0589p50 2058930O ?0589480 

peon — rfal array -- declared at 20589800 
peon — peal array — ofcLarfd at 20591000 
peon — Rfal array -• declared at 20595000 

PEON — RfAL ARRAY -- nFCLARED AT 20596800 

Peon -- Real array — dfcla«ed at 20600010 

*2060i900+ ?0604850 
PEON -- REAL ARRAY -- DECLARED AT ?070i500 
PERIO — DEFINE — DECLARED AT ?0?15000 

2037200D 20374320 20448000 20449000 20461000 20461400 20461500 20461950 20467000 20471000 20472000 

20477000 20495000 20496000 20507000 205Q8000 20570270 20570370 20570470 20573470 20576700 20580000 

20581250 205B5?50 20585350 20585700 20585725 20585750 20590730 20604050 20604125 20605702 20781000 
PrRPER "" UapeL — nFCLflRED AT 20320000 — OcrU«S AT 20372000 

20376000 
PETUSFRDISK -- RFAL PROCFDtjRF -- DECLARED AT 05H39400 -- FORWARD AT 003l6j00 

+ 05843600**05845500* O59548OO 06420000 070/,5000 08569700 087i4l30 0B7i60i0 i8425i00 18425300 i9576600 

19736000 ?0l59i00 ?0289i50 28290600 2^436000 37293270 4l3l8240 4i320500 41321200 4l502l00 4l604400 

45092130 
PEUIO — REAL ARRAY — DECLARED AT 00166000 

♦04194600* 05842900 2201)500 *220 1 1 600**44085 ] 00**44240900* 
PF -- STRFAM VARIABLE -- DFCLARFD AT 38422000 

38423000 
PFACT -- REAL -- VA|..UE PARAMETER « DECLARED AT 37342000 

37337000 37339000 37344000 *37345000* 
PFIRSTFJD -• REAL -- DECLARED AT 12507500 

12590000 *12680500* 12723000 
PFIRSTFTD — RFAL •- DFCLARFD AT 12807500 
PFIRSTFID — RFAL « DFCLARFD AT 13011000 

pg -- Label — declaRfd at 16700000 -- occurs at I6751000 

16704000 

PGA — LABEL — DECLARED AT 16699000 -- OCCURS AT 16756000 
16771000 

phyl — name -• declared at 14624300 

+14712400* 14712S10 

pickthElock •- procedure -- declared at 19900000 -- forward at i8468too 

196*5595 
PlNGQ -- REAL •• DECLARED AT 00301000 

PKT — REAL — VALUF PARAMETER — DECLARED AT 06182100 

06180000 06181000 06328300 
PKTCT — REAL "- DFrLARFD AT 07269100 

♦07290600* 07295020 
PKTONLY -- OFFjNe « DFCLARED AT 00416790 

20602515 
PL -- STREAM VARIABLE -- DECLARED AT 155O15OO 



15502500 
PL — STREAM VARIABLE -- DECLARED AT 20289390 

20239440 
PL •— REAL ARRAY -- DFCLARED AT 40005050 

*4002/295* 40039000 40048000 40051000 40055000 *40056000**40060300* 40060302 40060305 *40060400* 40062000 
♦40064000* 40065020 +40068000* 40068100 40070000 40078030 40078032 40078033 40078038 40078040 4007U042 
40078048 *40078060* 
PL •- STREAM VARIABLE « DECLARED AT 442O3OOO 

44^>04750 
PLACEFlKiDER -- REAL PROCEDURE -- DECLAREO AT O47OOOOO -- FORWARD AT 02187100 

02217100 *04742000* 047/13000 
PLUGGED -- REAL -* DECLARED AT 07006340 

*07lt7100**07123500* 07124500 07139511 *0/140100* 
PM -• INTEGER ARRAY — DECLARED AT 06185105 

*062O5O30**062O5O4O**06205050* 06206140 *062H100* 06211200 06328100 
PN — STRrAM VARTABLF "- OFrLARED AT 22191000 

22192100 
PN -• STRfAM VARIABLE — DFCLARED AT 37046192 

37046205 37046?i? 
PN -- STREAM VARIABLE — DECLARED AT 38626000 
386?6300 

pnch -- real -- value parameter -- declared at 07405100 
pnch -- real -- value parameter -- declared at 08255000 

08257500 08259375 08272000 08273250 08276205 
PNCH -- STREAM VARlARLE -• DECLARED AT 12657000 
12658000 12662000 

pnchds "- Label -- declared at 12513000 -• occurs at 12740000 

12705500 

pnchlk — Label -- declared at 12513000 -- occurs at 12708250 

12710250 

PNtOg — nFFlNE — OFCLaRED AT 37007100 

37O4673O 37046800 37°46855 
PO — REAL — VALUE PARAMETER -- DECLARED AT 08679000 

08690080 
PO — LABEL -- DECLARED AT 16700000 -- OCCURS AT 16749500 

16704000 
POINTER -- REAL — NAME PARAMETER -• DECLARED AT 08700000 

*08705000* 08706000 08718000 08724000 08726000 08727000 
POiNTfRS — STREAM VaRIaRLf -- VALUE PaRaMFTER *• OECLaRFD AT 07003610 

07003615 07003840 
POOL -- RfaL -- DECLARFD AT 28003200 

pool -- Real -- declaRfd at 28401400 

♦ 28458800* j>8462000 ?8463200 28468600 ?8472600 ? 8477?00 28479800 

POSSIBLE — LABEL — DECLARED AT 07423000 -- OCCURS AT 07431000 

07499000 2O38O5OO ?0570270 20570370 20570470 

POWIE •- LABEL " DECLARED AT 20566600 -- OCCURS AT 20572200 

20567056 20567070 20567075 20567085 20567096 20567110 20567120 20567i58 2056/1/6 20567225 2056/230 

20567240 20567?60 20567270 205672/4 20569835 20569940 20569950 20569970 20570080 20570090 20570120 

20570140 20570150 20570170 20570180 205/0200 20570210 20570230 20570280 20570300 20570360 20570380 

20570410 20570*60 20570480 205/0530 205/2900 205/3410 205/3420 20573440 205/3510 20573520 20576800 

PP -- LABFL -- DECLARED AT 37007000 — OCCURS AT 37085000 
3/008000 

PP — LABEL -- DECLARED AT 38661OOO — OCCURS AT 38/94OOO 
38662000 

PP •- LABEL — DECLARED AT 41005000 — OCCURS AT 41054000 
41006000 

PPC -- REAL PROCEDURE -- DECLARED AT 20383000 

♦204*0000* ?0600390 20604850 20605050 



PPC -" STREAM VARlABLF 

20600420 

PPCPROCFSS " REAL — 

PPCPROCFSS •- REAL -• 

*2058115Q* 

PPcPRocrSS « REAL — 

PPfPROCrSS — REAL -- 

PPCPROCFSS « REAL -■ 

PPCPROCFSS -- REAL — 

PPCPRoCESS -- REAL — 

PPCPROCFSS -- REAL -■ 
PPCPROCESS -- REAL 



-- DECLARED AT 20600390 

DECLARED AT 20566100 

DECLARED AT 20581000 

DECLARED AT 20584000 

DFCLARED AT 20586800 

DECLABED AT 20589600 

DECLARED AT 205^000 

DECLARED AT 20595000 

DECLARED AT 20596800 

DECLARED AT 20600010 



PPrPROC 
PR 



PR - 

PR - 

PR - 
PRE 



E5>!> *- REAL — DECLARED AT 20600010 

20600390 *20602fl55**20604H5**20604150* 20606860 2060807< 
FSS — REAL — DECLARED AT 20701500 

l-ARFL -- DECLARED AT 16055000 — OCCURS AT 16249000 

16064000 



LABFL « DECLaRfd AT 18701000 

18701200 

LABEL -- DECLARED AT 38661OOO 

3866?000 



DECLARED AT 41005000 
DECLARFD AT 28210800 



LABEL - 

41006000 
LABEL 

28213800 
PREFlNAL — LABEL " DFCLARED AT 39055000 

39096000 
PRFSENT " DFFINf 

14238000 

prevliNk — Real 



OCCURS AT 18710900 
OCCURS AT 38798000 
OCCURS AT 41054000 
OCCURS AT 28219200 
-- OCCURS AT 39145000 



DFCLARED AT 1*167000 



PReVL?Nk — RfaL « DFCLARFD AT 20013000 

?00?j400 ?0021500 20022000 200?2200 *20024800**20037 100* 

prfvltNk -- Real -- declared at 20082200 



20089300 20089400 20089900 20090lOO 
RFVLTNK -- REAL « DECLARED AT 20142600 
, REVLOC — INTEGER — DECLARED AT 37388100 

374)2000 37413000 +37*14000* 
PRI — REAL — VALUF PAPAMFTER -- DECLARED AT 01240000 

t\iti, ntnn 



, _)245000 
DECLARED AT 08282000 



01240100 
PRIMARYUSER — DEFINE « DECLARED AT 08100850 

08105500 08110050 08U2150 
PRINT — OEFINE " DECLARED AT 20! 
PRINTRACKUP -- PROCEDllRF -- ""-' * ! 

16529000 
PRlNTnlClT -• DEFINE — DECLARED AT 12219500 

12313500 t23l5000 J 23l 6000 12317000 
PRINTDIRECTORY -- PROCEDURE -- DECLARED AT 08098600 

08117200 16746500 
PRINTER — LABEL — DECLARED AT 04357800 ---•-. 

04158400 04380600 
PRINTER — • LABEL " DECLARED AT 2206*000 

22065000 
PRINTFR "" REAL SUBROUTINE — DECLARED AT 37009000 

37012000 37013000 37046060 37046800 
PRINTfRFINISH « PROCFOURE — DECLARED AT 04035000 

46004000 46005000 
PRiNTlTAGAIN « LABEL « DECLARED AT 12513000 -- OCCURS AT 12713000 

12723500 
PRINToRPUNChWAIT «- RFAL PROCEDURF -- DECLARED AT 08255000 -- FORWARD AT 07405100 



OCCURS AT 04390600 
OCCURS AT 22202000 



07419300 *08?77500* 08295200 06298000 12755500 22207000 38609300 
PRINTTHFCOVER — PROCFDURF — DECLARED AT 20289010 

20289600 20602530 20609435 
PRIOR — nEFINF "- PFCURFO AT 20231000 

20507300 20507400 
PRlORfNnX — DFFlNE — DFCUREP AT 12216500 

12250000 t2273000 
PR|0R T NnX -- DFFlNE — DFCL-AREO AT 12367000 

12*22500 12463000 
PRIORITY -- INTEGFR -- DECLARED AT 07486000 

07488000 *07498000**07503000* 07503500 07504000 
PRIORITY — STREAM VARlABLF « DECLARED AT 07488000 

07494000 07495000 
PRIORITY -- STREAM VARIABLE — DECLARED AT 07504000 

07506000 
PRIORITY -" REAL "- DFTLaRFD AT 08851000 

08916000 *08926000* 08936000 08937000 
PRTORTTY -" STRFAM VARIARLF " DFCLAREn AT 0891.6000 

08922000 06923000 
PRIVATE ■»- STREAM LABFL -- DECLARED AT O81 10700 -- OCCURS AT O811O8OO 
PRN .- STREAM VARIABLE -- DECLARED AT 04681450 

04681500 
PRNPBT -- LABEL — DECLARED AT 08255700 -- OCCURS AT 08276580 

08273750 08276100 
PRNPBTCODE — DEFINE — DECLARED AT 00134020 

02261100 08276200 16178000 20152200 206Q5460 

prnpbtspecasei -- Real procedure ■• declared at 12500000 

13045000 13070000 13095000 13112000 13136000 
PRNPBTSPECASE2 — PROcFOURF " DFCLaRED AT 12800000 

130-53000 13O63OOO 13083000 13099000 13H5000 
PRNT «» STREAM LABEL — DECLARED AT 12658000 -- OCCURS AT 12658500 
PRNTABLE — REAL ARRAY -- DECLARED AT 00288000 

01253900 0?4342lO 02434424 O2664OOO 04369200 04674000 +04680200* 04681450 *04682000* 08033990 0805l0l0 
♦08051065* 08447}00 12527500 15113200 16263350 18556500 19685350 *22 1 17000**22145000**22 145525* 2802^600 

28031000 #28074050**28084250* 37027000 37046190 37048300 37122000 37205000 37240500 37243000 37284150 

37314100 *373l9020* 37455000 38IO43OO *38li6500* 38202300 *38238000* 38258500 38271500 38276000 #38638000* 

38788000 44167000 
PRNTDS -- LABEL -- OFCLARfD AT 12513000 -■ OCCURS AT 12728000 

12^05500 
PROB -- LABEL — DECLARED AT 04670650 -- OCCURS AT 04683350 

04684250 O468445O 
PROC -. LABEL •- DECLARED AT 04124000 -- OCCURS AT 04182000 

04190000 
PROCE — REAL -- DECLARFD AT 02057000 

♦02101000* 02101100 02105000 *02107000* 
PROCE -- DEFINE «-- DECLARED AT 20229000 

20504000 
PROCED -- REAL -- DECLARED AT 16911500 

*16926020* 16926022 16926500 16958000 16960500 
PROCESSOPTIONLIST — SURROUTINE " DECLaRFD AT 08102900 

0810*300 08116650 
PROcSWTT — LaRFL -- OFCLARFD AT 00009000 -- OCCURS AT 48087000 

48059000 

PROCTfME -- REAL ARRAY -- DECLARED AT 00161000 

♦02008300**02027000**02034000* 02368000 *06i90000* 06193000 *06t93500* 08533400 *08759000**08767000* 12419500 
♦I26i0l00**i26i2000^ 12696000 *12697500**l28i 7600*+i 28i9500+ 12853000 18710900 ♦20172600**20180350* 220l8000 
22023500 *22242l00+*22252000* 44158000 *44 193000**45 1 1 2000**48080200* 



PROCVaL -- REAL -• DECLARED AT 20566100 

♦20580305**20580310* 20580330 
PROcVftt -- RFAL "• DECLARED AT 20581000 
PROcVaL — RFAL *- nFCURfO AT 20584000 

20586600 
PROCVAU « RFAL -- DECLARED AT 20586800 

20589600 
PROCVAL « REAL -" DECLARED AT ?0589800 

20590750 
PROCVAL -- REAL -- DECt ARED AT 20591000 

20594750 
PROCVaL -- REAL — DECLARED AT 20595000 

20596650 
PROCVaL — REAL — DECLARED AT 20596800 

20597459 
PROCVaL — REAL -• DECLARED AT 20600010 

♦20602860* 
PROCVaL « RFAL -- DECLARED AT 20701500 

20782000 
PROG •• RFAL ARRAY — DECLARED AT 20566100 

♦20566685* ?0566ft90 ?0566695 *?0566805**205668 i 0**205668 i 2**205668 17* ?0566820 20566830 *?0566835* 2O56684O 

205A7058 20567098 20567330 20567335 *20567340* 20567345 20567350 *20567360**20569240**20569525**20569526* 

* 20569529^*20569 670** 20569 7 10** 20 569 7 50** 20569780** 20569800** 20569804** 205699 35** 20569940** 20569965** 20569970* 
20569980 #205700 40**20570050**20 570 1 40** 2057 160**20570200 ♦♦20570220**20570560 ♦♦20570570**2057057 7* 2057 2500 
20572800 *20576?30**20576240* 

PROg — RFAL ARRAY — DECLARED AT 2058i000 

20581350 *2058i400* ?058l450 *2058, 500**?058 \ 900* 2058?000 20583250 *?0583300* 20583350 

PROG — REAL ARRAY -- DECLARED AT 20584000 

*20586000**?0 586050**20586 100**20 586 150**20586 200**20586250**20586 300**20586 350**205864 00**20586450**2058e>500* 

PROG — RFAL ARRAY -- DECLARED AT 20586800 
♦20587150* 

PROG — REAL ARRAY -- DECLARED AT 20589800 

PROG — REAL ARRAY — DECLARED AT 20591000 

PROG -- RFAL ARRAY -- DECLARED AT 20595000 

PROG •- REAL ARRAY -- DECLARED AT 20596800 

PROG -» REAL ARRAY -- DECLARED AT 20600010 
♦20601900* 20604850 

PROG — REAL ARRAY -- DECLARED AT 20701500 

PROGRaMdESC •- DEFINE " DECLARED AT HI60OOO 
14188000 

PROgRaMRELeaSE -" PROCEDURE " DECLARED AT 04099000 
14048000 48105000 

PROTECT — LABFL — DECLARED AT 20390000 -- OCCURS AT 20483100 
20396010 

PROTY -- INTEGER — DECLARED AT 17901500 
♦17905500* 17919S00 

PRT -- REAL ARRAY -- DECLARED AT 00128000 

00131000 02207000 02208000 02216200 02222000 02261200 *02328l00^ 02328200 04103100 04104000 04105200 
04680100 04712000 06463520 07072000 07072100 ^07072200* 07073500 07089000 07104500 08173200 08174000 
08709600 12528000 12539500 12545000 * 12626250** 12637500^ 12649000 *12672000* 12675750 12705250 127l0500 
12861500 !2878000 12880500 12900000 129Q1000 13108000 I40l4l00 14015000 *14035000**14045000**14060000* 
J4072000 ,4,87000 ,4356000 J4358J50 j4358?00 14358320 1435839? 14358394 14358397 44358580 14358595 
14358597 14358615 1436O3OO 14360330 14361200 14370030 * i4370040**!4 370060* l4370i00 *i4370n5* 14370(40 
♦14370160**14370,90* 14644000 15085000 15422000 *15424000* 15426000 *i6l9$000* 16851100 16851200 16853500 
16854700 18504000 18523800 18552800 18702200 18720300 18740400 18770100 18810200 18840200 *18860000^ 
18860100 19525000 19525100 19685570 19900310 19900320 *19900330* 19900370 19900395 19900745 19900755 
19900760 19900780 *19900800* 19902000 19902150 19902190 *19902350**19903100* 19903200 19903900 19903910 



PRT •" 



PRT -" 

PRT — 
PRTAOOR 



PRTD 



PRTLOC 



♦19904400* 
22300000 
224?0000 
28248800 
31005300 
387 t 0000 
425i7l00 
44156000 
48097200 
INTEGER 
08737000 

08791000 

STRFAM V 
08743000 
STREAM V 
-- REAL, 
0g0fl7000 
061 14600 
• REAL AR 
*3l006l00* 

31021000 
PRTGAMES — REA 
♦15439000* 
•* 1NTEG 
♦00031000* 
00051000 
PRTM A x " RFAt 
PRTR -- RfAL AR 
♦14183000* 
I4?i8065 
PRTRLOC — REAL 
♦19740000* 

" REAL 
02184000 

06360515 
12473120 
12900000 
14431502 
16853100 
18580410 
28036200 

28095600 

28260800 

28472800 

36008000 

38573000 

•«• RfaL. - 

♦19720000^ 

-- REAL 

*l974?000* 

PRTVALUE -- REA 

06115700 

■« REAL A 

00039055 

02258000 

04655700 

06098600 



2009 
2230 

22*2 

2824 

*3l00 

3880 

4252 
48O1 

4810 

m m 

• 0875 



2300 
1000 

1000 

9600 

5400* 

6000 

4200 

9000 

0000 

OFCLA 
6000* 



20092600 
22356150 
22*22000 
28250400 
37212100 
39083000 
42525000 
48024000 
48110000 
RFC AT 08 
08758000 



20092700 
22357000 
22423100 
28293800 
37273000 
39297010 
42525500 
48032200 
♦48141300 
733000 
08759000 



♦20092800**20093400* 
22363000 22365150 



20093700 
22366000 
28051000 
28451600 
38ii5000 
42485000 
♦42547200* 
48032800 
**48l4 1400 ♦♦48141500**481 41600* 



28014600 
28305400 
♦37280000+ 
4164OOOO 
42532000 
48O324OO 



28050200 
28434400 
380i5950 
41314500 
42547100 
48032700 



22260000 
22374000 
28051200 
30908000 
38233000 
42486000 
42550600 
48032930 
48145000 



22285000 
22376000 
♦28051400* 
30910000 
38236000 
42488100 
42551090 
48032940 



22286020 
22377000 
28071400 
31005010 
38442200 



22286030 
22410000 

2807 3200 

31005200 

♦38495000* 



♦42506000+ 42517020 
♦4 255 11 00+ +4 255 1200* 
♦48032950+ 48O43OOO 



08760000 08766000 08767000 08768000 08774000 ♦08786000^+08788000* 



PRTROW 



PRTS 
PRTSZ 



PRYOR 



ARJABLf 

ARtABLf 
-- DEC 
06090*00 
06115700 

RAY — 
3J007000 

*3l022000 

L PROCEDU 

16588000 

ER « D 
00032000 
00055000 
•■- DFTL 

Ray — 

14184000 

14224000 

"- HFC 

19753000 

ARRAY -- 

♦02186000 

06360540 

♦12473140 

12901000 

♦14431506 

*i7906j00 

18730200 

28041600 

?8096800 

28270822 

28476200 

37046800 

39009050 

- ofcLaR 

19721000 

— DECLA 

19754000 

L — OF 

RRAY mm 
00050000 
02275700 

04671400 
06099100 



DECUaRFO AT 08737000 



— OFCLARFO AT 08791 
( AREO AT 06069400 
06090700 06090800 



DECLARED AT 
31008000 

♦ 

RE -- DECLARED 



31003000 
3lOi3iOO 



AT 1 



000 
06091700 

3l0i4000 
5400000 



06092000 06096700 06l0i600 06108000 06109000 O6U06OO 
♦31015000+ 31017100 3)0l7300 3lOi7400 3]0i9000 31020000 



FCLAREO AT 00026000 
♦00034000+ 00036000 

aRfD AT 04259600 
OFCLARED AT HI63OOO 
♦14187000+ 14190000 
14226000 +14247000* 
LARED AT 19694000 



00037000 00038000 00039045 00042000 00046000 00047000 00050000 



DECLARED 

♦♦02186050 

06360550 

♦ 12545000 
13107000 

* 14582000 
+ 17906250 

19799070 
28O43OOO 
28097200 
28270824 
28848000 
370468*0 
42526000 

FO AT 1969 
19740000 

RED AT 196 



AT 0013100< 

♦♦02205000^ 

♦06360560+ 

12649000 

13106000 

14583000 

179^000 

19900670 

28O432OO 

28216800 

282854OO 

28849000 

37047250 

♦45153000+ 

4000 

1974J000 
94000 



14192000 
14248000 



02275550 
06463300 
12699500 
14193000 
151,3300 
179(5500 
1990382° 
28O464OO 

282252 00 
28293800 

28852100 

37048i00 

48027000 



14197000 
14249000 



04252100 
06463340 
12705250 
14193100 
♦15114600* 
18029000 
19903850 
28046600 
28230400 
28295800 
28852200 
37121000 
48030000 



14210000 
14252000 



04626000 
07028000 
12710000 
14193200 
15H4700 
18034000 
19903860 
28061800 
28230600 
283O32OO 
28863000 
37172000 
48031000 



+14216000* 
14258000 



04678350 
07028100 
12710500 
14203100 
15115000 
18503300 
+20122100* 
28085800 
28232800 
283O34OO 
28882000 
37181000 
48031100 - 



I42i7000 14218040 1421^045 
+14260000* 14266000 



♦06204000 
12451000 
12861500 
14243000 
15U5400 
I854O2O0 
22042000 
28086200 
28242000 
28303600 
28885500 
380i4700 
48032920 



♦+06206000 
♦12452000 
12878000 
14292150 
15422000 
18540300 
22303200 
28089600 
28242200 
28307730 
31006100 
381O6OOO 



♦ 06354200 

* 12458500 
12880500 
14358325 

«l6i64000* 
♦18570900* 
28022200 
28089800 
28258700 
28467400 
36007000 
38204000 



CLARED AT 06069400 

DECLARED AT OOO216OO 

Oi?60455 0i26u70 *02006000* 02007300 

02434480 O4O452OO 04249000 04377400 

04671550 04672100 05703500 05842300 

06103500 06103700 06203700 06215000 



02107000 
04378000 
05849300 
06257000 



021^3085 
04557200 
05960700 
06360540 



02176000 
04558000 
06022600 
06361705 



02196000 
04567000 
06066000 
06415000 



♦02205100* 
O4568366 
06090700 
06463300 



PRyR • 

PS — 
PS -« 

PS -- 
PS -- 

PSn -" 
psfudo 



PsruDoc 
psfuoom 

PSfUDOM 
PSpUDoM 

psruDoM 



PSF — 

PSOURCE 
PSW — 
PS1 — 



06464900 
0730iOOO 
08?6800n 
06866000 
09637000 
H193100 
14358450 
14541130 
180?9000 
16780100 
19900400 
20154000 
24045100 
37046800 
38555000 
44157100 

- RFAL - 
000?0000 
STREAM LA 
LABEL -- 
08883000 
REAL " 
20289010 
STREAM Va 
20289185 
RfaL " 

*02i73087* 

-- REAL 
02173075 
♦02347250* 
*l87i0260* 
•20609670* 
OPY -• 1 
*02347437* 

ax — nr 

07372090 

axt •• o 
06463380 

44151094 
AXl — 
07462200 
fX -- RE 
02133350 
04648000 
08544700 
167J3500 

♦20176120* 

37046370 

DEFINE 
0?|86050 

15] ]4700 
^8270822 
•- DEFI 
20602530 

REAL — 

♦02173095* 

LAREL - 



07001640 
07371300 
08376000 
08880000 
09680000 
14198200 
14358588 
14560000 
18032000 
I884O9OO 
19900670 
*20l79}00* 
28O8O4OO 
37189500 
38574000 
♦44187200* 
- VALUE P 



07059200 
07392OOO 
08386000 
089J5000 
12386000 
14205000 
14360400 
14582000 
18032010 
18841400 
19902130 
♦20198500* 
28085800 
37227000 
38666000 
45135230 

arametep " 



07059500 
07414000 
08421000 
O8933OOO 
12399000 
14206100 
14361000 
14588100 
I8O33OOO 
I8844OO0 
19902850 
20407000 
28096600 
37241400 
403H000 
48015400 

- dfclaRf 



07i 3 9500 
074?6000 
08569300 
08935000 
12415000 
14237000 
H378100 
15U4700 
18273000 
19303000 
19903650 
20582440 
28242000 
37304000 
403i7220 
48042000 
D AT 0002 



07146000 
07427630 
08571000 
08940000 
12*22500 
14279550 
14383000 
17001400 
18425400 
19685380 
19903907 
20588600 
28293800 
37324000 
41311100 

♦48079J00* 

1000 



07149000 
O75O1OOO 
08580000 
08943000 
12530500 

14292110 
14384000 
17905500 
18523400 
19685460 
20034900 
20601640 
28440800 
37394150 
41317300 



07171000 
♦07503000* 
08627000 
08946000 
12710000 
14292150 
14390000 
♦17906000* 
18540200 
19743000 
20039900 
22009000 
28848000 
38092000 
41320310 



07177000 
07562000 
08670000 
09617000 
12861500 
14351320 
14393000 
17906250 
18559500 
19768050 
20091900 
22049000 
28852100 
38250500 
41328200 



07232000 
O8O46OOO 
08689200 
09630000 
13051000 
♦14351500* 
14398800 
17915000 
18580410 
19768800 
20119600 
22905000 
3 2 000800 
38285500 
42*76000 



07272500 
08088000 
O883OOOO 
09635000 
I4i86i20 

14358386 
14399400 
♦17919500* 
18730300 
19799070 
20150800 
24043000 
36007000 
38372000 
42501650 



BEL -- DECLARED AT 04362200 -- OCCURS AT 04362600 
DECLARED AT O8856OOO -- OCCURS AT 08916000 



VALUE PARAMETER -- DECLARED AT 20289020 
20289020 *20289l52* 20289153 20289154 20289155 
RUBLE — DECLARED AT 20289.160 



20289160 



DECL.ftRrn 

02173210 

ARRAY — 
02173085 

*02347?60* 

)B7t0j>74 * 
37046400 * 

ntfger ■- 

07427600 

FINE -" D 
07428000 

EFfNE — 
07477000 

44174000 

EFINE — 
4415109? 

AL ARRAY - 
04352?00 

04672700 
08784000 
16956020 
20566785 
37187250 

-- DECLARE 
02205000 

16164000 

283O34OO 

NE — DEC 

20609435 

DECLARED 
02173210 
DECLARED 



AT 02133 
02173286 

nFCLARFD 

02173087 

02347280 
19774750 
37046430 

DECLARE 
07427630 

fcLaRed 

07462400 

declaRfd 

O8483OOO 
44194000 

DECLARED 
441S1620 
- DECLA 
04376600 
04673150 
08798500 
16956090 
20585610 
38045i50 

D AT 021 
06204000 

17906100 
28885500 
LARED AT 
20609436 
AT 02133 
02173220 
AT 0885 



150 

02173350 02173364 
AT 02113080 

*0 ? i73090^ 02173095 ^02173265 

02347340 07372320 074i7i00 

♦♦20289540^ 2060252° ♦2O6O8116 

♦ 38608910 ♦38806200* 39092165 

AT 02347110 

♦ 07449500** 184 38 1 95**206 10550** 222 12450** 38 7 32000**44 186005* 
AT 00007050 
4420H10 
AT 00007060 
08487i00 O8495OOO O8548OOO 



* 02i73360 
07417700 

**20608}40* 
4 _ 4164600 



♦O2 173364 ♦*02i 7 3366**021 7 3370 ♦*02i 7 3375 ♦ 
♦07419700* 07478i00 i87i0246 l87i0258 
*20608790^ 20608850 20609430 20609570 



08555000 0856?000 08564000 ^OB^OOO 16O85OOO 



AT 000070 
44164500 

RED AT 021 
O43834OO 
04674850 
12473280 
18522500 
20602470 
38608900 

10050 

O7O28OOO 
18570900 
45153000 
20600000 



55 

44l78i00 

13085 

04386800 

04675250 
14431600 
18523300 
20602480 
39092165 

12452000 
22O42OOO 
48027000 



O4393OOO 

04683800 
14541090 
18710244 
20605510 
41333090 

12473120 
22303200 
48031000 



150 

02173280 02173350 02173362 
6000 -- OCCURS AT 08927000 



O44O48O0 

04686350 
14541110 
18710254 
20608H4 
4416O4OO 

12473140 
28043200 



02173370 



04416400 04567600 04567830 04568590 

04687Q50 06205010 ^06205020* 07511000 

14541120 15114300 15H5900 1543/100 

18710272 19768764 19774100 ♦20i70800* 

20609660 28439400 28440600 32001500 



13107000 14431502 i443l506 i5n4600 
28046600 28089800 ?8230600 2826O8OO 



0B9?B000 
PS2 — LarfL — DECLARFD AT 08856000 " OcCURs AT 08936000 

08932000 
PTTME -- RFAL — OFcLaRFD AT 12357500 

*124i9500**i?420000* 12421000 12*23500 

ptn — real « declared at 61250300 

*0l253900* 01254000 *0i 260425**01 260460* 01260465 *0i261 1 50**01 261 1 80* 01261200 
PTN -- STREAM VARIABLE -- DECLARED AT 01254000 

0125*100 
PTN -- REAL -- VALUE PARAMETER -- DECLARED AT 37342000 

37337000 37339000 
PTPUNCH -- REAL SUBROUTINE — DECLARED AT 37014000 

37017000 37018000 37085000 
PTR -" REAL -- DECLARED AT 04554600 

04555150 *04555500**04555600**04555650**04570i00* 04651050 04651200 +04654900* O46558OO O46574OO O46584OO 

04659400 04662700 +04662800* 
PTYPE »- REAL — DEfLAREO AT 07006180 

*07039l00**07039?00**070594i0+ O7O395OO +07039600* O7O4OOOO 07ll5l00 07118550 07120010 *07t 26000**07126500* 

0712^000 07l29i00 07129200 07t395l0 07i39520 *07 l69i 00**07i69i iO* 07i69500 
PU -- STREAM VARIABLE -- DECLARED AT 02641000 

02653000 
PU — LABEL « DECLARED AT 06351500 — OCCURS AT 06380750 

06381000 
PUBLIC — STREAM LABEL " DECLARED AT 06H0650 -■ OCCURS AT 08111100 
PUD — REAL — DECLARED AT 08255500 

08256450 *08256500* 08259225 08268500 

pud -• label — declared at 3B548000 -- occurs at 336«4500 

38608200 3861O1OO 

PUNCH •- LABEL -- DfCLARED AT 04357800 -- OCCURS AT 04403800 

04358400 O438O8OO 

PUnCH -- DEFINE -- DECLARED AT 20?44000 

PUNCH p- LABEL -- DECLARED AT 22064000 — OCCURS AT 22213500 

22065000 
PUNCH -- REAL SUBROUTINE — DECLARED AT 37019100 

37019300 37019400 37046075 37046800 
PUNCHLCK — DEFINE •- DECLARED AT 00416770 

12707750 12878000 38737000 

punt •- procfouRf — nFcLARFn at 00650000 

02005000 02017000 02l8l000 02215500 04004170 04252000 06009300 O6O373OO 06380350 14603750 16852900 
18013000 24007i00 24042675 40278l50 4814OOOO 

punter -• Real array -- declared at 00643000 

00651000 00652000 00656600 00657000 16852900 44l79i00 44l8l000 
PUNTSfZE — DEFINE — DECLARED AT 00643100 

44151080 44179100 
PURGE •- REAL — VA|,UE PARAMETER -- DECLARED AT 02381000 

02380000 02381000 02387000 
PURGE "■ REAL « VALUE PARAMETER "" DECLARED aT 02637000 

02635000 02636000 02641000 

purge — oefinf -• nFrLARFD at 38385000 

38510000 

purge — define -- declared at 38567000 
purge •• define — declared at 38678000 

38787000 
PURGE — DEFINE — DECLARED AT 41022000 

41190700 
PURGEIT — PROCEDURE — DECLARED AT 37449000 — FORWARD AT 00397000 

12528500 37466000 38789000 



PX -. 

pX -. 
PI — 

PI -I 
PI - 

P1MIX 



PuRGElOfK -- La 
14632900 

put — pfftNf 

PUTiNriLENAMF -- 

08106850 

LABEL -- 
38796000 
LABEL -- 
INTEGER 
♦08788000* 
STREAM VA 
UABEl- " 
28010200 

-" rfaL 
00039055 

02174000 
02208000 
02275700 
04050000 
04252000 
04568366 
04723000 
06022600 
06203700 
06360520 

06463529 
07059200 
07146000 
07371950 
08088000 
08533500 
08689200 
08935000 
09647000 
I26t0i00 
12696000 
*!28t8000* 
12863500 
I40i52l0 
14198200 
14243000 
14358200 
14358595 
14367100 
14396000 
1454H30 
14585000 
17904500 
l79j7500 
18032000 
18504000 
18528100 
18559500 
18710900 
18780100 
I8844OOO 
19685380 



BEL 



PFCLARFO AT 14028100 



rn at 00301100 

NF -- DECLARED AT 



AT 3866OOOO ■ 

AT 41004000 
EO AT 08733000 







- DErUR 
SUBRoUTi 

08115350 

DECLARED 
38800000 

DECLARED 

- DECLAR 
08791000 

RlABLE — DECLARED AT 08791 

DECLARED AT 28005B00 — 

28077600 260/8200 28078800 

- DEr^ARED AT 00021700 
00050000 0i?60455 0l26i]70 
02176000 0?t96000 02202100 
02216200 02221000 02222000 
02318000 02322000 02327000 
04061000 04103100 04104000 
04252100 04252300 04252500 
04655700 04671400 0467i550 
04726000 04727000 05703500 
06066000 06090700 06098600 
06215000 06257000 06353500 
06360540 06360550 06360560 
06463760 06463992 0646«900 
07059S00 07072000 07072100 
07149C00 07171000 07177000 
07392000 07414000 07426000 
08173200 08174000 08259575 
08569300 06571000 0857H00 
08689300 08696100 08709600 
08940000 08943000 08946000 
09680000 0968OJ00 09662620 

26i0500**l26ll500* 12612OOO 

2696500 12697500 12698500 

28J9000* i2 8 i9500 12823OOO 

2878000 12880500 128*9500 

4035000 14045000 14060000 

4201000 14203000 14203100 

4279250 J4279550 I4292i00 

4358320 14358325 14358360 

4358597 i43586i5 14360300 

4370i00 14370150 14370180 

4398800 14399400 144n000 

4559500 J4560000 14564000 

4588000 I45fi8l00 14618000 

7905500 17906000 17906100 

79J9000 i79i9500 17922000 

8032010 18033000 18034000 

SSlOjOO 18520900 J8522300 

8528200 1854O12O 18540140 

8570000 18570900 18580410 

871H00 187H790 18720300 

8790600 187*1620 18810200 

88441OO i88«5500 18860000 

9685460 19685570 19685580 



- occurs at i467iooo 

08106200 
CCURS AT 38778000 



000 
CCURS 



AT 28085600 



02006000 
02202200 
02258000 
02326100 
04105200 

*043l6000* 
04672100 
05842300 
06099^0 

*06353590* 
06361705 
064658j0 
07072200 
07232000 
074 2 7625 
08268000 
08571600 
08728600 

08997000 
12386000 

12626250 
12699500 
12829500 
12900000 
14072000 
14204100 
14292110 
14358386 
14360330 
14370190 
144H200 
14569000 
14644000 
17906150 
17922500 
18256000 
18522500 
I854O2OO 
18702200 
18730200 
18822100 
I886O1OO 
19685585 



O2OO81OO 
02202500 
02259000 
02434480 
04105550 
♦04317200* 
*04678l00* 
05846395 
06103500 
♦06353660* 
06415000 
06465820 
07073500 
07272500 
07427630 
08270650 
08580000 
08830000 

09617000 
12419600 
12637500 
12705250 
12833000 
1290i000 
14186100 
14205000 
14292150 
14358392 
14360400 
14378100 
14411840 
14569200 
14658000 
17906250 
17926000 
18258000 
18522700 
18540300 
18710244 
18730300 
18835200 
19303000 
19697400 



O2OO83OO 
02203000 
02260000 
02434490 
04105600 
04377400 
*04687600. 

05849300 
06103700 
06354000 
06463260 
06465840 
07074090 
07296000 
07455000 
08378000 
08602000 
08836000 
09624000 
12528000 
12649000 
12708250 
12853000 
13051000 
14186120 
14206100 
14351320 
14358394 
14360600 
14379000 
14534500 
14570000 
15021000 
17907000 
17926500 
18273000 
18523300 
18540500 
18710254 
18740400 
18840200 
19525000 
19699000 



♦02026000* 
02205000 
02261000 
02434530 
04105650 
04378000 
04710000 
05853600 
06116000 
06354200 
06463280 
07001640 
07075000 
07301000 
07562000 
08379000 
08627000 
08866000 

09630000 
12530500 

12672000 
12709750 
12853500 
13107000 
14187000 
14227400 
14351500 
14358397 
14360700 
14383000 
14541000 
14581000 
15085000 
17914100 
18023000 
1842S200 
18523400 
18552400 
18710272 
18740600 
18840900 
19525100 
19743000 



02107000 
02205100 
02261100 
02665100 
04236000 
04557200 
047H000 
05960700 
06116100 
06355000 
06463300 
07001840 
07089000 
07352000 
07568000 
08386000 
08628000 
08880000 

09635000 
12538500 

12675000 
12710000 
12854000 
13108000 
14193000 
14233000 
14356000 
14358450 
14361000 
14384000 
14541090 
14581700 

15114700 
17914500 
18024000 
18425400 
18523800 
18552800 
18710300 
18740700 
18841400 
19525200 
19768050 



02133350 
0?206l00 
02261200 
04045100 
04237000 
04558000 
04712000 
05970500 
06190000 
06360515 
06463340 
07028000 
07104500 
07371300 
07572000 
08388000 
08670000 
089J5000 

09637000 
12539500 
12675750 
12710500 
12861500 
14014100 
14193100 
14233100 
14358000 
14358580 
14361200 
14390000 
14541110 
14582000 
17001400 
17915000 
I8O28OOO 
18466000 
18524900 
18553500 
18710400 
18740800 
18841500 
19680400 
19768200 



02173085 
02207000 
02275550 
04045200 
04249000 
04567000 
04722000 
05975610 
*06l90i00* 
06360516 
06463380 
07026100 
07139500 
07371600 
08046000 
08421000 
08677000 
08933000 

09638000 
12545000 
12688000 
12B17600 
12863000 
I40i5000 
14193200 
14237000 
14358150 
14358588 
14364200 
14393000 
14541120 
14583000 
17904000 
17915500 
18029000 
18503300 
18526300 
18559100 
18710600 
18770100 
18843700 
19685015 
19768764 



P 1 M T X 

PlMlX 

P1MIX 

PlMlX 

P1MIX 
P1MIX 

P1MIX 
PlMjX 
PlMjX 
PlMjX 
PlMlX 
P1M1X 
PlMIX 



19768768 
19900395 
19902850 
20150800 
20583650 
224?9230 
24043100 
28036200 
28071400 
28?25200 
28250400 
28294200 
28435200 
28849000 
31005200 
37046735 
37047250 

37204000 
37241700 
37394700 
38103600 
38250500 
38431000 
38574000 
39?98000 
41320355 
425i7020 
42550500 
48017000 
48032800 
*4807l000# 
48141300 

•«■ tNTfgfR 

00365000 
-- STREAM 

02944000 
-- STREAM 

06359000 

— STREAM 
12708750 

*» STREAM 

-- STREAM 

14204200 

— STREAM 
♦15030000* 
"- STREAM 

17912500 
»■* STREAM 

18528600 
.- STREAM 

18570600 
-- STREAM 

18790700 

— STREAM 
18791640 

— STREAM 
24042725 



t9768fl00 
19900400 
l9903i00 
20150900 
20588600 
22905000 
24043800 
28041600 

28073200 
28230400 
28258700 
28294400 
28439400 
28852100 
31OO53OO 
370^6740 
37047*70 
37225fl00 
37242i00 
37428i00 
38106000 
38253100 
38435000 
38608900 
40311000 
41,328200 
425l7 t 00 
42550600 

48019000 
48032920 
48079i00 

48141400 

-- VAL 
00366000 
VARIABLE 



J9774t00 
]9900440 
19903200 
♦20152000* 
20601640 
22906000 
24044250 
28043000 
28080400 
28230600 
28260800 
282»5800 
28439600 
28852200 
31005400 
37O468OO 
37048100 

37226000 
37273000 
380 130 10 
38115000 
38253500 
38441000 
38668000 
403l7220 
42476000 
42524100 
42551000 
48024000 
48032930 
48080200 
48141500 

UF PaRamfTf 



19774850 
19900550 
19903650 
20154C00 
20760000 
229U000 
24045100 
28043200 
28085800 
28232800 
28270822 
283O32OO 
28440000 
28863000 
31006100 
37046810 
37059000 
37227000 
37279100 
38013040 
38121500 
38254000 
38442100 
38709000 
40336000 
42485000 
42524200 
4255i090 
48027000 
48032940 
48096000 
48141600 
R — DE 



19786000 
19900670 
19903907 

♦20180000. 
20769200 
22913000 
24045250 
28046400 
28086200 
28242000 
28270824 
28303400 
2844O6OO 
28882000 
36006500 
370/,6829 
37121000 
37230000 
37280000 
380i4700 
38146000 
38280000 
38442200 
387i0000 
41O4OOOO 
42486000 
42525000 
42551100 
48030000 
48032950 
48100000 
48142500 

CLA«FP AT 



DECLARED AT 0?222000 



VARIABLE -- DECLARED AT 06355000 



VARIABLE 

VARIABLE 
VARIABLE 

VARIABLE 
15030500 

vaRiarLf 
variable 
variable 
variable 
variable 
variable 



DECLARED AT 12708250 



DECLARED AT 
DECLARED AT 

DECl-AREO AT 

DECLAREn AT 

DECLARED AT 

DECLARED AT 

DECLARED AT 

DECLARED AT 

DECLARED AT 



12823000 
14204100 

15021000 

17907000 

18528200 

18570000 

18790600 

18791620 

24042700 



19796000 
19900680 

20034900 
20180350 
20771020 
22917000 
24045500 
28046600 
28089600 
28242200 
28282800 
28303600 
28440800 
28885500 
36007000 
37046830 
37172000 

37234000 
37304000 
38015950 
38201600 
38280500 
38485000 
38732300 
4i05i620 
42488100 
42525500 
42551200 
48031000 
48037000 
48110000 
48145000 
00367000 



19799070 
19902000 
20035000 
♦20210200* 
22009000 
22920000 
24210000 
28050200 
28089800 
28244010 
28283000 
28305400 
28451600 
30908000 
36008000 
37046835 
37181000 

37239000 
37324000 
38039000 
38204000 
38284000 
38490000 
38806000 
41191200 
42488200 
42526000 
♦ 45H3000* 
48031100 
48042000 
48121200 



19900310 
199021 30 
20H9600 
20210300 
22010000 
24037900 
28014600 
28051000 
28095600 
28244030 
28285400 
28307730 
28467400 
30910000 
36009000 
37046855 
37185350 

37241300 
37353000 
38045150 
38217000 
38284500 
38495000 
39009050 
4i3lll00 
4250 i050 
42532000 

*45123000^ 
48032150 
48043000 

*48122000 # 



19900320 
19902150 
20U9700 
20407000 
22030000 
24038000 
28016200 
28051200 
28096800 
28248800 
28291200 
284164OO 
28472800 
30920000 
37026000 
37046860 
37187250 
37241400 
37361000 
38077000 
38233000 
38285000 
38513000 
39083000 
4i3i7300 
42501650 
42540000 

♦45l30i00^ 
48032200 

♦48045000** 
48135000 



19900330 
19902190 
20120600 
20582440 
22049000 
24042700 
28022200 
28051400 
28097200 
28249600 
28293200 
28416600 
28476200 
31005010 
37036400 
37046900 
37189500 

37241510 

37382000 

38079000 

38236000 

38285500 

38555000 

39092165 

4t3203l0 

4250i8l0 

42547100 

45135230 

48032400 

48064000* 

48138000 



19900370 
19902350 

♦20149800* 
20582450 
22429220 
24043000 
28030800 
28061800 
282J6800 
28250000 
28293800 
28434400 
28848OOO 
31005100 
37046370 
370469 2 
37195250 
37241520 
37394150 
38092000 
38247500 
38372000 
38573000 
39297010 
41320320 
42506000 
42547200 
45153000 
48032700 

♦48067000* 
48141200 



PlMjX -- STRFAM VA r !ArLf " DECLARED AT 28291200 

28292000 
PlMfX — STREAM VARIABLE -- DECLARED AT 309?0000 

309?4000 
P1MIX „- STREAM VARIABLE « DECLARED AT 37361000 

37379000 
P1PR0CESS — LABEL -- DECLARED AT 02023000 — OCCURS AT 48099000 

46037000 46028000 46029000 46030000 46031000 46032000 46033000 46034000 46035000 46036000 46037000 

46038000 46039000 
P2 »- LabfL ■• DFCLaRFn fl T 28005800 — OCCURS AT 26086600 

28010200 
P?BUSy « LABEL — DECLARED AT 00008000 -- OCCURS AT 48i?l000 

46O1OOOO 
P?EAKE •- LABEL — DECLARED AT 00009000 — OCCURS AT 48085000 

48015500 
P2MIX -- REAL — DECLARED AT 00021700 

02038000 02041000 02042000 +O?043000+ 02364000 08533500 l?4l9600 16850700 19905310 22242100 22252000 

22299000 22361000 22409000 48001000 480i5l00 48015400 48019500 48033000 *4803700o* 48096000 48097200 

48122000 *48123000* 
P2PR0 r EsS — LABFL — nFCLARED AT 02023000 " OCCURS AT 48095000 

460)4000 460)5000 460)6000 460^7000 460,8000 460)9000 460?0000 4602)000 46O22OOO 46023000 46024000 

460?5000 460^6000 
P3 — LABEL — DECLARED AT 28005800 -- OCCURS AT 28088800 

28080600 

q -- real « value parameter -- declared at 00336100 
-- real — value parameter -- declared at 00379400 
q — real -- value parameter -- declared at 00379700 

00379600 
Q — STREAM VARIABLE — DECLARED AT 00651800 

00652600 02161000 
Q »- STREAM VARIABLE — DECLARED AT 02223000 •- OCCURS AT 02158000 

02225000 02251050 02251060 0225U0O 02251U0 
Q •* STREAM VARIABLE — DFCLARFD AT 02347350 

02347360 *02347370* 

Q •- INTEGER -" DECLARED AT 05847700 

♦05850600**05851300**05851700* 05851800 05851900 *05852000* 05852100 

•- TNTFfiFR -" DECLARFD AT 05952000 

♦05962600* 05973800 05974200 *05974400**05974800* O5975OOO 

Q -- REAL — DECLARED AT 06)85000 

*06?08000* 06217000 062l8000 06224000 06233l00 06235)00 06248000 06279)00 
Q -• INTEGER « VALUE PARAMETER « DECLARED AT 06350300 

06350000 06350300 06351000 06352000 *06380250* 06380300 O638O4OO 06380600 06380650 06381250 *0638l300* 
06381320 *0638l335* 06381340 *0638i395* 06381400 
Q — STREAM VARIABLE — DECLARED AT 06381340 

06381350 06381360 
Q — REAL " DECLaRfD AT 07006070 

♦07013000* 070)4000 O7O3OOOO *0705 7000**07059000**07059300* 07059400 07059500 *07061 000**07066900* 07119)00 
07)25500 07141000 
Q •• REAL -- VALUE PARAMETER -• DECLARED AT 07405100 
Q — REAL -- VALUE PARAMETER -- DECLARED AT 08255000 

08?"56440 08257000 08258400 08259225 082598l0 08260500 *08270200* 
Q *• REAL •" DECLARFD AT 08441000 

♦08494000* 08496000 08502000 
Q — STREAM VARIABLE " DECLARED AT 08502000 

08504000 
"- INTEGER — DECLARED AT 14350100 

♦ 14360330* 14360340 *143*0350* 14360360 14360370 * 144 15000** 1443 1530* 14431600 



Q ■*- STRFftM VARIARLf — DFCLARFD AT 14415000 

Q •- STRFAM VARjABLE — DFCLARFD AT 14645400 

14650000 
Q — REAL — VALUE PARAMETER -- DEClaRFO AT 15600000 

15602500 15*0?a80 15603900 156O46OO 
Q -- REAL -- VALUE PARAMETER -- DECLARED AT 1S610000 

15615000 

Q *• STREAM VARIABLE — DFCLARFD AT 15615Q00 

15616000 *15618000* 

Q •• switch label « declared at is?iiooo 

18373060 18289000 18306000 
"- STRFAM VARUBLF -- DFCLARFD AT 18521000 

*18521200* 18522100 
Q -- REAL " DECLARED AT 19900260 

*l9900370* 19900380 19900390 
Q -- STREAM VARIABLE -- DECLARED AT 20031500 

20032250 
Q -- STREAM VARIABLE -- DECLARED AT 20043800 
Q -* STREAM VARIABLE -- DECLARED AT 20106000 
Q "»- STREAM VARIABLE •- DECLARED AT 20181000 
Q — STREAM VARIABLE — DFCLARFD AT 20299030 

20299040 
Q •- STREAM VARIABLE -- DECLARED AT 20511660 

20511690 
Q "- STREAM VARIABLE — DECLARFD AT 20592400 

20592450 
Q -- REAL « DECLARfO AT 2*003400 
Q — REAL « DECLARED AT 28203800 

28237400 *28?40?00* 
— REAL •- DECLARFD AT 2*803000 

28831000 *28836500* 
Q " REAL — VALUE PARAMETER « DECLARED AT 32000100 

32000000 32001500 32002300 
8 -- REAL -- VALUE PARAMETER -- DfCLaKEO AT 32100000 

32100350 32100600 
— REAL •- DECLaRfO AT 36003000 

*36007000* 36008000 
-» REAL -- DFCLARfO AT 37422000 

*374?5500* 37428i00 
Q -• STREAM VARIABLE -- DFCLARED AT 38807000 

*38808000« 
— STREAM VARIABLE — DECLARED AT 40?55000 

40256000 
QM — STREAM VARIABLE — DECLARED AT 04647100 

04647150 
QMaRKtARLEADDRESS -" STRFAM VARIABLE — DfCLAREO AT 07003462 

07003484 
QMK mm STREAM VARIABLE -- DECLARED AT 07066}00 
07066500 *07066800* 

DECLARED AT 16O54OOO -- OCCURS AT 16173000 
16206?00 

-- DFCLARFD AT 12516000 
12649000 12705250 12M0500 
" DFCLARED AT 12815000 
12878000 12880500 12900000 129O1000 
" DFCLaRFD AT 13021000 
-- nFCLARFD AT 00081200 



QT -- LABEL — 




16062000 


QTED 


— DEFINE 




12528000 


QTED 


— DEFINE 




12861500 


otfd 


"" DFFINf 


QTRDY 


-» DEFINf 



QTROYMASK -- DFFTMr -- DECLARED AT 00081200 

QTSpEC -» LABEL -- DECLARED AT 12514000 -- OCCURS AT 12626000 

12515000 
QTSpEC — DEFINE -- DECLARED AT J 3024000 

13112000 
QUEST — DEFINE -- DECLARED AT 20217000 

20324000 20364000 20378000 20585705 20585710 20602650 20604200 20605880 20608072 20608250 20608730 
QUFUEUP "" PROCEDURE " DFCURFD AT 04o16oOO 

04029000 04052000 04191000 

quit -- Label — dftLaRfd at 04261200 -- occurs at 04305200 

04318600 04319800 04333800 04335400 04336800 04337600 

QUiT -». LABEL — DECLARED AT 08255800 -- OCCURS aT 08280000 

08?«>9625 08259650 08260000 

QUIT -p. LABEL — DECLARED AT 13019000 -- OCCURS AT 13132000 

13116000 
QUIT -- LABEL — DECLARED AT 20146600 -- OCCURS AT 20210000 

20146900 
QUIT — LABEL -" DECLARED AT 20566600 — OCCURS AT 20571500 

20570280 20570380 20570490 
QUIT — LABEL — DErLARFD AT 28402800 -«■ OCCURS AT 28465000 

28460400 
QUITTlNr, — DFEINE — DECLARED AT 20019000 

20025800 20036300 20037900 20047400 
QUtTTtIV, — DEFINE -<■ DECLARED AT 20087900 
QUiTTtNr -- DEFINE -• DECLARED AT 20148100 

QUP -- LABEL « DECLARED AT 04124000 -» OCCURS AT 04190000 
QZ -- LABEL « DECLARED AT 02193000 -- OCCURS AT 02269000 

02287255 02287270 0?309000 
R •" REAL " NAME PARAMETER — DECLARED AT 00336100 
R "" REAL — VALUE PARAMETER — DECLARED AT 00452800 

00452600 00452700 
R — INTEGER — DECLARED AT 02133200 

♦02133300**02133350* 02133380 *0217322o* 02173230 02173240 02173292 02173294 02173301 
R — RfaL — VALUF PARAMFTFR " DFCL A REn AT 02177100 
R — REAL « VALUE PARAMETER « DECLARED AT 02393500 

02393400 
R •- STREAM VARIABLE -- DECLARED AT 02662100 
R •- REAL — DECLARED AT 04021000 
R •• REAL — DECLARED AT 04044000 

04059000 
R — REAL ARRAY — DECLARED AT 04101000 

04106000 

r " real -- value parameter -- declared at 04121410 
r »• real -- value parameter -- declared at 04121425 
r •• real *- value parameter — decLaRfd at 04122000 

04129570 04129580 *04129590* 04130000 04134060 04134500 04134700 04146100 04150200 *04l5l200* 04151230 
04207000 04224100 04225000 04H28000 

r ••» real — value paRa m etep -- dfclaRfd at 04255000 

04254000 04255000 
R •- REAL -- VALUE PARAMETER -- DECLARED AT 04256000 

04272000 04281800 04284200 *04286200* 04287000 04299600 04300000 O43O48OO 043l0400 
R — STREAM VARIABLE — DECLARED AT 04272000 
R — REAL -- VALUE PARAMETER — DECLARED AT 04353200 

04368200 04371920 04372000 *04372 100**04397400* 04407000 04408600 04412800 04413200 04413600 *04414000* 

04414200 04414600 04415600 #04417400* 04418200 04418800 04419400 04421600 04429400 
R •<" REAL *~ VaLUE paRa m fteR ■• DFCLaREO AT 04550000 

04548000 04549000 04557000 0457i000 04579100 O46O8OOO 04633200 *04633300**04637000* 04639100 *04648250* 



04651300 
R -- STREAM VARIABLE -- DECLARED AT O468O35O 

04680«50 
R — INTEGER -- DECi.ARED AT 05841615 

♦05844110**05844930* 05846360 05846390 
R — INTEGER -- DECLARED AT 05847700 

*058501?0* 05853425 05853595 
R — INTEGER " DECLARED AT 05951800 

05952250 *0596065O* 05960670 *0596l400* 05966100 05966400 *05966600* 05967200 05975600 05975620 
R " REAL. -- DFCLaRfD AT 06068300 

*06l09400* O6IIO3OO 061H300 06114400 
R -- REAL — NAME PaRAMETFR -- DECLARED AT 06350300 

O635OOOO 0635J000 06353500 0638} 3 9 5 
R *- REAL •• DECLARED AT 07006060 

07043000 07047000 *07!43000**07164000**07174000* 07178100 07l78?00 07178300 
R — DEFINE « DECLARED AT 07387000 

07390000 07393000 07399000 07400400 
R — REAL — VALUE PARAMETER -- DECLARED AT 07406000 

07409000 07409)00 07409200 07409250 07409300 07415100 07417100 07417400 07417700 07419700 074J9800 
R •• REAL — DECURFD AT 07424000 

*074?8000* 07429C00 07*32100 07433000 07437300 07448000 07449200 07453000 

R *■- real -• dfcLaRfo at 07542000 

R «- REAL ** DECLARfD AT 08027000 

♦08030000* O8O3O1OO *08043000* 08049000 
R •• REAL ARRAY -- DECLARED AT 08173100 

08175500 
R •- STREAM VARIABLE -- DECLARED AT 08320000 
R •- REAL -- DECLARED AT 08392000 

♦08410000* 08410100 08412100 08412200 08412400 
R mm STREAM VARIABLE •• DECLARED AT 08472000 
R •- STREAM VARIABLE -- DECLARED AT 08532000 
08533000 06619000 

R •- strfa m variable — declarfd at O8632000 — occurs at 086I6000 

08655000 
R mm r ea l, »- DFCLaRfD AT 14545000 

14556000 *i4559?50* 14563000 1459^000 l4598 1 Q0 J4600500 i46°2000 146O34OO 14609000 I46?i000 
R *- STREAM VARIABLE -- DECLARED AT 15426000 

15431000 
R •- STREAM VARIABLE -- DECLARED AT 15438060 

15438090 
R *- REAL " DECLARED AT 16696200 

16696300 *16827jOO* 16827900 16«29550 * 1 6852000**16852700* 16852800 *16852900* 16853000 16853100 #16853300* 

16854200 16854400 
R — REAL ARRAY "• pfcLa.RFD AT 19692000 

*l97i9000* 19720000 *l9727000* 19754000 19766800 
R <•- REAL -- DECLARfD AT 19900260 

*19900380* 19900390 *i9900750* 19900755 19900760 19900770 *i9900780* 19900800 
R -- STREAM VARIABLE •- DECLARED AT 2O59O66O 

20590665 
R mm STREAM VARIABLE -« DECLARED AT 205906*0 

20590685 

r — stream variable -- declared at 20590700 

20590705 
R -* STREAM VARIABLE -- DECLARED AT 32000800 

32000850 
R — STREAM VARIABLE — DECLARED AT 37256000 
R — STREAM VARIABLE — DECLARED AT 37284120 



R 
R 
R 



R 
R 



R -« 

R ■" 

R - 
RA ' 
RA ' 

Radd 



RB4 

RB5 

RC 

RC 

RC 
RC 

RC 
RCW 

Rcw 
RCW 

RCW 
RCW 
RCW 
RCW 

RCW 

RCW 
RCW 
RCW 



37284140 
REAL « 

37357300 
REAL « 
♦38399000* 
REAL " 
♦38581920* 

38637000 
REAL •- 
REAL « 
♦40016500+ 

40332440 

40334055 
REAL — 
♦41O5OOOO* 

STREAM VAR 

REAL "- 

♦42517020+ 

STREAM VAR 

425t7040 

LABEL -- 

16705000 

Real — 

•40039000* 

♦40322220* 

"- INTEGER 

400^6026 

4OO56OOO 

40100200 

#40290200* 

• DEFfNE 

28463800 

■ DEFINE 
28461800 

REAL -- 
04255100 
REAL « 
04667000 
STREAM VA 

label -- 

16065000 
STREAM VA 

• REAL — 
00031000 

» Real •- 

• Real 
05950600 

■ REAL — 

• REAL — 

• REAL « 

■ REAL — 
08568150 

• REAL « 
*12665500* 

' REAL -- 

• Real »- 

RpftL 



VALUE PARAMETER -- DECLARER AT 37357500 

37357400 
DECLARpD AT 38362000 

38400000 38402000 384O4OOO 384O8OOO 38456000 38464000 
DECLARED AT 38547000 
♦38598000* 38598100 38599000 38600000 *38607200* 386O81OO 

DECURfD AT 38655000 
DECLaRfD AT 40004000 

♦40046000* 40047000 40049000 4OO5IOOO 40055000 40056000 
4032244? 40322470 *40 322600**403 ? 2800* 40324l02 40324300 

DECLARFD AT 41003000 

41190900 
TABLE -- DECLARED AT 41333005 
DECLARED AT 42516000 

42517030 
IABLE — DECLARED AT 42517030 



38608400 38609300 38610100 38610200 



♦40258000* 40261042 +40321 1 30++40321 1 35* 
* 40 3?5000**40 32^000**4 3 30000** 40 333000* 



DECLARED AT 16700500 



OCCURS AT 16850300 



DECLARED AT 40004000 

40039200 40055000 40056000 40060060 4OO6O1OO 4OO6O3OO 



40065080 40065100 *40 321 300**4032l8iO* 



40100600 *40l00700**40l00900**4010l250**40254l00 
0* 40290400 *40290600**40321135**40321300* 40324210 
torn at otmmonn 



" DECLARED AT 40004000 
*400i7?85* 40027270 40027?90 40039000 

40060060 40060100 *40064000* 40065020 

4010050 
♦4029030 
-- DECLARFD AT 28407200 

28464400 
-- DECLARFD AT 28407000 

?8462?00 

VALUE PARAMETER 

04255?00 

VALUE PARAMETER -- DECLARED 

04667050 0^674600 0^675600 
RlAPLE — DECLARED 



<!0039i00 
♦40065040+ 



40039200 
40065080 



40040500 40047000 40047100 40055000 
40065100 *40078068+ 40078074 +40078076* 
♦ 40255000 *40261046**40287000* 40290000 
*40334055* 20380100 20567120 



-- DECLARED AT 04255200 



AT 



DECLARED AT 16056000 — 



04679050 

OCCURS 



AT 04667050 
04677400 04679050 



04682950 04685050 04685650 04685750 04686450 



AT 16263000 



RIABLE « DECLARED AT 

DECLARED AT 00029000 

DECLARFD AT 02115000 

DECLARED AT 05950400 

DECLARED AT O6O683OO 

DECLARED AT 06407000 

DECLARED AT 08173000 

DECLARED AT 08568100 

DECLARED AT 12501500 



38762000 



DECLARED 
DECLaRFD 
DECLaRFD 



AT 
AT 

AT 



12801500 
13002000 
14345000 



14353000 

RCW -- REAL -- DFCLaRED AT l5lll800 

RCW — REAL « DFCLARFD AT 16691500 

16692000 

RCW •- REAL « DECLARED AT 16907000 

16907500 

RCW -- REAL -- DECLARED AT 18502300 

18520800 18552600 

RCW — REAL -- DECLARED AT 19519000 

RCW — REAL « DECLARED AT 20011800 

RCW «•" REAL <•- DFCLaRED AT 20081000 

Rcw — real -- declared at 20101*00 

♦20149200* 

rcw •• real « declaRfd at 20566100 

20567520 +20567530* 

RCW •- RFAL — DECLARED AT 2058)000 

20581125 *2058H30* 

RCW »«• REAL -- DECLARED AT 20584000 

20584325 +20584330* 

RCW — " REAL « DECLARFD AT 20586800 

20587110 *20587120* 

RCW •* REAL « DECLARED AT 20589800 

20590010 +20590020* 

Rcw -- real -- declared at 20591000 

20591610 *2059i620* 

rcw •« real « dfclaRfd at 20595000 

20595080 *20595090* 

RCW — REAL -- DECLARED AT 20596800 

20596945 +20596947* 20597460 

Rcw -• real — declared at 20600010 

*20600760* 

RCW -• REAL. — DFCLaRED AT 20701500 
20707000 #20708000* 

Rcw -- Real -- dfclaRfd at 22002000 

RCW -- REAL -- DECLARED AT 22067000 

RCW — REAL « DECLARED AT 2^000500 

28000600 *?8049/|00* 

RCW m- REAL -» DFCLARFD AT 28200800 

28201000 +28246000* 

RCW -• REAL « DFCLARED AT 37451000 

RCW — REAL « DECLARED AT 38001000 

38047000 +38048000* 38100000 

RCW — REAL « OECLiREH AT 38102100 

38110000 +38110500* 38192000 

RCW •• REAL "" DFCLaREH AT 38200100 

38210000 *382i0s00* 38298500 

RCW -- REAL -- DECLARED AT 38356000 

+38387000* 3B538000 

RCW -• REAL — DECLARED AT 38541000 

38580000 +38581000* 38646000 

RCW — REAL — DECLARED AT 38649000 

38695000 +38696000* 38819000 

RCW — REAL — DFCLARFD AT 39001000 

♦39307400* 

RCW -" ReaL — DECLftRFD AT 41003100 
•41309000* 

Rcw -- Real -- declaReo at 4i3i6?oo 



RCW -- RFAL -- DECLARFC AT 41327200 
RCW -- RFAL — DFCLARFO AT 42515000 

*425?5000* 42525)00 425?5l30 4?525)50 425?5500 4?526000 42527000 
RCW -• RFAL "- DECLARED AT 45001000 

♦45075590* 45248000 
RCWL •• RFAL -- DECLARFD AT 42515000 

♦42525000* 42525150 42527000 
RD "- LARFL ". DFCLaRfo AT 12512500 — OCCURS AT 12545000 

12547500 
RD •"• LABFL "- OFCLaRfP AT 16356000 — OCCURS AT 16538000 

16365000 
RDATA -- LABEL — DfCLARED AT )4627200 -- OCCURS AT 14642000 

14632000 14673000 
RDCTABLF •- REAL ARRAY — DECLARED AT 00287000 

02700000 02327000 *02665 100**04 1 34060* 04i37j30 *04146200* 04278400 O42818OO 04365600 04367800 04368200 

04391550 04555650 04657400 04658400 04673850 *04680200**0468 1950**070 16000**07075000**07409200* 08460000 

08472000 06473000 *08582 100** 12528400** 1 2530000* 12535500 * 12538500** 12675000** 12688000* 12715500 *127l6500* 
*12860i00**i2875000**i2876000* 15113100 15H5000 16205000 16263300 18556200 *20590400**20590668*#20590688* 
*205907i0**20595300* 20596150 *22069480**22 100500**22185000* 28O162OO 28O282OO *28030800**28250000* 28252000 

37026000 *37046i77**37l?4i00* 37192000 37)99)00 37204000 37276000 37784i20 37264130 *373i90i0* 38118OOO 

38754100 *38637c00**3873i000**38786500**39298000* 44177000 
RDT — ' RFAL « OFCLaRFD AT 05951700 

05951800 05956250 #05963000* 05963800 05969)00 05975400 05979400 
RDYTAPE — SUBROUTINE -- OFCLARFD AT 12520500 

12540500 17689000 i27j8000 
READALABEL -- LABEL -• DECLARED AT 37J80600 — OCCURS AT 37252000 

37753000 37267100 
READC «•• LABEL — DFC|,ARED AT 14627300 -- OCCURS AT 14660500 

14632100 
READEMFROMDISK — REAL PROCFDURE — DECLARED AT 07376000 -« FORWARD AT 02347150 

02347330 *07395000**073$6000* 07448500 08)75300 20297000 38804000 39145210 
READER mm LABEL — DFCLaRED AT 04357800 — OCCURS AT 04394800 

04358400 04380400 

ReadfRa -- Real -- dfclaRfd at 02112500 

07078000 07079000 ♦07080000* 08434i00 *20489200**20585 100**20595350**206069 i0**206085l0**22069490**38i20000* 
READERS « REAL — DECLARED AT 02112500 

07082000 07083000 *07084000* 08434200 *20489300**20585l 25**20595400**20606920**20608520**22069490**38 120500* 
REAOlN " LABEL — DECLARED AT 0885500O -- OCCURS AT 08865000 

08860500 

readlabfl — label — declared at i«628ioo -- occurs at i469sooo 

14632100 
READQ •- REAL — DECLARED AT 00301100 
READSOUGHT -- LABFL -- DFCLaRED AT 1462/400 -- OCCURS AT 14660500 

14632200 
REA0S0Uc,HT7 « LAPFL — DECLARFD AT 14627400 
READTaPf — RFAL SUBROUTfNF — DECLARED AT 12544000 

12551000 12556000 12651000 
READY — REAL -- DECLARED AT 00121000 

♦02 197000**04 296200**04 38 2800**07 013000**070594 00* 07059500 *08 04 9000**0 8090000**084 35000**08584000** 125 31000* 
♦ 12865500* 22074000 22075000 22078000 *22080000* 22087000 *22089000**22l09000* 22222000 *37037 100**37306000* 
#45152000**45230000* 48012000 48O84D00 
READY — DFFlNr — nFCURED AT 14167000 

14236000 
RFALFOF — LABFL — DFrLARFD AT 04357400 — OCCURS AT 04419400 

04421800 
REALFiLFCLOSF -- PROCFDURF — DECLARED AT 4)000000 — FORWARD AT 00389000 

00389200 



REASON •- STREAM t, ABEL, — DECLARED AT 20032200 -- OCCURS AT 20032725 
RECORORETRY -- SUBROUTINE — DECLARED AT 04555050 

04555/00 04567*50 04568200 04634300 

RECOUNT -- REAL -" DECLARED AT 12505000 

* 12523000** 1 262 3 300** 126 4 9500** 12652500** 1265 3500* 12656000 +12745500* 
RECOUNT -- REAL -• DECLARED AT 12805000 

RECOUNT — REAL -• OFCLaRED AT 13006000 

* 13080 100** 1308 1000** 131 01 000* 

Recs -- Real -- declared at 41327400 

41133005 41333010 *4l333800* 4i334300 
RECYCLE — STREAM VARIABLE — DECLARED AT 04659p00 

04661700 *0466J900* 
RECYCLE -- LABEL — DECLARED AT 41327800 -- OCCURS AT 41331600 

41332800 
RED -- LABEL -- DECLARED AT 12512500 -- OCCURS AT 12551000 

12545000 12548500 
REED -«- REAL SUBROUTINE " DECLARED AT 372H000 

37220000 37221000 37252000 37264000 37267000 37267050 

Reed "- subroutine -- declared at 38105300 

38106400 38126500 38127000 38127500 38*28000 38130500 38i38500 3814JOOO 
REFO — SUBROuTINf — DECLARED AT 38203300 
38?04400 38263500 38292500 3829^500 

Reel — Real -- value parameter -- declared at 00373000 

00371000 00372000 
REEL — REAL -• VALUE PARAMETER -- DECLARED AT 00376000 

00374000 00375000 
REEL -- REAL — DECLARED AT 02661000 

02662100 02663000 02*68600 
REEL -- REAL -- DECLARFD AT 04668500 

♦04674250* 04678900 04680350 04681250 04681850 04683400 

reel — r f aL -- dfclaRfd at i50630oo 

15094000 
REFL — RFAL -- VALUE PARA m ETeR — DECLARED AT 37002000 

37000000 37OO1OOO *370^6i75* 370*16 1 77 37Q/»6i92 370«6730 37i74l00 
REEL -- REAL — VALUE PARAMETER -- DECLARED AT 37179000 

37177000 37178000 37192000 37216000 37224200 37240200 37261000 
REEL -• REAL — VALUE PARAMETER — DECLARED AT 37342000 

37337000 37339000 
REEL -- INTEGER -- DECLARED AT 38007000 
REEL — INTEGER — » DECLARED AT 38102700 

381.04900 38105800 38113000 *38118000* 38151000 
REEL »- INTEGER — DECLARED AT 38200700 

38202900 38203800 38213500 *38254 100**38273000* 38275500 38296750 
Rp F L *- INTEGER "" nFcLA«E0 AT 39004100 

39086000 *39087500**39092000**39092200* 39143000 39297000 39297100 

Reel -- stream variable -- declared at 39297100 

39?97200 
REELCHANGER « PROCEDURE -- DECLARED AT 15110000 

15116200 16263600 
REELNO -• REAL -- VALUE PARAMETER — DECLARED AT 02637000 

02635000 02636000 02641000 
REELNO " STREAM VARIABLE — DECLARED AT 02641000 
REELNO — DEFINE " DECLARED AT 12518000 

12572500 
REFLSW — DEFINE — DECLARED AT 28008400 
REFLSW — DEFINE — DFCLARED AT 28209200 
REFL1START — DEFINE — DECLARFD AT 28008600 



28048600 28055000 
RETLISTaRT .. DEFINE -- DECLARED AT 28rt05800 

28475800 
REENTRY -- REAL SUBROUTINE — DECLARED AT 20090700 

20094200 ?0123000 
REFILL — LABEL -- DECLARED AT 14629100 — OCCURS AT 14681000 

14632100 
REL — DEFINE — DECLARED AT 38382000 

38419000 38503000 
REL •- DEFINE •- DErL-ARED AT 38564000 
REU •" DEFINE "- DErLARFD AT 38675000 

38778000 
REL — DEFINE -- DECLARED AT 41019000 
RELINT -- REAL « DFCLARED AT 19901200 

19902000 }9902l50 19902190 19902350 i9903l00 J9903200 
RELTOG -- DEFINE — DECLARED AT 004l65?0 

04105500 

rem -- Label — deci.arfd at 09701000 — occurs at 09717000 

09706100 
REM — INTEGER — DFCLARFD AT 40005110 

*40027230**40039iOO* 40040500 40078068 40078069 
REMEMRER -- RFAL -- DFCLARFD AT 20566310 

20566320 2°5668i2 205668 ? 5 ?0566830 2°566840 20567325 2°567335 20567340 20567345 20567360 #20569400* 
♦20569890* 
REMO — LABEL -- DECLARED AT 20566600 -- OCCURS AT 20573300 

20566620 ?0576600 
REMOTE -- DEFINE — DECLARED AT 20247500 
REMOTELOGFREE — DEFINE -- DECLARED AT 00081500 
REMOTELOGMASK -- DEFINE -- DECLARED AT 00081500 
REMOV — DEFINE — DECLARED AT 20225000 
REMOVF " LABEL — DFCLARED AT 07300000 — OCCURS AT 07331000 

07314300 07318010 

removf — label — declared at 20597800 -- occurs at 2O6O6550 

20597950 
REMOVFDFCK -- PROCEDURE " DECLARED AT 07298000 

07372800 07410000 
REMOVnT •*• SUBROUTINE -- DECLARED AT 12589000 

12750000 12752000 
REMOVEM -- LABEL -■ DECLARED AT 12513500 -- OCCURS AT 12749000 

12707000 
REMOVER -- SUBROUTINE « DECLARED AT 18244000 

18444000 
REPEAT — REAL — DFCLARED AT 20566260 

20566265 *20577250* 20578700 
REPLY — REAL ARRAY — DECLARED AT 00289000 

#02203000**06360520* 06360540 *064632©0* 06463300 06463380 *06463760* 08602000 12415000 *12473l90**12709750* 

127^0000 *12829500* 12861500 12863000 12863500 *12899500* 12900000 *1443 15 t 8**145ai 000**14581700* 14582000 

14595000 *i4588000**i6l08000* 16I63OOO * 16 18 lOOO** 16343100* 16950000 * l79i4 lOO** 179 14500* i79j5000 i79i7500 
*l79t9000#*i8028o00* 18029000 18258000 *l8540i40* 18540200 *i8540500* 22014600 *220l4640**28293200* 28293800 

28294200 28294400 #36007000**36009000**37046740* 37046800 37046829 37046830 370*6835 370ft6855 37046860 
*37046900*#37046920**370«7670*#37059000**37226000* 37227000 37230000 *37234000**37239000**3724l 300* 37241400 

37241510 *372M520**3724l700* 44162000 

Research -- Real subroutinf — declared at 3^210100 

37210300 37210400 37227000 
RESERVE — REAL — DECLARED AT 07006040 

♦07096000* 07145000 07147000 07148000 07240000 
RESERVEDTSKSIZE -- OEFINF -- DECLARED AT 00005300 



05954800 06353M0 
RESETjAR -- LABEL « DECLARED AT 15112700 -- OCCURS AT 15115300 

15115000 
RESETUNITS — LABEL -- DECLARED AT 04670650 — OCCURS AT 04685150 

046B5400 
RESETV -• DEFINE — DECLARED AT 20228100 

20587800 20594450 20602800 20604350 20608078 

rpsoLve "- RfaL strfam procedure -- declared at 28411200 

♦28413400* 28427800 

Restart -- labfl -- dfclarfd at 13019000 — occurs at 13097000 

131 36OOO 
RESTART -- LABEL « DECLARED AT 169H100 «- OCCURS AT 16925100 

16968130 
RESTART — LABEL « DECLARED AT 20382054 -- OCCURS AT 20382520 

203*2095 
RESTARTING -* INTEGER -- DECLARED AT 00419100 

20023800 *44085000* 
RESULT "" PROCEDURE — DECLARED AT 00646000 

00650500 

Result -- Real « dtclaRfd at 04552000 

04555650 04561000 *04566000* 04567010 04567100 04567200 04567770 04567870 *04568i00* 04568470 04568480 

04568520 04568530 04580000 04588000 04588060 O4588O8O O458812O 0fl588i60 04588210 04588230 04588280 

045882*0 04588410 045884?0 04568450 04595000 0460?000 04633000 04637000 O4638OOO O46382OO O46388OO 

04638900 04657400 O46584OO 04658800 
RESULT -- REAL -- DFCLARED AT 04668650 

04671800 *04672050* 04672150 0467?200 04672300 04672850 04673300 *04673500* 04676100 04676250 04676650 

04677000 04683250 04684250 04684450 
RESULT -- REAL " DECLARED AT 14624200 
RESULT "• REAL « DFCLARED AT 22233000 

22243000 22246000 22401000 22^05000 
RFSULTl -• REAL " DECLARED AT 00058000 

46006000 

RfSULT2 — RfaL -• DECLARED AT 00058000 

46007000 
RESULT3 — REAL -<■ DECLARED AT 00058000 

46008000 
RESULT4 -- REAL -- DECLARED AT 00058000 

46009000 
RETMSG — DEFINE — DECLARED AT 00416100 

22158000 
RETRY -• LABEL -- DECLARED AT 04261200 — OCCURS AT 04314600 
RETRY — LABEL -- DFCLARED AT 04670650 -- OCCURS AT 04678300 

04683850 
RETRY -* LABEL — DfCLaRED AT 22236100 -- OCCURS AT 22331400 

22334800 

Return -* label — declared at 00009000 -- occurs at 48110000 

04105890 0^105998 O4113OOO 04237000 08i75500 O818OOOO 193O4OOO 19685380 19685470 
RETURN -- LABEL « DECLARED AT 41600500 -- OCCURS AT 41607400 

41602700 
RETURNEM — LABEL — DFCLARED AT 14351100 -- OCCURS AT 14398500 

14407200 
RETURnFaLSE « LABEL -- DECLARED AT 12513500 -- OCCURS AT 12746500 

12638500 12682500 12687500 1269?000 
RETURNIOSPACE " DEFINE " DECLARED AT 00206500 

02068000 02100000 02300000 04199000 04309200 04315600 04426000 07063000 37333000 
RETURNMSCW — REAL — DFCLARFD AT 20014600 

20014700 
RETURNMSCW -- REAL -- DECLARED AT 2OO838OO 



200*1900 
RETURnMSCW — REAt, -- DECLARED AT 20144200 

20144300 
RETURNMSCW — REAL — DECLARED AT 20566100 
RETURNMSCW -• REAL — DECLARED AT 20581000 
RETURNMSCW — REAL — DECLARED AT 20584000 
RETURNMSCW « REAL -- DECLARED AT 20586800 
RETURNMSCW — RFAL — DECURED AT 20589800 
RETURNMSCW — REAL — nFCLARFD AT ?059i000 
RETURNMSCW — REAL -- DECLARED AT 20595000 
RETURNMSCW -- REAL -- DECLARED AT 20596800 
RETURNMSCW -- REAL -- DECLARED AT 20600010 
RETURNMSCW -- REAL — DECLARED AT 20701500 
RETURNRCW — REAL " DECLARED AT 20014700 

20016600 20080100 
RETURNRCW — REAL " DFCLARED AT 20083900 

20085700 20H0200 
RETURNRCW *- RFAL -- OFCLaRED AT 20144300 
RETURNRCW — RFAL « dfcUaRFD AT 20566100 

20580340 

RetuRnRcw -- real -- dfclaRfd at 20581000 
20581080 20583710 

RETURnRCW — REAL -- DFCLARED AT ?0584000 

20586625 
RETURNRCW — REAL " OFCLARED AT 20586800 

20589610 

RETURNRCW — REAL — DFCLARED AT 20589800 

20590751 
RETURNRCW — REAL " DFCLARED AT 20591000 

20594751 
RETURNRCW — RFAL — DFCURFD AT 20595000 

20596651 

RftuRnRcw « Rfal — dfcLaRfd at 20596800 

20597460 

RETURNRCW — REAL — DECLARED AT 20600010 
RETURNRCW — REAL — DECLARED AT 2070j500 

20783000 
RETURnToCOMi9 — LABEL « DECLARED AT t ?5i3750 -- OCCURS AT 12759000 

12624000 12625500 12747500 
RETURNTRUE « LABEL -- DECLARED AT 125135Q0 — OCCURS AT 12758250 

12664500 12694000 
RETURNVaL — REAL "" DFCLARFD AT 20566100 

20566245 *20580330* 
RFTURNVAL -• RFAL -- OFCLARED AT 20581000 
RETURNVAL -- RFAL — DFCLARED AT 20584000 

♦205S6600* 
RETURnVaL — REAL -- DFCLARED AT 20586800 

20586950 *205B9*00* 
RETURNVAL — REAL — DECLARED AT 20589800 

♦20590750* 
RETURNVaL — REAL — DECLARED AT 20591000 

♦20594750* 
RETURNVaL — RFAL ." DFCLARED AT 20595000 
♦20596650* 

RetuRnvaI- — Rfal -- dfcLaRfd at 20596800 

♦20597459* 

RETURNVAL « RFAL -- DECLARED AT 20600010 



RETURNVAL -- REAL « DFCLAREO AT 2O7O15OO 

2070?000 *?0782000* 
REVERSE -- DEFINE « DECLARED AT 14167000 

14734000 
REW -- LABEL — DECLARED AT 37)80600 -- OCCURS AT 37253000 

37266000 
REW -- DEFINE " DECLARED AT 38380000 

38419000 38503000 
REW -- DEFJNF -- nErUREn AT 38563000 
REW -• DFFINF — DECLARED AT 38674000 

38752000 38774000 38799000 
REW — DEFINE -- DECLARED AT 4)018000 
REWIND — SUBROUTINE « DECLARfD AT 12525500 

12536000 12743000 
REWJNDAnDLOCK — PROCFDURE « DECLARED AT 08079000 

16797000 
REWINDING — LABEL ■- DECLARED AT 04357600 — OCCURS AT 04382600 

04375400 
RHEAD — REAL — DECLARED AT 38103200 
RHEAD -" REAL -- DEcLaPFD AT 38201200 

38247500 38250500 
RJE -- STREAM VARTABLF -- DECLARED AT 081 l2l 75 

08U2840 
RJEINPUTAREAV -- DEFINE -- DECLARED AT 00017420 
RJEOK — REAL -- DECLARED Al 16911000 

*169?7500* 
Rl — DEFINE -- DECLARED AT 375C1000 

37512000 37513000 37516000 37^17000 37521200 37531000 37533000 37535000 37542000 37544000 
RL — REAL — DECLARED AT 40004000 

♦40039000* 40055000 40060060 40060100 40060400 40061000 40064000 40065080 40065100 40068000 #40321300* 
*40322800**40324j20* 40324200 40328000 
RlFN — TNTFnFR -- VALUF PARAMfTfR -• DFCLAREO AT 00396000 

OO393OOO OO3940OO 
RL^N -- INTEGER -- VA^UE PARAMETER -- DECLARED AT 37471000 

37418000 37419000 37474200 *37425000* 37476000 37435000 37436000 37446000 
RLEN — INTEGER — DECLARED AT 38003000 

38013400 38024^00 38027300 38036000 38O38OOO 38091000 38097000 
RLEN •- INTEGER — DECLARED AT 38102300 

38158000 
RLfN — fNTFGFR -" DFCLAREO AT 38200300 

38277000 
RLFN •- INTEGER — DECLARED AT 39002000 

390^7000 39O380OO 390Jj9000 *39088000* 
RLEN -- INTEGER — DECLARED AT 4OOO4OOO 

400<|6026 *400i729«>* 40027250 4OO39OOO 4OO391OO *400a0500* 4OO47OOO 4OO471OO 4OO55OOO *40056 100**40060060* 

40060100 4OO6O3OO *40060400* 4OO61OOO *40064000* 40065020 *40065040**40065 100**40066000**40068000**40078069* 

40078070 40078074 *40078076**40078087* 40078091 40100200 40100500 *40 100600**40100800**40 10 1250**4026 1046* 
* 40 290200**40 32 1300** 40 3224 20**40 3224 44* 40 324210 
RM -- LarfL — DFCLiRFn AT 16054000 -- OCCURS AT 16134000 

16063000 
RMSfi — LABpL — DECLARFD AT 20020300 -- OCCURS AT 20043600 
RN — LABEL -- DECLARED AT 16356000 -- OCCURS AT 16531000 

16365000 
RO — LABEL -- DECLARED AT 16O55OOO -« OCCURS AT 16253000 

16064000 
ROCKABYF -- LABEL -- DECLARED AT 24032800 -- OCCURS AT 24042000 

24033200 24038^00 



ROOT 
ROTATf 

ROUND 

ROUND 

ROUTI 

ROW 

ROW 

ROW 

ROWS 

ROWSZ 

RP - 

RPB 

RR - 

RR - 
RRNCO 
RRRME 



NF 



RS -. 

RS -« 

RSB1T 
RSET 

RSIZE 
RSLT 
RSLT 
RSl.T 

rSlt 
rstog 

RSULT 
RT - 
RTi . 
RTl • 



STREAM 
-- LABEL 
14632100 

- LABEL 
20451000 

- label 

37008000 

-- Real 

0?0i2000 

Real -- 

06462110 

real — 

14671000 

DEFINE 
40042100 

REAL - 
06464050* 
" REAL 
06464600* 
LABFL "- 
04588250 

DEFINE 
375M000 
LABEL 
16364000 
LABEL — 
•- REA 
" INTE 
02198000* 
08089000* 
22102000* 
44?i4l00* 

real — 

086?4000 
LABEL -- 
16705000 

- DEFINE 
LABEL 

20598000 
• REAL 
37338000 

STREAM 
00033000 

R F A L " 
00655600 

RFAL - 
REAL - 
22331400 

- DEFINE 
20767000 

- REAL A 
28831600* 
STRfaM VA 
08890100 

REAL — 
39905000 

STREAM V 



LABEL -- DECLARED AT 18820800 -- OCCURS AT 18821100 
-- DFCI ARED AT 14629000 -• OCCURS AT 14710000 



OCCURS AT 20447000 
OCCURS AT 37046040 



— DECLARED AT 20390000 — 

20484900 

"" DFCLaRFD AT 37004000 — 

37046900 37047615 37059000 

-" VALUE PARAMfTFR •- DfCLAReo AT 02015000 
02013000 0?0l9000 

DECLARED AT 06462100 
♦06464^00* 06464200 

DECLARED AT I4624t00 
14677000 *14678000**14679000* 14684000 H695000 
-- DECLARFD AT 40008100 

- DECLARED AT 06462100 

06464100 
-- DECLARED AT 06462100 

06464700 
DECLaRFD AT 04554300 — OCCURS AT 04588150 



— DFCLARED AT 37501000 
« DECLARED AT 16355000 -- OCCURS AT 16411000 



14711000 14712450 



DECLARED AT 16699000 — OCCURS AT 16721500 
L -- DECLARED AT 00301100 
GFR — DFCLARFD AT 00013000 

*0 2434 3 10*^0 266520 0**0 4296 400**0 438 3200**0438 3900**070 14000**07059 300**08039000**08047000**0808 4000* 
*08 2598 10**084 36000**0858 3000** 125 3 1500** 12866000**2060 11 50** 20609 150* 22074000 * 22086000**22092000* 
*22209?00**280?8400**370 37 200** 3704 6 170**37248000**37 305000**38 11 6000**38237500** 386 38500**4 4083000* 
♦45229000* 48O42OOO 48084000 

VALUE PARAMETER -- DECLARED AT 08625000 

086?5000 08659000 08671000 
DECLARED AT 16700500 -- OCCURS AT 16820000 

— DECLARED AT 00417080 

- DECLARED AT 20597850 — OCCURS AT 20606700 

" VALUE PARAMETER " DECLARED AT 37343000 
37340000 

variable — dfclaRed at 00032000 

- DfCLARfD AT 00650500 
00655800 

- DECLARED AT 04?5940C> 

- DECl.ARFD AT 22235500 
22332400 22332600 

-" DECLARED AT 00416620 

RRAY -- DECLARED AT 28804000 

28833000 *28839000* 28848000 28850000 28851000 28852100 *28870000* 
RIARLF " DECLARFD AT 08887001 

DECLARED AT 3990i000 
399?8000 *39934000**39939000**39945000* 3995OOOO 39955000 

ARIABLE -- DECLARED AT 39905000 



RTi 
RTl 

RUN 

RUN 

RUNAR 

RUNJN 

RUmIN 
RUnIn 

RUNN1 

RUNTH 

RUNUM 

RUNV 

RW - 

RWL 
RWL 

RXIT 

RY » 

Rl - 

Rl 

Rl - 

R2 - 

R3 - 

R4 - 

R4 - 

R4 - 

R4 - 

R4 - 



G 
G 

NG 



R4 
R4 

R4 



»- STREAM 
-- REAL » 
♦40016400 

-* PROCEDU 
02033000 

-• LareL 
20597950 

OUND -- S 
14185000 

6 "- DEFI 
20018500 
-- deFI 
— DEFI 
20U2800 
— REA 
12398500 

FOrC* •" 
16533000 

BER "- WE 
*074?0000 

"• DEFINE 
2060.3000 

- LABEL - 
16704500 

-• REAL - 
<■" REAL 

37312000 

— label 

16064000 

• LareL 

16062000 

• define 

14600500 

- REAL — 
16696400 

- INTEGER 
*37432000 

- REAL •" 
16696500 

- REAL — 
16696600 

- REAL "- 
16696650 

• STREAM V 
16855300 

• REAL — 
18570000 

- STREAM V 
18570300 

» REAL — 
♦18710600 
18834700 

- stRfam V 

- Real -- 
19303000 

REA|, •» 
19569000 



VARIABLE - 

• DECLARED 

* 40016410 
RE — DEC 

20047800 
-- DECLARE 

UBROUTiNF 
1.4207000 

NE -- DEC 



- DECLARED AT 3995O0OO 

AT 40004000 

40016420 40016500 400J7050 40017200 40017250 ♦40249100^ 40249110 *40249120* 40249130 
LARED AT 02025000 

22045000 
n AT 20597700 — OCCURS AT 20605600 

-- DECLARED AT Hi8?000 

14224000 
LARED AT ?00i9i00 



NE 

ne 



DEC 

DEC 



L ARRAY -- 
♦12400000* 
PROrFDURE 

AL -- DEC 

* 07426^00 

DECLA 
?0604550 

- DECLARED 

- VALUF PA 

- value pa 

" DEcLAR 
16065000 

- DECLaRfd 
16064000 

-- DECLARE 

1 46O2OOO 

DECLARED 

16698?30 

-- DECLAP 

* 37433000 
DECLARED 

DECLARED 

16697200 

DECLARED 
16697000 

ARIARLE -• 

DECLARED 
16580000 
ARIABLE •" 

DECLARED 

* 18750)00 

aRiable •« 
declared 

declared 

19570000 



LARED AT 20088000 
LARED AT 20148200 

DECLARED AT 12365000 
*12407000**12417000^ 12421500 12437500 12443000 *12445500* 12475000 
-" DECLARED AT 07457000 

LARED AT 07003000 

♦07490000* 07462200 *07462300^*0746?500^ 07463000 07469000 07573000 18527900 ♦44280100* 

Red at 20219500 

20604750 2O6O548O 2°605600 20608078 
AT 16700500 -- OCCURS AT 16796000 



RAMETER 
PAMETER 



DECLARED AT 00380000 
DECLARED AT 37302000 



ED AT 16056000 -- OCCURS AT 16343000 

16080000 16086000 16101000 16103000 16136000 16245000 

AT 16054O0O -- OCCURS AT 16243000 

16218000 
D AT 14546200 

14603400 14609000 
AT 16696300 

ED AT 37422100 
AT 16696400 

AT 16696500 

16698240 
AT 16696600 

16826900 16828000 ♦16853200* 16854700 
' DECLARED AT 16854700 

AT 18500100 

■ DECLARED AT 18570000 

AT 18700100 
18770400 +18770900* 1881O1OO 18820)00 18820200 *18821800* 18830700 18831500 18834000 

' DECLARED AT 18770400 
AT 19302000 

AT 19501000 
19572000 19680200 19681000 19685030 



R4 •• STREAM VARIABLE — DECLARED AT 19680200 

19680300 
R5 -- REAL -" DECLARED AT 18500100 

18503400 
R5 — REAL -- DECLARED AT 18700100 

18750100 18790100 18790200 18790400 18790600 #18821800* 18835000 18850100 18870700 
R5 -- REAt "" 0FCURF0 AT 19501000 

J9590000 19685030 19685340 19665350 19685360 *l9685370* 19685380 19685400 19685430 19685452 19685456 

19685460 19685550 
R6 -- REAL -- DFCLARFD AT I8500i00 
R6 -- REAL -- DECLARED AT 18700100 

♦18770300* 18770900 i87»0i00 18790200 j8790400 18790600 18821800 18831700 18832900 
R6 — STREAM VARIABLE -- DECLARED AT 18831700 

18832000 
R6 -- STREAM VARIABLE -» DECLARED AT 18832900 

18833200 
R6 ■*- REAL — DECLARED AT 19501000 

19575000 19576600 19685370 19685550 

R7 -• Real -- declared at 18500100 
R7 -- real — ofclarfd at 18700100 

18770900 

R7 -- real -- declared at 19501000 

19575000 19685550 

R8 -• REAL •• DECLARED AT 18500100 

R8 -- REAL "- DECLARED AT 18700100 

18770900 18860000 

R8 •• REAL "- DECLARED AT 19501000 

19575000 

R9 — REAL " DECLARED AT 19501000 

19576100 19576300 

s -• tntfgfr -• value para m fter -- dfclaRfd at 00396000 

00393000 00394000 

s -- tNTft.fR — value paramfter -- dfclaRfd at 00432000 

S -- STREAM VARIABLE -- DECLARED AT 00657000 

00657200 
S -- REAL -- DECLARED AT 02057000 

•02061000* 02063000 *02065l00* 02067000 ♦0207 1000**02077000* 02079000 02089000 02097400 02100000 
S -- TNTFGFR — DECLARED AT 02133200 

♦02173100* 02173110 02173150 02173296 02173300 
S -• REAL « VALUE PARAMETER " DFCLaRFD AT 02187300 

02187100 02187200 
S -- REAL — DECLaRfO AT 02190000 

02193000 *02209000**022ll0l0**022l2l00**022l5000* 02215500 ♦02216000+ 02216500 02216510 02217100 *02254000* 
02255000 02256500 +02275200+ 02275250 02275350 02275400 02275650 02275700 02275800 02276100 *02276290* 
♦02280000* 02287210 *02294000* 02300000 
S -- REAL •" DECLARFD AT 02434120 

•02434470**02434500* 02434510 02^34520 *02434540* 02434560 *02434570* 02434580 02434590 *024346 10**02434620* 
S ••» REAL — DECLARFD AT 04021000 

♦04023000* 04025000 
S "• REAL — DECLARFD AT 04044000 

♦04046000* 04055000 04058000 04060000 04061000 04062000 04063000 04064000 

s — Real -- dfcLaRfd at 04103050 

*04l04000* 04105200 04105950 
S •- STREAM VARIABLE — DECLARED AT 041 05200 

04105400 
S -- REAL -- DECLARED AT 04116000 

♦04117000+ 04118000 



S — REAL — DECLARFD AT 04126000 

♦04129000* O4131O00 04137110 04137140 04137170 04137202 04151220 04151230 04157000 04168000 04169000 

04170800 04178000 04190000 04194100 04194700 04199000 04205000 04224100 04224500 04225000 04228000 

04230000 
S » REAL -- DECLARfD AT 04257000 

04?72000 04279 ? 0O 04279400 042&0400 04281600 0428?000 +04284200* O42844OO 04284600 O4285OOO 04285800 

04286200 O42864OO 04299200 O43OO2OO 04304600 04309200 04309600 O431O4OO 04312400 04315400 0430600 

04316600 04316800 04317000 04336000 04351800 
S -- STRFAM VARIABLE -- DECLARED AT 04272000 
S -- STREAM VARIAPLE -- DECLARED AT 04280400 

04280800 
S — STREAM VARIABLE — DECLARFD AT 04285000 

04285400 
S — REAL •• DECLARFD AT 04354200 

04366400 04366^00 04367000 04368000 *04372D00* 04372050 O43721OO O0373OOO 04391200 0439i560 0439i570 

04391600 04398400 04421800 04425400 04425600 04426000 +04426600* 04427000 *04427200* 04427800 04428000 

04429400 04431200 04433200 
S -• STRfaM VARIABLf "- OFCLaRfP AT 04588280 

04588330 
S -- STREAM VARIABLE -~ DECLARED AT O45884IO 

04588470 
S -- STREAM VARIABLE -- DECLARED AT 04647100 

04647150 
S -• REAL "- DECLARED AT 04668550 

#04682250* 04685200 04685250 04685300 *04685400* 

s •- real — ■ value parameter — DECL ft REn at 04702000 

04700000 04701000 04707500 04708000 04712000 04723000 04725000 *04729000* 04731000 04732000 04733000 
♦04735000* 04736000 
S -- STRfaM VARIABLf «■• DFCLARFP AT 04712000 

047^4000 *056l0000^ 056*4000 
S — STREAM VARIABLE -- DECLARED AT 05614000 
S • - INTEGER -- DECLARED AT 05847700 

♦05R48100* 05848255 *05«50l 1 0**058501 30**05850300* 05850700 05851300 *05852l00* 05852200 05852400 05852500 
S -- INTFGER -- DECLARFD AT 05951800 

05951900 *05952995* 05953000 0595304O 05953045 05953050 +0596 1200**0596l600**05962000+ 05971000 ♦05971600+ 

05971800 05972000 *05976150* 05976400 05976450 05976700 05977100 05977300 
S •- RfaL -" DFCLaRtO AT 06037000 

♦06037700*+06038000* O6O381OO 
S -- STRFAM VARIABLE — DFCLARED AT 06038)00 
S — TNTFGER -- DECLARED AT 06069]00 

06088900 O61OO9OO *06l0i000**06l09300* O611O5OO 06113400 
S •• STREAM VARIABLE — DECLARED AT 06205?00 

06205300 
S mm STREAM VARIABLE — DECLARED AT 06381340 

06381350 06381360 
S -* REAL -- DECLARED AT 07006140 

07012000 07013000 07015000 07016000 07019000 07020000 +07062000+ 07063000 ♦07233000**07234000* 

s -- stream variable — • declared at 07256600 

07257000 
S "" STREAM VARIABLE -- DECLARFD AT 07260000 

07260400 
S — STREAM VARIABLE — DFCLARFD AT 07295020 

07295170 
S •• REAL •- DECLARfD AT 07424000 

♦07429100+ 07429^00 +07433000* 07434000 07435000 07436520 07437200 07438?00 07441000 07442000 07452200 

07452600 07452700 
S — STREAM VARIABLE -- DECLARED AT 07429i00 



S •- STREAM VARIABLE -- DECLARED AT 07436520 
S « STREAM VARIABLE — DECLARED AT 07452200 
S -- STREAM VARIABLE « DECLARED AT 07461000 

•07461280**07461540* 
S « REAL -- DECLaRfD AT 07542000 

♦07547000**07557000* 07559000 *07559l8o* 
S -* TNTET,rR — nccLARFP AT 08255200 

08255400 08276260 
S -- STRrAM VARTABLE -- DFCLARFD AT 08276^60 

08?76280 
S -- STREAM VARIABLE -- DECLARED AT 08471030 

♦08471060* 
S — STREAM VARIABLE — DECLARED AT 08471U0 

♦08471150* 
S « STREAM VARIABLE -- DECLARED AT 08472000 

*08478500* 
S « INTEGER -" DECLARED AT 08528000 

♦ 085.30000* 

S " REAL *• DFCLARFD AT 08704000 

♦08712100* 08712110 08712140 *087l5l00* 087i5200 06716300 
S — REAL ARRAY •- DECLARED AT 08854000 

08865000 08867000 08868000 *0888i000* 08885500 08886300 08887000 08887001 08887010 08887100 0890i000 

089J2000 *089i3000* 089i5000 08928000 *08936000**08945000* 08946000 08947200 08947400 08998000 
S — STRFAM VARIABLE — DFCLARFD AT 09535100 

09535300 *09535400* 09535600 *09535tt00* 
S •• STRFAM VARIABLE "- DFCLARFD AT 12851000 

12851500 
S •- STRFAM VARIABLF -- DFCLARFn AT 1.2887000 

12887500 12888000 
S — STRfaM VARIABLE — DECLaRfD AT 14284000 

14285000 J4287000 
S — REAL ARRAY '-- DECLARED AT 14350000 

14350100 *14358*?0* 14358330 14358335 H358345 *J4360700* 14360900 *14380000* 14381000 *1 4383700*^i4383740* 
♦14383750* 14383*00 14385000 14386000 14388000 *1439l000* 14392000 14396100 *14398600* 14398700 14399100 

14399300 14399500 14399700 *14^11640* 144H660 14411680 14411700 
S •• JNtfGFR •" DECLARFD AT 14546100 

♦14562000* 14563000 14590000 
S •« REAL — DECLARFD AT 14624450 
S «- REAL ARRAY -- VALUE PARAMFTER -- DfClARED AT 15169000 -- OCCURS AT 15035000 

15168000 I5168i00 15176000 15177000 *15185000* 
S — SWITCH LABEL -- DECLARED AT 16061000 

16077000 
S -• SWITCH LABEL — DECLARED AT 16362000 

16378000 
S — SWITCH LABEL — DECLARED AT 16703000 

16714500 
S — INTEGER — DECLARED AT 18199000 

*18225000* 18226000 *18228500* 18229000 18235000 18245500 
S — ' STREAM VARIABLE — DECLARED AT 18540600 

s -• switch Label — ofcLaRfd at 18701200 

18710200 

s -- Real aRRay — hecLaRfd at 19692000 

♦ l970500Q # 19707000 19708000 19709000 197H300 i97i9000 19720000 i9736}00 l9738n0 19738120 19738200 
19738210 19739000 19742000 19750000 *i9750i00* i975l000 19767750 *i9767760** 19767800**19767900** 19768000* 

♦ 19768050 **i9768200^* 19768700* 19 768750 *1 977 3000**1 9774000** 19774850 **i 9775000** 19775 lOO** 19776000**1 97760 jO* 
*l9776l00**l9776il0**l97B4000* 19785000 19786000 

S — STREAM VARIABLF « DECLARED AT 19767750 



S "- PEAL -- DECLARFD AT 19900260 

*19900390* 19900400 199004J0 19900430 19900440 19900455 19900490 19900540 19900550 19900565 19900600 

19900650 I9900ft60 19900680 19900720 19900730 19900735 19900745 19900760 19900815 19900840 19900860 
S — SWjTrH LabfL " nm' A«rn AT 19901700. 

l990?700 
S — REAL ARRAY -- DEC|,ARfO AT 2OO135OO 

200?0800 ?0026400 *?00?6600* 2OO273O0 200?7400 ?0028300 200?8900 ?0030?00 *20030350**?0030400* 2OO3O7OO 

20030760 20030fiOO 20031500 20034000 2003*600 20034610 20035300 *20035flOO* 20039400 20039700 20039800 

20043700 20044800 20045600 20045700 20045800 20045900 20046200 20046400 20058300 
S -- REAL ARRAY -- nFCLAREH AT 20082700 

20088700 20091J00 20101000 20101100 20101300 20105200 20105900 20118370 20H8900 20129300 
S — REAL ARRAY " nFCLARFO AT 20143100 

♦ 20150100* 20152)00 20162300 20163600 2016*200 20170800 20l7l000 2017H00 20171200 20172600 20172700 

20173300 20174400 20176033 20176093 *20l78l00* 20180400 2O18O6OO 20180800 20191400 20195100 20198500 

20199400 20210400 
S — STRFAM VARIABLE -- DFCLANfO AT 20427000 

204?8000 
S -- STREAM VARIABLE -- DECLARED AT 2O433OOO 

20434000 
S — STREAM VARIABLE -«• DECLARED AT 20439000 

20440000 
S — STREAM VARIABLE -- DECLARED AT 20582750 

20582800 
S — SWITCH LABEL " DECLARED AT 22065000 

22069060 22069230 22105000 
S — STREAM VARIABLE — DECLARED AT 220690^0 

22069080 
S -" STRfaM VARIABLf -- OECLaRfO AT 22069230 

22069250 
S •- REAL — DECLARED AT 22230000 

*22?59000* ?j>?66000 *???84000**22286030**22286040* ??286050 *22206l8O**223Oi 000* 22307000 ??309000 *223l2000* 
*223l4000* 22315000 *??3i 7000**22326400* 22326800 22354000 *22376000**22377000**22390000* 22*00000 *2242l000* 
S — STREAM VARIABLE « DECLARED AT 28031000 

28031200 
S «■» R EAL ARRAY -* DECLARED AT 28804000 

20811000 28812000 28824250 *28855000**28858000* 28865000 28866000 28868100 28868200 *?8868300* 28868500 
S -" INTEGER "" DECLARED AT 30904000 

*30911000* 30912000 *309l4000* 30920000 
S "- STRfA m VARIABLf "- OECLaRfD AT 30920000 

30925000 
S -m INTEGER "• DECLARED AT 37i 80^00 

37i88750 *37209oO0**37?iO!75* 37210300 *3722i200* 37221*60 *37?29000**37240700* 37241100 *3724l6l0* 37256000 
S -- STREAM VARIABLE -- DECLARED AT 37256000 

37257000 
S — STREAM VARIABLE — DECLARED AT 37314000 

37315000 
S — STREAM VARIABLE — DECLARED AT 37346000 

37347000 
S — INTEGER -- VALUE PARAMETER — DECLARED AT 37421000 

37418000 37419000 37425000 37425500 

s •- strfam variable — declarfd at 38104300 

38104400 

S ••» STRfaM VARIABLE — DECLARED AT 38202300 

38?02400 

S p- STREAM VARIABLE -- DECLARED AT 38422000 

S -• STREAM VARIABLE — » DECLARED AT 38575000 

38576000 



s — stream variable — declared at 39086000 

39007000 
S -- INTFGER " DECLARED AT '40006100 

40010000 40011000 400J2000 40013^00 400i4000 *40264500* 40265000 *402930?0* 40293050 40293060 40293070 

40293080 40293090 4029311° 40293120 *40322000**40322400**403224 10**40322425* 40322430 40322442 40322800 
S — STRFAM VARIABLF "- DECLARED AT ^1046000 

41047000 
S -- STREAM VARIABLE -- DECLARED AT 41333005 

41133037 
S »- REAL •- DECLARED AT 42516000 

*425l7020* 42546000 42547000 42551300 42551400 
S •• STREAM VARIABLE " DECLARED AT 44093000 

44095000 44096000 *44097000* 44099000 
S « STRFAM VARIABLE -- OECLARFn AT 44144000 

44146000 
SA — INTFGER "- DECLARED AT 30904000 

♦30912000* 309^3000 309^6000 
SAGE -- REAL -- OEC|.ARED AT |4i64200 
SAIOD -- NAME -- DECLARED AT 41017100 
SAMEBREAKTApE — DEFINE -- DECLARED AT OO4H00O 
SANDA -- LABEL -- DECLARED AT 04705500 -- OCCURS AT 04712000 

04736500 
SAV •- STREAM VARIABLE — DECLARED AT 08015100 

08015400 
SAV -- STREAM VARIABLF — DECLARED AT 08450100 

08450400 
SAV — STRFAM VARIABLE " DECLaRFD ftT 0855U00 

08554000 
SAVEARRAYDESC "- DEFINE " DECLARED AT 00017030 

07097000 128485OO 20127300 2O181OOO 28455400 
SAVEBrT •- REAL *- DECLARED AT 14157000 

14159000 *14280000* 14282000 14296000 
SAVEBlT -- DEFINE -- DECLARED AT 19696500 

19766000 19766500 
SAVEF — REAL — VA|,UE PARAMETER « DECLARED AT 00017000 

00014000 00015000 
SAVEF •- REAL — VALUE PARAMETER " DECLARED AT 24032100 

24032050 24032100 24032900 24036125 
SAVEF — REAL — VALUF PARAMETER — DECLARED AT 24042400 

24042200 24042300 24042650 24043600 24044100 24044110 24045600 
SAVEFACTOR « DEFINE -* DECLARED AT O81OO9OO 

08105700 08113300 
SAVETNDX — DEFINE — DECLARED AT 12218000 

12251500 12275000 
SAVEINDX — DEFINE -- DECLARED AT 12368500 

12392000 12466000 
SAVEMIX -- PROCEDURE — DECLARED AT 02032000 

02042000 20197600 48121200 
SAVENO — LABEL — DECLARED AT 20597800 *- OCCURS AT 20609100 

20608950 

saventRy •- Real « declared at 41316300 
saveopen « procedure " declared at 00379100 

14243000 
SAVEThEUNiT « PROCEDURE " DECLARED AT 08575000 

16171000 
SAVEU -- REAL -- DECLARED AT 04668550 
♦04673650* 04687300 



DECLARED AT 20233500 



SAVEV -- OEFINE 
20507300 

SAVEWORO -- REAL. — DECLARED AT 00425000 

02198000 07014000 080J5100 *08427100** 
12527500 12531500 12753500 *12866500** 
37305000 *38l22i00**38256500* 38633000 * 

SAVTT -- SUBROUTINE -- DECLARED AT 4OOO830O 
40008350 4O2857OO 

SAVJT -- REAL — DECLARED AT 42515000 
*425?1000* 

SA1 — IMTEGER 

*05962800* 

SB — REAL — 
♦22259000* 

SC "• LarfL 

16364000 
SCAN — SUBROUTINE — DECLARED AT 0595?745 

05952980 O5956AOO 059*6600 O59567OO 
SCAN -- LABEL « DECLARED AT 06069900 -- 



08437000* 08438420 
14671000* 20608950 
44214100* 44214300 



08450100 
20609200 



08551100 
22094000 



*08584l00**08587000* 08597820 
22101000 22102000 #37037200* 



-- DECLARED AT 05951900 
05962900 *05968900* 05969000 
DECLARED AT 22230000 
22283000 22284000 *22286040* 
HECLflRrn AT 16355000 -- QCC 



05969150 

22286170 22286180 
URS AT 16407000 



05956850 O59571OO 
CCUrS AT 06077800 



05957450 



SCAN 



Scan 



SCAN 
SCAN 
SCAN 



SCAN 
SCAN 

SCAN 
SCAN 



06035900 
-- REAL SUBROUTINE 
20397200 20409000 

20438000 20441000 
20471000 20472000 
-- R rA L SUBROUTtNf 
?0566900 ?0567045 
20569320 20569*70 
20569960 20569990 
20573400 20573420 

— RFAL SUBROUTINE 
20584200 20584350 

— Real subroutine 

20587100 ?0587800 
•- REAL SUBROUTINE 
20590000 20590050 
20590730 

— REAL SUBROUTINE 
20591400 20591750 

"- REAL SUBROUTINE 
20600040 20602650 
20605702 20605880 

-« Real subroutine 

20706000 20712000 



« DECLARED AT 20397 
20416000 20416500 
204481O0 20451000 
20478510 20484050 

" DECLA R FD AT 20566 
2056707S ?0567080 
205697j6 20569750 
20570065 20570130 
20573430 20573470 

wm DECLARED AT 2O584 
20584450 20584500 

-- DECLARED AT 2O587 

-- DECLARED AT 2O589 
20590100 20590350 

— • DECLARED AT 20591 
20591800 2059i650 

" DECLARED AT 20600 
20602700 2060^115 
20608072 20608074 

-- DECLARED AT 2O7O5 
?07i6000 20^18000 



100 

20419000 20420000 20423000 

20461000 20461320 20461400 

204B4200 20484250 20495000 

875 

20567n5 20567158 20567i78 

20569780 20569800 2056980/* 

20570i80 20570190 20570235 

20573500 20573760 20576975 

150 

20585200 20585350 20585700 

050 



20426000 
20461500 
20497000 

20567?i5 
20569830 
20570250 
20577100 



20430000 
20463000 
20507000 

20567225 
20569846 
20570430 



20432000 
20467000 
20508000 

20567271 
20569860 
20570462 



20436000 
20470H0 



20569260 
20569950 
20570575 



LABEL «" 

41318960 
SCANDSKTYP -• SUBROUTINE 

20567285 20569630 
SCANEXCEPT — SUBROUTINE 

20570015 20573530 
SCANEXCEPT *• surroutinf 



DECLARED AT 41316500 



950 

20590500 20590600 

350 

20592200 20593050 

020 

20604125 20604200 

20608250 20608300 

000 

207^000 20780000 

CCURS AT 41318780 



20590655 20590670 20590675 20590690 20590695 



20593250 20593310 20593320 20594450 



20604250 
20608730 



20605000 20605360 20605380 20605700 
20608740 



— DECLARED 

20570340 

" DECLARED 



28469400 
SCANMfSSAGE — 

06103300 
SCANON -- REAL 

20567i80 
SCHD -« STREAM 



28478000 
SUBROUTINE 

SUBROUTINE 

20567182 
LABEL -* 



DECLARED AT 
DECLARED AT 060 



AT 20567205 
AT 20567000 
7200 
77200 



2844i 



SCHEDBIT 



-- DECLARED AT 2O5 
20547280 20569846 
DECLARED AT 20032l50 



67154 

20569860 20570464 

-- OCCURS AT 20032250 



DEFINE -p. DECLARED AT 00417070 



SCHEDMSG — DEFINE — OECLAREO AT 00416300 

20030760 20034000 
SCHEDULEIDS -- REAL -- DECLARED AT 06056099 

07260000 08276260 14378100 14383100 19768900 20020800 20088700 20582440 20582750 22069230 

scn -- real, procedure — declared at 20314000 

♦20381000* 20397?00 20566900 20584200 20587i00 20590000 20591400 20596300 20600040 20706000 

sc^x — Label -- DFrL A RFn at 20566610 *- occurs at 20567010 

20567ns 

SCRAMBLE -- DEFINE -- DECLARED AT 00419110 

08968900 14562000 18225000 2036?1?0 «0p93030 
SCRATCH -- LABEL — DECLARED AT 22062000 •- OCCURS AT 22175000 

22208000 22213700 22221000 
SCRATCHDIRAREAV •- DEFINE -- DECLARED AT 00017330 
SCRATCHDIRECTORYMASK -- DEFINE — DECLARED AT 00081690 
SCRATCHDIRECTORYREADY -- DEFINE -- DECLaRfD AT 00081680 
SCRTOC, " REAL — DFCLARED AT 08441100 

*08487l00* 0849?' 1 00 
SD -- REAL ARRAY -- DECLARED AT 200t3900 
SD -- REAL ARRAY -- DECLARED AT 20083100 
SD • » REAL ARRAY -- DECLARED AT 20143500 
SD -m NAME -- DECLApED AT 30905000 

*30908000* 30909000 30912000 *309H0OO* 309i7000 30920000 30929500 
SDED — REAL -• DECLARFD AT 07424100 

♦07425700* 07437800 

sdex -* real -" declarfd at 20566100 

sdex — Real -- declared at 20581000 

sdfx -- rfal -- declarfd at 20584000 

sdex — Real — dfclaRfo at 20586800 

sdfx 'm Rpal — dfclaRfo at 20589800 

sdex -- real -- declarfd at 20591000 

sdex »- real — deci.arfo at 20595000 

sdex — real — decl ared at 20596800 

sdex -- real •• declared at 20600010 

sdex -- real -- declared at 20701500 

sdxit -- label « declared at 06070000 •- occurs at 06115500 

search -" real surroutlnf -- declared at 18223000 

18235000 18264000 18281000 18425500 
SEARCH -• REAL SUBROUTINE — DFCLARED AT 37186000 

37209000 37210000 37210200 37221140 37223000 37229000 37241610 
SEA R CwCOM -- SUBROUTfNF — DFCLa r FD AT 37221100 

37222100 
SEARCHDTRECTORY -- SUBROUTINE -- DECLARED AT 28414600 

28469800 ?8473*00 
SEARCHVAL — REAL — DECLARED AT 12504000 

12505000 12562O00 125«0000 12630000 *12682000* 12712000 ♦ 127 14000** 1272 1000* 12?49500 * 1 2750000** 12752000* 
SEaRCHVaL "- REAL " DFCLARED aT 12804000 

12805000 
SEARCHVaL — RFAL " DECLARED AT 13005000 

13006000 
SECBIT -" DEFINE -- DFCLARED AT 00417075 
SECBOMB -- LABEL « DECLARED AT 20597750 -- OCCURS aT 20606i00 

20599000 
SECmSQ •• DEFINE -- DECLARED AT 00416400 

20511720 
SECONDCTR -- REAL -- DECLARED AT 22000000 

♦2205 3800** 4800 1000** 4 8006000** 480 32000** 4805 1000**48079000* 
SECRET •" REAL — DFCLARED AT 01668700 



♦04675700* 04676150 04676500 04684050 04687800 
SFCRECIO -- R F flL -- DFcLaRED AT 04668700 

♦04676800* 04683950 *06466700* 06466800 O81O6O4O 14569200 18553500 19699000 2058B050 374?8lOO 385)3000 
SECURtTyMAtNT -- PROCFPURE — DECLARED AT 2051H00 — FORWARD AT 06460000 

?0593750 
SECl — LABEL -- DECLARED AT 2059i500 -- OCCURS AT 2O593OOO 

20593100 20593850 
SEC2 — LABEL — DECLARED AT 20591500 -- OCCURS AT 20593600 

20593350 ?0593500 
SEC3 -- LAREL — DECLARED AT 20511160 -- OCCURS AT 20511440 

20511330 
SEC4 -- LABEL — DECLARED AT 20511160 -- OCCURS AT 20511600 

20511459 20511500 20511530 20511560 

sec5 -- Label -- declared at 20591500 « occurs at 20593800 

20592750 20593550 20593700 
SFF »" LarfL -- DFCLARFP AT 18208000 — OccURS AT 18298000 

18403000 
SEE — LABEL — DECL.ARFD AT 37i80500 -- OCCURS AT 37207500 

37^87130 37l95?00 
SEEK •• LABEL — DECLARED AT 20566600 -- OCCURS AT 20574000 

20576500 
SEEK — LABEL — DECLARED AT 20701000 -- qCCUrS AT 20723000 

20779000 
SEEKDC "- LABEL •- DECLARED AT 14628000 — OCCURS AT 14660500 

14632000 
SEFKNaM — PROCEDURE " DECLARED AT 20382010 "• FORWARD AT 02052700 

08104900 20574100 20577325 20593450 20725000 28473200 
SFfi -" REAL -- VALUF PARAMFTFR -" OECLAREn AT 00364000 
SEC, -- REAL — DECLARED AT 16698200 

*l685i200**i685l900**i68S2300**i6852800* 16852900 *i6853000* 16854000 16854100 168546OO 168548OO 
SE6 — STREAM VARIABLE -- DECLARED AT 16854600 

16855500 
SEG — INTEGER -- DECLARED AT 24106000 

♦24127000* 24129000 *24130000* 24133000 24134000 *24142000* 24143000 24145000 *24165000* 24166000 
SEG •" STREAM VARIABLF " DECLARFD AT 24134000 

24135000 #24136000* 24139000 
SEG •• REAL -- DECLARED AT 28003400 

28003600 *2B012l40* 28012150 
SEG — REAL — DECLaRFP AT 28401600 

*28409600* 28409R0O 28410000 *28432800* 28433000 28442000 
SEG *" REAL — DECLfiRFD AT 28803000 

*288ll000* 28812000 288j3000 
SEfiDlCT -- NAME -• DECLARED AT 16698240 

*16851 100* i6854i00 
SEGDICT -- NAMF « DECLARED AT 22232000 

♦22357000* 22371220 *22383050**22422000* 22423000 *2242«000* 
SEGOUTaREAV — DEFINE — DECLARED AT 00017520 

14364400 20124900 
SEGMENT •- REAL — VALUE PaRaMeTER " DFCLARED AT 06020500 

segment »• r faL -- value paramftfR — dfclaRed at O6O36000 

06037100 06037200 06037700 

Segno -- tNTegfR — value parameter — declaRfd at 00363200 

OO363OOO 00363iOO 
SEGNO «•• REAL -* DECLARED AT 14164000 

*14186020**14186C30* 14186100 *14 1 88000** 14 189000* 14191000 14192000 14212010 14227300 
SEGNO •* STREAM VARIABLF •• DECLARED AT U227300 

SEGNO — REAL — DECLARED AT 22231000 



22279000 *??371?20**?24i5000* 22416000 *224i9000* 22419500 22420200 *22420500* 22423000 22424000 
SFfiNO -- tNtfGFR -" V A L II F PaRaTTFR ** OErLARFD AT 24202000 

24200000 24201000 24211000 24212000 
SffiNO -- tNTfofH — DFCLARFD AT 4 1 3 1 6 4 1 C 

*41318760* 41316820 4l3i88B0 *4l3l9200* 41 3 j 93?0 *4l320340* 41320345 41320360 *4l321350* 41321500 
SegNR -- REAL -- DECLARED AT 1?504500 

12505000 i?505s00 *12563500* l?628000 *126<i5000* 
SEGNR -- REAL — DECLARED AT 12804500 

12805000 12805^00 
SEGNR -- REAL -- DECLARED AT 13005000 

13006000 13041000 13042000 *13046000* 13049000 *13050000* 
SEGS -- REAL — DECLARED AT 05952300 

05952400 05953045 *05957650**05976700**05977300**05977700* 05978050 05979050 
SEGS *- STREAM VaRIARLE " DECLARED AT 05978050 

05978150 05978200 
SEGS17 "" JNTFGER — DFCLARFD AT 41316410 

*4 J 3f 9220* 4l3l9?80 
SEGSPfRROW -- DEFINE -- DECLARED AT 06i0l?00 

08109300 
SEGZEROAREAV -- DEHNF -- DECLARED AT OOO173OO 

07257400 08275SOO 20J76048 22069100 38434000 
SEGO "" REAL "- DECLARED AT 07244000 

*07257400* 07257600 07258000 
SEGO •» REAL -" DFCLARFD AT 08255400 

♦08275500* 08275600 08275750 08276050 
SFf.O — RrAL ARRAY — DECLARED AT 20013600 

♦20034610* ?0049000 20049500 20049800 20050000 20053100 20066600 
SerO "- R FAL ARRAY -- DECLARED AT 2008?600 

20h0700 ?0n0900 201H100 201H500 20m600 20H9000 20i2l800 20124900 20l?5000 20125300 20129400 
SEGO -- REAL ARRAY -- DECLARED AT 20143200 

20176030 *?0i76033* 20176045 *20l7604g* 20176054 20176084 20l76093 20187300 20192500 20192800 202l0500 
SEGO — REAL — DECLARED AT 22061110 

22061120 *22069t00* 22069110 2?069l30 
SEGO -- REAL ARRAY -- DECLARED AT 38366000 

*38434000* 38135000 38437000 38440000 *38449000**38457000**38474000* 38476000 38478000 
SEGO *- REAL ARRAY — OECLaRFD AT 38550000 
SEGO "- RpaL ARRAY — OECLARFD AT 38657000 
SEfiO — RfAL ARRAY — DECLARED AT 41007200 

Selection — defiw -- declared at 00426800 

08836506 08998^00 12125200 1443?000 19799050 202H600 20609700 
SELECTRUN *- PROCEDURE — DECLARED AT 20140800 -- FORWARD AT 00426700 

07264400 08276520 08836500 08998400 12425200 14432000 19799050 20149200 20609700 22069500 
SELECTRUN1 « PROCEDURE — DECLARED AT 200H200 

20080200 20151300 20163000 20187800 20189500 
SELECTRUN2 -- PROCEDURE " DECLARED AT 20080500 

20t40300 20186900 
SELERR •" LABEL — DECLARED AT 14627200 — OCCURS AT 14643000 

14632000 
SENSE — nEFlNF — nFCt ARED AT 20247950 

20484855 20713000 
SENSETOr, — RFAL — DFCLARFD AT 20704000 

*207i3000* 20742000 20747000 20767000 
SENSEVAl. — REAL — DECLARED AT 200)7200 

200)7300 *?0065200* 20065700 2OO658OO 
SEPARATE -- DEFINE — DECLAiED AT 00416800 

02287245 12843600 12890100 38288i00 38289i00 38590200 38592100 3859^100 38741000 38742100 
SEPARATION « DEFINE — DECLARFD AT 12519000 



SEPT I CTflNK T NG — DEFINE -- DECLARED AT 00081972 

SERIAL "" LABEL — PFCURm AT 20391000 — OCCURS AT 20482000 

20395000 
SET -" LarfL -- HECLARFR AT 20557850 — C CURs AT 20606650 

20598000 
SETDATE "- PROCEDURE — DF^LARfD AT 08343000 

16491000 
SETJMF -« PROCEDURE -- DECLARED AT 08390000 

16497000 
SETNOTlNUSE — PROCEDURE -- DECLARED AT 37302000 — FORWARD AT 00380000 

02434780 12670*00 12757500 28012060 280i4l00 28015200 28016200 28020800 28037600 ?8057400 28082800 

28226600 28247200 26251000 28304800 28306000 26306600 28481400 37214000 37218200 37254000 373l9j0o 

37464000 38105600 36l06tO0 382O36OO 38204100 38634000 38640000 38737000 38743000 38779000 38783000 

38789100 
SeTShtFT -- SUBROUTjNf -- DpCLARFD AT Ob8a7900 

058^8500 05851 3OO 05852400 
SETT -p. REAL SUBROUTINE -- DECLARED AT O6681OOO 

08689000 08689 1 00 08690400 0869?800 
SETUP -- SUBROUTINE -- DECLARED AT 20567316 

20567365 20570550 20571600 
SETUP -- SUBROUTJNF -- DECLARED AT 4OO16OOO 

40017300 40027245 400/(4000 
SETUPFBTABLF — RFAL PROCEDURE — DECLARED AT 07003400 

*07003440* 07039700 
SETUPfNREC -" SUBROUTINE " DECLARED AT 12614500 

12693500 12746000 
SETV — OFFINE — DFCURFD AT 20228000 
SEVEN -- LABEL « DfCLaRFD AT 04357400 -- OCCURS AT 04425800 

04427000 

seveN7 — real « dfclaRed at 40004500 

400t6800 40047i00 40048000 4006030? 40062000 40070000 40078030 40078032 40078040 *40249t05* 40323200 

Sfh -* real -- valuf parameter -• declared at 20511120 

20511J00 2051U10 20511490 

sfh -- real -- declared at 20566100 

sfh -" real « declared at 20581000 

sfh -- real — declared at 20584000 

sfh — real — declared at 205s6800 

Sfh -• Real -- dfcLaRfd at 205898oo 

sfh -- real -- declared at 20591000 

*2059t950* 2059j>050 ?05»2l00 2059 ?2 50 2°593750 20593950 20594650 
SFH -- REAL — DECLARED AT 20595000 
SFH -- REAL « DECLARED AT ?0596800 
SFH — REAL — DECLARED AT 20600010 
SFH -- REAL « DECLARED AT 20701500 
SFID — REAL — VALUE PARAMETER -- DECLARED AT 20511120 

20511100 20511110 20511300 20511470 +20511520* 20511660 20511663 
SFID — ' REAL -- DECLARFD AT 20566100 
SFID •• RFAL *- DECLARFD AT 20581000 
SFID "- REAL -- DECLARFD AT 20584000 
SFTD -• RFAL — DECLARFD AT 20586800 
S FTD -- RpAL -• DEC1.ARFD AT 20589800 
SFID — REAL -- DECLARFD AT 20591000 

♦20591900* 2059ig50 20593750 20593950 20594650 
SFIO — REAL -• DECLARED AT 20595000 
SFID -- REAL -• DECLARED AT 20596800 
SFID •<• REAL -- DECLARED AT 20600010 
SFID — REAL — DECLARFD AT 20701500 



SF INT© •• REAL ARRAY -- DECLARED AT 19901800 

♦ 19903910* 19903940 19903980 19904010 * 1 9904020** 1 9904060* 19904300 19904700 19904850 *}9904S60* 19905000 
♦19905100* 
SFfNTX "- OFFlNr — nrrL-ARFn AT 00067100 

19903910 19904400 4250l8?0 

SH -- REAL -- DECLARER AT 0646?i00 

*06463?80* 06463360 *06463380* 06463^20 *064ft3860**0646388o* 06463900 *06463970* 0646398? 06463986 06463988 

06463996 06464050 06464200 06464400 

SHUT — PEAL ARRAY -- OFCLARED AT 07244000 

*07256 400** 725800 0**0 72 5820 0**0 7256 400**0 7258600**0 72 59000**07259200**07259^00** 07259600**0 726 1800**0 7262000* 
♦07262100**07262200**0726 3800* 7 264000 
SHFAT «"- RFAL ARRAY — DFCUREO AT 08255600. 

* 08 ?74 250**08 ?7 6050**08 ?7 6 100**08 2761 50**08 27 6?0 0**08 276 2 l0**08?7 6220**08?76 ?30**08 276240**08 276 350**08 276360* 
♦08276365**08276400**08216490* 08276500 
SHFAT -- REAL ARRAY -- DECLARED AT 22061130 

*22 690 50**2p069 1 30**?j>06.9i^0**p2069)50**22 69i60* # p20 69i80**220 69 l 90**2p0 69?00**220692i0**?20692l2**22069 320* 
*22069330**?2069340**2?069430* 22069440 
SHEET -- REAL ARRAY — DFCLARED AT 00136OQO 

08864000 *0893t000**08932000* 08938000 08939000 08942000 *08944000**08944500+ 14387000 14389000 14392500 
•I4394000**14395000» 19778000 19779000 *l9782000**l9783000**20021400**2002i700* 20025000 20035500 20035700 
♦20036100**20036200**20089300**20089600* 20583150 20583250 *20583450**20583500* 44157200 
SHFETaRfAV — DFFlNF " DFCLARFD AT 00017450 

07?56400 08274250 08881000 08930000 20026600 22069050 
SHFFTnlDDLFR -- PNOcFnURF — DFCLaReD AT 08850000 

08999000 14358375 16741000 I858i200 42501200 
SHFETFRFE -- DEFINE -- DECLARED AT 00080300 

14378100 20582440 
SHFET|.OcKED -- REAL — DECLARED AT 200U300 

20034700 *90035i00* 
SHEETlOCKED « RFAL -» DECLARED AT 20082500 
SHEETlOCKED — REAL — DECLARED AT 20H2900 

20150600 *20l5l000* 20210300 
SHEETMASK -- DEFINF — DECLARED AT 00080300 

08880000 08997000 14379000 14396000 19768800 19786000 20034900 20035000 20150800 20150900 20210300 

20582450 20583650 45150000 
SmffTMa* — RFFINf — DECLARED AT 20014900 

20094600 20035300 
SHEETmAX -- DEFINE -- DECLARED AT 20084100 
ShEETmAX -- DEFINE -- DECLARED AT 20144500 
SHIM — REAL -• DECi.ARFD AT 44014000 

♦44202120* 44206?00 
SHl.M — REAL -- DECLARED AT 44207000 
SHLM — REAL -- DECLARED AT 45002600 

45135600 45135800 
SHORTCOMMUNICATE -- PROCEDURE -- DECLARED AT 19500000 — FORWARD AT 02111500 

48104000 
SHORTHEADER — SUpROUTlNF mm DECLARED aT 28044400 

28088000 28093?O0 28098400 
SI •— La3fL "- DECLaRFP AT 16357000 — OCCURS AT 16544000 

16365000 

SID -- REAL -- VALUF PARAMETER — DECLARED AT 08850i00 

O885OOOO O88855OO 0890i000 0890^500 08904050 089i2000 08928000 
SlGNEDON — REAL '- DFCL.ARED AT 12505500 

12536500 12540000 12695000 *1?701500* 12702000 12702500 12703000 *1?704500* 
SIGNEDON — REAL " DECLARED AT 12805500 

*1287850O* 12886000 
SIGNEDON -- REAL — DECLARED AT 13007000 



SIGNIN •" LABEL " DECLARED AT 12813000 — OCCURS AT 12848000 

12814000 
SICNIN -- DEFINF "" DFCLARED AT 13027000 

13099000 
S|rNOfF -" PROCEDURE " DECLARFD AT 06180000 •- FORWARD AT 02696300 

06330000 14430800 45130000 
S|N — STREAM LABF.L -- DFCLARED AT 1882O8OO -- OCCURS AT 188?1300 
SIX — LABEL -- DFC|,ARFD AT 04357400 -- OCCURS AT 044?4400 

04187400 04394000 04407600 04409400 04417000 O442OBOO 044??200 
SIXTY — DEFINE " DFCLARED AT 08256200 

08268950 
SIZ »- STREAH VARIABLE •" DECLARED AT 06077900 

06078700 
SIZE *• INTFGFR -- VALUF PARAMfTER "• DFCLARED AT 00016000 

00014000 00015000 

size ■- Rfal -- valuf parameter -- dfclaRed at 00019300 

00019100 00019200 

size -- integer -- declared at 00026000 

♦00038000* 00039035 00040000 00041000 00046000 
size • - field -- declared at 00062070 

07097000 0fi274?50 08881000 08930000 12848500 ?00?6600 20059120 20089820 20127300 20176048 20181000 

28451800 28^55400 28855000 38107000 3810M00 38205000 38205100 38434000 42477000 42479000 
SIZE "" INTEGER -" VALUE PARAMETER " DFCLARED AT 00363200 

00363000 00363100 
SIZF — INTEGFR "" VALUF PaRaMfTFR — DFCLAREO AT 00396000 

00393000 00394000 

size -- Rfal -- declarfd at 04554500 

♦04638200* 04638900 *04658800* 0*658900 

Size -- integer -- value parameter « dfclareo at 06003000 

06000000 06001000 *060040i0**06004l00* 060^0000 O6OH000 *060l5000* 06018000 
SIZE •- REAL — VALUE PARAMETER -- DECLARED AT 06063000 

06061500 06062000 06065000 
SIZE — REAL " DECLARFD AT 09602100 
SIZE — REAL — DECLARFD AT 12360500 

♦12387500+ 12388S00 12391500 12392000 12395000 1?395500 
SIZE — REAL -- DECLARFD AT 14158000 

*14186140* 14186150 * 14 194000**14 198400**14198800* 14199000 14203020 14204100 14206000 14212000 l42l8000 
14222000 14225000 *14?27210* 14227300 14227400 *14249000* 14252000 14265000 *14281000* 14284000 
SIZF — STREAM VARIABLE -" OECLaRfO AT 14204100 

size -- Rfal — declared at 15536000 

♦15545000* 15546000 155«8000 

Size -- real — declarfo at 15600300 

*1560l400**i560i«500* 15601600 1560?600 15602680 
SIZE -- REAL — DECLARED AT 19901500 

♦19903910* 19903920 19903970 19904000 19904300 19904340 19904450 19904700 
SIZE — RFAL — DECLARED AT 24004000 

*24019000**24024000* 
SIZE — RfaL — VaLue PaRa m FTeR -" DFC^A^FD AT 24032100 

24032050 24032j00 24033900 24034l00 240 3 5i00 ?4035500 24035600 24O363OO 24O372OO ?4037400 24O388OO 
24038900 

Size -- Rfal -- value parameter -- declaRfd at 24042400 

240*220° ?4042300 ?404?f00 24O436OO 
SjZE • « STREAM VARIABLE -- DECLARED AT 2404?700 

size •» integer — declared at 24iosooo 

24132000 24141000 *?4151000* 
SIZE "- INTEGER — VALUE PARAMETER — DECLARED AT 24202000 
24200000 24201000 



SIZE — RFAL — DECLARED AT 28003200 

♦28095800* 28096400 
SIZE ** RfaL — DECLARFD AT 28203600 

28203800 *28233800**28235200* 28235000 28237400 
SJZF •- TNTEGFR " VALUf PA«AM F TfR "- DFCLA«En AT 37421000 

37418000 37419000 37427000 37443000 
SIZE •- DEFINE -- DECLARED AT 40008l50 

40039000 4OO6O4OO 40064000 40068000 4OO681OO 
SIZE -- REAL -• DECLARED AT 42514000 

♦ 42533000* 42535500 425.17000 4?539000 
SIZEDIV64 — STREAM VARIABLE — DECLARED AT 04656300 

04656900 
SIZEDIV64 — STREAM V A R T A B I- E " DECLARED AT 04657600 

04658000 
SIZEF — REAL -- DEpLaREO AT 24032700 

♦24033600**24033800* ?40§3900 *24034000* 24034100 *?4035l00* 24035500 *?4036900**24037l00* 24037200 *2403?300* 

24037400 *24038800* 24038900 
SK -. STREAM VARIABLE « DECLARED AT 04588290 

04588330 O458836O 04588370 
S« -- STREAM VARIABLE -- DECLARED AT 045884?0 

04588470 
SK -- STREAM LABEL "- DECLARED AT 20054400 "- OCCURS AT £0054400 
SKAN — LABEL — DECLARED AT 12214500 -- OCCURS AT 12224000 

12290500 
SKAN •- REAL SUBROUTINE " DECLARED AT 20566905 

20566950 20566955 20567230 20569320 
SKrLK — LADFL " DfCLaRED AT 40008050 
SKEL -- RFAL ARRAY -- DFCLARED AT 38366000 

*38435000* 38439000 ♦38440000**38442100* 38443OOO 38449000 3845OOOO *3845l000* 38452000 38458000 3846OOOO 
♦38465000* 38466000 38471000 

skel — real array — declared at 38550000 

skel — Real array — declared at 38657000 

skel — rfal array — declared at 41007200 

skjp -- label « declared at 20085800 -- occurs at 20108800 

20102100 

— Label — declared at 20701000 -- occurs at 20735000 

20739000 



SKIP 

skiPotR 



«■- DEFINE -- DFCLARED AT 28008800 

280;>5200 28O584OO 28O688OO 
SKIPOIR -- DEFINE -- DECLARED AT ?8?09400 

28219800 
SKIPFILE -- DEFINE — DECLARED AT 28009600 

28086400 28092800 
SKIPFILE — DEFINE — DECLARED AT 28210200 

28242800 28253400 28260600 

sk ip it -- Label — declare^ at 07009000 -" 

07161000 
SKfPPpR — LaBfL « DFCLaREO AT 2B2U000 ■ 

28272800 28302600 28303800 
SKN — LABEL — DECLARFD AT 20584250 -- OCCURS AT 20585700 

20585730 
SKP -- LABEL — DECLARED AT 12214500 -- OCCURS AT 12254000 

12252500 
SL — LABEL — DECLARED AT 16700000 — OCCURS AT 16792500 

16704500 
SL — LABEL — . DECLARED AT 19508010 — OCCURS AT 19526100 

19511000 19512000 19513000 19513010 



occurs at 07219000 
Occurs at 28303200 



SLASH 



SLATE •- 



SLflTFND 



SLEAP 

SLEAP 
SLEEP 



SLaPITOfF " SU 
02761300 

- HEFINf 

20377000 

REAL A 
*020iB000* 

— DEEI 
02016000 
SMTESIZE — DE 
02016000 
■■- LABEL 
12862500 

— LABEL 

— DEFINE 
00039055 
04045200 
05703500 
06215000 
07171000 
08088000 
08830000 
09637000 
14351320 

14541130 
18841400 

J9903907 

24043000 

38574000 

-- 1NTF 

05979400 

- LABEL 
18030000 

SLOW — OFFINE 
20484650 
LABFL -- 
16704000 

oeetNe - 

28078000 
RFAL - 

205H100 
REAL - 



95000 

?0570j80 







48O55OOO 



SLEEPFR 
SLEPE ' 



SM 



BROUTINE " BECLaRED AT 02l 
0226U00 02270000 02328000 

— HECLARm AT 20216000 
?04i9o00 ?0567075 20569950 

RRAY -- DECLARED AT 0002200 

*020i9000* 44166000 48O54OOO 

NE « DFCLARED AT 00023l00 
48052000 

FINE -- DECLARED A 
44151050 44166000 
"* DFCLARED AT i?8 
12866500 
— DECLARED AT 14627400 

"" DECLARED AT 00021500 
00050000 01260455 0126H70 02009000 
04249000 04377400 04378000 04557200 
05842300 05849300 05960700 06022600 
06257000 06361700 06415000 06464900 
07177000 07232000 07272500 07301000 
08268000 08378000 08386000 08421000 
08866000 08880000 08915000 O8933OOO 
09680000 12386000 12530500 13051000 
14358450 14358588 14360400 14361000 
14560000 14588100 17001400 18032010 
18844000 19303000 19685380 19685460 
20034900 20119600 20150800 20l54000 
24045i00 ?8080400 28440800 37304000 
38668000 40311000 40317220 413U100 

GER -- DECLARED AT 05952500 



20573420 
48055200 



T 00023100 

48052000 
1?500 •«* OCCURS AT 12861000 



02107000 
04558000 
06066000 
07001640 
07371300 
08569300 
08935000 
14186120 
14383000 

18033000 
19743000 
20407000 
37394150 
41317300 



— DFCLARED AT 18006000 -- OCCURS AT 18027000 



-- DfCLAHED AT 20247700 
20484750 20567250 
DECLARED AT 16700000 — 



OCCURS AT 16747500 



SM 



SMfQ • »• 



28 
20 



SMID 

smid 

SMID 
SMID 
SMID 
SMID 



20 



•- REAL - 
•- REAL - 
'- REAL - 
— REAL - 
■• REAL - 
♦20591800* 

SMID — REAL — 
SMID — REAL — 
SMfo *- RfaL -» 

smid -- Rfal -- 

SMWSTflPPED -- DEEI 
SmWSToPPEDmaSk -» 
Sn -• REAL •- VA 
00454000 00 
SN •• REAL — DE 
♦02063000* 02 



DECLARFD 
078800 

valuf pa 

511110 

DECLARED 

DECLARED 

DECLARED 

DECLARED 

DECLARED 

DECLARFD 

591950 

DECLARED 

DECLARED 

DECLARFD 

DECLARED 

NE — 

DEFINE 

LUE PARA 

454100 

GLARED A 

064000 



AT 28007000 



RASTER — OFCLaRED AT 20511120 
205H300 205ti470 *205il520* 205lj660 

AT 20566100 

AT 20581000 

AT 20584000 

AT 20586800 

AT 20589800 

AT 20591000 
20592050 20593750 20593950 20594650 

AT 20595000 

AT 20596800 

AT 20600010 

AT 20701500 
DECLARED AT 00081630 
•- DECLARED AT 00081630 
METER -- DECLARED AT 00454200 

T 02057000 

02065100 02068000 O207l000 



20590500 20718000 



02173085 
04567000 
06090700 
07059200 
07392000 
08571000 
08940000 
14198200 
14384000 

18273000 
19768800 
20588600 
38092000 
41320310 



20511662 



02176000 
04655700 
06098600 
07059500 
07414000 
08580000 
08943000 
14205000 
14390000 
18425400 
19900400 
20601640 
38250500 
41328200 



02196000 
04671400 
06099100 
07139500 
07426000 
08627000 
08946000 
14206100 
14393000 

18523400 
19902130 

22009000 
38285500 
42476000 



02275700 
04671550 
06103500 
07146000 
07562000 
08670000 
09617000 
14237000 
14398800 
18730300 
19902150 
22049000 
38372000 
42501650 



02434480 
04672100 
06103700 
07149000 
08046000 
08689200 
09630000 
14292110 
14399400 

18780100 
19903650 
22905000 
38555000 
48042000 



SN — 
SNOOZF 



SOCK — 

SOFTI - 

* 

SOMFCOPj 

SOMeWhFR 

sortftlf 
sourcf 

source 

sourcf 
sourcf 

SOuRCF 

SOURCF 
SOURCE 

source 
Sourcf 

SOURCE 

SOURCF 

SOURCF 
SOURCF 

SOURCF 

SOURCFF! 

SP — 



Real •— 

17O0OO00 
*- PROCF 
000-^9055 
02434480 

04672100 
06103700 
07149000 
08046000 
08689200 
09630000 
14292110 
14399400 
18780100 
19903650 
22332400 
38372000 
42501650 

REAL AR 
40249120* 
*" REAL 
14358391* 

ED — n 
28264900 

E ■" La 
3704602Q 

-- DEF 
■>" REAl 
20292000 
*- REAL 
203J4000 
" STREA 
20330000 

— REAL 
20384000 

"• Real 

20566900 

— REAL 
" REAL 
205A4200 
" REAL 
20587100 
" REAL 
20590000 

— REAL 
20591400 

— REAL 
20596300 

— REAL 
-- REAL 
20600040 

— REAL 
20706000 
LEFOUND 
28431200 
LABEL — 
38662000 



vaLuf PaRa 

17000200 

DUPE -- D 
00050000 

O4O452OO 
05703500 
D621500O 
07171000 
08088000 
08830000 
09637000 
14351320 
1454H30 
J 8841400 
19903907 
22905000 
38555000 
48042000 

Ray -- de 

*40261044** 

" DEfLAPF 
♦20111500* 

EFlNE -- 
28304500 

BEL — OF 
37048310 

INF -- DE 
-- NAME P 

♦20295100** 
-- NAME P 
20325000 

M VARIABLE 

*20350000* 

— N A Mf P 
20397200 

— DFCLAR 



MfTF R 

f.claRed at 

1 ?aO jOO 
04249000 
05842300 
06257000 
07177000 
08268000 
08866000 
09680000 
14358450 
14560000 
18844000 
20034900 
240/(3000 
38574000 

CLARED AT 
4026104b* 
AT 00157 
22356100 

declaRfd A 



DFCLARFO AT 17000400 



02000000 

0i260455 
04377400 
05849300 
06361705 
07232000 
08378000 
08880000 
12386000 
14358588 
14588100 
19303000 
20119600 
24045100 
38668000 

40005200 
40292050 
100 

22365100 
T 28209100 



•- FOR 
01261170 
04378000 
05960700 
06415000 
07272500 
08386000 
089i5000 
12530500 
14360400 
17001400 
19685380 
2O15O8OO 
28080400 
403H000 



WARD 
O2O 
045 
060 
064 
073 
084 
089 
130 
143 
180 
196 
201 
284 
403 



AT 00 
40000 
57200 
22600 
64900 
01000 
21000 
33000 
51000 
61OOO 
32010 
85460 
54000 
40800 
17220 



02000 
021 
045 
060 
070 
073 
085 
089 

141 
143 
180 
197 
204 
373 
413 





07000 

58000 

66000 

01640 

71300 

69300 

35000 

86120 

83000 

33000 

43000 

07000 

04000 

11100 



40334070 40356550 

42501810 *44092100* 48032100 



CLARFD AT 37004000 •• OCCURS AT 37047800 



CLARED AT 
ARAMETFR 
20303000* 
ARAMETER 
2032800P 
— DECLA 



15072000 

-- DECLARED AT 20292200 



-• DEClAr 
20355000 
RED AT 203 



ED AT 20314200 

20374400 

28000 



ARAMETFR " 
ED AT 20566100 



DECLARED AT 20386000 



« DFCLARED AT 20581000 
-- DECLARED AT ?0584000 

?0585715 *20S857?5* 

— DFCLARED AT 20586800 

"- DECLARED AT 20589800 
■■ DFCLARED AT 20591000 
-- DTCLARED AT 20595000 

" DFCLARED AT 20596800 

— DECLARED AT 20600010 
*20602i00**20602l50* 2°604t05 

-- DFCLARED AT 20701500 

— DEFINE -- DECLARED AT 284 
28458?00 28481200 
DECLARED AT 38661000 -- OCC 



02J73085 
0^567000 
06090700 
07059200 
07392000 
08571000 
08940000 
14198200 
14384000 
18273000 
19768800 
20588600 
37394150 
41317300 



02176000 
04655700 
06098600 
07059500 
07414000 
08580000 
08943000 
14205000 
14390000 
18425400 
19900400 
20601640 
38092000 
41320310 



0?i96000 
04671400 
06099100 
07139500 
07426000 
08627000 
08946000 
14206100 
14393000 
18523400 
19902130 
22009000 
38250500 
41328200 



20604850 20605050 20608070 2O6O82OO 20608700 *20609350* 

05600 

URS AT 38746000 



02275700 
04671550 
06103500 
07146000 
07562000 
08670000 
09617000 
1423^000 
14398800 
18730300 
19902850 
22049000 
38285500 
42476000 



SP — 

spacf 



SPACE * 

* 
SPACF - 

SPACEA 
SpACERAC 

spacfmas 
spaceno 

SPACER 

SPACER 

SPACER 
SPACESTA 

SPaCERTa 

SPaCETOf 

SPACING 

SPACIT 

SPACIT 

SPACITSW 

SPACITSW 



label — 

41006000 

'■ HFFINF 

0j250700 

O44O1OOO 

04686950 

06074200 

06211100 

07214000 

08380000 

08631000 

09639000 

I44il6<l0 

15600800 

17909000 

18830600 

205H370 

22069350 

28263400 

309i5000 

37508000 

40263000 

44?0?500 

45135170 

- RFAL - 
14204000* 

- LABEL 
14632000 
-- SUBROU 
22073000 

K -- SUB 
04611000 
04597000 * 
K — RrA 
04554000 * 

-- LABFL 
12556500 
"•• OEFimE 
280?i800 
•- DEFINE 
28216400 

-• LABEL 
CK — RE 
24043500 * 
CKSIZE — 
44151083 
iLp « R 
12558500 

— Real 

04568200 * 

— SUBROU 
28048000 

— SUBROU 
28297200 

— DEFI 
28025600 

— PEF1 



OECLaREO AT 41005000 



OCCURS AT 41054000 



-" dfc 

021^31 10 
04567320 
04707000 
06077500 
06353545 
07274000 
08424000 
0H690000 
09680j>00 
14415200 
15604250 
18014C00 
196802^0 
20567005 
22163000 
28267400 
32000300 
38218000 
40275200 
44203200 
45155000 
- DECLA 
14288000 

-- ofCl 



LftREO AT 
02206000 
04567700 
05703000 
06090000 
06353600 
07304000 
08437200 
08693200 
12321100 
14431530 
15614000 
18048000 
19685025 
20567020 
22904000 
28291000 
32000500 
38399000 
40275500 
44256100 



0013500 
02218000 
04568550 
05709000 
06095100 
06353680 
07371200 
08438400 
08709800 
12407000 
14559250 
15622000 
18273040 
19768768 
20592400 
22909000 
28304510 
32100500 
38625000 
"029221? 

4426?500 



02255000 
O4644OOO 
05844110 
06103900 
06360600 
07429100 
08498000 
087i2i00 
12408000 
14570100 
16O4U00 
16276000 
20021920 
20600400 
28018000 
28428800 
37036300 
39934000 
403^0200 
44274500 



02347320 
04672500 
05844930 
06107200 
06380140 
07564000 
08568600 
08715100 
12468000 
15022000 
16506000 
18280000 
20lOt300 
20601500 
28023800 
28432400 
37046520 
39939000 
4i3l7790 
45075600 



02434320 
04672950 
05850120 
06107300 
06380400 
08104600 
08577700 
08775000 
12473210 
15113800 
16756000 
18528200 
20153700 
20601720 
28056400 
28443000 
37240700 
39958000 
41318210 
45i0i000 



0425nOO 
04674750 
05953070 
06109400 
06463880 
08112000 
08597800 
08831000 
12708250 
15115700 
16827t00 
18570100 
20157700 
20607060 
28058600 
28458800 
37249000 
40016240 
4J320600 
45130000 



04272000 
04675000 
05961400 
06188100 
06464000 
08H5300 
08604000 
08886000 
12823000 
15501200 
I68283OO 
18790600 
20289148 
22008000 
28065000 
28466600 
37314200 
40016400 
41333010 
45131100 



04359600 
04683500 
05966600 
06195125 
07139530 
08267500 
08605000 
09505000 
12833000 
15546000 
16956040 
1B791620 
20374415 
22012000 
28213400 
28856000 
37360000 
40249100 
41602900 
45135040 



0437*930 
O46861OO 
06022300 
06206140 
07155000 

08276410 
08629000 
09535000 
12892500 
15549000 
17003450 
18820200 
20382058 

22069000 
28218400 
30907000 
37454000 
40249120 
44202120 



RED AT 14164100 
ARFD AT i46?8i00 



OCCURS AT 14675000 



TINE -- OECLAREO AT 22068000 
22115070 22124000 22196000 
ROUTINE — DECLARED AT 04568 
04638300 04657500 04662700 
04606000* 04638650 04638900 
L — DFCLARFD AT 04552000 
04573000* 04576000 04585000 
— DECLARED AT 12512500 



300 

04568410 04568470 



04588020 04588100 

occurs at i2558oo< 



04568500 *04574000**04576000* 04578000 04592000 



04588130 04592000 04597000 



28033 

m m 

28223 

AL - 

44148 

DEF 

44173 

faL s 

12690 

m m 

04568 

TINE 

28087 

tine 



DECLARED 
800 28O4 

DECLARFD 
000 2823 
DECLARED 
- DFCLAR 
100**4417 
INF 
010 4418 

UBROUTINe 
500 i 27 1 

dfclared 

4?5**0456 

— decl 

000 2810 
-- DFCL 



AT 2 
2600 

AT 2 
0000 
AT 39 
ED AT 
3010* 
DECLA 
9550 



800660 
28090 

820700 
28262 

054000 
23500 
44189 

RED AT 





?00 

200 

000 
500 
0001 



28303200 



44189550 
367o 



DFCLaRED AT 12553500 



8500 

AT 04554800 

8485**0459 2 

ARED AT 280 

0000 

ARED AT 28229600 



l00**04600iO0**0 4628100**046 34100**04654600* 
42200 



NE — DECLARED AT 28009000 
28026200 28043600 28043800 
NE — DECLARED AT 28209600 



sphc 

SPpVAL 
SPECI 

SPECIA 
SPEED 

SPER 

SPIT 
SPjT 
SPfT 
SPLAT 
SPN - 
SPO - 
SPO - 
SPO - 
SPO - 

SPOEDN 
SPOIT 

SPOIT 

SPOIT 

SPOT 

SPOUT 



SPOUTfR 



28220200 

LABEL 
39235200 
•- REAL 
200)7400 

— DEFINE 
20380500 

L — DEFI 

— DEFINE 
05843000 

-- REAL - 
*374?4000* 

-- Label 

08294000 

•• LABEL 
08755000 

- LABEL 
08915100 

■»• LABEL 
20589150 
• LABEL - 
39008000 

■ Label - 

04358400 

- LarfL - 
20395000 

- label - 

22065000 

- LABEL - 
39050000 

ULLOG — 

— SUBROU 
16104000 

-- SUBROU 
16532000 

-* SUBROU 
16796500 
-- LABEL 
?05880?0 

— DEFINE 
01261100 
06090600 
07295235 
08301600 
08621500 
09682800 
16689300 
22U5070 
28304530 
M323100 

»• PROC 
01261100 
04416400 
04687050 
06353551 
07374100 
O83O18OO 



26220800 28231000 28231200 
-- DFrLARFD AT 39009000 -- OCCURS AT 39237000 

39236160 

-- DFCLARED AT 2001.7300 
*20065300* 20065500 20065600 

— DECLARED AT 20218000 

NE »- DFCLARED AT 20247000 

— DECLARED AT 05780020 
06381320 16828100 

- DECLARFO AT 37422000 

37424t00 37424200 37434000 37435000 37437000 
-- DECLARED AT 08284000 -- OCCURS AT 08301600 
08295800 

- DECLARED AT 08734000 -- OCCURS aT 08798000 

•- DECLARED AT 08856000 -- OCCURS AT 08947)00 
-- DECLARED AT 20586715 -- OCCURS AT 20587650 

- DFCLARED AT 39007000 •- OCCURS AT 39240000 
" DECLARED AT 04357800 — OCCURS AT 04389800 

- DECLARED AT 20391000 -- OcCURs AT 20481000 

- DECLARED AT 22064000 -- 0cCU«S AT 22216000 

- declared at 39049000 -- occurs at 39236900 

define « declared at 0008i400 
tine — declared at 16070000 

16131000 16250000 
TINE — DECLARED AT 16371000 

TINE ■»* DFCLARED AT 16708000 

- DECLARED AT 20586715 -- OCCURS AT 20588900 



-- DECi 
02256500 
06115900 
07374100 
08315000 
08669000 
12321000 
16829600 
22124000 
32100600 
44206 300 

EDURE -" 
02256S00 
04567600 

057H000 
06353700 
07429300 
08315000 



,ARED AT 
024 34 870 
06195185 
07429300 

08340000 
06690600 
1247i500 
16965000 
22J72000 
37037000 
44275500 

DECLARED 
02434870 
04567830 
059532)0 
063605)0 
0743^200 
08340000 



0451600 
04252700 
06353700 
07437200 
08374000 
08693000 
1?709500 
16^67500 
22196000 
37046270 
45131700 
AT 02132300 
04252700 
04568590 
05979400 
06361610 
07452600 
08374000 



04371950 
06360510 
07452600 
08415000 
08695200 
J2629000 
179)4000 
280)8400 
37241100 
45135080 
-• FO 
04352200 
04648000 
06022500 
07139565 
07468100 
084)5000 



057 
063 
074 
084 
088 
128 
185 
280 
373 
451 
RWARD 
043 
046 
060 
072 
074 
084 



14000 
61610 
68100 
28000 
48000 
36000 
29100 
24600 
18000 
35130 

AT 00 
71950 
72700 
77000 
19000 
83000 
28000 



37443000 37446000 



05953210 
07139565 
07483000 
08437450 
08906000 
14580000 
18570800 
28057400 
39928000 
45l35l90 
451800 
04376600 
04673150 
06084500 
07255000 
07511000 
08437450 



05979400 
07219000 
08052000 
08480000 
089U000 
15040000 
18835600 
28065600 
39955000 
45157000 

04383400 
04674850 
06090600 
07290000 
08052000 
08480000 



06022500 
07254000 
08093000 
08507000 
08926000 
I5438i50 
20044800 
28219200 
40292222 



04386800 
04675250 
06115900 
07294000 
08093000 
08507000 



06077000 
07290000 
08116050 
08573200 
08927000 
15604600 
20102000 
28268000 
40320600 



04393000 
04683800 
06195185 
07295235 
08116050 
08544700 



06084500 
07294000 
08116950 
08597000 
09676000 
16343700 
20153900 
28293000 
41321100 



04404800 
04686350 
06206240 
07351000 
08H6950 
08573200 



08597000 08621500 08669000 08690600 
089ii000 08926000 089?7000 0R947400 
12636000 14430400 144B1600 14580000 
J6689300 16829*00 1*902800 16956090 
1879J670 18835600 19768782 20034000 
20592700 20600470 20&07600 22115070 
28219200 28264600 2826*000 28293000 
37318000 37383000 399g8000 39955000 
45131700 45135080 45135130 45135190 

SPOUTfRR — LABFL — nFTLARFO AT 06069900 
06085100 06085600 

SPOUTjT -- DEFINE -- DECLARED AT 

SPOUTfTNOW -* SUBROUTINE 
399?9000 39935000 

SPOUTMSGARFAV -- DEFINE 
02142100 02181000 

SPOUTUNIT •>* DEFINE -» 
20511420 

SPOUTUNIT — REAL -- DECLARED AT 
20575050 20575100 20575200 
20578550 

SPOUTUNIT — REAL " DECLARED AT 

spoutuNjt «■- real — pecLaRed at 

20585375 

spoutuNtt — Real 

20587550 20588900 

SPOUTUNIT -- REAL — DECLARED AT 205*9800 

SpoUTltNlT -- REAL — DECLARED AT 20591000 

20592700 20593750 20594350 

SPOUTUNIT — REAL " DECLARED AT 20595000 

SPOUTUNIT — REAL — DECLARED AT 20596800 

SPOUTUNIT — REAL " DECl-ARED AT 20600010 

20600120 20600470 *?0602460* 2060704Q 



08693000 
09676000 
15040000 
16965000 
20044800 

22124000 
28304530 

40292222 
45157000 

- occurs 

00451700 
— DECLARED AT 39903000 
39940000 39956000 

-- DECLARED AT 00017360 
04004170 O6O373O0 O63RO350 

DECLARED AT 2051 II48 



08695200 
09682800 
15114300 
16967500 
20102000 
22172000 
30930000 
40320600 



08784000 
12321000 
15115900 
17005400 
2011&370 

22196000 
32002300 
41321100 



08798500 
12471500 
15437100 
17914000 
20153900 

2801B400 
32100600 
41323100 



06848000 
12473280 
15438150 
18529100 
20374430 
28024600 
37037000 
41333090 



08901000 
12709500 
15604600 
18570800 
20511420 
28057400 
37046270 
44206300 



08906000 
12829000 
16343700 
18791610 
20511720 

28065600 
37241100 
44275500 



AT 06084400 



14603750 18O13OOO 40278i50 



20566100 
205 75 600 

205bl000 
20584000 



— DECLARED AT 20586800 



20576400 20576405 20577475 20577775 20577925 20578000 20576150 



— DECLARED 



20701500 
2077200Q 
AT 28007400 



DF.CLAREO AT 2^206800 



spoutijNtt — RFAL " DFCL^RFD AT 

20704270 20767000 20769400 
SPOUTUNTT — DEFINE 

280 1 1200 
SpoUTUNfT — DEFINE • -. 

28?l?000 28?70fl?o 
SPOUTUNIT -- DEFINE — DECLARED AT 2&407600 

28408400 28434800 28474600 
SPRT "• REAL ARRAY -- DECLARED AT 22234000 
♦22260000* 22261000 #22263000* 22264000 
SQ •» L*RfL "" DECUaRFD AT 16357000 -• OC 

16366000 
SQALL *- R F AL 

06069i00 
SQ!T — LABEL 

061 11800 
SQSJZE »» INTEGER • • DECLARED AT 06069200 

06069300 0ft07 3 900 *060§5800* O6IO16OO 
SQUASHMESS -- SUBROUTINE 

06108100 06108900 

SR -m REAL mm DECLARED 

*197I1«00* 19721000 

SRCE "- STREAM VARlAPLE 

♦07003820* 07003910 



20607600 20608870 



-* DECLARED AT 06069000 
♦06085700* O61O14OO 06107900 
— DECLARED AT 06070000 -- 



-" DECLARED AT 060 
06109100 06114500 

AT 19694000 
19736000 19740000 

— DECLARED AT 07o0 



22284100 * 
rURS AT 166 



06)06400 
OCCURS AT 



22284400**22356150* 
09000 



06108700 
6111300 



22356200 *22365t50* 22365200 



06108000 
73700 



19741000 
3640 



06108400 



19744000 19757000 19762000 



sRchOut — LabfL -- nrri.ARrn at 37160500 -- Occurs at 37205500 

37195800 

ss ». real. »- declared at 0/1705500 

*04707500* 04712000 
SS -» LABEL -" DECLARED AT 16355000 -- OCCURS AT 16391000 

16363000 
SSYSJoBF — OEFlNE — DECLARED AT 00t3«030 

088R7010 ^20152100 20587310 
SSZ -- RFaL — VALUE PARAMETER — DECLARED AT 02015000 

02012000 02013000 02019000 04647350 
ST — LaRfL " HECLaRfD AT 16055000 — OCCURS AT 16162000 

16063000 

st •- real -• declared at ?o566ioo 

♦20567020* ?05670?5 ?0567035 *20569320**?0569350**?0569380* 20569440 *20570020* 20570040 ?0570050 
ST — REAL -- DECLARED AT 2058JOOO 
ST »w REAL " DECLARED AT 20584000 
ST -» REAL « DECLARED AT 20586800 
ST mm REAL « DECLARED AT 20589800 
ST -• REAL "- DECLARED AT 2059)000 

♦20592950**2059 3400**20593550* 20 59 3800 
ST •* REAL — DECLARED AT 20595000 
ST -• REAL -- DECLARED AT 20596800 
ST •- REAL "- DECLARED AT 20600010 
ST -« REAL — DECLARED AT 20701500 
ST — lARFL -- DECLARED AT 28005800 -• OCCURS AT 28099800 

28098000 
STA -• REAL -- DECLARED AT 08099775 

*08]0l520* 08116050 06116950 
STA mm REAL <"- DECLARED AT 08283000 

*06?92500* 08295?00 *08?97000* 0829QOOO 
STA *• DEFINE -- DECLARED AT 12518700 

12755500 
STA -- RFAL « DECLARED AT 14624200 
STA -- REAL — DECLARED AT 38364100 
STA •* REAL — DECLaRFD AT 38548100 
STA •" REAL -- DFCLaRED AT 38655100 
STA •• REAL -• DECLARED AT 41004100 
STACK -- DEFINE — DECLARED AT 20233000 
STACK -- REAL -- DECLARFD AT 22230000 

♦22266000* ??267f>00 22270?00 2227?000 22279000 2228l000 22283000 *2??86050* 22286060 22286090 22286120 

22286150 22286170 22286190 *22326800* 22327200 22328400 22329000 22329200 
STaCKaREAV " DEFINE — DECLARED AT 00017310 
STACKLOc -- RFAL "" DFfLARFD AT 20013200 
STACKLOf — RFAL — DECLARED AT 20082400 

20U8600 *20118900* 20119000 20119900 20)20100 20121100 20121200 20123400 20123500 20123600 20123700 

20123800 
5TACKL0r -- RrAL « DFCLaRED AT 20142600 

*20i76090^ ?0i76096 20l76i35 20j.76l4i *20j76t44* 20i9j000 20i92800 20)92900 20193000 ?0l93i00 
STACKMASK -- DEFlNF »- DECLARED AT 00080400 

06410000 48049000 
STACKOVERFLOW -- LABEL -- DECLARED AT 000?4270 «. OCCURS AT 46029000 

04103100 08173200 14014100 19525000 3l0050l0 42517100 48025200 
STACKPRTAREAV — DEFINE — DECLARED AT 00017530 

20176093 
STACKUSF •• DEFINE — DFTLARED AT 00080400 

02028000 44180000 48048000 46054600 
STACURR -• DFFINF "" DECLARED AT 08256000 



START — LABEL — nrCURFD AT 00024?70 -« OCCU«S AT 46040000 
00055100 

START -• LABEL -- DECLARED AT 04?6l?00 -- OCCURS AT 04304000 

04300500 O43O26OO 

START -. LABEL -- DECLARED AT 04357?Q0 -- OCCURS AT 04372200 

04179000 04397600 
START — REAL — DECLARED AT 07269100 

*07?90400* 07295020 

START -- LABEL — DFCLARFD AT 07425500 -- OCCURS AT 07425600 

07427645 

start — label -- declared at 12371000 -- occurs at 12409500 

start — label •- declared at 13019000 — occurs at 13093000 

13136000 

START -■ LABFL -- DfCLaRFD AT 16914000 -- OCCURS AT 16918000 

16969500 

START -- LABEL -- DfCLARED AT 2O1466OO -- OCCURS AT 20149600 

20146900 20199*00 

START -- LABEL -- DECLARED AT 24032800 -- OCCURS AT 24036200 

24038200 

START mm LABEL — DECLARED AT 37180600 -- OCCURS AT 37222000 

37240050 37241700 37255000 

START -- LABEL « DECLARED AT 41430500 — OCCURS AT 41500100 

41430600 
STaRTaDeCK — PROCEDURE " DECLARED AT 07422000 — FORWARD AT 07002000 

07420010 07461900 07469000 07573000 44280100 

STaRTaNeWFTLE — LABEL — DECLARED AT i25i4000 -- OCCURS AT 12694500 

12515000 I27i0s00 

STARTANEWEIi.E -- DEFImE -- DECLARED AT 13026000 

13136000 
STARTIMING -• PROCEDURE -• DECLARED A7 37271000 « FORWARD AT 00377000 




S\ _. . 

■M2255000* 12277500 1227850C *)2282000* 
START T Nf, -- REAL — DECLARED AT 12359500 

*12432000* 12435*00 *1249>6000* 
STARTING — DEFINE -- DECLARED AT 20018800 

20023300 
STARTING -• DEFINE- »- DECLARED AT 20087700 
STARTING — DEFlNEf — DECLARED AT 20147900 

20149400 20|50fi00 20199400 
5TARTI0 « PROCEDURE — DECLARED AT 04020000 — FORWARD AT 01165000 

04037000 04377800 04492800 04564000 04671950 22035000 22097000 22213600 22220000 48119000 
STARTLOftDN « PROCEDURE •- DECLARED AT 07243000 

16536000 
STARTLOr, -• DEFINE -- DECLARED AT 00025300 

0?0?7000 12612OOO 12 8 1 9 500 20180350 22242100 48O8O2OO 
STARTOG — DEFINE ,-- DECLARED AT 0008t6l0 

074276)0 07)»27620 07427640 
STARTWRD — DEFINE? -- DECLARED AT 05780030 

05844920 05B48?55 05849500 05850200 05850300 05961000 05961800 05962000 05971800 06109200 06380150 

06380750 06,380800 168J6800 
STATE •" RFAL "• [DECLARED AT 38006000 

38012000 38P13400 38038000 38072000 

state -- real — " depLaRfd at 38i02600 



381M500 *38ii8500* 36125500 
STATE -- REAL -- DECLARED AT 3B?00600 

38?ii500 36276500 
STATE -- REAL — DECLARED *\T 3P362000 

38389200 38389300 38389800 3839?00O 38397000 38398000 3841H00 38411300 *385O3800** 38526000* 
STATE -- REAL •- DECLARED AT 38547000 

38586000 *38642000* 
STATE -" REAL -- DECLARED AT 38655000 

38681000 38682000 38746000 38749000 38750000 38753000 *38776000**38777000**38780000**38781000**38784000* 
♦38790000* 38794000 38798000 *38817000* 
STATE — RFAL -• iDEpL.A»E0 AT 39004000 

39035000 39037000 *i9090000* 3930t000 39303000 
STATE — REAL —3 DECLARED AT 41OO3OOO 

*4l0ftj000**4i 187000* 41189000 411.94000 
STATUANDBUF -- DEFINE -- DECLARED AT 08100530 
STATUS — PROCEDURE -- DECLARED AT 22055000 -- FORWARD AT 00369000 

22??7000 48014000 48084300 
STATUSBlT — DEFINE -- DECLARED AT 00080200 

22224000 48012500 48064100 
STaTUSMaSK — DEFINE « DECLARED AT 00080200 

02196000 07059?00 07232000 08046000 08088000 08421000 08580000 12530500 37304000 45150000 48013000 

48084200 
STAWORdaRfAV -- nFFlNp- -- OFCLaKFD AT 000i7460 
STF!«ST -- DEFfNE « DFCLARED AT 00i34420 

12271500 14431470 
STKSZ -- REAL — DECLARED AT 19696100 

*l97382l0* 1 9776 1 1 
STnEXT -- DEFINE -- DECLARED AT 00134440 

12271500 12454000 12454500 12473060 12473070 12473080 14431440 14431450 14431460 
STOO •"- REAL -- DECLARED AT 12507000 

12507500 *12712000**12721000* 
STOG — RFAL — DECLARFD AT 12807000 

12807500 
STOfi -- RFAL « DECLARFD AT 13010000 
STOP -- R|rAL -- DeCLARfD AT 04123000 

041?3500 *0«159000*+04164000* 04189000 04196400 04223000 
STOP -- DEFINE -• DECLARED AT 06073300 

06114600 
STOP -. SUBROUTINE -- DECLARED AT O7O11OOO 

07233000 07234000 
STOP •- LABEL •- DECLARED AT 20020300 — OCCURS AT 20066400 

20055500 20060800 
STOP •• SUBROUTINE — DECLARED AT 22247000 

22299000 22361000 22409000 
STOPCK -• DFFINE — DECLARED AT 06073400 

06087000 06090700 06091700 06092000 06096700 06110600 
STOPIT " LABEL — nFcLARED AT 06070000 — OCCURS AT 06114600 

06108100 06108900 
ST0PL06 "* OEFTNE — DECLARED AT 00025500 

O2OO83OO O2O340OO 06190000 I?6i0l00 I28i7600 22252000 
STOPLOOP -- LABEL — DECLARED AT 14351250 -- OCCURS AT 14431410 

14431514 14431620 14431630 
STOPM — PROCEDURE — DECLARED AT 17900500 -- FORWARD AT 00089100 

07028000 13107000 17928000 28043200 28O466OO 28089800 28230600 28260800 28270822 28303400 26885500 

48030000 

stopmjx -- Real — . hfcLaRfd at 12360000 

♦12431000* 12435500 *12439500* 12^42500 12449000 12451000 12452000 12453000 12453500 12454000 12457000 



*12457500* l ?458000 12458500 12459000 12461000 12462000 12463000 12464000 12465000 12466000 *12473070* 

J2473090 ^473,00 1247312" 12^73140 12473150 12473160 12473l90 12473200 12473280 
STOPMfX -- STRFAM VARtABI.E — DECLARED AT 12473200 

12473250 
STOPMfX -- REAL — DECLARED AT 14351250 

♦14431450* 14431480 t443l490 14431502 1*431506 14431510 14431512 14431518 14431520 14431600 
STOPMIX -- STRFAM VARIARLF "- DECLARED AT 14431520 

14431570 
STOPPFR " OFFlNp -- OFCLaRFD AT 14160000 

14184000 14189000 
STOPSfT — DFFINf "- DFCLaRED AT 02110300 

07028000 12473)20 13107000 14431502 l5n4700 28043200 28046600 28089800 28230600 28260800 28270822 

28303400 28885500 
STOPSO -- LABfL — nECLAREO AT 06070000 -- OCCURS AT 06113400 

06087000 06090700 0609i700 06092000 06096700 06l0}900 O611O6OO 
STOPTpST -- DEFINE. — DECLARED AT 00416760 

04654200 
STOPTJME -- LABEL " DECLARED AT 12513500 -- OCCURS AT 12757750 

12755500 
STOPTIMING -• DEFINE -- DFCLARED AT OO3820OO 

04680050 12526500 12758000 280i2080 280j4200 28015400 28037400 28082600 28226400 28247400 28251200 

28305200 28306200 28306800 28434600 28481600 37214000 37218300 37255000 38105600 38106100 38203600 

38204100 41212000 
STOReaDdRESS -- DEFjNf •- DECLARED AT 07003412 

07003504 O7OO3514 07003522 O7OO353O 0700353 8 O7OO3546 0700^554 O7OO356? 07003570 
STOREDY -- DEFINE -- DFCLARED AT OOO8O5OO 

12386000 18841400 18844000 20119600 24043000 42476000 44142000 
STOREMASK -- DEFINE -- DFCLARED AT 00080500 

02434480 02434490 02434530 09617000 09624000 12386000 14361000 18841400 18841500 18843700 18844000 

18844100 18845500 20119600 20119700 20120600 24043000 24043100 24043800 42476000 
STOUE — REAL aRRaY -- DECLARED AT 00134110 

♦12454000* 12473070 *124?3080* 14431450 * 1443 1460**1 7926000* 44163040 
STOUEMAX •- DEFINE — DECLARED AT 00134115 

12473060 14431440 17925500 44l5i052 
STR -- STREAM LABEL -- DECLARED AT 06079900 -- OCCURS AT 06081600 
STR -- STREAM VARIABLE « VALUE PARAMETER -- DECLARED AT 28421600 

28492000 
STT m- LABEL — DECLARED AT 02194000 -- OCCURS AT 02262000 

02966400 02272000 02315000 
STl -- LABEL -- DECLARED AT 20591500 -- OCCURS AT 20594600 

20593150 

ST2 -- Label — declarfd at 20591550 -- occurs at 20593450 

20593800 
SU "" LarfL +-■ DECLflRFD AT 37007000 •- OCCURS AT 37096000 

37008000 
SU — STRFAM VARTABLF « DECLARED AT 39905000 

*399i2000* 39914000 
SU -- REAL ARRAY -- DECLARED AT 40005000 

400i6200 *400i6240* 400i6400 400i65l0 400i6920 *400i7280* 40027240 40027250 40027270 40027290 40027295 
♦40042100* 40047J00 40060305 +40072000* 40074000 40076000 40078033 40078074 40078092 *40249t00* 4026l0l0 
♦40261040* 40261200 40290400 40321310 40321400 40322220 40323600 40323700 40324200 40327000 40335000 
SUM — RE A L -- DECLARED AT 06068500 

*06110A00* 06110800 *06111400* 
SUPER •• LABFL -• DfCLaRFD AT 07009000 -- OCCURS AT 07129000 

07181000 07230000 
SUPER -" REAL — DECLARED AT 40005100 

*40065050**40065i 00**40078076**40078092* 40292200 *40292212* 40292222 *40292230* 



SUSTATUS -- PROCEDURE -- DECLARED AT 39900000 -- FORWARD AT 08438900 

08484500 40356800 
SV -« LABEL -- DECLARED AT 16055000 -- OCCURS AT 16170000 

16063000 
SV -- STREAM VARIABLE -- DECLARED AT 2010S400 

♦20106700* 
SV — REAL "- DECLARED AT 28003800 

♦28074200* 2B074ROO 
SV -- REAL ■" DECLARED AT 28204200 

28204400 *28246800* 28253000 28272400 28272800 +28278200**28278600* 28279200 *2828260o* 28284000 

sv — strfam variable « declared at 28272400 

svaluf •• Real « dfclaRed at 20014500 

svaluf -- Real « dfclaRed at 20083700 

svaluf -- real — declared at 20144100 

2O1512OO 20162900 2O1R68OO 20167700 20l89400 
SVDI -- STREAM VARIABLE -- DECLARED AT 04659300 

♦04660100* 04660400 04660900 
SVPBT -- DEFINE — DECLARED AT 00416610 

12528000 38256«i00 
SVSEARCH — LABEL — ' DFCLARED AT 24032800 — OCCURS AT 24033200 

24034200 24034700 24034750 24034900 24035100 
SVSI — STREAM VARIARLF " DECLaRFD AT 04652000 

♦04653200* 04653300 
SVSTART — LABFL « DFCLARFH AT 24032800 -- OCCURS AT 24033100 

24034700 24O4OOOO 
SH -» LABEL « DECLARED AT 04l?5000 -- OCCURS AT 04162000 

04133500 04142*00 
SW — SWITCH LABEL -- DECLARED AT 06351000 

06352000 
SW — SWITCH LABEL, — DECLARED AT 12514500 

12621500 
SW •• SWITCH LABEL — DECLARED AT 12813500 

12847500 
SW -- SWITCH LABEL -- DECLARED AT 20146900 

20151500 20163200 20187100 20187900 20189700 
SW — SWITCH LABEL — DECLARED AT 20566620 

20567600 
SW -- SWITCH LABEL — DECLARED AT ?059j600 

20591650 
SW -- SWjTCH LABEL — DFCLARED AT ?0599000 

20606610 
SW •- LABEL — DECLARED AT 37004000 — OCCURS AT 37056000 

37047800 
SW — SWITCH LABEL — DECLARED AT 38662000 

38697000 

sw -• switch Label -- declared at 41006000 

41052000 
SW — SWjTCH LABEL — DECLARED AT 42512000 

42518000 
SWI T •- SWITCH LABEL « DECLARED AT 28010000 

280/|9800 
SWITCHIT — LABEL -- DECLARED AT 16914000 .-- OCCURS AT 16955800 

16951500 
SWITCHREELS « DEFINE — DECLARED AT 28207650 

28244040 

sxit -* Label •- declared at 37I8O600 « occurs at 37240200 

37241525 37241610 



SY -• LARFL -- DECLaRFP AT 16700000 -- OCCURS AT 16789000 

16704500 
SYL — STREAM VARyABLF -- OFCLaRFD A T 16854700 

syllable — integfr -- declared at ooo?60oo 

0003?000 00034000 00035000 +00035500* 000^9035 *000 39050**00044000* 
SYLLABLE — REAL — DECLARED AT 00310000 

14002000 42523000 '12524000 42525000 
SYNTA — DEFINE -• DECLARED AT 20237000 

20585700 20585800 20585850 20604700 

sys -- Label — declarfd at 09701000 « occurs at 09716000 

09706000 
SYS -" LAREL -- DECLARFD flT 18207000 -- OCCURS AT 18388000 

18219000 18396000 
SYSJOBF — DEFINE « DFCLARED AT 00134030 

02261100 Oa?52«sO0 0430?;?0n 09608000 I24i6000 1443H25 l5l 1 3500 16178000 20193400 22042100 37185350 
SYSMAX — DEFINE — DECLARED AT 00310200 

44086300 
SYSNO — DEFINE « DECLARED AT 00310200 

07438100 08438410 084«8430 08597810 08597830 08630000 08673000 OR832000 08834000 09641000 09680400 

12321120 15501^00 15531200 15550000 l80i7000 18345000 18555000 20289H5 28288400 28882200 32000510 

38?20500 41320330 41320350 44087000 44202800 44203150 44209200 44213000 44243250 

systemftLe -- Real pkocfpuRf -- dfclaRfd at 09700000 — forward at 00463300 

06093000 p05fn88 ?0574750 20577810 ?059?000 20593650 2°72 9 000 284l5?00 385 t 2000 
SZ •- REAL -- DECLARED AT I8OO4OOO 

*l80t2000* 16O140OO 18O16OOO 180J8000 *i8046000* 18O48OOO 18049000 18050000 ♦18054000* 18O56OOO 18057000 

18059000 18060000 18062000 18069000 18071000 18073000 
SZ — REAL — DECLARED AT 19694000 

•19760000* 19766300 
SZl •- STREAM VARIABLF — DECLARED AT 12410500 

12412000 
SZ2 — STREAM VARIABLE — DECLARED AT 12*11000 

12412000 

si — Real -- declared at 04126OO0 

04127000 *04131000* 04132000 *04137l70* 04i37l90 *04l78000* 04180000 *04l94700* 04195100 0420t000 04213000 

51 -- STRFAM VARIABLE -- DEfLARFD AT 04359400 

04360400 
Sj -- REAL -- DECLARED AT 1969^000 
♦19704000* 19748000 

52 -- STREAM VARIABLE -- DECLARED AT 04359400 

04362800 
S2 -» REAL " DECLARED AT 20017400 

20017500 *20058800* 20059900 *20060500* 
T « REAL " DECLARFD AT 00307000 

00308000 

t « stream variable -- declarfd at 00308000 

T -- REAL -- VALUF PARAMETFR « DFCLaRFO AT 00316100 

t « Real -- value paramfteR -- declared at 00480010 
t -- real -- declared at 00650250 

00651000 
T — STREAM VARIABLE « DECLARED AT 01260600 

01260700 
T — REAL "- DECLARED AT 02057000 

♦02064000* 02067000 *02077000* 02081000 02097000 02097400 
T "- REAL — DECLARFD AT 02116000 

♦02123000+ 02125000 02126000 
T « iNTFflFR -" DECLARFD AT 02133200 

•02173110* 02173210 02173286 02173350 



REAL — 
♦02?12000 
*02?A2000 
♦02303000 
♦02324000 
RTRrftM VA 
02228000 

Real « 

*0234?'320 

INTEGER 
*0?3650O0 

REAL — 
02664000 

STREAM VA 
02664100 

REAL « 
♦04022000 
REAL -- 
*04048800 
REAL " 
+04073000 
NaMf •" 
♦04104000 
STREAM VA 

O41 lOOOO 
REAL " 
♦04129000 

04201000 

Real — 

♦04251100 
STREAM VA 
REAL — 
REAL — 
*0437l930 
04425200 
STREAM VA 
STREAM VA 
STREAM VA 
STREAM VA 
*04647400 
STREAM VA 
♦04653700 
STREAM VA 
STREAM 
STREAM 
STREAM 
STREAM 
STREAM 
STREAM 

REAL " 
♦04707000 
STREAM VA 
STREAM VA 
04717000 
STREAM VA 
REAL -- 
*05609000 



DECLARED AT 02190000 
**0?2t4000* 0??i5000 *02215500* 02216000 022l60i0 *022l6l00* 02216600 0221^000 *0?2l7l\00* 02221000 

* 02263000 *0?264000**02?74000*+02287240**02287245^*02287250**02287260* 022872?0 *02293000* 02294000 

* 02306000 *0?308000* 02309000 023l0000 02313000 *023l8000* 02319000 *02320000**02322000* 02323000 
♦♦02328100* 02328200 

RIAB^F " OECLaRfo AT 02221000 

02231000 *02251080* 0225i09o *0225U40* 02251150 

DECURrO AT 02347220 

* 0?347?25 0234^335 0^347350 0234^430 
— DECLARED AT 02362000 

* 0?366000 02368000 *02ifiOOo* 02375000 
DECLARED AT 02661000 

O26685OO 
RIABLE — DECLARED AT 02664000 

DECLARED AT 04021000 

* 04023000 04032000 
DECLARED AT 04844000 

**04055000* 04057000 *04058000* 04059000 04062000 
DECl-ARFD AT 04068000 

* 04075000 *04085000* 04086000 *04090000* 04091000 
OFCURfD AT 04100000 

* 04105800 04107000 04t09000 
RIABLE -• DECLARED AT 04i09000 



DECLARED AT 04126000 
♦ 0/1130000 ♦04142000**04152400* 04154000 *04160000* 04162000 *04 164000*^04 182000**04 192000* 04196600 



VA 
VA 
VA 
VA 
VA 
VA 



dec'aRtd 

* 04251300 
RIABLE -- 

DECLARfD 

declared 

* 0i»37i950 
*04426ft00 

RIABLE « 

RIABLE — 

RIABLE — 

RIABLE -- 

RIABLE — 
♦ 

RUBLE — 

RIABLE « 

RJABLE ■- 

RIABLE — 

RIABLE « 

RIABLE « 

RUBLE -- 
DECLARFD 

* 04709000 
RlARLE -- 
RUBLE " 

04718000 

RJABLe "- 
VALUE PAR 

* O561O0OO 



AT 04?43100 
04252000 

DFCLARED 
AT 04?57400 

AT 04354000 
♦04372400* 

* 04432200 
DECLARED 
DECLARED 
DECLARED 
DECLARED 



04252700 04253000 
AT 04251300 



04372800 0437320° 04377600 *044 l9600**0^ft2i600* 04421900 0^422000 ^04424600* 

AT 04567320 

AT 04567790 

AT 04644000 

AT 04647100 



DECLARED AT 04651900 

DECLARED AT 04672500 

DFCLARED AT 04672950 

DECLARFD AT 04674750 

DECLARFD AT 04675000 

DECLARED AT 04683500 

DECLARED AT 04686i00 

DECLARED AT 04686950 
AT 04704000 

04710000 04712000 04722000 04731000 

DECLARFD AT 04709000 

DFCLARFD AT 04712000 

DFCLARFD AT 04737000 
AMETER — DECLARED AT 05607000 
*056hOOO* O5612OOO *056i3000* O5614OOO 



04737000 0*742000 



STREAM VARIABLE — DECLARED AT 05614000 
05615000 

real -- Value parameter -- declared at 05039400 

05842200 05842475 05843000 05843500 *05844920* 05845700 
INTEGER ■*- DECLARFD AT 05847700 

♦05850300**05850400**05850500* 05850600 *05851300* 05851500 05851900 05852000 *0585?100**0585?200* 
tNTEGER — DECURFO AT 05952000 

05952715 05952755 *05962000**05962200**059ft2400* 05962600 05962800 *05972000* 05972400 05972600 0597?800 

05973600 05973800 
STREAM VARIABLE — DFCLARFD AT 05952715 

05952725 
STREAM VARIABLE -- DEClARFD AT 05952755 
*0595?9i5**05952930* 
REAL "- DECLARED AT 06022000 
♦06022300* 06022500 OfiO?3000 
STREAM VARIABLE — DECLARED AT 06023000 
♦06099000* 

REAL " DECLARED AT 06037000 
♦06037700* 06038100 

STREAM VARIABLE « DECLARFD AT 06038100 
REAL — DECURFD AT 06064000 

06065000 06066000 
REAL — OFCUaRfO AT 06068500 

06068600 06098«00 06098600 
REAL « DECLARED AT 06185000 

*06?03650* 06203700 *06206t40* 06206240 *06208000* 06210000 06214000 06215000 06254000 06257000 
STREAM VARIABLE -- OFCLARED AT 06206140 
INTEGER -- DECLARFD AT 06405000 

*06411000* 06^12000 06*13000 06*16000 06421000 06*22000 06423000 
REAL •• DECLARFD AT 07006050 

07018000 07019000 *07051tl0* 0705(130 07051140 *07062000* 07065000 *07067000**07077000**O709O000* 07093000 

07120000 *07125000*+07t28000**07139530* 07139565 07145000 07146000 07148000 07149000 *07155000* 07156000 

07176000 07177000 *072l4000* 07214100 072i9000 *07224000* 07226000 *07227000**07233000**07234000* 
STREAM VARIABLE -- DECLARED AT 7 1 39^30 
STREAM VARIABLE -- DECLARED AT 07lS6000 
STREAM VARIABLE — DECLARED AT Of ?l 41 00 
REAL « DECLARED AT 07244000 
*07252000* 07255000 07262400 07263700 07264000 07264200 

stream variable -- declared at 07262400 
real " declarfd at 07269000 

07284000 
STREAM VARIABLE •- DECLARED AT 07264000 
REAL -- DECLARFD AT 07299000 
♦07343000* 07344000 
REAL « DFCLaRfD AT 07408100 
*074l8000* 074(9?00 074(9300 
REAL ** DECLARED AT 07424000 

*07444000**07445l00* 07445200 074453°0 *07446000* 07446100 *07446l50* 07447000 O74485OO 07449000 
REAL — DECLARED AT 07542000 
♦07545000* 07559000 
REAL -" DECLARFD AT 08027000 

08029015 08033980 *08033990* 08033992 #08033994* 08034000 08051000 08051010 08051065 

stream variable -- dfclarfd at O8029015 

REAL -- DECLARFD AT 08099650 

*08t0l520* 08l0i950 08102(50 08102300 08(02350 O81O365O 08(03700 *08l06800* 08107(00 *08l07600* 08(08250 
*08}08800* 08(09300 *08(09750+ 08((0350 *08(K350* 081(2200 *08i(3000* 081(3300 *08((3750* 081(4650 *08(14900* 
08(15450 



STRFAM VARIABLE -- OFCLARrn AT 08i07t00 

STREAM VARIABLE -- DECLARED AT 08i08?50 

STREAM VARIABLE — DECLARED AT O81G93OO 

STREAM VARIABLE -- DECLARED AT 081 1 0^50 

STREAM VARIABLE ■• DECLARED AT 08112200 

STREAM VARIABLE — DECLARED AT 08113300 

stream variable « declared at 08iU65o 

STREAM VARIABLE " DECLARED AT 08115450 

REAL « DECLARED AT 08172000 

♦08174000* 08175200 08175400 08175500 08176000 08178000 

REAL — DECLARED AT 08344000 

REAL — DECLARED AT 08377000 

08384000 08386000 
REAL -- DECLARfD AT 08391000 
*08^96000* 08397000 08409000 0S410200 
STREAM VARIABLE — DECLARED AT 08397000 
REAL " DECLARED AT 08440000 

♦08447000* 08148000 08449000 0845l000 08454000 0847l0l0 08472000 
STREAM VARIABLE — DECLARED AT 08472000 
INTEGER — DECLARFD AT 08528000 

♦08530000* 85 31000 *085 3 3400**08 5 3 3700**085 34 000**085 35000**08 5 36000**085 37000**085 38000* 08540000 
STRFAM VARIABLf « DFCLARfO AT 08540000 

08541000 
REAL « DECLARfD AT 08576000 

♦08577700* 08578,00 08590000 08597000 *08597800* 085978l0 08597820 08597830 08597840 
STREAM VARIABLE -• DECLARED AT 08578160 
STREAM VARIABLE -- DECLARED AT 08590000 
STREAM VARIABLE — DECLARED AT 08605000 
*086l3000* 08618000 08619500 
REAL -" DECLARED AT 08626000 

08630000 08632000 08670000 
STREAM VARIABLF " DECLARFD AT 08632000 
♦08638000* 08643000 08650000 08653000 *08655000* 
STRFAM VARIABLE — DFCLARFD AT 08690i00 

08690130 08690,90 08690250 08690280 *08690300* 
REAL — DECLARFD AT 08704000 

08798000 
INTEGER -• DECLARED AT 08733000 
*08775000* 08784000 08784100 
STREAM VARIABLE -- DECLARED AT 08775000 
REAL — DECLARFD AT 08801000 
REAL — DECLARED AT 08851000 
♦08882500* 08916000 
STREAM VARIABLE — DFCLARFn AT 08916000 

08917000 ♦08919000**08922000* 
REAL -- DECLARED AT 09501000 

♦09505000* 09505500 09505600 09505700 09505750 *09507500* O95O8OOO *095l0000**09535000* 09535100 09536000 
REAL — DECLARFD AT 09602000 

09602100 *O963l000* 09632000 *09639000* 096*0000 0964J000 09646000 09648800 
REAL -- DECLARED AT 09*79300 

♦09679800* 09679900 *09680800* 0968i000 09681505 09681515 09681540 09681900 09682000 09682200 
STREAM VARIABLE •- DECLARED AT 09661000 
STREAM VARIABLE " DECLARFD AT 09681515 
STREAM VARIABLE — DECLARED AT 09682200 
DEFINE « DECLARED AT 09702000 

09703000 09704000 09704100 09704500 09705000 09706000 09706050 09706100 09707000 09708000 
STRFAM VARIABLE « DECLARFD AT 12225500 



M2237000* 12238000 M2241500* 
T -- REAL -- DECLARfD AT 12503500 

*12535500**i?537000**12537500* 12538500 * 1 2549500**1 2550000* 12550500 *j?556000* 12556500 *i?590000* 12590500 
12626500 12627000 * 1 ?6?8000** 1?639500* 12641000 M2643000* 12643500 12645000 126*7000 *12647500* 12648000 
12650500 *!2655o00* 12656000 12657000 12691500 12705750 *12708250* 12709500 *12709750* 12710250 
T " sTRraM vaRIarLf — DFCLaRfo AT 12708250 
T -- RfAL •- nrCURrD AT 12*03500 

*128?3000* ^829000 *\ ?830000**i?833000* 12836OOO 1? 862000 *12863500* i?864500 *12865500* 12866OOO 12866500 
12873500 12874500 12875000 12875500 12876500 12880500 12887000 *12892500* 12897500 12898000 *1290l000* 
T — STRfAM VARIABLE — DECLARED AT 12833000 

t « strfam variable — declared AT 12880500 

12882000 
T — STREAM VARIABLE -- DECLARFO AT 12887000 

♦12888000* 
T <■- STREAM VARIABLE -- DECLARED AT 12892S00 
T " REAL "- DECLARFO AT 13004000 

13054000 13064000 +13108000* 13110000 #13135000* 
T " INTEGER -" DECLARFO AT 14108000 

*14U3000**14117000* 
T "• STRFAM VARIARLf — OFCLaRfo AT 14166100 

141861)0 
T — STRFAM VARIABLE -- DECLARFO AT 14204100 
T -- STREAM VARIABLE -- DECLARED AT 14205300 
T -- STREAM VARIABLE -- DECLARED AT 14227.300 

14227520 M4227560* 14227600 

t -- stream variable « declared at i4284ooo 

14285000 14287000 
T "- REAL " DFCLARFD AT H348Q00 

♦14351310* 14351320 14351330 1435l35o 14351360 14351370 *14351390* 14351400 *14351410* 14351420 14351440 
*14358595**14358598* 14356600 *14362000* 14364100 14364200 14364300 14364800 14381000 14383000 *14383700* 

14383800 14384000 14388000 J4390000 1*392000 14393000 14398700 14398800 14399300 14399400 *14415200* 

1*430400 

— STRFAM VARIABLE — DECLARFD AT 14415?00 

— REAL -- DECLARFD AT 14532000 
♦ 14533000* 14534000 14535000 *14540350* 14541100 

-" REAL "- DECLARED AT 14545000 

*1455050O**lft554 t ;0O**145575O0**1459O00n* 14592000 * 1 4595000** 14598200* 14600500 *14601500* 14603320 14604000 
14607000 14619000 

— REAL -" DFC.LaRfD AT 14624450 
*14640000**14642000**14643000* 14645000 14691000 14711000 

»- STRFAM VARlAHLF — DECLARFD AT 14645000 
•- STREAM VARIABLE — DECLARED AT 1469J000 

14693000 
-- STREAM VARIABLE — DECLARED AT 14711000 

14712000 
-- REAL — DECLARED AT 15020000 
*150??000* 15039000 15040000 

— REAL -- DECLARED AT 15066000 
♦15098000* 15099000 

-- STREAM VARIABLE « DECLARED AT 15113800 
-- STREAM VARIABLE « DECLARED AT 15115700 
" REAL -* DECLARED AT 15171000 
*15174000**15180000* 15182000 

— stream variable — declared at 16343500 
•• stream variable — declared at I6689ioo 

— STREAM VARIABLE — DECLARFD AT 16654600 
♦16855600**16855800* 



STRFAM VARJABLF -• DECUARFP AT 16907600 

INTEGER -- DECLARED AT I69i?l00 

*169?62l0* 16967000 169ft8l00 +16968120* 

STREAM VARIABLE -- DECLARED Al 16926910 

STREAM VARIABLE -- DECLARED AT 16967000 

REAL — DECLARED AT 17000800 

*17003450* 17005400 

STREAM VARIABLE -- DECLARFD AT 17003450 

REAL " DECLARFD AT 18004000 

*180?5000* 18028000 18030000 *18050000* 18053000 18054000 18056000 *18057000* 

REAL -- DFCLaRfD AT 18198000 

*l8438l?0* 184381 80 18438200 

STREAM VARIABLE — DECLARFD AT 18438J20 

REAL «*• DECLARFD AT 185O23OO 

*l85?0600* 1^521000 18522700 *j6524l00* l85?4200 *i8525700* i8525900 *i65?7600**i6526200* l8529l00 *|85«0500* 

18540600 1R54H00 M8553400* 18553410 18553500 18553600 18553700 18553800 18554000 JR554700 18554800 

18S55200 1.1.8555600**185*5700* 18555900 18556OOO 18556200 185564OO 18556500 185568OO *l8570i00* 18570800 
rTRfaM vaRIabLf •- DFCLARrn AT 18521000 

18521300 
STREAM VARIABLE — DFCLARFD AT 185?8?00 
STREAM VARIABLF. -- DECLARED AT t85/j0600 

18540700 
STREAM VARIABLE — DECLARED AT I857O1OO 
REAL -- DECLARFD AT 1S70180O 
*187?0200* )8720?00 *)B7?04f>0* 18720600 j87?0800 *i8770900* 18790600 *18830600* 18830900 18834200 188347OO 

18835300 18835600 *18840200* 1884n300 18840400 *18840500**1884 1600**18844200* 18844400 18844500 18844600 

18845200 18845300 18845400 
STREAM VARIARLf « DFCLaRfd AT 18790600 
STREAM VARIABLE — DECLARED AT I8B3O9OO 
STREAM VARIABLE -- DECLARED AT l8834?00 
STREAM VARIABLE -- DECLARED AT 18834700 
REAL — DECLARFD AT 19519000 
*l9576l00**i9576200**i9576300**i9576400**l9576500* 19576600 *i9590000* 19592000 *l9680200* 19680500 

strfam variable -■ declared at 19680200 
real « declarfd at 19693000 

*l9698000* 1V699000 19700500 197O3OOO 19707000 i97n300 i97ll400 19720000 19732000 19733400 19733600 

19750000 19765000 1.9766800 19768200 *l9768764* 19768782 *l9774l00* 19774750 
STREAM VARIABLE — DECLARED AT 19768?00 
REAL — DECLARFD AT 19900260 

♦19900600**19900610* 19900620 *19900730* 19900735 19900755 19900805 *199008l5* 19900820 19900830 
REAL "- DFCLARFD AT 19901500 

♦19902150**19902200* 19902300 *19902900* l9903l00 *l99038l0* 19903825 #19903830* 19903850 19904360 19905200 
REAL — OFCLaRfD t T 20012000 

♦20034500* 20035800 20036t00 20036200 *?0045900* 20046000 20046200 20046300 *20046400**20063300* 20063500 
REAL — DECLARFD AT 20081200 

♦20101300* 20102000 *?0n8900* 20119000 20j?l?00 20121800 20l?2l00 *?0124900* 20125000 
STREAM VARIABLE -- DECLARED AT 20J01300 
REAL -- DECLARED AT 20H1600 

*20163600* 20163700 *20153800* 20165300 20J70600 20176105 20178900 20194400 
STREAM VARIABLE " DECLARED AT 20194400 

20194600 
REAL — DECLARED AT 20289035 
♦20289340* 20289360 20289380 20289560 
REAL — DECLARED AT 20294000 
*20296200**20298l00* 20299020 20300000 
STREAM VARIABLF « DFOLaRfD AT 20300000 

20301000 20301500 



T •- REAL •- DECLARED AT 2O3B2O5O 

*2038?068* ?038?070 ?038?07? *203«?1 65* 20382170 ?038??80 

t •- stream variable -- declared at 20427000 

t « stream variable " declared at 20433000 

t -- stream variable -- declared at 20439000 

t — stream variable " declared at 20484300 

20484400 

T -* REAL " DECLARED AT 20511155 

20511660 20511662 20511664 20511665 

T "• REAL -- DECLARrD AT 20566100 

20566807 ?0566822 20567260 ?0567600 2056952& 20569529 20569590 20569610 20569810 20569840 205f0i20 
20570280 20570?90 *20573850**20574750* 20574900 20574905 *205749i0* 205749^7 *20574920* 20574950 20575000 

20575J50 20575250 20575350 20575400 20575800 20576200 20576210 20576450 #20576900**20577000* 20577025 

20577150 20577250 +20577675* 20577725 *20577810* 20577820 20577823 #20577826* 20577828 *20577829* 20577835 

20577875 20577950 20578025 20578075 20578J75 20578210 20578300 *20578375* 20578425 

t -- real -- dfcURfp at 20581000 

20581200 *20583700* 

t — real -- declaRfd at 20584000 

*20584350**?05B4450**20584500**20585360* 20585365 20585380 20585385 
T -- REAL — DECLARFD AT 20586800 

♦20587200**20587800* 205»8000 20588010 20588100 20588200 20588400 20588450 20588550 *20588650**20588700* 
*20588702**20588740**205fl8747* 20588750 *20589250* 20589300 
T -- REAL — DfCLaRfD AT 20589800 

*20590050**20590i00**20590l50* 20590200 20590300 20590400 20590450 20590550 20590600 20590668 20590688 

20590710 
T — REAL " DECLARFD AT 20591000 

20593060 *20593l00* 20593750 20593900 #20594450* 20594600 
T -" REAL "- DFCLaRfD AT 20595000 

20595850 
T -- REAL — DECLARFD AT 205V6800 

20596950 20597000 20597050 
T — REAL -- DECLARfD AT 2O6OOO1O 

20600130 *2060t720* 2060i740 2060^60 #20602700* 2O6O28OO 2O6O3OOO 20603565 20603600 *20604 1 15**20604250* 

20604300 20604350 20604500 2O6O4850 +20605000* 20605050 *20605360**20605380**20605400**?0605405**20605430* 

20605435 *20605460**20605465**20605470* 20605480 #20605700**20605702**20605880**20607060* 20607600 20608000 

20608050 *20608074+ 20608078 *206081H* 20608116 *20608730**20608740**20608770* 
T — REAL — DECLaRfP AT 20701500 

20704220 20704230 20704240 20704250 20704260 *20722000**20730000**2073 1000* 20736000 20738000 *20739000* 

20741000 20742000 20746000 20748000 20749000 20750000 20751000 20753000 20756000 20758000 20769600 

20771100 
T *■- REAL -" DECLARFD AT 22057000 

22058000 * ?? 074000* 22075000 22078000 *22j07000* 22111500 22n5030 22118000 22H9000 22128000 2212*000 

22136000 22145000 22145050 22145500 22145550 22147000 22159000 22178000 22181000 22185000 *22203000* 

22205000 
T — STRfAM VARIABLE -- OECLARfD AT 22115030 

221 15040 
T -- STREAM VARIABLE -- DECLARED AT 22H9000 

22120000 
T « STREAM VARIABLE — DECLARED AT 22129000 

22110000 

T •• stream variable -- declared at 22159000 

22160000 
T -• REAL — DECLARFD AT 22231000 

*22 307000**22309000**223 14000* 22315000 *22354000**22356200**22356 300**2236 3000**22365200**22365300**22390000* 
22393000 *22395000* 22317000 *224l0000* 22416000 
T — STRFAM VARlABLp •• OFCLARFD AT 22416000 
22417000 



T -- REAL — DECLARfD AT 22902000 
T •■ REAL •- DECLARFD AT 24004000 

♦24011000* 24012000 *?40l7000* 24018000 240i9000 *24024000* 24026000 24027000 
T »• REAL « DECLARFD AT 24032200 

•24033600**24033800* 24034400 *24035l00* 24035300 24036400 24033900 24039000 24039100 24039300 24039500 

24039700 
T •- REAL — DFCURfP AT 24042550 

♦24043600* 24043900 24045500 
T — REAL •- DECLARFD AT 24110000 

24116000 *24126000* 24127000 24128000 24134000 24143000 24i58000 
T •- STREAM VARIABLE *•- DECLARED AT 24U6000 

241 17000 
T -- STREAM VARIABLE -- DECLARED AT 24134000 

24135000 *24J37000* 24139000 
T -- STREAM VARIABLE « DECLARED AT 24158000 

24159000 
T -- REAL -• DECLARED AT 28001600 

28001800 *29018000* 28018400 *28023800**28024600**28024800* 28025000 28026800 28031000 28032000 *28056400* 

28057400 *28058600* 28062000 28062200 28062400 
T •• STRfaM VARIABL-f "- DFCLaRfh AT 28018000 
T -- STREAM VARIABLE « OECLAkFO AT 28023800 
T •• STREAM VARIABLE — DECLARED AT 28031000 
T »- STREAM VARIABLE — DECLARED AT 28056400 
T -- REAL *- DECLARFD AT 28202000 

28202200 *28213400**28218400**28219200**28219400* 28219600 28221400 *28263400* 28264600 *28267400* 28268000 
^28275800**28281550**28281600* 28282200 28282600 28283000 28283200 28283600 *28283800* 28284800 *28265000* 

28285600 28285800 28286200 28286400 28286800 *28287200* 28287600 *28288000* 28288200 28288400 28288800 

28289000 28295600 28298600 28302000 *283045l0* 28304530 
T « STREAM VARIABLE — DECLARED AT 28213400 
T -- STREAM VARIABLE -- DECLARED AT 282184OO 
T -- STREAM VARIABLE -- DECLARED AT 28263400 
T — STREAM VARIABLE — DECLARED AT 28267400 
T — STREAM VARIABLE « DECLARED AT 28304510 
T -- REAL •* DECLARFD AT 28401000 

*284i5400* 28415800 28416200 28416600 284184OO 28418800 28419400 *28420200* 28420600 28431000 #28459000* 
*28460000* 28460400 28460600 28460800 28461600 28461800 *28462800* 28463600 28463800 *28470000**28474000* 
♦28478400* 
T -" STREAM VARlARlE " DECLARFD AT 28418400 

28418600 
T •" REAL « DFCLaRfD AT 28803000 

♦26832500* 
T -- REAL -- DECLARFD AT 32000200 

♦32000500* 32000510 32000600 *32000650** 32000800**3200 1475* 3200t700 
T •- STREAM VARIABLE — DECLARFD AT 32001700 
T -- REAL — DECLARFD AT 3?l00i00 

*32100350* 32IOO4OO *32100500* 32100600 
T — STREAM VARIABLE — DECLARED AT 32100500 
T — REAL — VALUE PARAMETER « DECLARED AT 36001000 

36007000 36008000 
T « STREAM VARIABLE -- DECLARED AT 37046194 
T "- STREAM VARIABLE " DECLARED AT 37284l3o 
T " REAL — DECLARFD AT 37287500 

♦37289000+ 37290000 *3729 1800**37294000* 37295000 +37297000* 37298000 
T — STRFAM VARJABLf — DFCLARFn AT 37314200 

37316200 
T -- REAL — DECLARFD AT 3^388200 

37395000 *37404000* 37412000 37413000 



•- stream variable « declared at 37395000 

37397000 
*• REAL ARRAY -- DECLARED AT 37422000 

♦37429000* 37430n00 37431000 37432000 37433000 *374 34000**374 37000**374 37500**37440000 * 37441000 *3744l500* 
*374 42000**3744 3000**37444000** 37446000* 374 4 7000 

•* stRfaM vaRiarLf -- nrcLARrn at 37441000 
— real « decLaRfo at 37507000 

♦37572000* 37526000 *375?7000* 
-- STREAM VARIABLE -- DECLARED AT 38083000 

38085000 
-- REAL -- DECLARED AT 38366010 

♦38377400**38378000* 38427000 38424000 
-- REAL — DECLARED AT 38561000 

♦38597000* 38598000 38599000 38600000 38602000 38603000 38607000 38607100 38607200 38607900 38607950 
38608000 *38623000* 38624000 

-- STRFAM VARlABLF -- DECLA«Fn AT 38603000 
38605000 

— REAL •- DECLARED AT 38658000 
♦38702000* 38704000 *38705000* 38707000 *38753000* 38754000 38755000 *38759000* 38760000 38767000 *38768000+ 

38769000 
-- REAL — DECLARED AT 40004000 

40008340 *40280000* 40?8j000 40282000 40292212 40293030 40?93060 40309i00 40309i50 40317210 403i7220 
« STREAM VARIABLE — DECLARED AT 40292212 
-- REAL -- DECLARED AT 41017000 

410 i7lOO *4ll9i?00* 41191300 *4ll95000* 41198000 4U99000 *4 1200000**4 1208000* 41209000 
•- REAL — DECLARED AT 44011000 

44080000 *44 126000**44 154200**44 156000**44 156 100**44157000**44 157 100**44 157200**44 158000**44 159000**44 160000* 
* 44 160050**44 J 60400** 44 160500**44 162000**44 16 2050** 44 162 100** 44 163000**44 16 3020**44 1630 30**44 16 3040**44 1640 10* 
*44 164020**44 164500**4 4 164600**44 165700**44 166000**44 167000**44 168000**44 168200**44 169000**44 170000**44 171 000* 
*44 172000**44 17 3000**44 175000**44 I 76000**44 177000**4 4 178 100**44179000**441 79050**44l79i 00* 4 4203200 
•- STRfAM VARIABLE -- DECLARED AT 44?03?00 
*■• REAL •- DECLARfD AT 44206700 

*44?09?00* 44209300 44709400 44209500 *44?i4200* 44214300 44214400 *442l5000**44240690* 44240695 *44243750* 
44744000 44244S00 44248000 44248500 *44250500* 4425?000 *44254 100**44 255500* 44256500 *44262000* 44262500 
44263000 44264000 *44270000* 44270500 44271500 *44274500* 44275500 
•" REAL "- DECLARED AT 44442000 
•- REA 1 - "" DEC l aRfD AT 45002000 
*45094800**45135040* 45135080 

— STREAM VARIABLE — OfCLaRfd AT 45J.35040 

a — Real •- declared at o?434i?o 

♦02434430* 02434580 
ABCNT — DEFINE " DECLARED AT OO1381OO 

06903600 06203700 16I182OO 16206)00 16343950 16689450 j690?950 16956000 
ABLE -- STREAM VARIABLE « DECLARED AT 07003462 

07003466 07003500 
ABLE •- STREAM VARIABLE -« VALUE PARAMETER — DECLARED AT 07003610 

07003615 07003920 
ABLEOFCONTENTS — PROCEDURE — DECLARED aT 07768000 

16786500 

'ADPOLE -- STREAM LABEL -- DECLARED AT 04662000 -- OCCURS AT 04662200 
ANK -- rfaL ARRAY — DECLARED AT 04668800 

♦04674450* 04674650 04677300 O46827O0 *04682750* 
'ANK -» RfaL — DECLARFD AT 14624100 

14644000 14645400 14645600 14675000 *14681000* 14689000 14691000 *14698000* 14701000 14702000 14702025 
14702600 14705000 14708000 *147l0000* 147H000 14712100 14712200 14712300 14712400 
'ANK •* STREAM VARIABLE " DECLARED AT 14691000 
14692000 



TAPE -- LABEL -- DECLARED AT O43578OO -- OCCURS AT 04412200 

04358400 
TAPE — DEFINE -- DfCLARFD AT 20243000 

20461900 20476000 

tape *- label — declared at 22064000 » occurs at 22106000 

22065000 
TAPEBUFFER5TZE " DEFINE -- DECLARED AT 04121850 

04421400 04555J50 04555250 04555350 
TAPECHK « LARFL -- DFCLARED AT 13018000 -- OCCURS AT 13081000 

13037000 
TAPECL •- LABEL « DECLARED AT 12513500 -- OCCURS AT 12756400 

12694800 0^434410 *0?657000* 0709i000 28072800 
TAPENo -" LABEL -- DECLARED AT 12513000 -- FORWARD AT 12742500 -- OCCURS AT 12742500 

12706750 
TAPEPAR *- LABFL -- DECLARED AT 28005800 — OCCURS AT 28081200 

28010200 28092200 
TAPEPARfTYRETRY — REAL PROCEDURE « DECLARED AT 04548000 -- FORWARD AT 04254000 

04421600 *04648i50**04651000* 04666000 
TaPePuR^E "" PROcFDURF " DFCLAHFD AT 08024000 

16770500 
TAPERD «■- LABEL — DFCLARED AT 13018000 -- OCCURS AT 13062000 

13068000 
TAPERDR -- LABEL — DECLARED AT 130l8000 -- OCCURS AT 13061000 

1 3070000 
TApErETrY -- LABEL •• DECLARED AT 04357400 -- OCCURS AT 04421200 

04424000 
TAR -- REAL ARRAY -- DECLARED AT 00079100 

02202100 *0 220 2200**0 2202500**024 34 4 90**024 34530**0584 2300**058 46 395**05 849 300**0585 3600**05960700 #♦05970500* 
*059756 10**06 10 3500**06 10 3700**06 116000**06 U6 100**06353500**06463992**0700 1640**0700 1840**07272500**07296000* 
*07 30 1000**07 352000**0737 1300**0737 1600**0737 1950**07426000**074 27625**07455000**07562000**07568000**07572000* 
*0825 9 575**08268000**08270650**08379000**08388000**0857 nO0**0857 1600**08628000**08677000**08689 300**08696100* 
*O8fl30000**0 88 36000**0 8880000**0 899 7000**09 6 i7000**096 24000**09 6 38000**09647000**09680 100**09 68 26 20** 14 379000* 

* 14 396000 **i 4560000**1 4569000 ♦* 145881 00**1 46 i8000**i8023000 ♦♦i80 3 3000**i 82^3000**1 8425200**1 8425400** 18466000* 

♦ 1884 15 00** 1 884 37 00** 1884 4 100** 188455 00** 197688 00** 19786 000**2 0035 000**2 01 197 00**2 0120600**2 01 5 0900**2 02 103 00* 
*20582450 # ^ 20 58 3650 + * 20760000** 20 769 200** 2077 10 20** 220 10000**220 30000** 22906000*^229 20000 ♦♦ 2404 3 100*^ 2404 3800^ 
*24044 250**24 045250**403 36000**4 1320 3 20**4 1320 355**4 4 148 200* 44160050 

TBBU •- STREAM VARlABLF -- DFCLaRED AT 16041200 

16041400 *16042300* 160*2650 16042700 
TBI- — INTEGFR « DFCLARED AT 41430300 

* 4 1500200**4 1500 300**4 1500400**4 1 500600* 41500700 *4l50l700**4l502000**4i502400* 
TBLADnR « REAL — OECLARED AT 16035100 

♦16041100* 16043550 
T8LCNT <»- INTEGER « DFCLARED AT 41430300 

*4l50l800* 4l502l00 41502300 
TBLERR — LABEL — DECLARED AT 16914000 -- OCCURS AT 16961500 

16926500 
TBL1 — STREAM VARIABLE — DECLARED AT 17003250 

17003800 
TO — LABEL -- DECLARED AT 18701000 — OCCURS AT 18710800 

18701200 
TE -- LABEL -- DECLARED AT 18701010 •- OCCURS AT 18710268 

18701200 
TECH — DEFINE ". DFCLARED AT 36385400 

38389200 38389800 
TElLSPO — SUBROUTINE -* DECURFD AT 240426?5 

24044130 24044400 24045600 
TEMP -- STREAM VARIABLE -- DECLARED AT 04652000 



TEMP 

TEMP 

TpMP 

temp 

TEMP 
TEMP 

TpMP 

temp 

TEMP 

TEMP 
TEMP 

TEMP 
TfMPo 

te*mf 
termg 
termg 
termi 

TERM! 
TERMI 



LA 


01 

na 

NA 
NA 



termina 



tfRmn 

TERMS 



AT 
FT 



04652400 

- STREAM 
♦04661 200* 

- REAL - 
♦04676700* 
♦ 0/1686450* 

" RfaL - 
*08447l00* 
« STREAM 
08454500 

- INTEGER 
♦08838000* 

- REAL • 
♦18241000* 

18460000 

- RfaL - 

♦20583050* 

- Real - 

28001200 

- real - 

28901600 

- STREAM 
" REAL 
*284?9400* 

28453000 
" REAL - 
♦42489000* 

"" OFF I 
06100200 

ft *- Rfa 
♦12705250* 

-- DEFIN 
02257000 

NG -■ DE 

22303200 
l.CLOCK -- 
♦02185900+ 

lmessaga 

02330400 

lmessagf 

04105600 

19680500 

TE -- PR 
0^105600 

14559500 

19575200 

37382000 

F "'• RFA 
04352600 

-- DEFT 
046?6000 

12710000 
14243000 
18540200 
280*6400 
28?32»00 
28467400 



DECLARED AT 04659300 



04682850 04682900 



04653600 
VARIABLE - 
04661300 

- DECLARFD AT 04668600 
04676800 ♦04677050* 04677150 ♦04678200+*04678600**04682l50* 04682250 04682350 
04686550 04686600 *04686700* 04687200 

" DFCLARFn AT 08441050 

08448050 08451100 08454000 
VARIABLE "- DECLARED AT O8454OOO 

-^ DECLARED AT O88O1OOO 
*08839000* 

- DECLARED AT 18198000 

18255000 *18255200* 18260000 *l8261000* 18265000 * 18266000** 18273055** 18276500** 1 8295000** 18425700* 
18465000 18467000 

- DFCLARFO AT 20581080 



♦28077400* 28086000 
28306000 



- DECLARED AT 28OO1OOO 
♦28013000* 28013200 28O134O0 *280i5000* 28015200 *28049600* 28049800 28052000 

- DECLARED AT ?8?0t400 

♦28250400* P8251000 *2829i000* 28291400 28293000 *28293200+ 28294000 *2830580o* 
VARIABLE -- DECLARED AT 28291400 

" DECLARFD AT 28400600 

?«429^00 *28436000* 28436400 28436600 28437000 *28437200* 28437800 28452400 28452600 28452800 

28454400 
" DECLARFD AT 42482000 

42490000 42490100 42491000 42492000 42501000 42501900 
NF "" DFCLARFO AT 06073600 

L « DFCLARFD AT 12506000 

!?74i500 12^5^500 12753000 
E -- DECLARED AT 00408000 

FINE -- DECLARED AT 02U0250 

48031000 
REAL « DECLARED AT 02179000 

22039000 22040000 *22048200* 
•- PROCEDURE -" DECLARED AT 02188000 

"- PROCFOURF "" DECLARFD aT 02330100 - 



FORWARD AT 00463200 



08728700 14233200 14658000 I65lt>i00 

38079500 42488300 42524i00 42540000 

DECLARED AT 02180000 -- FORWARD AT 

O43OO6OO 04352600 063605l6 064ll0i0 



04253000 
3/382000 

ocedurf 
04252300 
14581700 14658000 16124OOO 
19680400 19697400 19796000 
37394700 38079000 42488200 

L -" DFCLARFD AT 04260000 



Np *" DFCLARFD AT 
04678350 06360540 



12710500 
1 4292 t 50 
18540300 
28061800 
28242000 
28472800 



12861500 
14582000 
18580410 
28085800 
28242200 
28476200 



021 10100 
06360550 
12878000 
14563000 
19799070 
28086200 
28258700 
28848000 



iSSjOiOO 
19904350 
42501400 



06463300 
12880500 
15H3300 
19900670 
28089600 
28270824 
28849000 



18540120 
20195500 
42524100 



06463340 
12900000 
15U5000 
19903820 
28095600 
26285400 
28852100 



18552500 
42551000 
00463100 
06463260 
18552400 
22024000 
42540000 



07028i00 
12901000 
17906250 
19903860 
28096800 
28293800 
28852200 



18559200 
4803H00 

087?8600 
I8559i00 
22025000 
42551000 



12545000 
13108000 
17915000 
28022200 
28097200 
28295800 
28863000 



18822100 
48136000 

14233100 
18581400 
36006500 
48135000 



12649000 
14193100 
18029000 
28O362OO 
28216800 
28303200 
28882000 



18835300 
48143500 

14279250 
I88221OO 
37046735 
48142500 



12699500 
14193200 
18034000 
?804i600 
28225200 
28303600 
36007000 



19525200 



14358 383 
18835200 
3^225800 



12705250 
14203100 
18503300 
28043000 
28230400 
28307730 
36008000 



37046800 37046810 37047250 37048100 37121000 37172000 37181000 38014700 38106000 38204000 39009050 
TERMSfiSZ -" DFFINF — DECLARED AT 00439000 

02218000 02219000 30915000 30917000 
TEST "- L4RFL "- DFtLaRFD AT 04124000 -- OCCURS AT 04165000 

04161000 
TEST — RFAL -- DECLARED AT 08027i00 

♦08033990* 08051000 
TEST m m STREAM VARIABLE -- DECLARED AT 08774000 

*08782000* 
TEST -- LABEL — DECLARED AT 09701000 -- OCCURS AT 09720000 

09708000 
TEST -- LABEL « DECLARED AT 12513500 — OCCURS AT 12752500 

12743500 
TESTBaCkUP -- LABEL — DECLARED AT 22062000 -- OCCURS AT 22205500 

22213700 
TERTEND -" LABEL — DECLARED AT 13019000 — OCCURS AT 13134000 

13104000 
TESTING "- REAL " DECLARED AT 04554800 

04567845 04568485 *04654600* 

testRfadY — label — pfclared at lausooo — occurs at H236000 

14244000 
TF -- REAL -- VALUE PARAMETER -• DECLARfD AT 08800000 

08803000 
TF -• LABEL « DECLARFD AT 16054000 -- OCCURS AT 16130000 

16062000 16063000 
TFID -» REAL « DECLARED AT 05950950 

05951000 05953135 *059§6750* 05975750 05976800 05977900 05978050 
TFID -* STREAM VARIABLE •- DECLARED AT 05953135 
TFID — STREAM VARIABLE -- DECLARED AT 05978050 
THERE -- STREAM VARlARLF " VALUF PaRAM^TfR -« DECLARED AT 00082000 

00083000 00087000 

there — real subroutine •- declared at 14549000 

14558500 14567000 
THERE -- LABEL -- DECLARED AT 37004000 -- OCCURS AT 37046320 

37046120 37046940 
THING -- REAL — DECLARED AT 28803000 

28823000 428881000* 28882100 28882120 28882400 28887000 
THISLINK — INTEGER — DECLARED AT 08852000 

08860000 *08860500**08864000* 08865000 08915000 08941000 08944000 08944500 08946000 
THlsLfNK — RfaL — DFCLaRED AT 20012800 

20022300 *20025000**20025600* 20027300 20030700 20037100 

thtsltNk -- Real « declared at 20082000 

20090200 
THISLINK -- REAL — DECLARED AT 20142400 
THU mm LABEL -- DECLARED AT 18205000 
TI •<• LABEL •- DECLARED AT 16055000 •• OCCURS AT 16246000 

16064000 
TIM -- REAL -- DECLARED AT 04123500 

♦04194050* 04195000 
TIME — DFFINf •• DFCLARED AT 38383000 

38419000 38503000 
TlMF -* OFFINf « DFCLaRED AT 38565000 
TIME •- DEFINE -- DECLARED AT 38676000 

368i"7000 

time — define -- declared at 41020000 

41187000 41212000 
TIMEAX •- REAL — DECLARED AT 06185000 



06189000 06195120 

TtMElT -" SURROUTINF — 

06353000 06263100 

T i MfOut •• procedure -- 

08412000 16500000 
TfMpOuT »- RfAL -- 

timer -- label — 

46001000 
TlMERELAXER -- PROCEDURE 

08799000 16803000 
TJMEUSED — PROCEDURE - 



06199000 06201000 
AT 06186000 



06198000 

declaRfd 

06280000 

OFCLARFn AT 08305000 
45075600 
nFCLARFO AT 14624200 
DFCLARED AT 00008000 -. OCCURS AT 48000000 

•- DECLARED AT 08730000 

DECLARED AT 08525000 



06202100 06203000 *06229000**06272000* 06279100 



16247000 
TIMEX *~ INTEGER •- DECLARED AT 06184000 

06192000 06194000 06194900 06195110 
06279100 
TINU — RFAL ARRAY •• DECLARED AT 00241700 
01260600 02434700 02668500 
#04405600* 04567320 04567790 
♦04682850**04682900* 04683500 
O8OO30OO 
08548000 
15113800 
22119000 
28218400 
37221320 
38105800 



06195115 06205030 06205040 +06224000* 06230i00 06243100 *0627l000* 



♦04146000* 04244000 
04568550 *04569000* 



08009000 

08551100 

15115100 

22129000 

28235800 
37221400 

38202800 



04684950 
08030200 
08558000 
16204000 
22159000 
28263400 
37224200 

38203800 



♦04685850* 
08259830 
O8578OOO 
16263100 
22191000 
28270820 
37240700 
39034000 



04251300 
04644000 
O46861OO 
08259850 
08590000 
18556400 
28011200 
28408400 
37285300 

39905000 



04271800 
04672500 
06239000 
08298800 

12670500 
20269^4 

28023800 
37036400 
37285320 
39950000 



04359400 
04672950 

♦06240000* 
08420000 
12700000 
20567i66 
28032000 
37046190 

♦37285400* 
4H90800 



TjNU 
TINUL 



02348500 
44191235 

1260450 

RWARD AT 1 



07475000 
08496000 
12833000 
22115030 
28212000 
37216000 
38104800 
♦44193600* 

- RfaL aRRay -- n a mt 

02348000 02357000 
-- LABEL -- DECLARED 
44191025 
TIP •• LABEL -- DECLARED 

01260465 
TISkTaSk .- PROCEDURE -- DECLARED AT 19687000 -- t-'ORWARD AT 17928500 
19685560 19800000 
STREAM VARIABLE — 
14426100 

REAL ARRAY — DECLARED AT 02434130 
♦02434410+ 02434424 02434532 02434770 02434840 
STREAM VARIABLE — DECLARED AT 02434424 
REAL — DECLARED AT 02-434120 
♦02434440+ 02434534 02434760 02434800 
REAL -- DECLARED AT O2661OOO 
02663000 +02667000* 02668000 
REAL -- DECLARED AT 04668650 
+04678650* 04678750 04679750 0468i250 
DECLARED AT 28003600 

28012040 28041000 28047000 *28072600* 28082000 28082400 28095400 
DECLARED AT 28204000 
28256800 28304600 
- DECLARED AT 40005110 
40290200 40290300 40322425 



♦04393800 
04675000 
070 t 9000 
08424000 
12700500 
20590200 
28056400 
37047020 
37314000 
41333005 



+♦04395400* 
O46818OO 

♦07020000* 
08444000 

♦12701000+ 
20607020 
28065000 
37098000 
38031000 
44168000 



TK •- 

TL •» 

TL -• 

TM — 

TM «•• 

TM •- 

TM -« 

TM ■• 

TM -«■ 



parameter 

AT 440t9000 
AT 0i?50500 
DECLARED AT 
DECLARED AT 



DFCLARED AT 

■- OCCURS AT 

-- OCCURS AT 

19687000 — t-'O 

14414000 



REAL — 
280U840 

REAL "• 
28232200 

INTfGER 
♦40249105+ 



TMp »- ReaL- •* DECLARED AT 00650500 

+00655200* 00655400 +00655600* 00656000 00656200 00656400 
TMID -- REAL -- DECLARED AT 05950900 

O595O95O 05953135 *05956550**05957350**05963800* O5964OOO 
TMID •- STREAM VARIABLE — DECLARED AT 05953135 



04401000 
04662550 
07074J00 
08483000 
12823000 
22075000 

26096400 
37113100 
38045200 
44191025 



05975750 05976800 05977900 05978050 



TMIO — STREAM VARIABLE " DECLARED AT 05964000 

05964200 
TMID — STREAM VARIABLE " DECLARED AT 05978050 

05978250 
TMP -• RfaL -" DECLaRFH AT 28001000 

♦28012800* 28013000 *28014600* 28014800 28015000 28015*00 *28015800* 28016000 280l620n *?8050200**28050800* 

28051000 ?8051600 28052400 28053600 ♦28062800**28063400* 28063600 *28065000* 28065600 *?8096000* 28097000 
TMP -- STREAM VARTABLF •• DECLARED AT 28065000 
TMP •- REAL « DECLARED AT ?820]400 

*28?14600**?8?35000* ?P?35400 *28246800* 28?48?00 28248400 28?48600 2^250000 28?50600 ?825l600 ♦282888OO* 

28301600 *2B305400* 28305600 28305800 28306200 *28307700* 28307705 
TMP *• REAL « DECLARED AT 28400600 

♦28428800* 28429200 28429400 28429600 28430000 *28434200* 28434400 28434600 *28435000* 28438200 *28440000* 

28440200 ♦28442800* 28443200 28447600 284488OO 28449000 28449600 ♦28452600* 28453400 *28453600* 28454200 
♦28469200**28477800* 
TMP -- STREAM VAR|ABLf — OfCLaRED AT 28438200 
TMR — LABEL -- DECLARED AT 18701000 -- OCCURS AT 18711400 

18701200 
TN «•• INTEGER — DECLARED AT 40005110 

40100200 4OIOO1SOO 40100700 4OIOO8OO 40101250 *40249105* 40254100 40261046 
TODEND " DEFINE « DECLARED AT 05780200 
TODSIZE -- DEFINE -- DECLARED AT 05780100 

05852000 05972600 05972800 05973800 06085700 06093700 40322442 40322800 
TOFUNp — DEFINE " DECLARED AT 05780025 

40324210 
TOq — STREAM VARlABLr — DECLaRFD AT 02223000 

02251010 *02251030* 02251100 
TOfi -- RfaL -- DFCLARrn AT 06068400 

*0669 1000**0609 1500**060961 00* 06096300 
TOG — STREAM VARIABLE — DECLARED AT 122?5500 

12233000 12238000 *12238500* 
TOG -- STREAM VARIABLE « DECLARED AT 16O4I2OO 

160^1500 +16042650* 16042800 
TOG — REAL -- NAME PARAMETER -- DECLARED AT 18002000 

18000000 *180l0f)00* 18017000 18026000 18029000 18031400 18032000 *18033500* 18035000 18050000 18053000 
TOG -- REaL "" DECLARED AT 18198000 

18255000 18260000 18265000 18299000 18460000 
TOf, — STREAM VARTABLf " DFCLaRFD AT 20053200 

20054600 
TOr, -• STREAM VARtARLf " DECLARED AT 2OO6HOO 

20062900 
TOG -- STREAM VARIABLE « DECLARED AT ?0064000 

20064400 

tog -- real — declared at 20566100 

tog •• real -- declared at 20581000 

tog — real -- declared at 20584000 

tog — real -- declared at 20586800 

tog — real -- declared at 20589800 

tog -- real « declared at 20591000 

tog -" real -- declared at 20595000 

tog -- Real « decLaReh at 20596800 

TOR •• RfaL -- DECLaRFO AT 20600010 
*20603550**20606650* 

Tor, — Real « declared at 20701500 

20746000 ?0748000 20751000 20753000 20753800 20766000 ?0769400 2077|i00 
TOG ** REAL -- DECLARED AT 38O1OIOO 
*380i35l0* 



TOG -- REAL -<■ DECLARED AT 38103100 
TOG — REAL -- DECLARED AT 38201100 
TOG -" REAL -- DECLARED AT 39056100 

39258000 
TOG *- STREAM VARjABLf " DECLARED AT 41322500 

41322820 
TOGGLES •- REAL — nECUREO AT 04668750 

*0467fll00* 0^»674?00 0^674225 *04674300**04674350* 0^675300 04675800 *0,t»677800* 04678950 04679050 04679550 
O468O25O O468O35O O468O85O O468455O 04686000 *0/>687350* 04687900 
TOGLE •- REAL -- DECLARED AT 00080000 

*02D?8000**02043000* 02l»6000 *0?20 2 i00**02202500* 0?434480 *02434490**02434530**05842300**05846395**05849300* 
♦05853600**05960700**05970500**059756 10**06 10 3500**06 10 3700#*06 11 6000**06 116 100**06353500**064 10000**0646 3992* 
*0700 1640**0 700 18 40* 7059 200 7232000 *0727 2500**07296000**0 7 30 1000**07 352000**0737 1 300**0 7371600**0737 1950* 
*074?6000* 07427610 *07427620**07427625**07427640**07455000**07562000**07568000**07572000* 08046000 08088000 
*08?59575**08268000**08270650* 08378000 *0837 9000**08388000* 08421000 0857*000 *0857 1 1 00**0857l600* 08580000 

086?7000 *06628000**06677000* 08689 200 *08669 300**08696 lOO** 088 30000**088 36000**08880000**0 8997000**09 61 7000* 
*096?4000**09630000* 09637000 *0963800o**09647000**09677000* 09680000 *09680i00**09682620* 12386000 12530500 

14361000 14378100 * 1 43 79000**1 43 960 00**1 4560000** j 4569000**1 45881 00**1 4618000**1802 3000**1 8033000**1 8273000* 

*l84?5200**i8425400**i8466000* i884i400 * 1884 1500** 18843700* 18844000 * 18844 lOO** 188455OO** 1 9768800** 19786000* 

20034900 *20035000* 20119600 *20 1 19700**20 12O6OO* 20150800 *20i50900* 20164000 *202l0300* 20582440 ♦20582450* 

*20583650**20760000**20769200**?077i020* 22007000 *22007l00* 22009000 *220 10000**22030000**22053700**22224000* 

22905000 #22906000**22920000* 24036125 24043000 *24043 100**24043800**24044000**24044200**24045200* 37304000 
*40336000**40336i00* 4 1 3?03j0 *4 1 320320**4 1 320355* 42476000 *44 142000**44 180000**44250000**44253500**45 102000* 
*4bl35220**45138000**45l50000* 48007000 *48008000* 48012500 *48013000* 48048000 *48049000**48054600* 48059000 
480 84100 * 480642^0**4 80 6 5000** 48098000* 
T0r,S — RfAL -- DECLARrD AT 28002200 

28002400 pBOuBjO *280 n 832* ?80 12 000 2 8 1 3600 280^800 28022400 28O25OOO 28025200 *?8025600**?B026200* 
*28028600* 28029«00 28°I6400 28O436O0 28O438OO *28048600**?8049600**2B055000 **28058400**28062600* 28063200 
28063800 *?8066000**28068800**?8084100**28084400**28086400**28092000**28092800* 
TOqS -- RpAt -" OECL-ARfD AT 28202600 

28202800 282l32°0 282)7000 28219600 282i9800 *28220200**28220800* 28225000 28225400 ?823i000 28231200 
28235000 28235200 28237200 28242800 *28246700* 28247800 *28253400**28256000* 28257400 *28258600* 28259600 
♦28260000* 28260600 *2826 1 100**28264900**28266400* 28266600 +28268800* 26273400 28276000 *2B280400* 28280600 
*28285600**28296600* 28304500 28305000 
TOgS "- RFAL. -- DFCLARrO AT 28401000 

♦28415000+ 28417800 28418000 *284 I8600**264i9400**284 19800**2843 1200**28433400* 28441200 *28442200**2844a200* 
*28454800**?8458 ? 00**2845P400* 28466200 *28469000* ?8469600 28470000 28470p00 28474000 28474200 28475800 
♦28477600* 28478200 28478400 2848i200 
TOGl — STREAM VARIABLE — DECLARED AT 16854700 

16855300 
T0G2 -- STREAM VARIABLE -- DECLARED AT 16854800 

16855400 
TOHLD -- REAL — DECLARED AT 20566300 

20566310 20566812 2056683b *20567235**20567?50**20567255**20567270* 20567274 *20567280**20569522**20569845* 
♦20569846* 20570350 20571700 

toit — Label — declared at 021*9000 -- occurs at 02275250 

02276600 
TOL «- STREAM VARIABLF — DECLaRFD AT 12308000 
12317000 

toltOg — real -- dfcLaRed at 12211000 

*12247000**12260500* 12308000 
TOLTOr « STRfAM VARIABLE -" DECLARED AT 12308000 

12316500 
T0MAXSI7 -- DEFINE .*. DECLARED AT 05780010 

05852800 40324210 40334085 
TONUMENT -- DEFINE -- DECLARED AT 05780040 

05852700 06101200 40324200 
TOPlO -" REAL -• DECLARED AT 02192000 



♦02266000+ 02P663OO 02275000 02275150 02275250 02275350 02275400 02275650 02275700 02275800 02276100 
02276370 02276400 02277000 02278100 02283000 02285100 02287210 02303000 02304000 02314000 
T0P T n — RFAL « DFCURFD AT 04668650 

♦ 04674000* 0^67/1050 0/J674450 O4682OOO *04686450* O46866OO 
TOPIOO « REAL -- DECLARED AT 15111900 

♦ 15H3200* 15113100 15115100 
TOREELNO — DEFINE -- DECLARED AT 38568100 

38608100 
ToSIZf. — DEFINE -- DECLARED AT 05760300 

05*44110 05844<>3n 05850120 0^53070 O596U00 05966600 06077500 06095100 06107200 06109400 06380140 

06381250 168271.00 19904450 
TOSPFFD "" DFFlNp « HFC^aRED AT 05780020 

40324200 
TOSTARTWRD "- OEFTNf — DFCLARFD AT 05780030 

06380550 40324?lO 
TOTALOLAY — REAL -- DECLARED AT 12359000 

*124i3000**t2423000* 124?5000 12467000 
TOTALOLAYCORE -- REAL -- DECLARED AT 1236?000 

♦ 12387000**1 2395000* 

TOTALPTIME -- REAL — DECLARED AT 12358000 

*124l3000**l2423<sOO* 12425000 12467000 
TOTALSAVLCORE « REAL -• DECLAREO AT 12362500 

♦12387000**12391500* 
TOTALSYSTEMcORE — REaL -- DECLARED AT 12363000 

♦12337000**12388500* 
TOV -• DEFINE " DErLftPFD AT 20239000 
20569610 20570310 20570500 

tp — real, array -- ofclarfd at 02434130 

*02434430**02434590* 02434600 02434830 

tp — Real — dfclared at 20289035 

*20?89i44* 20289^6 ?02§9i60 20289530 
TP — STREAM VARIABLE -- DECLARED AT 20289160 

20289t95 20289^35 
TPNO — REAL -• DECLARED AT 20397000 ' 

♦20445000** 2045 1900*+ 20457000** 20 459000** 20460 100** 20 46 1200** 2046 1300** 20 46 13 10** 2046 1600** 2046 1800** 2046 18 10* 
♦2046 3000 ♦♦20465000** 20466 100**20 469 00 ♦♦20470000**20470 100**204 7 3000**20 475000**20475 100**2048 1000 ♦♦2048 11 00* 
*2048l900**20482000^*20483000*+20483l00+*20486000+ 20487000 20488000 20489000 20490000 ♦20503000^ 20504000 
20505000 20507400 
TR — LAP.FL -- DECLARED AT 16356000 -- OCCURS AT 16496000 

16364000 
TRACAREASlZE — DEFINE « DECLARED AT 00006000 
TRACAREASTART -- DEFImE -- DECLARED AT 00006000 
TRACESIZE mm DEFINE — DECLARED AT 00006000 
TRACETABLEAREAV — DEFINE « DECLARED. AT 00017510 
TRANS — REAL — DECLARED AT 41327400 

41329400 41329500 41329600 *41329700* 
TRANSACTION « REAL ARRAY " DECLARED AT 00304000 

#04010000* 04011000 *040l4500* 04279600 +04304400* 04367600 *04372600* 04374800 *04378200**04378600*+04397600* 
♦04412400++04567300+ 04568320 ♦04568450^*04568490* 04590000 04591000 *04630000**04672400**221 15000* 41329700 
44172000 
TRANSFER -- LABEL -- DECLARED AT 284O28OO -- OCCURS AT 28479400 

28467600 
TRp -• REAL ARRAY *• DECLARED AT 20013700 

♦20066600* 
TRP — REAL ARRAY — DECLARED AT 20082900 

♦20092700+*20093600**20122100* 20123500 *20 123700*^20 123800**20 124900* 20125300 20129500 *20129700* 
TRP -" RFftL ARRAY " nFCLARFD AT 20143300 



*20i.87400* 20188600 *?0 1 90800**20 190900**20 19 1000**20 19 1400**20 i9 1700**20 192100**20192300* 20192500 20192800 

20192900 *20l93j00* 20193200 20195600 20196600 
TRUTH — LABEL -- DFCLARED AT 09701000 -- OCCURS AT 09713000 

09703000 09704000 09704100 09704500 09705000 09706000 09706050 09706100 09707000 09708000 
TRYAGAIN -- LABEL -- DECLARED AT 00030000 -- OCCURS AT 00050000 

00039060 
TRYAGAIN -- LABEL -- DFCLARED AT 07244100 -- OCCURS AT 07255100 

07265300 
TRYAGAIN — LABEL -- DECLARED AT 08?55700 -- OCCURS AT 08273600 

08276570 
TRYAGaIn -- LABEL — DFCLARED a! 20146700 — OCCURS AT 20175000 

20175800 
TRYaGaIn — LABEL " DECLARED AT 20289030 -- OCCURS AT 20289142 

20289146 

tryaGaIn -- Label -- dfcLaRfd at 20586715 -- occurs at 20587i7o 

20587350 
TRYAGAIN •*» LABEL •»- DFCLARED AT 22061200 -- OCCURS AT 22069025 

22069540 
TRYAGN •- LABEL — DECLARED AT 23005800 -- OCCURS AT 28055200 

28057800 
TRYHERE -- REAL -- DECLARED AT 02004500 

♦02007100* 02007300 02007500 02008100 02008200 
TRYIT — LABEL -- DECLARED AT 07356000 — OCCURS AT 07371800 
TRYNEXT « LABEL " DECLARED AT 13018000 — OCCURS AT 13045000 

13041000 

trynext -- Label -- declared at 20597650 — Occurs at 20604100 

20604125 20604600 20604700 
TRYNEXT -- LABFL -- PFCLflRFD AT 28005800 — c C U R S AT 28019600 

26026400 
TRYNEXT -- LABEL — DECLARFD AT 28211000 -- OCCURS AT 28212800 

282?i000 
TS -- LABEL — DECLARED AT 08855000 -- OCCURS AT O8884OOO 

08883000 
TS — LABEL -- DECLARED AT 16699500 -- OCCURS AT 16740500 

16703500 
TSKA — REAL ARRAY — DECLARED AT 0002406Q 

♦48032200* 48032250 #48032960* 
TSKA — RFAL ARRAY — DECLARED AT 14351050 

14351230 *i4358345* 14358360 14358375 14358380 14358383 14358386 * 14 35839?** 1435839 3 * 14358394 14356398 

14358400 14358450 *l 4358460**1,4358625** 1 4358640* 
TSKA — RFAL ARRAY — DECLARED AT I969?t00 

19697300 19697600 * l96t7700** 19697800* l9704l00 19788000 ♦ 1979 l000**i979?000* 19799070 
TSKA -- REAL ARRAY -- DECLARED AT 19901800 

♦ 19903900* 19903907 *19903908* 19903917 * 1 9904360**1 9905300* 
TSKA -- REAL ARRAY — DECLARED AT 20014000 

TSKA — REAL ARRAY -- DECLARED AT 20083200 
TSKA — REAL ARRAY — DECLARED AT 20143600 

♦ 20 196600**20 196800**20 196900**20 197000**20 197 100* 
TSKA "- DFFINF " DFCLARED AT 22236150 

22356150 22356?00 22365150 22365200 
TSPOL •- oEFINf -" DECLARED AT 20235050 
TSSlNTYPE — DEFINE -- DECLARED AT 00005140 

09633200 
TSX -- DEFINE — DECLARED AT 00067090 

14358392 I8»60l00 19685570 19900395 19900745 19903900 20195600 20196600 22356150 42501040 48032200 
48032940 

tsi -- label « declared at oas55ooo — occurs at oeessooo 



08885500 08903000 
TS2 -• LarjtL -- OFCLARfD AT 08855000 -- OfCURs AT 08904000 

08885000 
TT -- STREAM VARIABLE -- DECLARED AT 37314200 

37316200 
TTpE -- L.ABEl, -- DECLARED AT 28210600 -- OCCURS AT 28255200 

28280800 28303000 
TU — REAL -" DECLARED AT 07269000 

07284000 

tu — stream variable — df6lared at 07284000 
tu -- stream variable -- declared at 08112175 

08112840 
TU — STREAM VARIABLE " DECLARED AT O8887OOO 

08890100 
TUANDRUF — DEFINF -- DECLARED AT Ottl0052o 

tusta — Real — valuf Parameter -- nECLARED at 02177100 

TUSTA •- REAL -- DECLARED AT 07269000 
♦07272000* 07274000 

TUSTA -- REAL -- VAL.UE PARAMETER -- DECLARED AT 07298000 
' 07351000 

TUSTA -- REAL — VA|,UF PARAMETER — DLClARED aT 07406000 
07410000 07420010 

TUSTA — REAL — OEcLARED AT 08441050 

08480000 *08482050* 08484500 08507000 

TUSTA -" REAL — DECLARED AT 08680000 

*08689900* 08690600 08693000 08695200 

TW -- LaRfL " DECLa r FD AT 19508010 -- OCCURS AT 19526200 
l95il000 19512000 i95i3000 l95i30i0 

TWO -- REAL PROCEDURE -- DECLARED AT 00306000 

00309000 0j260«50 t 26ll60 021*7000 024343l0 02434570 02665200 0^05750 04l46j00 04150200 04296200 
04?96400 04382800 O43832OO O43839OO 04568360 O584942O 06424000 07013000 07059300 0746l500 08008000 
08103300 08114100 08259810 08427100 08432000 08450100 08551100 08579000 08667000 12453000 12473150 
1252^500 12531000 12^53500 12865500 l42l9000 14360400 14431510 14671000 17904000 17926500 2O1284OO 
20601150 20608950 20609j50 22°14620 24O381OO 24165000 24211000 28028400 37037i00 37046170 37248000 
37305000 38O4OOOO 38H6OOO 38122100 38237500 38256500 38633000 38638500 4O1OO3OO 40i00600 4O1OO8OO 
40i0i300 40257060 40?6l0,qa 4026i048 4026ll00 40334075 44l06000 44122000 44128200 44214300 

TWO — STREAM LABfL -- DECLARED AT 07461500 — OCCURS AT 07461530 

TYM •- ReaL -- DECLaRfP AT 20566265 

20566270 *?0577300* 2°577400 *20577575* 

TYPE — INTEGER -- VALUE PARAMETER -« DECLARED AT OOO16OOO 
00014000 00015000 

TYPE — REAL — VALUE PARAMETER -- DECLARED AT 00019500 

TYPE -- REAL — VALUE PARAMETER -- DECLARED AT 00370500 

TYpE — REAL — VALUE PARAMETER — DECLARED AT 00373000 
00371000 00372000 

TYPE •- REAL -• VALUE PARAMETER " DeCLaRfD AT 00452000 
00451800 00451900 

TYPE — REAL — VALUE PARAMETER -• DECLARED AT 00452800 
00452600 00452700 

TYPE — RFAL — NAMf- PARAMETER " DECLARED AT 01250200 

01250100 01255900 01256700 Oi25740o 01257800 01258300 01259500 *0t26li50* 

TYPE — RFAL -- VALUE PARAMETER -- DECLaRfD AT 02132500 
02132300 02132400 02134890 02173389 

TYPE — INTEGER — VALUE PARAMETER — DECLARED AT 02697770 
02697750 02697770 

TYPE — REAL — VALUE PARAMETER « DECLARED AT 04121450 

TYPE — SWITCH LABEL " DECLARED AT 04128000 



04162000 
TYPE "- REAL -- DECLARFO AT 04336400 

04367800 04368400 04370000 *04372800* 04377000 O438O4OO O438O6OO O438O8OO 04382000 04387000 04387800 

04389000 04393400 
TYPE — RFAL — DFCLARFD AT 05952220 

05952755 05952975 059&6450 05956700 05956750 O595695O 05957150 O59575OO *05975850**05976500**05976650* 
*05977950* 05978050 
TYPE — STREAM VARIABLE « DECLARED AT 05952755 

♦05952960* 
TYPE — STREAM VARIABLF — DECLARED AT 05978050 

05973400 *05978900* 
TYPE — RFAl- — DECLARFO AT 06462100 

*0646 3225**06 46 39 20**0646 394 0* 06 4 6 3950 *0646 3980**064 64 300**064 65400**06465880**06466500* 06466700 
TYPE -- RFAL -• VALUE PaRaMeTfR — DFCLaRfD AT 08732000 

08730000 08731000 08736000 08757000 08775000 

TYPE -- REAL — VALUE PARAMETER — DECLARED AT 08850100 

O885OOOO O8883OOO *0890l500*+06904050* 089^000 08998200 
TYPE — TNTEGER -- VALUE PARAMETER — DECLARED AT 14107000 

14105000 14106000 14U0000 
TYpE *■- SWITCH LABEL « DECLARED AT 15069000 

15074000 
TYPE — REAL -- DECLARED AT 16035100 

♦16041100* 16041110 16041200 16043500 *16043680**16043750* 
TYPF •- RFAL -" DFCLARFD AT 16048000 

*16074000* 16077000 16082000 *16084000* 16123000 16131000 16132000 *16135000* 16181000 16206200 16215000 
16244000 16254000 16343100 
TYPE — RFAL -- DECLARFO AT 16349000 

*16375000* 16378000 16609^00 
TYPE -- STREAM VARIABLE -- DECLARED AT 16609100 

*l6«t0l00* 
TYpE — REAL — DEClARFD AT 16693500 

16694000 16698100 *167ll500* 1671450ft 16741000 16750000 16786500 16803000 16804500 
TYPE — RfaL -- DECLARFD AT 16909000 

16909500 *16926010* 16926020 16927500 *16928500* 16929000 16951500 16953000 16957500 
TYPF — RFAL. -- DFCLARFD AT 19901100 

19902700 
TYPE — REAL — DECLARED AT 200i3l00 

20023200 ?O023300 *20025800* 20029300 *20036300**p0037400**20037900* 20038500 +20046900**20047400* 2OO481OO 
TYPE -- REAL — DECLARED AT 20082300 
TYPE — REAL — DECLARED AT 20142700 

*20149400* 20150600 20151400 *2015l500**20l 62800* 20163100 *20l 63200**201 85800* 20187000 *20l 871 00**20187600* 
*20l87900**20189300* 20189600 *20 189700**20 199400* 
TYPE -- SWITCH LABEL — DECLARED AT 20317000 
20357000 

type — real — Value parameter — declared at 20386000 

20384000 20385000 203*8000 *20409000**204 19000**20423000* 20424000 *20426000**20430000**20432000**20436000* 
♦20438000**20441000* 20448000 20448050 *20448l00* 20449000 20449100 20450000 *2045 1000**20461000* 20461050 

20461100 20461300 *2046l500* 2046i650 20461700 2046l8i0 20461900 20461950 *20463000**20467000* 20467100 

2O468OOO ? 0470000 *20472000* gO4/3i0O 2O474OOO 20475l00 2°476000 20477000 *204785l0**20478540* 20«78550 
*20484050* 20484iOO * ? 04B4250* 2O4843OO 2°484500 2O48465O 2°484750 2^484855 20504000 2O5O45OO 20507 3OO 

20507400 
TYPE — RFAL -- VALUE PARAMETER -- DECLARED AT 2051HP0 

205H100 ?05iinO 205H155 205H295 ?05i I3l2 205U450 
TYPE •- SWITCH LABEL -• DECLARED AT 20597900 

20603600 
TYPE — REAL -- VALUE PARAMETER •- DECLARED AT 24042400 

24042200 24042300 24045500 



TYPE — REAL •• DECLARFD AT 26803000 

♦28857000* 
TYPF — RFAL — VALUF PaRaMfTeR " DFCLaRfD AT 30903000 

30918000 3091.9000 
TYPE — TNTEGER «■- VALUE PARAMETER " DFCLARFD AT 31000000 

3100S050 31011000 3lOi7??0 
TYpE -- RFAL -• VALUF PARAMETER -- DECLARED AT 37002000 

37000000 37O0JO0O *37046005* 37046020 370a6040 37046070 37046080 37046090 37046100 37046192 37046350 

37046370 37046630 3^046730 37046800 3704685b *37046860* 37056000 *37058000* 
TYPr "- RFAL « VaLue PaRaMfTfR *- OFCLaRfD AT 37357500 

37357300 37357400 37383000 
TYPF — |NTEfiER -" DECLARED AT 38003000 

380?4t00 38O453OO 38O5OOOO 

type — integer — declared at 38102300 
type -- integer -- declared at 3s?00300 

38?13500 38227000 38?30000 38237000 *38?45000* 38246000 *38?56000* 38265000 38?79500 38289000 38289200 
TYPE — REAL — DECLARED AT 38562100 

38581910 38583000 38S90100 3859n00 38607100 38626000 
TYPE •• INTEGER « DECLARED AT 39002000 

3903^000 *39085n00* 39092045 39092050 39092055 39092060 *39092080* 39092100 *39092160**39092175* 39093000 

39093500 39094500 39297020 

DFCLaRFO AT 41017300 



TYPE 
TYPE 
TYPE 



VALUF PARAMETER 



DECLARED AT 41310100 



RFAL 
♦41144000* 

'» Rfal - 

41310400 
.- REAL -- VALUE PARAMETER — DECLARED AT 4?5l0000 
42518000 *42537050* 42539060 
TYPEDjSk -« REAL •- DECLARED AT 20017900 

♦20063900* 20064000 
TYpEDSPACE -- DEFINE .— DECLARED AT 00017010 




TYPENOM F MAN n RETURN -- FIELD -- DECLARED AT 24042585 

24044H0 
TYPEOPEn — SUBROUTINE « DECLARED AT 36103400 

38U5500 
TYPEOPEN -- SUBROUTINE -- DECLARED AT 38201400 

38236500 
TYpEOUT -- LABEL -- DECLARED AT 08802000 -- OCCURS AT 08837000 

08803000 
TYPESW -- SWITCH LABEL — DECLARED AT 37008000 

37056000 
TYPEO — LABEL -- DECLARED AT 20316000 -- OCCURS AT 20358000 

20317000 
TYPEl — LABEL — DFCLARFD AT 20316000 -- OCCURS AT 20381000 

20317000 20324000 20365000 20367000 20372000 20374300 20374320 
TYPE13 « REAL — DFCLaRED AT 22235500 

*22420200* 22423100 
TYPE13INTARFAV -- DEFlNF. -- DECLARED AT 000i7320 

22386010 
TYPE2 »- LABEL — DECLARED AT 7O316OOO -. OCCURS AT 20368000 

20317000 
TYPE45 — DEFINE — DECLARED AT 00017576 
TYPE46 — DEFINE — DECLARED AT 00017578 
TYPE47 " DEFINE — DECLARED AT 00017580 



YPE48 — DEFINE " DECLARED AT 00017582 
YPE7fNTAREAV " DEFINE " DECLARED AT 00017260 

22386000 
YPOP — PROCEDURE — DECLARED AT 08679000 

16750000 
-- STREAM LABEL — DECLARED AT 05978450 -- OCCURS AT 05978500 
OP -- REAL ARRAY -- DECLARED AT 42513000 
42521000 42532000 
-- REAL — DECLARED AT 04259600 

♦04309800* 04311600 *04311800* 04312200 04313000 *04315400* 04316600 
•• REAL — DECLARED AT 04354800 

#04400400* 04400600 04401000 *04429200* 04430400 ♦04430600* 04431000 04431800 

-• strram vartarlf "- declarfd at 04401000 
-- real *» dfclarfd at 04551000 

♦04559000* 04560000 04561000 O4563OOO 04565000 

— REAL — DECLARED AT O46686OO 
*0467l650* 0^671700 04671750 O46718OO 04671900 04672000 

— STREAM LABEL -- DECLARED AT 05952845 — OCCURS AT 05952880 

— STREAM LABEL — DECLARED AT 05978450 "- OCCURS AT 05978600 

-- stream variable -* declared at O6195110 

— REAL — DECLARED AT 07006050 
♦07023000* 07024000 *07043000* 0/044000 07045000 

-- strfam variable -• declared at 07295030 

07295050 07295060 07295100 

m * Real — declared at 07542000 

07548100 *07559000« 07560000 07565000 07570000 

— Real — declared at 12361000 

♦ 12407000* 12410500 124 1 lOOO *12468000* 12471500 *l?4732l0* 12473280 
-- STRpAM VARIABLE -- DECLARED AT 124H000 
12412000 

— REAL — DECLARED AT 1400?000 
140?0000 14030000 *14045000* 14046000 14047000 

-- STREAM VARIABLE — DECLARED AT 14020000 
♦14027000^ 

— STREAM VARIABLE -- DECLARED AT 18831700 
18831900 

•- REAL — DECLARED AT 19693000 

♦19713000* J9714000 *i9722000* 19723000 19724000 19727000 19728000 ♦ l9736000*M9746000* 19750000 19750100 
19751000 19753000 19754000 19757000 19766300 ♦19768768^ 19768782 *19773000* 19792000 
-- STREAM VARIABLE — DECLARED AT 19768768 
m m STREAM VARIABLE -- DECLARED AT 20053200 

♦20053900* ?0054300 
-» REAL -- DECLARED AT 20511150 

♦20511315**20511515* 20511666 

— REAL — DECLARED AT 20566100 
20567056 20567057 20567096 20567097 *20569930**20569960* 20570U0 20570150 20570190 20570210 ^20573400* 
20573402 *20573430* 20573432 *20573525* 

•- Real — ofcL/jreo at 2058iooo 

— Real — dfclarfd at 20534000 
•- Real « dfclarfd at 20586600 

— real — declared at 20589800 
-- real •- declared at 20591000 

20593450 

•• REAL " DECLARED AT 20595000 

•• REAL "- DECLARED AT 20596800 

-» REAL •• DECLARED AT 20600010 

*- REAL " DECLARED AT 20701500 



Tl -- REAL -- DECLARED AT 22056000 

22060000 *22112000**22112100**22112500* 221)3000 *22H4000* 22115020 22116000 22H7000 22146000 ♦22163000* 

22164000 22172000 22185000 
Tl •• STRFAM VflRlABLF -" DECLARFO AT 22164000 

ti — Real -- declared at 37019000 

370 ? ?000 37022 ? 00 37024000 *37036300* 37O364OO 37O37OOO *37046 100**37046 ) 80* 37046i94 3704626° 37046270 
♦37046280* 37O463OO *37046370**370463 9 0* 37O464OO 37O4641O 37O4643O *37046520* 37046620 37O4663O *37096000* 
37098000 37100000 *37 1 1 2000**37 122000* 37123000 37124000 
Tl — STREAM VARIABLE " DECLARED AT 37036400 
Tl -• REAL — DECLARED AT 37180000 

#37192000* 37193000 37194000 *37205000* 37206000 37212000 *37221200* 37221280 *37221 320**37221400**37230000* 

37232500 37233250 37233500 37235000 *37240500* 37240600 *3724l010* 37241030 *3724l510* 37241525 37241530 
♦37243000* 37244000 37245000 *37249000* 37254000 37255l00 37255900 37256000 #37263000**37264000* 
Tl — STRpAM VARlARLF « DECLARED AT 3724)030 
Tt -- STREAM VARIABLE -- DECLARED AT 37255100 

37P55300 37255500 
Tl -- REA|. »- DECLARED AT 37388250 

37388275 *37394?00* 37394250 *37394650* 37394700 
Tl "- REAL — DECLARED AT 38006000 

*38074000* 38075500 
Tl — REAL "- DECLARED AT 38102600 

*38103600* 36103700 38105000 38105400 *38l07000* 38107100 *38 1 18000**38 120000**38120500* 38121000 38121500 
♦38123000**38126000**38129500**38130000* 38131000 38137000 38137500 *381 39500**381 46500* 38147500 38148000 

ti — Real -- dfclaRed at 38200600 

*3820i600* 3620)700 38203000 382O34OO *38205000* 38205100 *382l8000* 38218500 382i9000 38220000 38220500 
382?t000 38226500 3822^500 38228000 ♦38?46500* 38247500 38248000 38248500 38249500 38250000 3825l000 
♦38263500* 38267000 *38283500* 38286000 *38292000**38294000* 
Tl -- REAL "- DECLARED AT 38365000 

*38448000* 38449000 * 3845 3000** 38457000* 38467000 38468000 *38469000* 38472000 38473000 *38484000* 38485000 
38486000 
Tl — REAL " DFCLARFD AT 36549000 

+38581200**38608900* 38608910 38628100 
Tl — REAL " DFCLARFD AT 38656000 

ti -• Real -- dfclarfd at 39004000 

♦39032000+ 39O350OO 390|7000 39O39OO0 *3904200Q* 39O43OOO 39046000 * 39092i65**39306 )00* 393O63OO 
Tl -» REAL — DECLARED AT 4)007200 
Tl mm REAL -- DECLARED AT 4)316300 

*4l3l7790* 4i3)8740 4 1 31 8760 4i3l8620 4i3l8840 4i3l8860 4l3l8940 4)3l8960 4i3l9000 4)3l9200 4)3l9220 

«l3l9280 4)319320 4)3l9600 4)3l9900 41320000 4)320lOO 41320200 4)320220 41320330 41320340 41320345 

41320350 41320A20 41320450 *»l32046o 41320470 41320480 41320490 41320500 41321200 41321350 41321450 

41321500 41321600 4U21800 4l32i900 41322000 41322100 41322200 4O22300 41322400 41322450 41322500 

41323100 *4i323)30* 41323150 4i323j60 41323170 4i323l80 *4 1 323300**4 ) 323400* 41323550 41323600 41324200 
41324300 41324800 41325400 41325500 

Tl — Real — oecLared at 41327600 

♦41330700* 41330800 41331000 ^ 1 33l 1 00 *4 1 33 1200**4 ) 331 700* 41332300 4)332500 4U32600 *4l333000* 41333001 
*4l3330lO* 41333090 *4 1 333l00**4 ) 334400* 41334700 

ti — real •- declared at 4*014000 

Tl — REAL -- DECLARED AT 44207000 

♦44241000* 44246500 *44247000* 44248000 
Tl »m REAL -- DECLARED AT 4500?600 

45154000 
TlFlLL — LABEL -- DECLARED AT 37422300 -- OCCURS AT 37437000 
TlO -- LABEL -- DECLARED AT 06351500 — OCCURS AT 06381500 

06381395 06381400 
T17SIZE -• REAL " DECLARED AT 09501000 

♦09505700* 09506000 09506100 09508600 09508800 

T2 -• real -- dfcLared at 04259800 



T2 — RfaL, -" DECLARED AT 04355000 

04 3654 00 04 365600 04 3 70000 * 04 3 73000**04 3 7 7000**04 38?000**04 3 8 7000** 04 3934 00++04 395 800**04 4 05400**0441 6600* 

♦04421*00+ 
T2 -- REAL -- DECLARED AT 04551000 

*0456l000* 0456?000 *045673?0* 04567600 ♦045*7790+ O456783O *04568364* O4568166 *0456855O* 04568590 O46O6OOO 

*04644000* 04647550 O4648OOO 
T2 -» STREAM VARIABLE « DECLARED AT 04647550 
T2 -• REAL. ■— DFCLARFD AT 04668600 

*04671750* 04671850 *04672500+ 04672700 ♦04672950+ 04673150 *04674750* 04674850 *04675000* 04675250 04675900 
04676300 +04681400* 04661450 0468t800 +04683500* 04683800 +04686100* 04686350 +04686950* 04687050 
T2 -- STRfAM LaBfL -• DFCU8FD AT 05978450 -- OCCURS AT 05978650 
T2 — STRpAM VARIABLE — DECLARED AT 06195H5 
T? — REA|, -- DECLARED AT 0646?l00 

+06463200* 06463920 06463225 06463230 +06463380* 06463400 +06463500* 06463600 06463620 06463740 064638J0 
T2 — STREAM VARIABLE -- DECLARED AT 06463*00 

06463420 *06463460* 
T2 *- REAL mm DECLARED AT 07006050 

♦07024000* 07025000 *0704 3000**07045000* 07047000 
T2 — STREAM VARIABLE •• DECLARED AT 07295030 

♦07295040* 07295060 *07295070* 07295080 
T2 — REAL " DECLAREO AT 07542000 

♦07548100* 07559^00 07559110 07559120 
T2 -«• RfaL -- DFCLARED AT 12361500 

♦12408000* 12*10500 12*11000 
T2 — STRpAM VARIABLE •• DECLARFD AT 124H000 
T2 — REAL -- DECLARED AT HOOpOOO 

I4O9OOOO 14O3OOOO 14O33OOO 14040000 14043000 14051000 14056000 14065000 14072000 
T2 -- STREAM VARIABLE « DECLARED Al 14020000 

14022000 
T2 •• REAL " OECLArED AT 15111900 

♦15113800* 15114300 *15115100* 15115200 ♦15115700* 15115900 
T2 — REAL — DECLARED AT 19693000 

♦ 19711300* 1971H00 *19756000* 19757000 19760000 19761000 19762000 *19779000* 19781000 
T2 — STRfaM VARfABLr -- OECLaRfD Af 20053200 

♦20054 100**20054 300**2 0054600* 20055 000 
T2 mm STREAM VARIABLE -* DECLARED AT 2OO61OOO 

200*2600 20062700 
T2 "m REAL •- DECLARED AT 37019000 

37042000 *37046i00* 37046160 *37046400* 37046420 37046430 *37046480* 37046520 
T2 — STREAM VARIABLE « DECLARED AT 37046520 

37046590 
T2 -- REAL -" DECLARED AT 37180000 

♦37230000+ 37230250 +37231500+ 37232000 37232250 
T2 — STREAM VARIABLE " DECLARED AT 37230250 
37230500 +37231000* 

t2 -* real -- dfclared at 3soo6ooo 

38014200 38014620 38o4570o *38039000* 38o4oooo ♦38o41ooo* 38043000 +38059000* 38o7oooo 38074500 38080500 

38081750 +38087000+ 38088000 

T2 — real — declared at 3§i0260o 

*38l0540Q* 384Q.55OO 38tf7000 38127500 ♦3814OOOO* 38141OOO 

T2 •- REAL -- DECLARED AT 38200600 

♦382O34OO* 382O35OO +38213000+ 38236010 38253000 38284000 38285500 ♦38293500+ 38294000 

T2 — REAL -" OECLARED AT 38365000 

♦38450000* 38458000 38459000 ♦38460000+ 

T2 •" REAL "- DECLAREO AT 3«549000 

T2 — REAL -- DECLARED AT 38656000 

T2 — real -- declared at 39004000 



♦39043000* 39046000 *39233200* 39233300 

T2 -- REAL -» DFCLARED AT 41007200 

T2 — REAl, -- DECLARED AT 41316300 

*4Ui9?40* 41319^00 *4i3?0460* 4i3?0470 4l3p0500 4i3?l?0O 41321550 

T? -* REA|., "- DECLARED AT 41327600 

♦41333000* 41334*00 

T3 — REAL "- 0F.CLARED AT 04355200 

04356800 *04374*00* 04378400 *04410400* 

T3 -"■ REAL -" DECLARED AT 04551000 

*0456l000^ 04563000 

T3 — RfftL "- DFCtARFO AT 04668600 

♦04671750* 04671900 

T3 -- strfam label -- declared at 05973450 -- occurs at 05978550 

T3 •« STREAM VARIABLE -- DECLARED AT 06l9si?0 
T3 -- REAl -- DECLARED AT 19693000 

♦19711100* 1971U00 +19748000* 19750000 197S0100 19751000 
T3 -- REAL -" DECLARED AT 37019000 

*370?7000* 37027500 370?8000 37041000 *37046ll0+ 37046160 *37046410* 370464?0 *37046470* 37046520 

T3 •- strfam variable — declared at 37046520 

37046580 
T3 — REAL -- DECLARED AT 38365000 

♦38435000* 38439000 38443000 38452000 *3846 1000**38465000* 38469000 
T3 — REAL -- DECLARED AT 38549000 
T3 -- REAL -- DECLARED AT 38656000 
T3 — REA|, •- DECLARED AT 41007200 
T3 *- REA|, « DECLARED AT 41316300 

♦41317800* 41318370 4l3i8380 *4i3l9020* 4l3t9040 4i3l908D 4l3l9l00 *4 1 3 1 9 1 ?0**4 1 3 19220* 4i3l9240 *4l320600* 
41321100 ♦41321350* 41321450 M321500 *41321550 # 
T4 •- REAL — OECLAPFD AT 04554500 

♦04555250^ 04555300 04555500 04557200 ♦04557300* 
T 4 "" RFAL — OFCLARFD AT 04668600 

04671400 *04671450* 
T4 — STRFAM LABEL -- DECLARED AT 05978450 -- OCCURS AT 05978700 
T4 -• STREAM VARIABLE -- DFCLAREO AT 061 951 1 8 
T4 -- REAL -- DECLARED AT 19693000 

♦19733400^ 19733600 *l9734000* 19736000 19746000 
T5 -- STREAM LABEL — DECLARED AT 05978450 — OCCURS AT 05978800 

u — real -* value parameter -- declared at 00019000 

00018000 00019000 
U -- REAL ARRAY -- MAME PARAMETER -- DECLARED AT 00336H0 

00336100 
U — REAL — VALUE PARAMETER -- DECLARED AT 00377000 

u -• real — value parameter -- oeclaREd at oo3eoooo 

U -- REAL " VALUE PARAMETER -- DECLARED AT 00392000 

U -* INTEGER — VALUE PARAMETER « DECLARED AT 00397000 

U " REAL — value parameter " declared AT 0H65000 
U « REAL -- VALUE PARAMETER -- OECLARED AT 01250200 

01250100 0i250?00 01253900 Oi254650 0l255i00 01255200 01255450 01255500 01256100 0i?56400 01258500 

01258600 01258700 01258900 0i260450 01260500 0i260600 0126U00 0i26ji60 
U •* REAL -<■ DECLARfD AT 02057000 

*02059000^ 02061000 *02075000+ 0^077000 02092000 02097000 02097400 O21O1OOO 
U — REAL — DECLARFD AT 02434120 

02434174 *02434j85* 02*34190 02434195 *02434200* 02434210 02434250 02434260 02434270 02434310 02434400 

02434410 02434424 02434532 02434534 02434600 02434630 02434690 0?434700 02434760 02434770 02434780 

02434800 02434810 
U " STRFAM VARlARLF "- OFCLARFn AT 02434700 

02434720 



u -- 

u -- 

u — 

u -• 

U mm 

U " 

U -- 

u 

u -- 

u •« 

u -• 

u -- 

u -- 
u 

u •• 



u 
u 
u 
u 
u 
u 
u 



REAL « 
Op696000 

REAL « 

REAL « 

04000000 
REAL "- 

04016100 
REAL -- 

04022000 
REAL « 

04036200 

REAL « 
♦04045100* 

REAL — 



value parameter -- 

0?696i00 

name parameter — 
value parameter -- 
o<jOoipoo 04005000 
Value parameter — 

04016200 04017000 
VALUE PARAMETER " 

04026000 04029000 
VALUF PARaMfttR -- 

04037000 
DECLARfO AT 04044000 

O4O452OO *04048800* 

value parameter -- 



DECLARED AT 0?696l00 

DECLARED AT 02696700 
DECLARED AT 04002000 
04008000 04010000 O4OUOOO 
DECLARED AT 04016000 



04013300 04014500 



04093000 

REAL « DECLARED AT 04116000 
♦ 04H7000* 04118000 04120000 
REAL — VALUE PARAMETER 
04121500 04121550 

DECLARED AT 04123500 
04134000 04134060 
04156000 04180000 

vaLuf paRaMftfR -- 

04241000 04244000 

VALUp PARAMETER^ — 
04255000 

DECLARED AT 04?56800 
04278400 04279800 

DECLARED AT 04354600 
04365600 04367200 
04374600 04374800 
04382800 O43832OO 
O/44124OO 04421600 

VALUE PARAMETER -- 
04549000 04555650 
04568450 04568490 
04651000 04657400 

DECLARFD AT 04668550 



DECLARED 
04032000 
DFCLaRFD 



O4O50OOO 
DECLARED 



AT 



AT 



04020000 
04035000 



04052000 04062000 
AT O4O67OOO 



REAL 
04129560 
04154000 

REAL --. 
04240000 

real — 
04354000 

REAL " 
04271800 

REAL -- 
04359400 
04372600 
043Bt2°0 
04405600 

REAL « 
04548000 
O456836O 
O4644OOO 

REAL — 
04671750 
04674000 

♦04681250* 
04684700 

04688050 
DEFINE — 

05842475 
DEFINE -- 

05848255 
DEFINE -- 

05961000 
DEFINE « 

06101200 
DEFINE -- 

06380100 



- DECLARED AT 04121550 



04134300 04137110 04137130 
04191000 04J94200 04203000 
DFCLaRfd AT 04242000 
04247000 04251300 04252800 
DECLARED AT 04255000 



04137220 04146000 04146100 04146200 04150100 
04205012 04211000 042t9l00 04220000 04224010 



04281800 04283000 *04284200* 04?95400 04?96200 04296400 04296600 04304400 



0467j850 
0/;675000 
04681350 
04684850 

DECLARED 
05842700 

DECLARED 
05849420 

DECLARED 
05961800 

DECLARED 
06108000 

DECLARED 
06380 5 50 
DECLARFD 



04671900 
04675450 
04681450 
04684950 



04367600 
04375800 
O43838OO 
*0442i900* 
DECLARED 
0456^000 
04568550 
04658400 

0467i950 
04675500 
O46818OO 
O46853OO 



04367800 
04377600 
04383900 
04428800 
AT 04550000 
04563000 
04569000 



04368200 
04377800 
0439j550 
04432200 

04564000 
04569100 



INTEGER 

07360000 *07372090* 07372100 
REAL — DEOLaRfD AT 07474000 
♦07475000* 07477000 07478Q00 



AT 05841620 
O5843OOO 05844920 
AT 85847600 
05B*94 6 O58495OO 
AT 65952400 
05962000 0597i800 
AT 06070300 
06108300 
AT 06351105 
063i0250 06380550 
AT 07355100 

07372200 



04672100 
04678200 
04681950 
04685850 



05844935 
05850200 
05974000 



04672400 

♦04678450* 

04682000 

04685900 



O58454OO 
O585O3OO 
05974200 



04368800 
04378000 
04393800 
04432600 

04567000 
04569200 



04672500 
04678600 

04682050 
O46861OO 



05845700 
05852700 
05975000 



04369000 
04378200 
04395400 
04432800 



04369200 
04378400 
04397200 



♦04372000+ 
04378600 
04397600 



04372400 
04378800 
O44O1OOO 



04567300 04567320 04567790 04568320 
04570000 04590000 04591000 O463OOOO 



04672950 ♦04673650+ 04673750 04673850 

O468O15O O468O2OO *04680950+ 04681050 

04682450 04682550 04682850 04683500 

04686550 04687l00 ♦04687200+ 04687300 



06381300 06381320 



07372300 
*" OCCURS AT 07360000 
07478100 07478500 07479100 



07372310 07372320 07372500 



U •• REAL « NAME PaRAMFTFR — DECLARED AT 08001000 

oeoooooo *oeoo3ooo* oeoosooo oeoosooo 08009000 O8O14000 osotsooo 

U -* REAL — DECLARFD AT 08026000 

080?9000 08029,00 O8O3OOOO OPO3O2OO O8O3O4OO O6O311OO 08033990 08033994 08041000 O8O42OOO O8O43OOO 

O8O44OOO 08044600 08045000 08050000 O8O51O1O 08051065 08054000 
U — STREAM VARIABLE — DECLARED AT 08030200 

08030310 
U -- REAL — DECLARFD AT 08080000 

08083000 08085000 08086000 08087000 08091000 
U -- REAL — DFCLARrn AT 08172000 

♦08174000* 08175100 08175300 
U — tNTEgER — PECLARrD AT 08255200 

*08258600**08?598i0* 08?S98pO 08259850 *08?70j00* 08270750 08272000 
U »• REAL •• DECLARED AT O8283OOO 

*08?91500* 08292000 08?92500 08293000 08295200 08296225 08296600 0R296800 08298000 08298800 
U -• STREAM VARIABLE « DECLARED AT 08296225 
U «•* STREAM VARIABLE -- DECLARED AT 08298800 

08299400 
U — REAL — DECLARFD AT 08418500 

♦08420000* 06421000 08422000 08424000 08427100 08430000 08431000 08432000 08434100 08434200 08434400 

08437150 
U •" REAL "• DFCLaRfD AT 08440000 

08444000 06447000 084*7100 08448050 O845O1OO 08451100 08454000 08460000 08471010 0847n00 08471105 

0847?000 08473000 06478800 08478900 ♦08483000* 08484500 08487l00 *08495000* 08496000 08497000 
U — REAL -- DECLARFD AT 08547000 

08547300 08547*00 08547500 #08547600**08548000* 08550000 0855ll00 *0B555000* 08557000 08558000 *08562000* 

08564000 08565000 
U -- REAL -• DECLARFD AT 08576000 

♦08578000* 08579000 0858l000 08582000 08582100 08590000 
U — STREAM VARIABLE — DECLARED AT 12823000 

12824000 M2825000* 
U *• REAL — VALUE PARAMETER " DECLARED AT 15110100 

15H0000 15 1 IO1OO 15113100 15113200 l5n3800 15114700 15115000 15115100 
U "- REAL -- DECLARFD AT 16048100 

♦16263100* 16263200 16263300 16263350 16263600 
U " DEFINE " DECLARED AT 16697800 

16896600 16828100 16828200 
U -* REAL « DECLARFD AT 19900260 

♦19900380* 19900440 19900450 19900455 19900530 19900550 19900560 19900565 19900620 19900630 19900650 

19900670 19900675 *19900770* 19900800 
U *«• REAL -- DECLARFD AT 20566100 
U •• REAL — DECLARFD AT 20581000 
U "- REAL "- DECLARFD AT 20584000 
U -" REAL <"• DECLARFD AT 20586800 
U — REAL « DECLARFD AT 20589800 
U « REAL — DFCLARFD AT 20591000 
U — REAL -- DECLARFD AT 20595000 
U -- REAL « DECLARED AT 20596800 
U -- REAL " DECLARED AT 20*00010 

20607020 
U -- STREAM VARIABLE — DECLARED AT 20607020 

20607120 

U -- REAL -* DECLARED AT 20701500 

U -• REAL " DECLARED AT 22056000 

22057000 22069190 22069350 22069460 22069470 22069480 22069490 *22075000* 22081000 22083000 22084000 
22084500 22090000 22091000 22093000 22097000 22100000 22100500 22105000 22106000 22107000 22112000 
22U2100 22112500 22114000 22115000 221J5030 22117000 22119000 22125000 22129000 22145000 22145525 



u 


■»» 


REAL — 


u 


mm 


REAL "•- 
28234000 


u 




REAL -- 
28408400 


u 


m m 


REAL "■ 



22145550 ?2159000 22175000 22179000 221«0000 22185OOO 22188000 22188*00 22189000 22190000 22l9i000 
22200000 22203000 22204000 22207000 22212200 22212400 22212450 22213600 222J3700 22220000 
STREAM VARIABLE — DECLARED AT 22069350 
22069390 

DECLARED AT 28003800 
DFCLARFD AT 28204200 

28235800 28236400 #28240800**2824 4400**28244800* 
DECLARED AT 28401000 

28431000 28431800 28446300 *28459000# 28459200 #28466000* 28480400 28481400 
DErLARFD AT 37003100 
♦370 i 0000**3/0 n OOO** 370 15000**370 i60 00**370i 9 200**370 22000**370 22100 •♦37023000* 37024000 370 25000 37026000 
370 ? 7000 *^703 1 oOO* 37O32OOO 37036400 *370.37i00* 37O372OO *37040000* 3704j000 37042000 37046160 37046170 
37046177 3 7046i90 37046260 370463°0 37046320 *37046520**37046835* 37046840 #37046855**37046860* 37O4688O 
37046980 37047020 #37047500**37047605* 370476l0 37047625 37047650 #37048000* 37O482OO 37O483OO 37048310 
37058000 37059000 *370*7000* 37098000 37100000 37122000 #37172000* 37173000 37174000 37174100 37175000 
U •»" STRFAM VARIABLE — DFCLaRfD AT 37046190 

37046200 
U -- REAL -- DECl-ARFD AT 37180000 

*37l85380**37l88500* 37189000 37189500 37190000 37l9t000 37l92000 37195030 #37198000* 37199000 37199100 

37200000 37202000 37264000 37205000 37207000 37212000 37214000 37216000 372l8200 *37221 140**3722 1 160* 
*37221260* 37221320 372P1400 *3722l 460**37233750**37235000* 37235100 37235500 37235750 37236000 37236500 
3723^750 #37240400* 37240500 37240700 37241020 37241030 *3724l900* 37242600 37243000 37248000 37253000 
37255900 37269000 
VALUE PARAMETER — DECLARED AT 3727l000 

37276000 37284000 37284]00 37284120 37284130 37284l50 
VALUE pARAMETFR -- DECLARED AT 37302000 
37305000 37314000 37314100 37314200 373l8]00 37319000 373l90l0 37319020 

value parameter -- declared at 37321000 

37321000 37323300 37329000 37331000 
DECLARED AT 37388400 

- VALuF PaRaMfTER " DFCLaRFD AT 37449000 
37455000 37456000 37458000 37464000 

- DECLARFD AT 38003000 
38027000 38045200 

- DECLARED AT 38*02300 
381O43OO 38104800 3810«S400 38105600 381O58OO 381O61OO #38 11 2000**38 1 1 3000* 38114500 38115100 
38116500 38118000 38120000 38 l?2l00 38137000 38*42000 3A146500 38147000 38152000 *38l57000* 

- DECLARED AT 38200300 
38202300 38202800 38203400 38203600 38203800 38204100 *3p212000**382l 3500* 38216000 38217000 
382185OO 38227000 38227500 38230500 38231000 *38232500* 38234000 38235500 38237500 38?38000 
38254100 38256500 38258500 38271000 38271500 38276000 38297500 

- DFCLARFD AT 38359000 
38406000 384J1750 

- DECLARED AT 38544000 
38629000 38632OOO 38633OOO 38634OOO 38637000 38638OOO 386385OO 3864OOOO 

• DECLARED AT 38652000 
38699000 38700000 387l900o 387?0000 38724000 3873OOOO 3873J000 38732000 38732300 38736OOO 
38741000 38741100 38742000 38742100 38743000 38751000 38754000 38755000 38760000 38766000 
38769000 38775000 3877Q000 38783000 38786000 38788000 38788500 38789000 38789100 38795000 
38799000 38804000 38806200 38806300 

m DECLARm AT 39002000 
39096000 39144000 39145210 39156000 39230000 #39235000**39236900* 39238000 *39240Q00* 39242000 

#39293100* 39293300 39293<i00 39296000 39298000 39306010 #39306100* 39306200 *39306300* 

" DECLARFD AT 41002000 
41051620 41190600 

VALUE PARAMETER -- DECLARED AT 41312100 





37254000 


u -- 


REAL -- 




37273100 


U mm 


REAL •■ 




37303200 


u -• 


REAL — 




37320000 


u »• 


REAL "" 




37404000 


u -- 


tNtegfR - 




37453100 


u -» 


tNTFHFR - 




♦3802J000* 


u ■»«• 


INTEGER - 




38104200 




381 16000 


u •- 


INTEGER - 




38202200 




38217500 




38247000 


u -• 


t ntfc,fR - 




384O3OOO 


u « 


tntfger - 




38624000 


u -- 


INTEGER «■ 




38689000 




38737000 




38767000 




38798000 


U " 


iNtfgfR - 




390341O0 




39244000 


u »• 


iNTfgeR - 




#41043000* 


u — 


REAL — 



u .* 

UA — 
UC — 
UCHaNr 

ul — 

Ul -- 

UUAB 

UlAB 
UlAB 
ULAB 

UUAB 

UUAB 

UN -• 
Un -- 

UNBUK 

UNHOOQ 

UNIT 



UNIT 
UNIT 

UNfT 
UNIT 
UNlTCo 

UNITF 

UNfTF 
UN|Ti 



4131 2000 

REAL -- 

*41 329700 

REAL ARR 

♦0638O14O 

STRFAM V 

14572100 

"" REAL 
♦40281110 

Real — 
00374000 
Real -- 

37177000 

■"- REAL A 

♦01250700 

"• STREAM 

•«■ STREAM 

•• STREAM 
0l?54200 

"m STREAM 
0i?59900 

-- STREAM 

REAL -- 

REAL « 

♦28435400 

-• LABEL 

20066200 

UE "- PR 
02109000 

-- RFAl A 
02061000 
04048800 
04378000 
04569 ? 0Q 
04688050 
37047650 
48H7200 

-- REAU 
02347200 
02347340 

*- REAL 
12522000 
12539000 
12687000 
12740500 

*- RFAU 
12892500 

-• REAU 

13037000 
DE -- RE 

02347325 
*20608500 
— nEFlN 

12670000 
-• nEFlN 
*•• LABEL 

20598000 



41312100 
DECLARFO AT 41327600 
* 41333005 
AY — DEC LA 
**06380400* 

ARIAPLF -" 



RED AT 06351104 

6380525 06380850 06380900 

DECURFD AT 14570000 



06380950 06381070 06381085 



— PFCU.RF 

♦♦40283210**4 

VALUF paRam 

00375000 

NAME PARAMF 

37222100 3 

RRAY — PEC 

♦ 0)250800 

VARlAPLF " 

VARIABLF — 

VARlAPLF " 

VARlABiT -- 



D AT 40005110 
0265035* 

fTfR -- oeclaRfd 



AT 00376000 



TER -- DECLARED 
7222500 37225100 
LARED AT 01250400 
1251100 0125^600 01254000 
DECLARED AT 0125)100 



AT 37179000 
*37?35000* 37242000 



♦01254650* 



37248500 
01259800 



01260600 01261100 01261300 01261400 



DECLARED 
DECLARED 



AT 
AT 



01252600 
01^54000 



DECLARED AT 0l?59800 



VARIABLE -- DECLARED 
DECLARED AT 26003400 
DECLARED AT 28401600 
* 28440000 

" DFCLAPED AT 20020300 



AT 01?60600 



OCCURS AT 20060900 



OCEDUR 
0226 

RRAY 
0207 
♦0406 
0437 
0457 
0706 
3717 
♦ 4811 

— VA 
0234 
0234 

-" DE 
1252 
1254 
1268 



E -- 

0000 
— rjc 

7000 *0 
2000* 
84OO 
0000 

2000 *0 
3000 3 
8000* 

LUE PAR 
7?l0 *0 

7430 
CLARFD 
2500 1 
5500 1 
7300 1 



DECLARED AT 02053000 

LARED AT 00209000 

2097000^*02097400* 0« O ru U « mu^r^uu. 

411^000 *04120000* 04)29000 *04l54000* unzujuuu 

4 378800 ^04 38 38O0 ♦*04397200* #0443^200 ♦♦0^4 3 2600 

4651OOO 0467^750 *0467l900* 04672100 04673750 

7065000* 15114700 22^33000 *22034000**22090000 

7189500 37323300 *37329000**3733 1 000* 38ll5l00 



LARED AT 00209000 

2097000**02097400* 02267000 *02270500* 02293000 

<1M17000 *0i150000* OA139000 *OfliSflOOO* O42O30OO 



♦02301000* 04022000 04032000 +04036200* 
♦04295400**04296600* 04372400 *04377600* 

* O4561OOO *04563000* 04567000 04569^0 
4682250 *0 468 2350**0 468 2450**0 4665900* 

* 221°5000 *22204000* 22213700 37046840 
44168200 #44191005* 44191010 44191015 



AMETER 



DECLARED AT 02347210 



2347230* 0?347250 02347?60 02347?80 02347290 0?347300 02347315 02347325 02347330 

2347450 

AT 12503000 

2527000 12527500 12528400 12528500 12529500 

2546500 12615500 126?6750 12648500 *)2670000 

2687700 12688000 )2700000 )270)000 )2706000 



12530000 

* 12670250 

12711000 



12531000 
12670500 
127i5500 



12535500 *12538500* 
*12675500* 12676500 
12716500 12720000 



DECLARED AT 12803000 



-« DECLARED 
13039000 1 

AU ARRAY « 
♦07232500* 

* 20609400 4 

E — OECLaR 
12675500 

F — PEClAR 
•* DFCLARE 



AT 13004000 
3062000 1 310) 000 

DECLARED AT 02347100 
74 09250 *0 74 09 300**084 344 00**20595 200* 
4178100 *4420J120* 
FO AT 12516150 



20602200 *20602250* 20602400 *20603580*+20605820* 



ED AT 12815200 
D AT 20597800 



OCCURS AT 20606800 



UN 


[TIN 


UN 


ITL 


UN 


!TNO 


UN 


UNO 


UN 


fTNO 


UN 


fTNO 


UN 


tTNO 


UN 


UNO 


UN 


UNO 


UNi 


fTNO 


UN 


fTNO 


UN 


[TNO 


UN 


[TNO 


UN 


ITNO 


UN] 


[TNO 


UNi 


fTNO 


UN 


TNO 


UN! 


TNO 


UN 


ITNO 


UN! 


TNO 


UN] 


TNO 


UNi 


TNO 


UNi 
UN] 


fTNO 
TNO 


UN! 


TNO 


UNI 


TNO 


UNi 


TNO 


UNI 


TNO 



-• REAL PROCEDURE -- DECLARED AT 02348OOO 
♦02358000* O?359o00 07475000 O8OO3OOO 084?0000 08483000 08548000 08578000 16204000 16263100 
<■- LABEL " DECLARED AT 44019000 — OCCURS AT 44191150 

44191015 

— REAL " VaLUF PARfcMETFR — DECLARED AT ()045?000 
00451800 00451900 

■- real -- viLur parameter — declared at 00454200 

00454000 00454J00 

-- Real — vaLuf parameter -• declared at 02132500 

02132300 02132400 *Opj 33300**02 1 33380* 02173075 *0?i73080* 02173065 0?j73087 02173090 02173095 02173265 
02173360 0?}73364 0pj73366 02173370 02 t 73375 
-- DEFINE -- DECLARED AT 04261300 
04352200 

— DEFINE -- DECLARED AT 04356900 

04376600 0*383400 04386800 04393000 04404800 04416400 
-- DEFINE -- DECLARED AT 04554900 
04567600 04567P30 04568590 04648000 
m * DEFINE "" DECLARED AT 04671000 

04672700 04673J50 04674850 04675250 04683800 04686350 04687050 
»- RFAL — OrCL/jRED AT 06185100 
*062050l0* 06206120 06206250 06328200 06328300 

•- DEFfNE -• DFCLARED AT 07486500 

07511000 

-« DEFINE -- DECLARED AT 085?8500 

08544700 

-- DEFINE -- DECLARED AT 08734500 

08784000 08798500 

— DEFINE " DECLARED AT 08854500 
08901000 08947200 08947400 

— DEFINE — DFCL-ARED AT 15112900 
15114300 15115900 

"• DEFINE "- DECLARED AT 15402500 
15437100 

-- REAL — DECLARED AT 16696650 
* 167 1 3500**16902650* 16902800 

— DEFINE -- DECLARED AT 16913000 
16956090 

-- REAL -- VALUE PARAMETER -- DECLARED AT 17000400 
17000000 17000200 17005400 
" REAL -- DFCLARED AT 18199100 
♦18272300* 18438180 18438190 18438195 18439125 

— DEFINE — DECLARED AT 20020120 
20034000 

"" DEFfNF — DFCLARED AT 20086800 
20H8370 

— DEE T NF -- DFCLARED AT 20146420 

— REAL « VALUE PARAMETER — DECLARED AT 20289020 

20 ? fl90i0 20289020 20289144 20289i54 202fi9i60 20289163 20?89540 

-- REAL — VALUF PARAMETER — DECLARED AT 20292200 

20292000 20P92JOO *20294800* 20295000 20296100 20297000 20299000 20299020 20299110 

-- real -- vaLuf parameter — declared at 2o3i42oo 

20314000 20314100 20323000 20325000 20364000 20374000 20374100 20374200 20374310 20374400 20374410 
20374430 

-• Real — value parameter -• declared at 20386000 

20384000 2O385OOO 20397200 20489i00 2 489p00 20489300 

.. real -- declared at 20566100 

20566790 ?0566900 ?05694?0 20569440 205749l0 20577826 






UNITNO -- REAL "-- DFCLARED AT 20581000 

UnH'NO — REAL " DFCLARED AT 20584000 

20584200 20584800 ?0?S4900 20584950 20585050 20585100 20585J25 20585620 

UNITNO — REAL " DFCLARED AT 20566800 

20587100 20587700 20587650 

UNJTNO " REAL " DFCLaRED AT 20569800 

20590000 

UNijNO •• REAL " DrCLA«FD AT 20591000 

20591400 20592800 20594400 20594500 

untTno -- Real -- dfclaRfd at 20595000 

20595200 20595250 205*5300 20595350 20595400 20595450 20595500 20595550 20595560 20595650 20595700 

20595900 ^0596,50 20596200 ?0596300 20596350 20596400 20596450 

UNITNO -* REAL •• DECLARED AT 20596800 

UNITNO •- REAL •- DECLARED AT 20600010 

20600040 2O6OO16O 20600400 20600460 #20600850* 2O6O1OOO 2O6O11OO 2060i|50 20602050 20602200 20602250 

20602300 *20602350* 20602400 20602490 20602510 20602520 20602530 20603560 20603580 20604850 20605050 

20605410 20605440 20605520 20605820 20606900 20606910 20606920 20607020 20607040 20607500 20607700 

20607750 20608070 2O6O812O 20608140 20608200 20608460 20608500 20608510 20608520 20608550 20608600 

20608650 20608700 20608790 20608840 2O6O885O 20608870 20608950 20609000 20609i00 20609150 20609400 

20609420 20609430 20609435 20609560 20609570 20609580 20609660 20609750 2O61O5OO 

untTno •- Real -- dfclaRed at 20701500 

20706000 
UNjTNO -- REAL -- DFCLARFD AT 28004000 

28004400 
UNITNO — REAL « DFCL.ARED AT 28204400 

28204800 
UNITNO *• REAL " DFCLARED AT 28401600 

♦28456600* 
UNITNO " m REAL •- DFCLARED AT 32000250 

♦32001500* 32002300 
UNjTNuM -- DEFINE " nFCLAR*n AT 20566640 

20567274 20567280 20569522 20569846 20569860 20570350 20570464 
UNfTNuM -- DFFlNF -- OFfLARED AT 28007300 

28O28HO 28070?00 26097800 
UNlTNUM -- DEFINE -- DECLARED AT 282O77OO 

28?5«200 28270814 26280800 2826i000 28304600 
UNlTNUM -- OEFINE — DECLARED AT 28407500 

28444100 28465400 
UNlTNUM « DEFINE — DECLARED AT 37007300 

37022000 37113000 37 113100 
UNlTNUM — DEFINE " DECLARED AT 37180800 

37187100 37224200 
UNKNOwNaReAV — OEFlNr -- OFCLaRFD AT 00017190 
UNLABfLfD — DFFlNF — ' DFCLaRED AT 37180700 

37235000 37242000 37248500 
UNLABFLFD — INTEGER — DECLARED AT 38005000 
*380?3000* 

unlabeled *- integer — declared at 38102500 

38113000 38124500 *38144500* 
UNLABELED •• INTEGER — DECLARED AT 38200500 

♦38237000**38260500* 38262000 
UNLABELED — INTEGER -• DECLARED AT 38360000 
UNLABFLFD -- INTEGER " DECLARED AT 38545000 

38591000 38628000 
UNLABrLrD — INTFGER "• DFCLARFD AT 38653000 

38736000 38742000 38754100 38761000 
UNLABFLFD — jNTfGER -- DECLARED AT 39003000 



*39090000**39237O00**39?4l000**39?932 f) O* 3 9 294000 39307?00 
UNI.ABFLED — InTEGFR -- DECLARED AT 41002000 

*41044000* 41206000 
UNLD "- LABFL -- DECLARED AT 22064000 -- OCCURS AT 22?00000 

22065000 22176000 
UNLOAD •" DEFINE " DFCLARED AT 20223000 

20569529 20569610 2056980? 20569840 20570120 
UNLO An -■ DEFINE — DFCLARED AT 28208200 

28307715 
UNLOCKCONTROLDFCKS •- DFFlNF « OFCLARFD AT 07001300 

07296000 07352000 07371600 0737i950 074?7625 07455000 
UNLOCKDfRECTORY -- DEFINF « DECLARED AT 00*i2l500 

O6116OOO 06463992 07568000 08?5957"5 08j>70650 14569000 14618OOO jBOpsOOO i84?52°0 18466000 ?0760000 

207*9200 20771020 40336000 
UNLOCKHDR « DEFINE -- DECLARED AT 18201500 
UNLOCKToG — DEFINE -- DECLARED AT 00079400 

02202500 02434*30 05846395 O58536OO 05970500 05975610 06116000 O6II61OO 06353500 06463992 07001840 

07296000 07352000 07371600 07371950 07427625 07455000 07568000 07572000 08259575 08270650 08368000 

08571600 08677000 08696100 08836000 08997000 09624000 09647000 09682620 14396000 14569000 14618000 

l80 ? 3000 i8425?00 16466000 188437OO 16B455OO i9786000 2O12O6OO 2O21O3OO 20583650 ?0760000 20769200 

20771020 22030000 22 9 20000 24043800 40336000 4)320355 
UNLOCKV -- DEFINE " DECLARED AT 20219050 

20511450 2°5ll662 ?05ij66« ?05«3060 2^593100 2060?600 20603600 20604350 
UNLOK -- STREAM LABEL « DECLARED AT 08110600 -- OCCURS AT 08111150 
UNLOX -- LABEL " DFCLARED AT 20597750 -- OCCURS AT 20606150 

20597900 
UNSYS *- LABEL -- DFCLARED AT 18207000 -- OCCURS AT 18397000 

18219000 
UNUM •- DFEINE -- DFCLARED AT 00005210 

unused ■- label — declared at 18208000 -- occurs at 16466101 

18220000 
UP *• LARFL — DFCLaRfo AT 06351500 — OCCURS AT 06380150 

06353570 06380700 
UP -- LABFL -- DECLARED AT 28210800 -- OCCURS AT 28258600 

28260200 28302?00 
UP -<• LABFL — DECLARED AT 2840?800 -- OCCURS AT 28460200 

28464800 
UPDATF -- REAL — VALUE PARAMETER — DECLARED AT 07001600 

07001780 
UPDATE " LABEL — DECLARED AT 20391000 -- OCCURS AT 20483000 

20395000 
US — STREAM VARIABLE — - DECLARED AT 08839000 
US -- LABEL •• DFCLARED AT 18701000 -• OCCURS AT 18710600 

18701200 
USASI »- REAL — DEfLARFD AT 14624550 

♦14702550* 14702600 
USASI •- fNTFGFR — DECLARED AT 37160300 

♦37255900* 37267050 
USASI — REAL -- DECLARED AT 38103200 

*38l36500* 38137000 
USASI •- REAL -- DECLARED AT 38201200 
USASJTAPE — PROCEDURE « DECLARED AT 01250100 

01261500 14702600 22145550 37255900 38137000 
USE •• REAL -- DECLARED AT 06066400 

♦06093700* 06094200 06094700 06096400 *06lOJlOO» 06l0l200 06l0l600 06i0l700 *061 10400**06 1 1 1 300* 06112000 
USfDRa " OEFINE "' DECLARED AT 00403000 
USFDRr •- DEFINE -- DFCLARFD AT 00404000 



USFPBO — DEFINE •- DFCLARFD AT 00416600 

3909?070 39092150 
USER -- REAL — DECLARED AT 06462100 

*06465l00* 06465?j0 06465??0 064653^0 06465500 06465830 06465880 
USER -• DEFINE -- DFCLARFD AT £0219400 

20603565 
USERCODE — REAL ARRAY — DECLARED AT 02695000 

04105550 06203000 *06205l00* 14534500 14541000 14569200 18520900 1B522300 18524900 18526300 18528100 

18553500 18710600 19699000 19768200 19774850 *20l80400* 22917000 28282800 28283000 28416400 28416600 

28435200 37428j00 380 1 30jO 38013040 38077000 38217000 38253100 38490000 385i3000 44162100 *44255000* 
♦44262500* 44264500 44268500 *44270000**44276000* 45107000 45122000 *45123000* 
USEROTSK — RfaL ARRAY " DECLaRFD AT 00419900 
USERDlSKBOTTOM — Real " DECLARED AT 004i8000 

05844930 05649000 05850120 05961400 06109500 06380450 06380900 16827000 40321000 40321300 *44086200* 

44086300 
USERDtSKMASK — DEFINf -- DECLARED AT 00080600 

05942300 05846395 05849300 O56536OO 05960700 05970500 05975610 06103700 O6I161OO 06353500 4O3361OO 

45102000 
USERDiSkReAOY — DEFINE -- DECLARED AT 00080600 
USeRDtSkSPECIALCASe »• PROCEDURE -- DECLARED AT 06350000 -- FORWARD AT OO3361OO 

058«41l0 05649a60 05851600 O59714OO 06381550 
USERlD " REAL " VALUE PARAMETER -- DECLARED AT 06460200 

06460000 06460100 06463910 06463920 06465300 
USERlD -• REAL " DECLARED AT 07408100 

*07409250* 07418850 
USERlD — REAL — DECLARFD AT 08099800 

♦08102000* 08104550 08105500 08106020 08106040 
USERIn "- REAL « DECLARED AT 20566100 

20575350 20575400 20578050 20578075 
USFRlO •• REAL -- DTCLaRFD AT 20581000 
USpRlh •• RFAL -- nrcLARFD AT 20584000 

20586500 
USERlD -•* REAL « DECLARED AT ?0586800 

20«588i00 ?0588500 
USERlD •- REAL " DECLARED AT ?0589800 
USERlD -- REAL •- DECLARED AT 20591000 

♦20591700* 20592*00 20592900 20593320 20593600 
USERlD "• STREAM VARIABLE — DECLARED AT 20592400 

20592450 
USERlD — REAL -- DFCLaRFD AT 20595000 

20595200 

useRio "• Real — dfcLaRed at 20596eoo 
usrRm — Real — ofclaped at 20600010 

♦20602300**20602400* 20603570 *2060 3 575* 20603580 20605750 *206058l0* 20605820 *20609400**20609436* 

useRid — Real « declared at 20701500 

20740000 20741000 
USERS -- LABEL « DECLARED AT ?0597750 -- OCCURS AT 20605700 

20597900 
USERSTA « REAL — VALUE PARAMETER « DECLARED AT 14531100 

14531000 14540JOO 14540350 

uses — label -- declared at 20597750 — occurs at 206O6050 

20597900 
USETOG " REAL -- DFCLaRFD AT 12211500 

♦12247000* 12248500 *12258000**12259000* 12293500 12294500 12310000 
USFTOfi — STREAM VARjaBLf — DECKED AT 12310000 

12317500 
USEV -. DEFINE -- DECLARED AT ?02l9060 



2051 1 29S 7051131? 70593900 20594600 
UT -- REAL ARRAY — DECLARED AT 05841670 

♦05844110**05844930* 05845000 *05845300* 05845500 058/(5700 
UT "- REAL ARRAY -" DEfUAREO AT 05847600 

♦ 05850120* 05850300 05850400 05850500 O585O6OO 05851300 *05851500* O58516OO O58517OO O58518OO 05851900 

*0585?000**05852500* 

ut -- real array -- declared at 05952400 

*0596t400* 05^62000 0596??00 0s96 P 400 05962*00 O59628OO *05966600* ©5967600 05968?00 O59686OO 05968900 

05969?00 05971^00 0597?000 *0s972400 **05972600**0597?800* 05973600 *05973800* 05974400 05974800 
UT — REAL ARRAY -- DECLARED AT 06069300 

06088300 06089000 06089100 O6O893OO *0609 l 500*+06099400**06099500**06lOOSOO* 06100900 06101100 ♦06109400* 

06H0700 06110800 06U0900 061H000 06111700 06111800 *06ll3400* 
UT -- REAL ARRAY -- NAME PARAMETER •- PFCLAREO AT 06350300 

06350000 06351000 06380140 
UT — REAL ARRAY — DECLARED AT 16697200 

*168?7100* 16828000 
UVROWaRfaV « DEFINE -• DECLARED AT 00017370 
Ul »- REAL "- DECLARED AT 04259200 
Ul -- LARFL " DECLARED AT 20589720 -- OCCURS AT 20590300 

20590200 

V •- REAL ARRAY -- VALUE PARAMfTER -- DfCLARED AT 02696300 

V -- REAL « DECLARfD AT 04968000 

O4O78OOO O4O8OOOO OaOiiOOO O4O95OOO 04097000 

V — REAL — DECLARED AT 04126000 

♦04130000* 04133000 041372)5 04144000 *04 1 47000**04 15 1 000* 04154000 04159000 *04207000* 04208000 *042l0000* 
04213000 *04218000* 

V — STREAM VARIABLE « DfCLARED AT 04659000 

04659800 ♦04661800* 

v -• label -- declared at oseazaoo -■ occurs at 05349500 

05851675 

V — LABEL — DECLARED AT 05952600 »- OcCuRS AT 05959200 

05960600 05960670 

V -- STREAM VARIABLE — DECLARED AT 0638J3 9 5 

06381405 

V « REAL -- DECLARFD AT 07299000 

*073l8000* 07319000 07320000 *0734400o* 07345000 

V — INTEGER — DECLARED AT 08755200 

08256440 08256450 *08257500**08257600**08258000* 08258200 08259225 08259830 08259840 08259850 *08260500* 
08268500 08269510 08269520 08270750 08272000 08280000 08280030 

V — STREAM VARJABLf -- DECLARFD AT 08448050 

08448100 

V — STREAM VARIABLE -- DECLARED AT O84511OO 

08451200 

V — STREAM VARIABLE -* DECLARED AT 08*54000 

08454500 

V — REAL *- DECLARED AT 12503000 

12567500 t?600ei00 12607000 1265fi000 l?6«>7000 *l?6fi7750* 12669500 J?670500 12671250 12675000 12675250 
12677500 12679500 12700500 12701000 12705500 12707750 12753500 12755500 12757500 

V — REAL "- DFcL«RrD AT 12803000 

I2823OOO 12843000 12843500 128436OO 12843700 5 2860i00 l?873500 1? 874500 12875000 12875500 12876000 
*12876500* 12878000 i?886000 12^90100 12892000 12897500 

V •- REAL -- DECLARfD AT 13004000 

13127899 13128000 

V -<■ STREAM VARIABLE « DECLARED AT 1 ^ 4 1 5 1 

14418100 

V •- REAL -- DECLARfD AT 19900260 

♦19900300* j99003i0 *i99003?0* J9900330 *l9900745* 19900755 19900760 19900780 19900800 



V « REAL -- DECLARFD AT 37287500 

* 37 293220** 37 2 93? 3 0**37 29324 0**37 293250** 37?93 ?6 0* 37293270 

V •- REAL ARRAY -* DECLARED AT 40006000 

40O070O0 *400i0000**4OOnOO0**400l200O**400i3000* 4OO14OOO *40263000* 40293050 +40293060**40293070**40293080* 
♦40293090* 40293110 40293120 40317210 40317230 40317300 " " * ^ " 

vadaR mm RfaL aRRaY — ofcLaRfd at 39902000 

*39959000* 39962000 39965000 39966000 
VAtU "- RFAL — DFCLARFD AT 12212000 

12225000 * l2 244<s00* 12249500 1226,000 12262000 ,2262500 12265500 , ? 266500 12269500 ,2283000 12286500 

12287000 12307000 " l 

VA|,U »• STREAM VARIABLE -- DECLARED AT 12225000 

12241500 
VALU -» STREAM VARIABLE -- DECLARED AT 12307000 

12312000 
VALU -- REAL -- DECLARED AT 12363500 

♦12438000* 12439000 
VALUTOG — STREAM VARIABLE — DECLARED AT 12307000 

12312000 
VARRAY — REAL -• DFCLARFD AT 19694000 

♦19696800* 19697300 *t97g5000* 19755000 *19763000^ 
VASE "- RFAL -- DFCLARFD AT 08680000 

08681200 *08689900* 08690600 O8693OOO +08693200* 08694200 08695?00 08695400 
VASE — STREAM VARIABLE « DECl.ARFD AT 086*1200 

08686500 
VASE — STREAM VARIABLE « DECi.ARED AT 08694200 
VAX •- DEFINE -- DECLARED AT 00013710 

18540140 16540400 
VCC — DEFINE — DECLARED AT 00013820 

16043680 16926020 
VCT »• DFFINE •• DECLARED AT 08734010 
VECTOR — R fA L ARRAY — V A UJF PARAMETER — DECLARED AT 06182000 

06180000 06181000 06192000 06l9 3 500 06194000 06l95l05 06l95l20 06196000 06199000 06200000 06201000 

06206120 06206140 06206240 06206250 06 2 07000 06207,00 06208000 0621M00 06222000 06222100 06222200 

06222300 06222*00 06222500 06222550 06246000 06328300 06328400 06328500 
VECTOR »• REAL ARRAY — DECLARrO AT 14350000 

♦14358000+ 14358,00 14358 2 00 14358310 14358315 1435839] I43587i0 M4358800* I4360l00 14360200 l43603 t 

14360380 14371000 14372000 14373000 14374000 14382000 H383900 14391000 14394000 14395000 14398700 

14399000 U402000 *H4 3900* 144 4000 144 5000 14406000 *14406l00+ 14407100 14408000 *14410000* 14411800 

14411850 144H860 14411870 144U880 14411890 14414000 14415000 144l5l00 14430800 14431000 
VFRYFfRST — RfAL « OFCURfD AT 07006172 

♦ 07,05500* 07i,5i00 07,i7i00 *07l 1 851 0**07i , 9 2 0Q* 07l200i0 07,23500 *07l 26000++071 29 2 00* 07l40i00 *07i69ii0* 

07214100 '* 

VF — DEFINE -• DFCLARFD AT 125l6l00 

12667750 

-- DECl.ARFD AT 12815100 
-- DECLARED AT 00013790 

12863000 16244000 37046740 37046825 37046830 37047010 37047600 37048000 
-- DECLARED AT 00013800 

— DECLARED AT 00013830 
18258000 28293200 

"" OErLARFD AT 00013720 
37225000 37233500 37241300 37241510 37241600 

— DEcURFD AT 00013810 
282*4400 37225100 380i46l0 38O154OO 

-- DECLARED AT 00013780 
06360^90 06463280 12473190 12709750 ,?8 3 0000 i 2 899500 i?900500 14431518 ,4569500 16163000 



VF 


«■» 


DEFINE 


VFM 


m<* 


DEFINE 
12830000 


VFr 


»• 


DEFINE 
37225100 


VIF 


m — 


DEFINE 
18025000 


VIL 


mm 


DEFINE 
06463280 


VOf 


mm 


DEFINE 
28?93400 


VOK 


■»• 


DEFINE 
06360590 



179 14 tOO 17914*00 I79i8500 28293400 ?fi?94?00 37046829 37047010 37047l00 37225000 37231250 37241300 

37241600 38014*10 38015400 
VOL — t-AREL -- nECURFD AT 01250500 — OcCURs AT 01256100 

01257600 
V0LlF»Ll. -- SURROUTlNp -- OfCLaRFD AT 01251000 

01251600 01255000 01256000 01257500 
VOU — DEFINE •- DECLARFD AT 00013750 

37046740 37046825 370470j0 
VQ •• LABEL — DECLARED AT 16355000 -- OCCURS AT 16456000 

16364000 
VQT -- DEFINE -• DECLARED AT 00013740 

12709750 12830000 12899500 12900500 
VR -• REAL ARRAY — DECLARED AT 40007000 

*40?49?50**40 257060* 40261300 *40 2650 00**40 3 j 7500**403? 1 130**40 324 ?00**40 3 34077**40 3 34079**4 3 34085* 
VRM — DEFINE — DECLARED AT 00013770 

14569500 14581700 14585000 
VTL — DEFINE "• DEcLaRFD AT 08734030 

08736000 
VUL "• DFFTNe — DFrLARFD AT 00013730 

372?5000 
VHY -- DEFINE — DECLARED AT 00013760 

06360520 06360s90 0<S463?80 0860 ? 000 08609000 i?709750 1283OOOO i?899500 12900500 14569500 16106000 

16163000 16953000 17914500 l79i7500 l79i8500 18025000 18540140 18540400 220H640 28293200 37046740 

37046825 37047010 37048000 37065000 37100000 37113000 37225000 37241300 37241600 38014610 
VXT "" DEFINE -- DECLARED AT 08734020 

08757000 08775000 

VI -• STRrAM VARlAPLF " DEcLaRfO AT 12460500 

12469000 
VlO m» STREAM VARjABLF -- DfCLARED AT 12465000 

VI I -- STREAM VARIABLE — DECLARED AT 12465500 
Vj? — STREAM VARIABLE -- DECLARED AT 12466000 
Vl3 — STREAM VARIABLE « DECLARED AT 12466500 
VJ4 — STREAM VARIABLE — DECLARED AT 12467000 
V2 -• STREAM VARIABLE -- DECLARED AT 12461000 
V3 — STREAM VARIABLE — DECLARED AT 12461500 
V4 -* STREAM VARIABLE « DECLARED AT 12462000 
V5 "- STREAM VARIABLE -- DECLARED AT 1246?500 

V6 — stream variable -- declared at 12463000 

V7 — STRFAM VARIABLE — DECLARED AT 12463500 
V8 — STRFAM VARIABLE " OFcLARED AT 12464000 

V9 »m strfam variable *■- declared at 12464500 

W — RFAL — VALUE PARAMFTER — DFCLaRED AT 00480010 
W -- REAL -- VaLUe PARAMFTER — DECLARED AT 0?696300 
W -- SWjTch LABEL « DECLARED AT 04358400 

04389000 
H — REAL — DECLARED AT 04552000 

04568400 *04593000* 04598000 *04608000* 046?7000 
W -- REAL -• DECLARFD AT 04704000 

*04706000**04731000* 04732000 
W — REAL — VALUE PARAMETER -- DECLARED AT 05607000 

05614000 

W — STRFAM VARIABLE — DFCLaRFO AT 05614000 
05617000 

W •• NAMp -- VALUF PARAMfTfR -• DECLARFD AT 05701000 

05700000 05701000 *057i5l00* 05725000 05727000 05728180 
W — LABEL — DECLARED AT 05841650 — OCCURS AT 05846500 

05842100 



w 

w -- 

w •- 

w «•- 

w "" 

w • - 

w • - 

w -- 

w •»• 

y mm 



w -- 

w — 

W "" 

w *• 

w •»- 

W MM 

WAIT • 

wait • 

WAITIO 



WAlTOUE 



LABEL — 
05850400 

LABEL — 

05952715 
STRFaM VAR 

05952725 
STRITAM VAR 
STRFAM VAR 

06381405 
STRFAM VAR 

14286000 
REAL ARRAY 
♦ 1971 1 1 00* 
STREAM VAR 

20032925 
REAL « 
28078000 

28096800 
RFAL -- 

28^34800 

28242400 
*28?89200* 
♦28299800* 
REAL « 

28831000 

TNTFGER - 
♦37433000* 

RFAL — 
♦40008320* 

REAL — 
4400000 

REAL -- 
44?07200 

REAL " 
4500?800 

- LABEL 
01255600 

- LftREL 
20598000 
"- REAL 
00044000 
01260500 
02434760 
070^7000 
08087000 
12843700 
14703000 
221 14000 
28041000 
28078000 
28095400 
28?56800 
37453100 
38632000 
38760000 

-- REAL 
02092000 



DECLARED 
05850500 
DECLARED 
05952755 
UBLE -- 

IABLF — 
IARLe -- 

IABLF -- 

— DEC| 
197? 1^00 
IABLE — 



AT 05847800 

AT 05952600 
05962400 
DECLARFD AT 



-- OCCURS AT 05850400 
— OCCURS AT 05962200 
05952715 



DFCLARFD AT 05952755 
DFCLARFD AT 06381400 

DFCLARFD AT 14284000 

.ARED AT 19692000 

19714000 19714100 19724000 
DECLARFD AT 20031500 



19727000 19760000 19766800 



DECLARFD AT 28003200 
28078400 28078800 23079000 

DfCURfD AT 28203600 
?8235?00 ?8235400 28236000 
28243400 28244200 23245000 

♦28 269600**28289800**28 290000* 

♦28300000* 283Q0200 28300400 

DFCLARFD AT 28803000 
28831600 28832000 28832500 

- DFCLARFD AT 37422100 

•37434000* 37435000 

DFCLaRfD AT 40005100 

*40008 340**40275700**4 35 31 00* 

DECLARFD AT 44011000 

*44l5l700* 44173200 

DFCLARFD AT 44206700 

DFCLARFD AT 45002000 



28080000 28080400 28080600 28080800 *28095800* 28096200 28096600 



282362OO 
282'45200 
28290200 
28300600 



?8236400 28237200 *28240400**2824 1600 
28267000 28268600 *28278400* 28278600 
28290400 28?90600 +28294800* 28295000 



* 2824i800 
•28278800* 
28295200 



28833000 *28837000**28838500* 28848000 *28850000* 28852100 



40353120 *40353l80* 40353200 



•- DECLARED AT 0]?50500 

01256500 01259300 
— DECLARED AT 20597880 



OCCURS AT 01260425 
OCCURS AT 20609555 



procfduRf 

01255100 
02120000 
02434770 
07125000 
12522000 
12890100 
16921500 
22203000 
26041400 
28078800 
28213000 
282584OO 
37456000 
38688000 
38766000 
ARRAY -- 
*02094000* 



-- DECLA 

01255200 

02276100 

02414800 

07128000 

12522500 

12897500 

20299000 

280H840 

28042600 

28082000 

28216400 

28262200 

37458000 

38700000 

38767000 

DECLARtD 
02095000 



RED AT 
01255 
02287 

02434 
07224 
12^27 
13062 
20601 
2801 1 
28044 
28082 

2«216 
28273 

38105 
38720 
38769 
AT 00 
*040i6 



0424 
450 
255 
810 
000 
000 
000 

000 

850 
800 
200 
600 
000 
400 
000 

000 

27800 
200** 



0000 -- 

01255500 

02287260 

02666000 

07227000 

12545500 

13128000 

20608000 

28012040 

28046000 

28082400 

2»222600 

28303200 

38142000 

38736000 

38775000 



040i7000* 



FORWARD A 

01256100 

02308000 

02668000 

08030000 

12546500 

14204600 

20609000 

28019800 

28047000 

28086800 

28223000 

28304600 

38203400 

38741000 

38795000 



T 00018000 
01256400 
02434174 

•04250000* 
08042000 
12600500 
14205500 
22106000 
28021800 
28058800 
28089200 
28223200 
37046260 
384O2OOO 
38741100 
38799000 



01258500 
02434532 
05960600 
08043000 
12607000 
14255000 
22107000 
28022000 
28063000 
28090200 
28230000 
37046300 
38406000 
38742000 
40257030 



01258600 
02434534 
05960660 
08044000 
12648500 
14256000 
22112000 
28033400 
28063200 
28090400 
28232200 
37212000 
38411750 
38742100 
40258000 



01258700 
02434600 
0705U10 
08044600 
12843000 
14679000 
22112100 
98033800 
28074600 
28091800 
28232600 
37253000 
38624000 
38754000 
45104200 



28242000 
28279200 
28295400 



01258900 
02434630 

07059000 
08045000 
12843600 
14701000 
22112500 
28034000 
28077200 
28095000 
28256400 
37303200 
3862^000 
38755000 



04H7000 44173000 



WAjTV -- DEFINE -- DECLARED AT 20226100 

WATE — LABEL -• DECLARED AT 28210800 •- oCCUrS AT 28241400 
28245200 

wate "- label -- declared at 288O6O00 -- occurs at 2884sooo 

WC "• REAL •- DECLARED AT 41600300 

*41602900* 41603000 41607300 
WD "• l-ABEU — DECLaRFD AT 16355000 — OCCURS AT 16493000 

16364000 
WO -• LABEL -- DECLARED AT 18701000 -- OCCURS AT 18711600 

18701200 
WO — REAL -- DECLARED AT 4J.327500 

41327700 *41334200* 
WDSLEFT « STREAM VARIABLE — DECLARED AT 04658800 

04661800 
WEEKDAY — REAL -• DECLARED AT 08303300 

08332500 08333000 187H600 2028926S *442U150* 
WEFKDaY *"* STRFAM VARIABLE — DECLARED AT 20289265 
WEfiOTAFjLE « ReaL SUBROUTINE " DECLARED AT 08104750 

08104950 08105000 08116750 
WEfRDFORK — DEFINE *- DECLARED AT 28405000 

28433400 28441200 28442200 
WEWANTTMISFILE -- REAL SUBROUTINE -- DECLARED AT 08105100 

08105500 08105900 O8IO6O4O 08106080 O81O61OO 08116800 
WHAT — REAL -• VALUE PARAMETER « DECLARED AT 02348000 

02150000 
WHAT — STREAM VARIABLE -- DECLARED AT 02350000 

02351000 
WHAT — REAL -- DECLARED AT 08028000 

08029000 
WHAT -- REAL — VALUE PARAMETER " DECLARED AT 08079000 

08080000 
WHATINTRNSTC •- PROCEnURF -- DFCLARED AT 15534000 -- FORWARD AT 09400000 

09535000 09659000 15555000 1626i000 
WHATMCP -- PROCEDURE -- DECLARED AT 15500000 

15533000 16503,00 '41323500 
WHILOOP -- LABEL -- DECLARED AT 14628000 
WHY #- LABEL — DECLARED AT 06351500 — OCCURS AT 06355000 

06360610 
WHY -- LABEL -- DECLARFD AT 06462200 -- OCCURS AT 06463210 

06463360 

why m- label *- declared at 12812500 •- occurs at 12898500 

12892000 12900500 
WHY -• LareL -- DECLARFD AT 14547000 -- OcCURS AT 14570000 

14584000 
WHY -- LABEL -- DECLARED AT 37]80600 — OCCURS AT 37224000 

37222500 37229500 
WHYSLEEP -- REAL PROCEDURE -- DECLARED AT 08599000 — FORWARD AT 02022000 



06360590 06463360 *08622500* O8623OOO 127i0250 12862OOO 12900500 145S4OOO 179^8500 18O3OOOO 18540400 
28294000 36008000 37046825 37229500 37241600 



H.I •"» REAL -" DECLAREO AT 09602100 

wi -- real — declared at 15536000 

wi — Label -- decLaRfd at 16056000 -- occurs at 16260000 

16065000 

windup »• Label — dfcLaRed at 20146600 -- Occurs at 20189900 
2O188900 

WITCHINGHOUR -- REAL -- DE^ARED AT 00*57500 

06188000 O6I881OO 156?2000 20157700 220|2000 22909000 *44090500* 48002000 



WITH -- DEFINE " DFCUARED AT 20235099 
20585300 20593310 

without -• ' label -- declared at 09602000 

wk -- label -- declared at 16357000 -- occurs at 16615100 

16366000 
WKSETrLOcK — DEFINE " DFCLARFD AT 00134150 

12405500 48010074 48010080 
WKSETrYcLETtME — DEEtNe — DECLARED AT 00134350 

12?70500 12279000 1??80000 1?2«0500 1228l000 1??B3000 i2?83500 i?306000 12306500 l?32ll20 4420*200 

48010072 48010074 

WKSETDATA «•» REAL ARRaV -- DECLARED AT 00t34l30 

06195095 0B839s00 *1 2262500**12266500+ 12270500 *l?27l500* 12272000 *12273000**12276000**1 2276500**12279000* 

♦ 12280000* 12280^00 12281000 * 12283000** l 2283500** 12287000** 12296500* 122'?500 12306000 12306500 12307500 
12308000 12309000 12321120 12321130 12321140 12321150 12403500 *12405500* 12424700 *12425000* 1242^200 
12426500 12431500 12444500 *12452500**12453000**1 2453100* 12454000 *12454500* 12456500 12473030 12473040 

♦ 12473060* 12473070 12473080 * 1?47 3 00** l 2475500* 14431420 *i443l440* 14431450 14431460 * 14431470** i443 1508* 
*14431650**14431975* 14431980 1790*000 *l 7904600**i7926i00**i 7926500* 20i65i20 *20l90620* 220l4620 44163020 
*44209200**44209300**A4209400+*44209500* 48010072 48010074 48010076 +4801 0080++4801 OO84* 

WKSEToATASTZE -- DEFINE — DECLARED AT 00i34480 

44151052 44163020 
WKSETlNSTRUCT -- DEFINE -- DECLARED AT OOl 34310 

12272000 12273000 12296500 12297500 123? 1 1 30 l?43l500 44209300 
WkSETmAXOLAY -- DEFINE « DECLARED AT 00134250 

12266500 12276S00 12307500 12321150 12425000 12426500 12473040 4ft209500 
WKSETMONITOR " DEFINF "- DECL A RED AT 00134230 

06195095 12287000 12309000 12456500 
WKsp-TNOsfrLFfT " DFFINr " DECLARED AT 00134200 

08839500 12283500 12424700 12425000 12425200 12453)00 14431975 20l65l20 
WKSETOLfRANcE -- DEFINE -- DECLARED AT 00i34280 

12262500 12276000 12308000 12321J40 124*4500 44209400 
WkSeTrUnNINC, « DEFINE -- DECLARED AT 00134180 

12475500 ^8010076 O8O1OO84 
WKSETST0PJO8S — DEFINE -- DECLARED AT 00i3A390 

12453000 12473030 12*73150 I443i4?ft 14431508 14431975 14431980 17904000 17926500 20165120 220l4620 
WKSETSWITCHTIME — DEFINE •" DECLARED AT 00134460 

12403500 12452500 14431650 17904600 17926100 20190620 
WKseTVALUES "• PROCEDURE "" DECLARED AT 12201000 

16615200 
WLOG — RFAL — DFCLARFD AT 41327500 

41327700 ♦4l334i00^ 
WM «» LABEL -- DECLARED AT 16356000 -- OCCURS AT I65O2OOO 

16364000 
WMCP — REAL -- DECLARED AT 41327500 
♦41334000* 

word — real -- declared at 05952230 

05952715 05952755 O595655O 05956600 059S6750 O5957O5O 05957150 *05957?50* 05957500 *05977600* 
WORD — INTEGER — DECLARED AT 24204000 

♦24213000+ 24224000 24226000 
WORdOfEaSE *• REAL — DECLARED AT 00157500 

20190800 +44091000* 44189500 48024000 
WORnS — TNTFOFR *- VftLLJF PaRaMfTeR — DFCLARFD AT 24103000 

24101000 24102000 24151000 
WORKSfT -• PROCEDURE -- DECLARED AT 12350500 -- FORWARD AT 00134125 

48O1OO82 
Wp •• LABEL — DECLARED AT 16699500 — OCCURS AT 16719500 

16703500 
WR -- LABEL -- DECLARED AT 16699500 — OCCURS AT 16737500 



16703500 
WRAP -» LABEL — DECLARED AT 14165000 — oCCUrS AT 14298000 

14279000 
WRDCNT — STRfaM VaRIaRL-F *" DECLARED AT 0*658600 

04660200 *0466l500* 
WRnFRR — STRFAH VARJaRLf " DFCLaRfD AT 04658600 

♦ 04660000* 0/i662«s00 
WRDLOCN -- STREAM VARrABlF *- DECLARED AT 0*659400 

O466O3OO 
WrQSZ •• REAL, ARRAY -- DECLARED AT 28004800 

♦28069200* 
WROSZ -- REAL ARRAY -- DECLARED AT 28205200 

♦28235200* 28243400 
WRDSZ — REAL ARRAY — DECLARED AT 28401800 
WRITBACK — DEFINE — TECLARFD AT 38385500 

38389200 
WRITEAFTERFOF -" DEFINE " DECLARED AT 38385600 

38389400 38389700 38389800 38390i00 38390500 
WRtTFB "- SUBROUTINE *' DECLARFD AT 12603000 
WRTTEBANDEJECT -- SUBROUTINE «■ DECLARED AT 12838500 

12885500 12890000 
WRITEnDJNGLABEL -- SUBROUTINE -- DECLARED AT 28040600 

28045000 78075000 
WrITEnDInGLABEL -- SUBROUTINE -« DECLARED AT 28231800 

28261200 28268800 
WRITEPARITYREELSWITCH -.- REAL PROCEDURE -- DECLARED AT 04667000 «- FORWARD AT 04255100 

04648150 *04688050* 04688100 15115200 
WRlTTrNON -- RfaL SUBROUTINE " DECLARFD AT 38377000 

38378400 38503600 38507500 
WT •- LaBfL « DECLARFD AT 16356000 -- OCCURS AT 16499000 

16364000 
WT — REAl, -- DECLARED AT 41327400 

41333005 *41333900* 
WU -- LABEL -- DECLARFD AT 16699500 -« OCCURS AT 16715000 

16703500 
WY -• LABEL — DECLARED AT 16054000 — OCCURS AT 16102000 

16062000 

wy *- Label -- declared at 28210800 -- occurs at 28291000 

28294000 
Wl — REAL. — VaLUF PaPaMfTfR " DECLaRfD AT 14531100 
14531000 14535000 

W2 — Real -- value paRametfR -- declaRfd at 14531100 

14531000 
W3 — LABEL -- DECLARED AT 37005000 — OCCURS AT 37046680 

370468?6 3^46829 
X — INTEGER -- VALUE PARAMETER -- DECLARED AT 00379000 
X — REAL " VALUE PARAMETER -- DECLARED AT 00454200 

00454000 00454100 
X — STREAM VARIABLE — DECLARFD AT 01251800 

01251900 01252000 
X -- REAL — DECLARED AT 02057000 

02057500 *0208l000* 02087000 02101000 02101100 
X -- STREAM VARIABLE -- OFCLARFD AT 02144500 

02145000 
X -• STREAM VARIABLE — DECLARED AT 02221000 

02245000 
X -- LABEL — DECLARED AT 0g434l35 -- OCCURS aT 02434870 



X -• 

X "• 

X -< 

X -■ 

X - 

X -« 

X - 

X — 

X — 

X «■« 

X <•« 

X — 



X 
X 

X 

X 

X 

X 
X 

X 

X 



X 
X 
X 

X 
X 
X 

X 
X 

X 

X 



02414 
LABEL 

04134 
LABEL 

05850 
LABEL 

0596? 

strfam 

REAL 
STREAM 
06270 
STREAM 

*07003 
07003 

*TRfaM 

07035 
STREAM 

07214 
STREAM 

073*0 
STREAM 
LABEL 

08021 
REAL 

08105 
STREAM 
STREAM 

08108 
STREAM 

08l08 
STREAM 

08599 
STREAM 

08318 

STREAM 

STREAM 
08365 

STREAM 

REAL 
08525 

STRFAM 

*08540 

STREAM 
STREAM 
REAL 

♦08692 
STREAM 

08694 
STREAM 

08780 
STREAM 

08792 
STRfftM 

REAL 
*12554 
REAL 
REAL 



240 
900 

m m 

300 



ECLArED 
4134960 
ECLARED 



000 
VARJA 
- VA 
VARlA 

000 
VARIA 

486* 

542 *0 

VARIA 
000 *0 

VARIA 
110 

VARIA 
100 

LABEL 
D 
000 

mm DE 

700 
VARIA 
VARIA 

050 
VARlA 

500 
VARIA 

400 
VARIA 

300 
LABEL 
VARlA 

100 

Label 

" Va 
000 

vaRia 
300* 

VARIA 

VARIA 
-- DE 
400* 

VARlA 
600 

VARIA 
000 

VARIA 
000 

label 

— DE 
500**1 

— DE 

OE 



DECLARED 



AT 04125000 
AT 05847800 
AT 05952600 



occurs at 04159000 
occurs at 05850600 
occurs at 05962600 



rLe -- 
luf para 
ble — 

BLE — 
7OO3488 
7003546* 

RLf mm 

7037000* 

BLE « 

BLE « 
7362000 

— DE 
ECLARED 

CLARED A 
8105900 

BLE " 
BLE — 

BLe " 

BLE — 

BLE — 
8318400 

— DE 
BLE — 
8365200 

— DE 

LUE para 

6526000 

BLE -- 
8541000 

BLE — 
BLE — 
CLARED A 
8692800 
BLE " 

BLE " 

BLf « 

-- DE 
CLARFD A 
2555000* 
CLARED A 
CLARED A 



DECLARED AT 06023000 
METER -- DECLAHED AT 06179000 
DECLARED AT 06269000 

DECLARED AT 07003462 
*07003504* 0700 3 50fl #07003514* O7OO3518 *07003522* O7OO3526 *07003530* 07003534 *07003538* 
07003550 *07003554* 07003558 *07003562* 07003566 *07003570* 
DECLaRfo AT 07032000 

DECLARED AT 072i4j00 

DECLARED AT 07,358000 

CLARED AT 07490000 -- OCCURS AT 07495000 
AT 08002000 •- OCCURS AT 08023000 

T 08099850 
08107950 08108200 08108250 *0B 1 14300**081 1 4350* 
DECLARED AT 08105700 
DECLARFD AT 08l07g50 

DECLARFD AT 08108250 

DECLARED AT 08?98800 

DECLARED AT 08318*00 

CLARED AT 08348000 -- OCCURS AT 08357000 
DECLARED AT 08365000 

CLARED AT 08401000 -- OCCURS AT 08406000 
METER -- DECLARED AT 08527000 

0853340C 08533500 08535000 08538000 08540000 08544700 

DECLARFD AT 08540000 
* 85 4 300 0**08544 200* 

DECLARED AT 08551?00 

DECLARED AT 08558000 
T 08*80000 

086&4000 08694200 

DECLARED AT 08694200 

DECLARED AT 08774000 
DECLARED AT 08791000 

CLARED AT 08918000 • 
T 12505000 
*1265l000* 1265?000 
T 12805000 
T 13Q06000 



OCCURS AT 08923000 



♦13061000* 13066000 * 1 3068000** 1 3<V?000* 13073000 

X " STREAM VARIABLE — DECLARED AT 14020000 

X -- REAL — DECLARED AT 14164000 

14183000 ♦I4l84p00**141860?0* 14166120 14186130 14186140 I4l86i48 *14 1 97000 *♦ 1 4 198 100* 14198200 14198300 
14198400 14198700 14198800 * 14206000**1 42i 0000* 14211000 14216000 14217000 #14224000* 

x — stRfam Label — nrrLARFn at 14424000 -- occurs at 14429000 

144?7000 
X -- REAL ARRAY -- DECLARED AT 14546000 

14551500 i455?000 145^2^50 14554000 14555500 *1A559250* 14594000 1*595000 * 1 4596000** 1 4598300** l 4600000* 

14602500 *14603000* 14603200 * 14603300** 146033 10* 14603600 *14604000* 
X — STREAM VARIABLE " DECLARED AT 14645000 

14646000 14647?00 *14650000* 14650400 *14650600* 14651000 
X " STRraM VARUBl-F "■ DFCLARFn AT 14702025 

14702050 14702100 
X — RFAL — VALUF PARA^FTFB — DFCL A RFn AT 15019000 

I50?t000 *i5039000* 15O4OOOO 
X -* STREAM VARIABLE -- DECLARED AT 15021000 

15031000 *i5037000* 
X — LABEL — DECLARED AT 15172000 -- OCCURS AT 15175900 

15173000 
* -" LABEL -- DECLARED AT 154O3OOO -- OCCURS AT 15440000 

15438170 
X — REAL -" DECLARED AT 15501000 

♦15501200* 15501300 15501600 15531100 15531200 
X -* STREAM VARIABLE — DECLARED AT 15550000 

15552400 
X — REAL — VALUE PARAMETER -- DECLARED AT 17000400 — OCCURS AT 16926154 

17000000 17000200 17005400 
X — REAL -- DECLARED AT 18198000 

+18227000* 18227500 18228000 18232000 18245000 
X — STREAM VARIABLE — DECLARED AT l9768?00 

19768300 
X -- STREAM VARIABLE -- DECLARED AT 20064000 

20064300 
X -- REAL "- DECLARED AT 20289035 

♦20289335**20289370* 20289510 20289580 
X — REAL " DECLARFD AT 20382050 

•20382220* 20382260 20382360 20382380 20382440 
X -- REAL ARRAY -" Na«f PARAMETFR -• DEcLaRED AT 20386100 

20384000 *20400000* 20415100 *20504000**20505000* 20507100 #20507400* 

X -- STREAM VARIABLE •• DFCLARFn AT 20511663 

205U685 205H70? 
X «• STREAM VARIABLE — DECLARED AT 20566915 

20566940 
X -- REAL -- DECLARFD AT 22602000 

♦22042000* ?204?100 22045000 
X — STREAM VARIABLE « DECLARED AT 22136000 

22142000 
X — STREAM VARIABLE « DECLARED AT 221450*0 

22145350 
X "- REAL -- DFCLARFD AT 22231000 

22261000 *22263000* 22264000 *22277000**223 12000* 22315000 22317000 *2237 1 ?20*+22387000**22399000* 22400000 
♦22423000* 22423100 
X « REAL -- VALUE PARAMFTER « DECLARED AT 22900000 

22916000 

x •- real -- declared at 24004000 

♦24011000* 24012000 



X -- REAL -• DECLARFD AT 24032200 

♦24033600* 24033900 +24034000**24035600* 24035700 24035800 *24036900* 24037200 +24037300* 24037600 #24038000* 
24038100 *24038900* 240S9000 ♦24039100**24039700* 24039900 

X — STRFAM VARTARLf "- OFCUARm AT 24042700 

24042800 
X -- INTEGER — DECLARED AT ?4?07000 

•24212000* P4225000 
X — REAL ARRAY -- DECLARED AT 28004400 

28004600 *28058600* 28059600 *2806?000* 28062200 
X -- REAL ARRAY — DECLARED AT 28401800 

*28458000**28466600* 28467000 28467600 28467800 28475K00 28476400 2IB482000 
X — REAL ARRAY -" DECLARED AT 28804000 

♦28856000**28860000* 28861000 *28665000**28866000* 28866300 28868400 *28868500* 28879000 2888l000 28883000 

28889000 
X « STREAM VARIABLE « DFCLARfO AT 30920000 

309o5000 
X — DEFINE -- DECLARED AT 36OO4OOO 

36007000 36009000 
X *•« I.ABEL -- DECLARED AT 3700^000 -- OCCURS AT 37172000 

37046810 37O477OO 37048400 3^085000 37lOOOtO 37121000 
X — LABEL -- DECLARED AT 37180600 -- OCCURS aT 37241810 

37240700 37241540 37255100 
X « STREAM VARIABLE — DECLARED AT 37240700 

37240800 *37240910* 
X — STREAM VARIABLE -- DECLARED AT 37255100 

37255200 
X -- REAL -- DECLaRfD AT 37323000 

♦37327000* 37328000 37329000 
X « STREAM VARIABLE — DECLARFD AT 36131000 

38131500 38132000 
X — STREAM VARIABLE — DECLARFD AT 39905000 

39906000 *39909000* 399i2000 399i8000 
X -• STREAM VARIABLE — DECLARfD AT 39950000 

39951000 
X — REAL — DECLARED AT 40004500 

40016025 40016200 40016240 40016400 400l65l0 40016910 40016920 40017280 *400l7290* 40027240 40027250 

40027270 40027290 40027295 4o042100 40047100 40060305 40062000 40072000 40074000 40076000 40078033 

40078066 *40078070* 4OO78O74 40078092 *40 100700**40 100900**40 lO 1250**40261046**40290300**40290400**40290600* 
♦40320200* 40320600 *40321l00**4032l3l0* 403 2 l400 40322100 40322220 40322410 40322425 40323600 40323700 

40324200 40327000 
X •- STRfa m VARIABLE — DECLARFD AT 40320200 

*403?0300* 4O32O5OO 
X -- STREAM VARIABLE -- DECLARED AT 41316525 

41316530 41316535 
X — STREAM VARIABLE -- DECLARED AT 41333005 
X -- pEAL ARRAY -• DECLARED AT 44018000 

44037000 
X — REAL ARRAY -» DECLARED AT 44207200 
X — REAL ARRAY -- DECLARED AT 45002800 

*45094600**45101000* 45111000 *45 1 14000**451 15000* 45116000 *45l 19000**45 120000**45 121000**45 122000**45 124000* 
*45125000**45126000* 45128000 *45129000* 45130000 45131100 45135010 

X — STRfaM VARlABLF " DFCLaRfo AT 4513U00 

451 31200 
XClICk — INTEGER -- DECLAREO AT 44016000 
XCLICK "- INTEGER -- DFClARED AT 44207100 

*44216900* 
XCLOCK ■" REAL •- DECLARED AT 00114000 



02173297 03953085 06188000 *06188100* 07550100 08307000 08383100 08394000 08410100 08572510 08713000 

12699000 12855000 144U860 l'»4l5000 *l56?2000* 18710800 20031500 20043800 20106000 *?0157700* 20173200 
2O?89n0 ?0289 ? 60 *220 j ?000**2?909000* 2^299000 3744j500 38217500 38220000 4i3i0500 4i3l65?0 4l3i9900 

4l3?0430 <M32l900 4l3?9700 4i333900 41603800 44O16OOO 44207;(00 450"9~? 1 80 45n8000 *45l35200* 45135230 
*48000000* 48002000 

XCLOCK " STREAM VARIABLE — DECLARED AT 05953085 

XCL0CK T fME -- DEFINE -- DECLARED AT 200t9500 
20031500 ?0043800 

XCLOCKTiME « DEFINE — DECLARED AT 20086000 
20J06000 

XCLOCkTIME -- DEFINE — DFCi.ARED AT 20l46?00 

XD -• LABEL -" DECLARED AT 16700500 •- OCCURS AT 16804000 
16705000 

xdfilf -- label — declared at 05952620 — occurs at 05975700 

05960680 

xexit -- label -- dfclarfd at 0^555000 — occurs at o46484oo 

046260C0 
XI -- RFAL " DECLARED AT 20566250 

*205670i0* 20567050 20567057 20567065 20567085 20567090 20567097 20567i05 *205700lO* 20570020 *20573460* 

20573540 
XIO — LABEL -- OECLARFD AT 04554?00 -- OCCURS AT O45682OO 

04567845 04567900 
XIO •- LABEL — DECI.ARFD AT 04670650 — OCCURS AT 04673550 

04673400 
XLST — REAL ARRAY — NAME PARAMETER — DECLARED AT 02052800 

02052700 
XLST — RFAL ARRAY -- DECLARED AT 08100050 

08104900 
XLST -- RfAL ARRAY -- NaMf PARAMETER — DFCLARED AT 20382015 

20382010 20382?20 20362?80 ?038?300 20382340 *20382360**20382360**20382400* 
XLST — RrAL ARRAY -- DECLARED AT 20566280 

20566290 *?0567o05* 20567025 20567030 *20567035**20567050**20567057**20567065* 20567085 *20567090**20567097* 
♦20567105* 20570040 20570050 *20570070** 20573350**20573540* 20574100 20580302 
XLSTSZ "- REAL " DFCLaRFD AT 20566260 

*20567005* 20567010 *?0567020* 20567025 20567035 

xsfs •■ Label -- declared at 08856000 — occurs at 08910000 

08883000 08912000 
XT — STRFAM LaBfL — DFCLARED AT 16042300 " OCCURS AT 16043400 
XT -- STRrAM LABFL -- DECLARED AT 16092000 — OccURS aT J6098000 

16093000 16094000 16095000 16096000 
XT — STREAM LABEL — DECLARED AT 16143000 -- OCCURS AT 16147000 

16145000 
XT •- STREAM LABEL -- DECLARED AT 16191 000 •- OCCURS AT 16196000 
XTRA -- ImTEGER • » VALUE PARAMETER •- DECLARED AT 39000100 

39000000 39000100 39307100 39307300 
XTRA "- REAL -- DECLARED AT 41003100 

41309000 
XTRAC *- REAL « DECLARED AT 39001200 

♦39307200* 
XTRAR "- REAL — DECLARED AT 39001200 

39307400 
XX -» LABFL -- DECLaRFP AT 24032800 -- OCCURS AT 24038500 

24037600 
XXlT m m LABEL — DECLARED AT O4555OOO -- OCCURS AT 04567840 

04567700 
XXlT — STREAM LABEL — DECLARED AT 12234000 — OCCURS AT 12242000 

12236000 12238000 
XX IT — STREAM LABEL — DECLARED AT 16038200 •• OCCURS AT 16040600 



XXIT 

XXTT 
XX?T 

XXXXXX 
XXXXXX 

XXo •' 
XXi - 

XX2 - 

XYT - 

XYT - 

X t — 

X J ■>■ 

XI -- 

xi — 
xi — 

xi -• 

X2 -- 



X2 
X2 
X2 

X2 
X2 
X2 



X3 -• 

X4 -- 
X5 — 

Y — 

Y -- 

Y w«> 

Y <• W 

Y »«• 



16038400 
— STREAM 

16555400 

■- strfam 

*m 5TRFAM 
20062200 

« DEFIN 
— SUBRO 

• STREAM L 
" REAL -- 

28205400 

• REAL — 
28201400 

• LftqFU * 
19697400 

• LABEL - 
42539060 

REA^ -- 
♦06073900* 

06098300 
STREAM Va 
07464000 
DEFINE - 
14598300 
STREAM VA 
STRFAM VA 

Real -- 

♦ 401.00200* 

REAU « 
*06074200# 

06093900 
STREAM VA 
STREAM VA 
STRFAM VA 
07464100 
STREAM VA 
STRFAM VA 
REAL — 
*40i00200* 

40?6l048 

Real ■ " 

♦06073900* 
06089000 

REAL — 
06068800 

REAL — 
06068800 

06111500 

REAL -- 
0i25l800 

STREAM VAR 
*0l?52?00* 

REAL •• 
♦02173100+ 

REAL "•* 

02385000 
REAL -- 



16038700 
LABEL -- 

Label — 

LABEL *«- 



DECLARFD AT 16855300 

OFCLaRfO AT 20054400 
OFCLARFD AT 20061700 



E -- DECLARED AT 00417000 
UTINE -- DECLARED AT 44037000 
ABEL -- DECLARED AT 12231500 
DECLARED AT 28201200 



OCCURS AT 16856000 

OCCURS AT 20055300 
OCCURS AT 20063100 



OCCURS AT 12234000 



DECLARED AT 28201200 

DECLARFD AT 19695000 
19697700 

DECLARFD AT 42511500 



Occurs at 
occurs at 



DECLARED AT 06068700 

06074100 *06077400* 06085100 06085600 
*061l0ft00* 06111100 06111400 06111700 
RIABLE -- DECLARED AT 07463000 



- DECLARED 
14602500 1 

RUBLE — 
RIABLe — 
DECLARED AT 
4OIOO3OO 4 
DECLARED AT 
06077000 *0 
♦06097000**0 
RIABLE -- 
RIABLE — 
RIABLE -- 



AT 14546200 

4603000 14603200 14603300 
DECLARED AT 14702025 
DECLARED AT 3813l000 

40005110 
0100600 40100700 

06068700 
6077400* Ofi078i00 
6H0800* 06111000 
DECLARED AT 06074200 
DECLARED AT 06090000 
DECLARED AT 07463000 



19799060 
42553000 

*06091600* 06091800 06093900 06094100 *06097l00**0609 7400* 
14603310 14603600 14604000 



40101100 *40249200* 40250000 

♦06085900* 06086300 06086400 *06090000* 06090600 *0609?600* 06092700 
061U400 



RIABLE - 
RIABLE - 
DECLARED 
4O1OO8OO 
4026H00 
DECLARED 
06074i00 
*06092500 

DECLARED 
*06085l00 

DECLARED 
O6068900 

06111700 

DECLARFD 
*0 1252350 

IABLE — 



• DECLARED AT 14702025 

DECLARED AT 38131000 

AT 40005110 

*40 1 1 tOO* 4010^250 



4O1O13OO *40252000* 40253000 *40257030* 40257060 4026l040 40261043 



AT 06068700 

♦06084900* 06085)00 060852°° 

* O609270O 06093)00 06093200 
AT 06068700 

* 06085200 +06085600* 06085700 
A T 06068700 

♦06077400* .06077500 06077600 

AT 01J50300 

* 01255400 0i256300 0i259i00 
DECLARED AT 0i ? 5l800 



♦06087000* 06087200 *06087300* 06087400 ♦06088200+ O6O883OO 

06093300 06093400 06093700 +06H0900* 06111300 

♦06095100* 06095200 06095*00 + 06U0900* 06111500 

♦06077700+ 06078000 +06085500+ 0608570O 06085800 +06111000* 



DECLARED AT 02133150 

02173300 
DECLARED AT 02382000 

02387000 +02369000**02390000* 02391000 
DECLARED AT 04554100 



y .. 

Y -- 

Y mm 

Y •• 

Y -- 

Y -• 

y •• 

Y •• 

Y -- 

Y •• 

Y •- 

y -- 

y .- 

Y — 

Y "" 

Y « 

Y -- 

Y •«• 
y •»<■ 

Y •* 

Y -• 

Y *»• 
y «■• 
y »■• 

Y — 

Y — 

Y mm 

Y .. 

Y • «• 

Y mm 



*04556100**0456787o* 04588270 04588400 +04648150* 04648200 

STRraM vaRiabLf — nrcLARrn at 04568270 

04588340 
STREAM VARIABLE -- DECLARED AT O45684OO 

04588480 
REAL. — DECLARED AT 04668550 
*04671250**04673300* 
LABEL « OECLApEO AT 05847800 

05851220 05852200 05852350 

AT 05952600 



OCCURS A T 05851600 



LABEL " DECLARED 

05970600 
STREAM VARIABLE — DECLARED 
STREAM VARIABLE — DECLARED 

07036220 

Real •- oecLaRfd at 08318000 

083i8?00 083?0000 08324000 
STREAM VARIABLE 



AT 
AT 



— occurs at o59638oo 

06269000 
07032000 



declared 
declared 
declared 



DECLARED 
DECLARED 



STREAM VARIABLE • 

STREAM VARIABLE - 
♦14702450* 

STREAM VARIABLE - 

STREAM VARIABLE - 
16752500 

stream variable - 

♦16767000* 
REAL — dpcLaRfD AT 18004000 
♦18012000* I80i4i00 i80j5000 
STREAM VARIABLE - 



08332100 
AT 0«3i8?00 
AT 08365000 
AT 14702025 



AT 
AT 



15022000 
16751500 



DECLARED AT 16756000 



DECLARED 
DECLARED 
DFCLARED 



AT 22136000 



AT 22145050 



24034000 
24037100 



20511702 
STREAM VARIABLE 

22141000 
STREAM VARIABLE 

22145300 
REAL — DECLARED AT 24032200 
♦24033700* 24033800 +24033900* 

24035800 24035900 +24037000* 

24039600 
REAL « 

280/5800 
REAL « 

28?03600 
LABEL — 

37232750 
STREAM VARIABLE 
♦37255700* 
STREAM VARIABLE 
♦38135500* 

REAL -• DECLARED AT 40004000 
♦400t6200^ 4OO164OO 4OO4641O 

40322442 
REAL -- OECLARFD AT 42516000 

425t7030 42517050 *42525l20* 42525140 
STREAM VARIABLE -- DECLARED AT 42517030 
REAL -- DECLARED AT 44011000 
REAL •• DECLARFD AT 44?06700 
♦44240800* 44?40ft80 44240900 
REAL "- DECLARED AT 45002000 



160J7000 *l8059000**i8062000* 18063000 
AT 20511665 



18068000 +18069000* 18073000 



24034200 ♦24034400+ 
♦24037200+ 24037300 



24034500 
24037500 



+24035300* 
♦24039100+ 



24035400 +24035600* 24035700 
24039200 24039300 ♦24039500* 



28080000 28085000 ?8085200 



DECLARFD AT 28003000 

28076000 28O784OO 
DECLARED AT 28203400 

*28242400+ 28?43200 *p8267000* 28267200 
DECLARED AT 37180600 — OCCURS AT 37241700 
37255100 
DECLARED AT 37255100 



37233250 



■- DECLARED AT 38131000 



40016420 400i6500 40016600 40017200 40017250 +40074000+ 40075000 +40322440* 



YECH •• STREAM LABFL — DFCLARFD AT 16926Q90 -- OCCURS AT 16926180 

16936125 16926160 

YR — REAL "- DECLARED AT 08344000 

*08360000* 08364000 08367000 08368000 08370000 

yi •- Real •• declared at 40005210 

♦40100500* 40100700 40100800 40100900 

Y2 — real -- declarfd at 40005210 

♦40100500* 40)00600 40100700 
Z -• REAL — DECLARED AT 02J33150 

♦ 02173095* 02173H0 021.73150 02173210 02173296 02173300 02173350 
Z •• STREAM VARIABLE — ' DECLARED AT 02221000 

02224000 

Z •- STRFAM VARIABLE — DFCLaRFO AT 02275850 

Z — STRFAM VARIABLE — DFCLARFO AT 04251300 

04251400 
Z — REAL -- DECLARfD AT 04554100 

♦ 04588020* 04588^0 *045882i 0**0/^588230* 04588240 04588270 O45884OO 
Z •- STREAM VARIABLE -- DECLARED AT 04588?70 

0458835© 
Z -- STREAM VARIABLE -- DECLARED AT O/4588AOO 

04588500 
Z •«• DEFINE « DECLARED AT 05702000 

05703500 05704000 05722000 05724000 05728000 05728180 05729300 
Z •«• INTEGER " DECLARFD AT 05841350 

05842500 05843500 05843950 #05844920**058449 30^ 05846360 
Z -• LflBFL -- ofcLaRFO AT 05847800 — OrCURS aT 05851700 

05850600 05851700 
Z — LABFL — DFCLARFD AT 05952600 -- OcCyRS AT 05970300 

05967900 05969400 
I — REAL — DECLARE^ AT 06351000 

*06353500**06353530# 06353540 *06353545* 06353551 ♦O63536OO* 06353650 *06353680* 06353700 
Z — STREAM VARIABLE — DECLARED AT 06353545 
Z — STREAM VARIABLE « DECLARED AT 06353600 
Z — STREAM VARIABLE -- DECLARED AT 06353680 
Z — STREAM VARIABLE "- DECLARED AT 07032000 

07036240 

z — strfa m Label •- dfcLaRed at 07494000 — occurs at 07496000 

Z — STRFAM VARIABLE — DFCLARFO AT O83182OO 
Z •• STREAM VARIABLE -- DECLARFD AT 08365000 
Z — REAL -- VALUE PARAMETER -- DECLARED AT 08546000 

08547000 08547?00 08547600 08551200 O8558OOO 
Z •* STREAM VARIABLE — DECLARED AT 08774000 

08776000 08778000 08781000 
Z •* STREAM LABEL " DECLARED AT 08922000 -- OCCURS AT 08924000 
Z — REAL -- DECLARFD AT 09679300 

•09680200* 09680300 09680400 09682610 09682700 
Z •• REAL — VALUE PARAMETER " DECLARED AT 12500500 

12500000 12500500 12621000 
Z — REAL -- VALUE PARaMfTER -- DECLARED AT 12800500 

12800000 128OO5OO 12^47000 
Z — REAL -- DECLARED AT 14545000 

♦14555500* 14556000 *14569500* 14581000 14584000 *1459?000* I4598i00 
Z — STREAM VARIABLE — DECLARED AT 14645400 

14650000 
Z -- STREAM VARIABLE — DECLARED AT 14702025 

14702200 
Z «*• STREAM VARIABLE « DECLARED AT 20411000 



20413000 
I mm REAL " VaLUF PARaMfTER — DECLftRFO AT 28000000 
28049400 

z -" stream variable: -- dfclaRfo at 32001700 

♦32002070* 
Z •- REAL • « NAME PaRAMFTFR — DFCLARFD AT 36001000 

36003000 
Z -- REAL -- DECLARED AT 3^359000 

37361000 
Z -- STRFAM VARIABLE -- DECLARED AT 37361000 

37366000 37369000 +37376000* 
Z — STREAM VARIABLE — DECLARED AT 38131000 

38133000 
Z -- STREAM VARIABLE "- DECLARFD AT 38575000 
Z *" REAL -- DFCLARFD AT 40004000 

♦40027240**40027250**40321000+ 40321300 +40322600* 40324500 *40325000**40332000* 40334057 
Z ■• REAL -- DECLARED AT 44011000 
Z •• REAL -- DECLARFD AT 44206700 

♦44240800+ 44240840 44240860 
Z •» REAL •• DECLARFD AT 45602000 

45002100 
ZER •• LABEL -- DECLARED AT 18207000 
ZERO -■ STREAM VARIABLF •- DECLARFD AT 20061000 

20061600 
ZEROAROw -- SURROUTlNF — DFCLARFD AT 28835000 

28885000 
ZERODKAnDK -- LABFL -- DFCLARFD AT 385480jO -. OCCURS AT 38609700 

38581930 
ZEROING -- REAL -- DECLARED AT ?8803000 

28821000 ♦28878000* 
ZIpEXlT -« LABEL -- DECLARED AT 20597850 -- OCCURS AT 20610200 

20599100 20607700 20608880 20608900 20609250 20609580 

ziplist •- Label -- declared at 20597880 -- occurs at 206003eo 

20600490 
ZIPMIX *- DEFINE " DECLARED AT 20566630 

20566785 
ZlPMjx — DEFlNF " DFCLARFD AT 20584275 

20585610 
ZlPMfX « DEFINE " DECLARED AT 2060000U 

20A02470 2O6O2A8O 2^6055i0 20607020 ?0608n2 20608114 20609660 2O61O26O 
ZIPPER »• PROCEDURE -- DECLARED AT 14531000 -- FORWARD AT 14342100 

14411680 14542000 18750100 
ZSE -• REAL ARRAY « DECLARED AT 39902000 

39912000 39933000 39937000 39938000 *39958000*+39962000+*39965000* 39970000 
ZSE »- REAL ARRAY " DFCLARFD AT 40005200 

+40008330**40008340**40275500**40275600* 40353100 40353140 40353J70 40353200 40356550 
ZZ — RFAL — OFCLaRFD AT 08547050 

♦08547200* 08547300 08547400 
ZZP — STRFAM VARfABLF -- DECLARED AT 2O6OO4OO 

20600420 ?0600«30 2O6OO46O 
ZZP «.- STREAM VARIABLE « DECLARED AT 20607040 

20607140 
ZZSTA -• REAL ■- DECLARED AT 12212500 

*12223000^ 12321000 
ZZSTA •• INTEGER -- DECLARED AT 16047000 

♦16076000* 16343700 
ZZSTA "" INTEGER -- DECLARED AT 16348000 



*16377000* 16522000 16689300 
ZZSTA — fNTFGFR -" DFCLAREB AT 166920 
16692500 *167'12500* 16739500 16788' 

ZZSTA •" fNTFGFR "• OFCLaRFD AT 1690750C? 

16908000 16975500 16965000 16967500 





29600 16902800 



CROSS REFERENCE STATISTICS 



PHASE ONE - SORT 7507 IDENTIFIERS 
3l57 ELAPSED TIMF CMINtSEC) 
2t20 PROCESSOR TIMF 
3146 I/O TJMF 

Phase two - sort 536O8 RffeRencfs 

9100 ELAPSED TIME fMlNiSEC) 
8124 PROCESSOR TIME 

1M9 1/0 Time 



phase Three - print cross reference ( 
4159 elapsed time (minlsec) 
4125 processor time 

2100 I/O TfMF 



14650 LINES) 



LABEL OOOOOOOOOLtNF 00l772440t772540000000000000000l070000l5000l500000000000 espol /disk 



